|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metricsIndex: / A C D E F L M O P R S T W p ½
Length: 5197056 (0x4f4d00)
Description: Bits:30009698 Philips computer tape "600415"
Types: SimhTapContainer, ½" Magnetic Tape
| name | artifact |
|---|---|
| M:DE10 | «none» |
| M:DE10//OBJCT.OB | ⟦eb03ca8f3⟧ pts_type |
| M:DE10/CTAB01.SC | ⟦8bd95c667⟧ pts_type |
| M:DE10/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:DE10/DFTAB.SC | ⟦8aba3c997⟧ pts_type |
| M:DE10/DRDY01.SC | ⟦50f26e755⟧ pts_type |
| M:DE10/DRFD01.SC | ⟦5decedd95⟧ pts_type |
| M:DE10/DRGP01.SC | ⟦59b54709b⟧ pts_type |
| M:DE10/DRKB03.SC | ⟦6acbf80c2⟧ pts_type |
| M:DE10/DRLT01.SC | ⟦0b0285bc2⟧ pts_type |
| M:DE10/DRSOP1.SC | ⟦9f9ee7c24⟧ pts_type |
| M:DE10/DRSW01.SC | ⟦3ef7e2640⟧ pts_type |
| M:DE10/DSKSUB.SC | ⟦c7f55987a⟧ pts_type |
| M:DE10/DVDY00.SC | ⟦050785244⟧ pts_type |
| M:DE10/DVDY03.SC | ⟦2150e31e8⟧ pts_type |
| M:DE10/DVGP01.SC | ⟦b71d068c1⟧ pts_type |
| M:DE10/DVGP02.SC | ⟦f4317230f⟧ pts_type |
| M:DE10/DVKB00.SC | ⟦6aadd0d1f⟧ pts_type |
| M:DE10/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| M:DE10/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:DE10/DVTKB.SC | ⟦b79da759b⟧ pts_type |
| M:DE10/EBCDIC.SC | ⟦3b52e2931⟧ pts_type |
| M:DE10/FMTASK.SC | ⟦b2da399c9⟧ pts_type |
| M:DE10/LDTASK.SC | ⟦f3304d121⟧ pts_type |
| M:DE10/LKMAL.SC | ⟦8aaca8f58⟧ pts_type |
| M:DE10/LRPINT.SC | ⟦cf69f593c⟧ pts_type |
| M:DE10/M:DE10.LM | ⟦b7cb647d9⟧ pts_type |
| M:DE10/M:DE10.UF | ⟦c7a44cc7d⟧ pts_type |
| M:DE10/MONTAB.SC | ⟦f4f15a1fc⟧ pts_type |
| M:DE10/MONTIM.SC | ⟦f3e1f57bf⟧ pts_type |
| M:DE10/MSUBS.SC | ⟦3edc37d97⟧ pts_type |
| M:DE10/PFTAB.SC | ⟦59adebc30⟧ pts_type |
| M:DE10/SCLASS.SC | ⟦8334d8b78⟧ pts_type |
| M:DE10/ST8000.SC | ⟦938591c7f⟧ pts_type |
| M:DE10/SYSLDA.SC | ⟦8a8ade0b4⟧ pts_type |
| M:DE10/SYSLDM.SC | ⟦00870c233⟧ pts_type |
| M:DE10/SYSLOD.SC | ⟦712fab8b6⟧ pts_type |
| M:DE10/SYSTAB.SC | ⟦38859e2e3⟧ pts_type |
| M:DE10/TABORT.SC | ⟦18ab3751d⟧ pts_type |
| M:DE10/TCLASS.SC | ⟦ecf290c74⟧ pts_type |
| M:DE10/TDISP.SC | ⟦0050a0104⟧ pts_type |
| M:DE10/TIMER.SC | ⟦8400918ab⟧ pts_type |
| M:DE10/TIODMX.SC | ⟦e121b9d8b⟧ pts_type |
| M:DE10/TLDSEG.SC | ⟦7bdfbcaec⟧ pts_type |
| M:DE10/TMMLKM.SC | ⟦45fd0c009⟧ pts_type |
| M:DE10/TOSSFM.SC | ⟦92497314c⟧ pts_type |
| M:DE10/TOSSIO.SC | ⟦732246272⟧ pts_type |
| M:DE10/TPROC.SC | ⟦ad4955cd8⟧ pts_type |
| M:DE10/TTMJOB.SC | ⟦afec19425⟧ pts_type |
| M:LP | «none» |
| M:LP//OBJCT.OB | ⟦baa16b3c4⟧ pts_type |
| M:LP/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:LP/DRGP01.SC | ⟦ec3969ed9⟧ pts_type |
| M:LP/DRGP02.SC | ⟦83926952f⟧ pts_type |
| M:LP/DRRT01.SC | ⟦443eb9f14⟧ pts_type |
| M:LP/DRSW01.SC | ⟦f8116df75⟧ pts_type |
| M:LP/DSKSUB.SC | ⟦b58dede6f⟧ pts_type |
| M:LP/DVG100.SC | ⟦f6f8a001a⟧ pts_type |
| M:LP/DVGP01.SC | ⟦bfcfbd3e8⟧ pts_type |
| M:LP/DVTG1.SC | ⟦0107ae830⟧ pts_type |
| M:LP/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:LP/EBCDIC.SC | ⟦baba215b2⟧ pts_type |
| M:LP/LDTASK.SC | ⟦88ae8c86e⟧ pts_type |
| M:LP/LKMAL.SC | ⟦27a8c9e98⟧ pts_type |
| M:LP/LRPINT.SC | ⟦6096564ec⟧ pts_type |
| M:LP/M:LP.LM | ⟦28e236668⟧ pts_type |
| M:LP/M:LP.UF | ⟦a66104418⟧ pts_type |
| M:LP/MONTAB.SC | ⟦6491479f5⟧ pts_type |
| M:LP/MONTIM.SC | ⟦9afd8554c⟧ pts_type |
| M:LP/MSUBS.SC | ⟦d160abd1c⟧ pts_type |
| M:LP/PFTAB.SC | ⟦eaf9a3aff⟧ pts_type |
| M:LP/SCLASS.SC | ⟦810226976⟧ pts_type |
| M:LP/ST8000.SC | ⟦89ba753c3⟧ pts_type |
| M:LP/SYSLDA.SC | ⟦7dd9fde40⟧ pts_type |
| M:LP/SYSLDM.SC | ⟦b60c491e1⟧ pts_type |
| M:LP/SYSTAB.SC | ⟦929128353⟧ pts_type |
| M:LP/TABORT.SC | ⟦495482439⟧ pts_type |
| M:LP/TCLASS.SC | ⟦6d2f09b26⟧ pts_type |
| M:LP/TDISP.SC | ⟦55465e386⟧ pts_type |
| M:LP/TEST.UF | ⟦c4d170850⟧ pts_type |
| M:LP/TIMER.SC | ⟦113dc495f⟧ pts_type |
| M:LP/TIODMX.SC | ⟦e121b9d8b⟧ pts_type |
| M:LP/TOSSIO.SC | ⟦a5122544d⟧ pts_type |
| M:LP/TPROC.SC | ⟦ad4955cd8⟧ pts_type |
| M:LP/TTMJOB.SC | ⟦afec19425⟧ pts_type |
| M:TU10 | «none» |
| M:TU10//OBJCT.OB | ⟦31aff410f⟧ pts_type |
| M:TU10/ADDMOD.SC | ⟦36a132ad1⟧ pts_type |
| M:TU10/CTABX.SC | ⟦49a9ecc16⟧ pts_type |
| M:TU10/DFTAB.SC | ⟦3715cf919⟧ pts_type |
| M:TU10/DIVMOD.SC | ⟦d0dfaa260⟧ pts_type |
| M:TU10/DMBUF.SC | ⟦b08fa841c⟧ pts_type |
| M:TU10/DMFDB.SC | ⟦f8c591f14⟧ pts_type |
| M:TU10/DMINIT.SC | ⟦33cce9eb9⟧ pts_type |
| M:TU10/DMOPCL.SC | ⟦974325df7⟧ pts_type |
| M:TU10/DMSUBR.SC | ⟦d03dbe9b2⟧ pts_type |
| M:TU10/DMSUBX.SC | ⟦f6ab2f431⟧ pts_type |
| M:TU10/DMTASK.SC | ⟦1f1be03f4⟧ pts_type |
| M:TU10/DRDU01.SC | ⟦96f3b1ca3⟧ pts_type |
| M:TU10/DRDY01.SC | ⟦be455fe1a⟧ pts_type |
| M:TU10/DRFD01.SC | ⟦1ee223720⟧ pts_type |
| M:TU10/DRGP01.SC | ⟦41ae65154⟧ pts_type |
| M:TU10/DRKB01.SC | ⟦be81455e6⟧ pts_type |
| M:TU10/DRKB03.SC | ⟦5842c6563⟧ pts_type |
| M:TU10/DRLP01.SC | ⟦af974115c⟧ pts_type |
| M:TU10/DRLT01.SC | ⟦0b0285bc2⟧ pts_type |
| M:TU10/DRSOP1.SC | ⟦8ee8b23d4⟧ pts_type |
| M:TU10/DRSW01.SC | ⟦1f212f6a1⟧ pts_type |
| M:TU10/DRTC01.SC | ⟦253300892⟧ pts_type |
| M:TU10/DSKSUB.SC | ⟦6f85c5b5c⟧ pts_type |
| M:TU10/DSUMOD.SC | ⟦75ef3c956⟧ pts_type |
| M:TU10/DVDY00.SC | ⟦b73c090e6⟧ pts_type |
| M:TU10/DVDY01.SC | ⟦6abdc8777⟧ pts_type |
| M:TU10/DVGP02.SC | ⟦5a63bc870⟧ pts_type |
| M:TU10/DVKB00.SC | ⟦0432bf868⟧ pts_type |
| M:TU10/DVKB01.SC | ⟦560df0e67⟧ pts_type |
| M:TU10/DVTDY.SC | ⟦3c39c30b7⟧ pts_type |
| M:TU10/DVTGP.SC | ⟦11577f13d⟧ pts_type |
| M:TU10/DVTKB.SC | ⟦b79da759b⟧ pts_type |
| M:TU10/EBCDIC.SC | ⟦8db78edc7⟧ pts_type |
| M:TU10/FMTASK.SC | ⟦21c9bc9ed⟧ pts_type |
| M:TU10/LDTASK.SC | ⟦45cc13df4⟧ pts_type |
| M:TU10/LKMAL.SC | ⟦7e981e693⟧ pts_type |
| M:TU10/LRPINT.SC | ⟦61c566dcc⟧ pts_type |
| M:TU10/M:TU10.LM | ⟦f1a03d8a6⟧ pts_type |
| M:TU10/M:TU10.UF | ⟦0229bc047⟧ pts_type |
| M:TU10/MONTAB.SC | ⟦02a266fb6⟧ pts_type |
| M:TU10/MONTIM.SC | ⟦70f9799cc⟧ pts_type |
| M:TU10/MPYMOD.SC | ⟦93784cc7e⟧ pts_type |
| M:TU10/MSUBS.SC | ⟦e5395e1d0⟧ pts_type |
| M:TU10/PFTAB.SC | ⟦df6979bc6⟧ pts_type |
| M:TU10/SCLASS.SC | ⟦8919ed7e4⟧ pts_type |
| M:TU10/ST8000.SC | ⟦938591c7f⟧ pts_type |
| M:TU10/SYSLDA.SC | ⟦12580361a⟧ pts_type |
| M:TU10/SYSLDM.SC | ⟦b60c491e1⟧ pts_type |
| M:TU10/SYSTAB.SC | ⟦e37937dc4⟧ pts_type |
| M:TU10/TABORT.SC | ⟦405ec8dd1⟧ pts_type |
| M:TU10/TCLASS.SC | ⟦fdfe32df1⟧ pts_type |
| M:TU10/TDISP.SC | ⟦144a4c281⟧ pts_type |
| M:TU10/TIMER.SC | ⟦f21d5d52a⟧ pts_type |
| M:TU10/TIODM.SC | ⟦2589f853e⟧ pts_type |
| M:TU10/TOSSFM.SC | ⟦3ff838167⟧ pts_type |
| M:TU10/TOSSIO.SC | ⟦732246272⟧ pts_type |
| M:TU10/TPROC.SC | ⟦14a0d8064⟧ pts_type |
| M:TU10/TTMJOB.SC | ⟦ffb9b4cd4⟧ pts_type |
| S:DE | «none» |
| S:DE//OBJCT.OB | ⟦04dcfc561⟧ pts_type |
| S:DE/ASSRUT.SC | ⟦0b9ef813c⟧ pts_type |
| S:DE/CDE1.UF | ⟦4de16548c⟧ pts_type |
| S:DE/CDVASM.SC | ⟦7c7ee4621⟧ pts_type |
| S:DE/CDVRUT.SC | ⟦182fe476d⟧ pts_type |
| S:DE/CONDE.UF | ⟦a061b5b62⟧ pts_type |
| S:DE/CONFNY.UF | ⟦0f8a0f00c⟧ pts_type |
| S:DE/CONV.SC | ⟦ba1a0566b⟧ pts_type |
| S:DE/CTAB01.SC | ⟦8bd95c667⟧ pts_type |
| S:DE/CTABX.SC | ⟦78f85789d⟧ pts_type |
| S:DE/DANNES.SC | ⟦1858f8a45⟧ pts_type |
| S:DE/DANT01.SC | ⟦bd68e6b2c⟧ pts_type |
| S:DE/DANTER.SC | ⟦452c10444⟧ pts_type |
| S:DE/DANVAL.SC | ⟦243db4ceb⟧ pts_type |
| S:DE/DATCHK.SC | ⟦923b55e3b⟧ pts_type |
| S:DE/DATUM.SC | ⟦33623db94⟧ pts_type |
| S:DE/DDIVDE.SC | ⟦d99334167⟧ pts_type |
| S:DE/DE10ST.SC | ⟦aa875cf0b⟧ pts_type |
| S:DE/DE11ST.SC | ⟦032c79167⟧ pts_type |
| S:DE/DE1201.SC | ⟦093741ad6⟧ pts_type |
| S:DE/DE12ST.SC | ⟦68eee43d7⟧ pts_type |
| S:DE/DE14ST.SC | ⟦bd5bb27d7⟧ pts_type |
| S:DE/DE15ST.SC | ⟦974326a54⟧ pts_type |
| S:DE/DE16ST.SC | ⟦4925c6dfc⟧ pts_type |
| S:DE/DE20FS.SC | ⟦e2ee000b2⟧ pts_type |
| S:DE/DE20ST.SC | ⟦a3ba606c0⟧ pts_type |
| S:DE/DE21ST.SC | ⟦aa5bc22ac⟧ pts_type |
| S:DE/DE23ST.SC | ⟦94b6e3650⟧ pts_type |
| S:DE/DE24ST.SC | ⟦92f413222⟧ pts_type |
| S:DE/DE30ST.SC | ⟦0a02e20cd⟧ pts_type |
| S:DE/DE31ST.SC | ⟦64e49c079⟧ pts_type |
| S:DE/DE40ST.SC | ⟦731cd18bb⟧ pts_type |
| S:DE/DE50ST.SC | ⟦c539d1bda⟧ pts_type |
| S:DE/DE60ST.SC | ⟦c6ab6694c⟧ pts_type |
| S:DE/DE70ST.SC | ⟦963e4bf9e⟧ pts_type |
| S:DE/DE80ST.SC | ⟦beb16bc2a⟧ pts_type |
| S:DE/DE90ST.SC | ⟦c461edced⟧ pts_type |
| S:DE/DEACCU.SC | ⟦6cc122f64⟧ pts_type |
| S:DE/DEAPPU.SC | ⟦17e84c92a⟧ pts_type |
| S:DE/DEATNY.SC | ⟦7b48d47a5⟧ pts_type |
| S:DE/DEATTF.SC | ⟦337ce44f8⟧ pts_type |
| S:DE/DECOMP.SC | ⟦8c836d23d⟧ pts_type |
| S:DE/DECONV.SC | ⟦718e83b1b⟧ pts_type |
| S:DE/DECVRT.SC | ⟦32e7a2843⟧ pts_type |
| S:DE/DEDDIV.SC | ⟦e9ba059ef⟧ pts_type |
| S:DE/DEDICO.SC | ⟦e2b52107a⟧ pts_type |
| S:DE/DEDISC.SC | ⟦60afd2eca⟧ pts_type |
| S:DE/DEFDSC.SC | ⟦4342a4ae7⟧ pts_type |
| S:DE/DEGENE.SC | ⟦b37eb79a7⟧ pts_type |
| S:DE/DEKEYS.SC | ⟦fdcc8e037⟧ pts_type |
| S:DE/DELITT.SC | ⟦9aef0c402⟧ pts_type |
| S:DE/DELOCK.SC | ⟦6f0389acf⟧ pts_type |
| S:DE/DEMON.LM | ⟦b861d6895⟧ pts_type |
| S:DE/DENT01.SC | ⟦8248fac41⟧ pts_type |
| S:DE/DENT02.SC | ⟦a3ec8cefd⟧ pts_type |
| S:DE/DENT03.SC | ⟦6472285fc⟧ pts_type |
| S:DE/DENT29.SC | ⟦e44466348⟧ pts_type |
| S:DE/DENTER.SC | ⟦d66a649d6⟧ pts_type |
| S:DE/DENVAL.SC | ⟦ce27b05f0⟧ pts_type |
| S:DE/DEPOOL.SC | ⟦7fa27c7ef⟧ pts_type |
| S:DE/DEPRFG.SC | ⟦76e7074e0⟧ pts_type |
| S:DE/DEPROC.SC | ⟦29f6e1c8e⟧ pts_type |
| S:DE/DEPROD.LM | ⟦3bdda0b37⟧ pts_type |
| S:DE/DEREC2.SC | ⟦3625ab594⟧ pts_type |
| S:DE/DERECS.SC | ⟦65644ef85⟧ pts_type |
| S:DE/DERROR.SC | ⟦883baa8b7⟧ pts_type |
| S:DE/DESTAT.SC | ⟦d3e07e0de⟧ pts_type |
| S:DE/DEUNPF.SC | ⟦12c847657⟧ pts_type |
| S:DE/DEVGAC.SC | ⟦ff7f3df84⟧ pts_type |
| S:DE/DKRUT1.SC | ⟦2ed2a5aab⟧ pts_type |
| S:DE/DKRUT2.SC | ⟦ad6c2cdcf⟧ pts_type |
| S:DE/DKRUT3.SC | ⟦18172b0ef⟧ pts_type |
| S:DE/DKRUT4.SC | ⟦4419f226d⟧ pts_type |
| S:DE/DLNT01.SC | ⟦e82a6089e⟧ pts_type |
| S:DE/DLRECS.SC | ⟦aa4cebaed⟧ pts_type |
| S:DE/M:PROC.UF | ⟦ccd832ffd⟧ pts_type |
| S:DE/OBDIR.UF | ⟦03f9debe3⟧ pts_type |
| S:DE/PTSDE.SC | ⟦0754b57dd⟧ pts_type |
| S:DE/TEST.UF | ⟦c86e8f707⟧ pts_type |
| S:DE/TRALL.UF | ⟦77cbfce07⟧ pts_type |
| S:DU | «none» |
| S:DU//OBJCT.OB | ⟦0be560f1a⟧ pts_type |
| S:DU/ASSPER.SC | ⟦c0563e1df⟧ pts_type |
| S:DU/ASSRUT.SC | ⟦1e5a3ecaa⟧ pts_type |
| S:DU/CDU1.UF | ⟦3da9401f4⟧ pts_type |
| S:DU/CDUN.UF | ⟦767898d2e⟧ pts_type |
| S:DU/CONUTI.UF | ⟦279c46a5f⟧ pts_type |
| S:DU/COPVOL.SC | ⟦81920d7f7⟧ pts_type |
| S:DU/CRESUD.SC | ⟦b00fa49bd⟧ pts_type |
| S:DU/DDINIT.SC | ⟦32f3b1567⟧ pts_type |
| S:DU/DEDI01.SC | ⟦8bcc90dfd⟧ pts_type |
| S:DU/DEDI02.SC | ⟦568549ad8⟧ pts_type |
| S:DU/DEDI03.SC | ⟦fd57b19ca⟧ pts_type |
| S:DU/DEDI04.SC | ⟦2de7e7b14⟧ pts_type |
| S:DU/DEDICO.SC | ⟦07ed97ef1⟧ pts_type |
| S:DU/DEDISC.SC | ⟦e5f1f5742⟧ pts_type |
| S:DU/DEDISU.SC | ⟦8623a9e22⟧ pts_type |
| S:DU/DEINIT.SC | ⟦e38dfa7b1⟧ pts_type |
| S:DU/DELITT.SC | ⟦22fb2dad1⟧ pts_type |
| S:DU/DENTER.SC | ⟦3d00dc45d⟧ pts_type |
| S:DU/DEPOOL.SC | ⟦9a19d2904⟧ pts_type |
| S:DU/DERR:O.SC | ⟦9851cecc4⟧ pts_type |
| S:DU/DERROR.SC | ⟦8ab8a8bbc⟧ pts_type |
| S:DU/DILINK.LM | ⟦7f5250028⟧ pts_type |
| S:DU/DISC.SC | ⟦7c847d050⟧ pts_type |
| S:DU/DKRUT1.SC | ⟦ed3030bc5⟧ pts_type |
| S:DU/DKRUT2.SC | ⟦629f1f80f⟧ pts_type |
| S:DU/DKRUT3.SC | ⟦dfa48162d⟧ pts_type |
| S:DU/DKRUT4.SC | ⟦7e9ee0dfc⟧ pts_type |
| S:DU/DSKERR.SC | ⟦9936d66b0⟧ pts_type |
| S:DU/M:PROC.UF | ⟦ea35933ef⟧ pts_type |
| S:DU/OBDIR.UF | ⟦37b9762f5⟧ pts_type |
| S:DU/PTS.SC | ⟦af6d2ffe6⟧ pts_type |
| S:DU/REORGS.SC | ⟦384538ec1⟧ pts_type |
| S:DU/REORGU.SC | ⟦fad33c04b⟧ pts_type |
| S:DU/WRIT12.SC | ⟦a19e128f6⟧ pts_type |
| SAG | «none» |
| TEMP | «none» |
| TEMP/RUM.LM | ⟦066729252⟧ pts_type |
| TEMP/SUM.LM | ⟦085d40662⟧ pts_type |
0x000000…000ca0 (0, 0) DirGranule ((0, 0)) {
0x000000…000ca0 DirEnt {nam=»SAG «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0000, f03=0x0000}
0x000000…000ca0 }
0x000ca0…001940 (1, 0) DirGranule ((1, 0)) {
0x000ca0…001940 DirEnt {nam=»S:DE «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0010, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x0018, f03=0x0008}
0x000ca0…001940 DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEMON «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0850, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0350, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0360, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0428, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0438, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0488, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEKEYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0530, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0540, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CDVASM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0620, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0688, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0718, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE16ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0788, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0798, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENT29«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DANT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONV «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0910, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0950, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0980, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a08, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DATUM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a40, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DANVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONFNY«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad0, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DANTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DLRECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DLNT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b40, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DANNES«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TRALL «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b80, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DDIVDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEATNY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb8, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CONDE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1288, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»CDE1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x000ca0…001940 DirEnt {nam=»DEPROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1d10, f03=0x0000}
0x000ca0…001940 }
0x001940…001ad4 (1, 1) Opaque[0x194]
0x001ad4…001c68 # DirEnt {nam=»DEUNPF«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x0018, f03=0x0008}
0x001ad4…001c68 IdxSect {
0x001ad4…001c68 f00 = 0x0000 // 0x1ad4 @0x0
0x001ad4…001c68 f01 = 0x000c // 0x1ad6 @0x2
0x001ad4…001c68 gno = [ // 0x1ad8 @0x4
0x001ad4…001c68 [0x00]: C0x0000.0x3.0
0x001ad4…001c68 [0x01]: C0x0001.0x0.0
0x001ad4…001c68 [0x02]: C0x0001.0x1.0
0x001ad4…001c68 [0x03]: C0x0001.0x2.0
0x001ad4…001c68 [0x04]: C0x0001.0x3.0
0x001ad4…001c68 [0x05]: C0x0002.0x0.0
0x001ad4…001c68 ]
0x001ad4…001c68 }
0x001c68…001dfc Dummy {f00=0x0000, f01=0x0190, f02=» $ P IDENT DEUNPF REL 10.0 80-04-11 P 80-02-19/JAER , * D , '* THIS PROGRAM UNPACKS NEXT FIELD N , (* FROM CURRENT ATTACHED FORMAT AND ~ . )* MOVES THE UNPAKED VALUES IN THEIR . ** CORRESPONDING ITEMS. THIS COULD
0x001dfc…001f90 Dummy {f00=0x0000, f01=0x0190, f02=»ETERS : BUFPOS = CURRENT BUFFER POSITION z > P* OPT = 1 = CORRECTION MODE 0 < P* = 2 = PRINTOUT MODE r @ P* -INPUT VARIABLES : PINDCB = FORMAT BUFFER INDEX @ ;*
0x001f90…002124 Dummy {f00=0x0000, f01=0x0190, f02=»ES : z H P* FBIN1 = NUMBER OF CONVERTED POSITIONS > P* BOOL9 = F FKI NOT FOUND YET Z 6 P* = T FKI FOUND P* 0 +* -OUTPUT VARIABLE : DEBINW2= 0
0x002124…0022b8 Dummy {f00=0x0000, f01=0x0190, f02=»HARACTERS X H P* FMTWK(W1) = NUMBER OF VALIDATION CHARACTERS H P* FMTWK(W2) = NUMBER OF GENERATION CHARACTERS ^ J P* FMTWK(W3) = NUMBER OF ACCUMULATION CHARACTERS J P*
0x0022b8…00244c Dummy {f00=0x0000, f01=0x0190, f02=»**************************************************** ~ DDUM DEDDIV < PDIV P $ ENTRY DEUNPF UNPACK NEXT FIELD ^ * P ENTRY FEDIT FORMAT EDITING P* " P ENTRY DEUNPL UNPACK NEXT LINE $ P EXT NOPOOL NUMBER OF USED POOLS
0x00244c…0025e0 Dummy {f00=0x0000, f01=0x0190, f02=» FROM CURRENT | P EXT ADJUST P* * P* EQUATES 4 P* L PALPHA EQU X'00' ALPHANUMERIC V PSCHK EQU X'03' SPECIAL CHECK z EJECT PDEUNPF PROC BUFPOS,OPT P CLEAR BOOL9 NO FKI FOUND UNPM P MOVE BIN16,W3 M
0x0025e0…002774 (1, 2) Dummy {f00=0x0001, f01=0x018e, f02=» 1-4 C n . P UNPELB,UNPELB,UNPELB,UNPELB,UNP9, 5-9 C . P UNP10,UNP11,UNPELB,UNP13,UNP13, 10-14 C @ P UNP13,UNP13,UNP13,UNP13 15 r PUNPELB P B UNPE END OF FORMAT P EJECT PUNP3 MOVE BIN15,W0 P ADD BUFPOS,W1 NEXT BU
0x002774…002908 Dummy {f00=0x0001, f01=0x0190, f02=» P ADD BUFPOS,W1 NEXT BUFPOS B UNPM GO ON * UNP4 (FTAB) @ P ADD BUFPOS,W2 V B UNPM GO ON l EJECT UNP9 (FLINK) 6 P PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER * P TBF BOOL7,UNP9A JUMP IF NOT CORR-MODE
0x002908…002a9c Dummy {f00=0x0001, f01=0x0190, f02=»X'-FREEMARK j $ P MOVE PINDFR,DEBINW3 NEXT BUFFER . P SUB WORK(W4),W1 REDUCE NUMB OF OLD FPOOLS < & P PERF NOPOOL NUMBER OF USED POOLS n 0 P DISPLAY 2,W2,W2 DISPLAY DITO WHILE CHANGED PUNP9A & P TBT BOOL9,UNPMF JUMP IF FKI FOUND B U
0x002a9c…002c30 Dummy {f00=0x0001, f01=0x0190, f02=» P SET BOOL9 FKI FOUND SUB BIN16,W13 $ P ADD BUFPOS,W1 NEXT BUFPOS : MOVE BIN15,W0 6 P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET TABPOS r , P CBE BIN15,W1,UNPELB JUMP IF DUMMY-FIELD * % MOVE FDVBCD(W5),BIN15 STORE FIELDPOS (
0x002c30…002dc4 Dummy {f00=0x0001, f01=0x0190, f02=»13Y,U13X JUMP ON FKI-CODE v P B U13Z " PU13X 2 , P XCOPY BIN15,W0,W2,BPOOL(PINDCB),BUFPOS > & P ADD BUFPOS,W2 ADJUST NEXT BUFFPOS n P B U13Z PU13Y , P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS & P ADD BUFPOS,W1 ADJUST NEXT BUFPOS
0x002dc4…002f58 Dummy {f00=0x0001, f01=0x0190, f02=»A,IND1 FETCH INDEX-ITEMADRESS=1 ~ & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 ( * P ADD BUFPOS,BIN15 ADJUST NEXT BUFFPOS R U13A > P CALL RCNTRL,BPOOL(PINDCB),BUFPOS,DEBINW1,BIN15,BIN7 CTLS * P MOVE FDVBCD(W6),BIN7 STORE MAXLENGTH * P MOVE FDVBCD
0x002f58…0030ec Dummy {f00=0x0001, f01=0x018e, f02=» TBF CTAB,U13V JUMP IF KEYED INPUT P MOVE FDVSTR(W1),='C' * P CBL BIN16,W3,U13V H ( P MOVE FDVSTR(W1),='N' NO KEYED INPUT b PU13V MOVE FDVSTR(W2),='N' ME=N P TBF ME,U13B MOVE FDVSTR(W2),='Y' ME=Y U13B $ MOVE FDVS
0x0030ec…003280 Dummy {f00=0x0001, f01=0x0190, f02=» p P TBF VERIFY,U13D " MOVE FDVSTR(W4),='Y' VERIFY=Y U13D F & P MOVE FDVSTR(W5),='Y' INIT.CLEAR=Y R P TBF NCLR,U13E | & P MOVE FDVSTR(W5),='N' INIT.CLEAR=N U13E P TBF SCHK4,U13F MOVE FDVSTR(W2),='C' ME=C U13F
0x003280…003414 (1, 3) Dummy {f00=0x0001, f01=0x0190, f02=»POINTER:=0 v " P MOVE FMTWK(W1),W0 VALCARS:=0 " P MOVE FMTWK(W2),W0 GENCHARS:=0 8 " P MOVE FMTWK(W3),W0 ACCCHARS:=0 ^ " P MOVE FMTWK(W4),W0 DUPCHARS:=0 P MOVE FMTWK(W11),W0 P MOVE STR64A,=C'#V:#G:#A:' P MOVE DUPL,HEX00 PUNPMF
0x003414…0035a8 Dummy {f00=0x0001, f01=0x0190, f02=» & P BNOK U13G NO FVAL,FGEN,FACC,FDUPL & P CBE BIN16,W0,UNPLB END OF FORMAT . ( P IB BIN16,UNP1,UNP2,UNLB,UNLB, 1-4 C X " P UNP2,UNP2,UNP2,UNP2,UNP9 5-9 PUNLB $ P B U13G NO FVAL,FGEN,FACC,FDUPL PUNPLB P B UNPE UNP1 P
0x0035a8…00373c Dummy {f00=0x0001, f01=0x0190, f02=» v > P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARS P ADD BUFPOS,W1 1ST CHAR.-POS J * P CBNE BIN16,W2,UNP2A JUMP IF NOT FMELI n . P PERF UNPICT,BUFPOS UNPACK PICTURE LAYOUT * P TBT BOOL6,PICB JUMP IF BALANCE FORMAT P ADD BUFPOS,
0x00373c…0038d0 Dummy {f00=0x0001, f01=0x0190, f02=»OVE DEBIN2,W1 WORK:=1 P MOVE BIN15,W1 WORK:=1 6 P CALL FMOVE,STRG10A,IND1 FETCH INDEX-ITEMADRESS=1 < & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 v * P CBE BIN15,W1,PICB1 JUMP IF 1BYTE ADR * P ADD BUFPOS,W3 ADJUST BUFFERPOS 2B-ADR 0 P MOVE DEBIN1
0x0038d0…003a64 Dummy {f00=0x0001, f01=0x0190, f02=»,DEBIN2,DEBIN1,BPOOL(PINDCB),BUFPOS INDEX-ITEMADR P MOVE BIN16,W0 WORK:=0 : > P XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 LOAD IND-ITEM ADR=1 X P SUB BIN16,W1 FIX MASK X0 * P SUB BIN15,BIN16 MASKOUT=>INDEX VALUE ( P MOVE FDVBCD(W8),BIN15 STORE A
0x003a64…003bf8 Dummy {f00=0x0001, f01=0x0190, f02=»NW1,BIN16 SAVE FUNCINDEX & P IB BIN16,UNP2B,UNP2C,UNP2D,UNP2E PUNP2B (FVAL) J , P XCOPY JOBSPC,DEBIN3,W3,STR64A,W0 '#V:' ` P B UNP2F PUNP2C (FGEN) , P XCOPY JOBSPC,DEBIN3,W3,STR64A,W3 '#G:' P B UNP2F ADJUST PUNP2D
0x003bf8…003d8c Dummy {f00=0x0001, f01=0x0190, f02=»T BINNUM=>STRG n 0 P ADD FMTWK(W11),BIN15 ADD NUMB OF CONV CHARS , P CBE OPT,W2,UNP2G JUMP IF PRINTOUT MODE J 8 P MOVE FMTWK(DEBINW1),DEBIN3 SAVE NUMB OF ACCUM.CHARS z P B UNPMF PUNP2G 4 P MOVE FMTWK(DEBINW1),BIN15 SAVE NUMB CONV CHARS
0x003d8c…003f20 Dummy {f00=0x0001, f01=0x0190, f02=»BINCON,DUPL,DEBINW1 CONVERT BINNUM=>STRG 2 P MOVE FMTWK(W4),BIN15 SAVE NUMB OF DUPL.CHARS 0 P B UNPMF GO ON f P EJECT | PU13G * P CBE OPT,W2,U13I JUMP IF PRINTOUT MODE 0 P MOVE FMTWK(W10),=X'50' NUMB OF CHARS 1:=80 < P CBL FMTWK(W10),
0x003f20…0040b4 (1, 4) Dummy {f00=0x0001, f01=0x0190, f02=»F CHARS2:=0 v P B U13I PU13H $ 4 P SUB FMTWK(W11),FMTWK(W10) COMPUT NUMB OF CHARS1 0 PU13I h MOVE DEBINW2,W0 OK t B UNRET UNPE " P MOVE DEBINW2,W1 END-OF-FORMAT UNRET RET PEND P EJECT P
0x0040b4…004248 Dummy {f00=0x0001, f01=0x0190, f02=»ST BUFPOINTER 1B-ADR ~ 0 P MOVE DEBIN1,W1 NUMB OF CHARS TO COPY 1B-ADR $ P MOVE DEBIN2,W1 STARTPOS 1B-ADR P $ P MOVE BIN15,W1 MATCH STARTPOS:=1 x 4 P CALL FMOVE,STRG10A,IND1 FETCH IND-ITEM-ADRESS=1 & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 ( P CBE B
0x004248…0043dc Dummy {f00=0x0001, f01=0x0190, f02=»OVE DEBIN2,W0 STPOS 2B-ADR PUNPFL2 " P MOVE BIN15,W0 WORK:=0 0 @ P XCOPY BIN15,DEBIN2,DEBIN1,BPOOL(PINDCB),POINT INDEX-ITEMADR N P MOVE BIN16,W0 WORK:=0 < P XCOPY BIN16,DEBIN2,DEBIN1,STRG10A,W0 INDEX-ITEMADRESS=1 P SUB BIN16,W1 FIX MASK X
0x0043dc…004570 Dummy {f00=0x0001, f01=0x018e, f02=»N NEXT BUFFER x P RET P PEND " P EJECT 0 P* > 4 P* UNPACK AND EDIT PICTURE LAYOUT IN LDISP H P* PUNPICT PROC POINT P MOVE BIN12,W1 LDES-POINTER , P XCOPY STATSH,W0,W1,PICSTR,W13 COPY '<' PPICM PICTUREST
0x004570…004704 Dummy {f00=0x0001, f01=0x018e, f02=» x * P CBE BIN16,W0,PICS JUMP IF 'S'-CONVERT P IB BIN16,PICP,PICE,PICX 6 PPINC V . P XCOPY STATSH,BIN12,W1,BPOOL(PINDCB),POINT b PPI00 P ADD POINT,W1 NEXT BUFFERPOS P ADD BIN12,W1 NEXT LDES POS 4 P CBG BIN12,BIN15,PICR END OF PIC
0x004704…004898 Dummy {f00=0x0001, f01=0x0190, f02=» PPICP '.'-CONVERT . P XCOPY STATSH,BIN12,W1,PICSTR,W11 COPY '.' P B PI00 P PPICE 'E'-CONVERT ` & P ADD POINT,W1 TAKE NEXT BUFFERPOS z ( P SUB BIN15,W1 ADJUST NUMBER OF CHARS P B PINC PPICX . P TBF SCHK2,PINC JUMP IF NOT
0x004898…004a2c Dummy {f00=0x0001, f01=0x0190, f02=»STR,W12 COPY '>' v ( P ADD BIN12,W1 =NUMB OF LAYOUT CHARS P RET D P PEND P P EJECT ^ P* l B P* THIS ROUTINE UNPACKS NEXT LINE FROM CURRENT ATTACHED v D P* FORMAT AND EDITS THE FORMAT PARTS IN 'LINE-DESIGN'-ITEM P*
0x004a2c…004bc0 Dummy {f00=0x0001, f01=0x0190, f02=» DEBIN2 = MAXLENGTH ALPHANUM-FIELDS L P* DEBIN3 = POINTER POSITIONER LDES-ITEM F L P* DEBIN4 = SAVED BUFFER-IDEX IF ALTERED D P*
0x004bc0…004d54 (1, 5) Dummy {f00=0x0001, f01=0x0190, f02=»S' t $ P MOVE DEBIN3,W0 POINTER LDES:=0 * P CLEAR BOOL5 F=END-OF-LINE NOT REACHED 2 $ P CLEAR BOOL8 F=NO BUFFER ALTERED ` PLUPM $ P MOVE BIN16,W0 MATCHING INDEX:=0 2 P MATCH FDIR,BIN16,W18,BPOOL(PINDCB),BUFPOS,W1 P SWITCH ( P IB BI
0x004d54…004ee8 Dummy {f00=0x0001, f01=0x0190, f02=»3, 13-16 C x P LUP13,LUP13 17-18 PLUPRLB . P B LUPR END OF FORMAT < P EJECT Z PLUP1 FCOPY h P MOVE BIN15,W0 WORK:=0 | " P ADD BUFPOS,W1 NEXT BUFFERPOS . P XCOPY LDES,DEBIN3,W1,PICSTR,W13 COPY '<' $ P ADD DEBIN3,W1 NEXT LD
0x004ee8…00507c Dummy {f00=0x0001, f01=0x0190, f02=»P IF LEFT ADJUSTED | & P MOVE DEINPUT,='R' LOAD WITH 'R':S P B LUP1B D PLUP1A T & P MOVE DEINPUT,='L' LOAD WITH 'L':S b PLUP1B B P XCOPY LDES,DEBIN3,DEBIN2,DEINPUT,W0 COPY NUMBER OF 'R'/'L':S * P ADD DEBIN3,DEBIN2 ADJUST LDESPOINTER
0x00507c…005210 Dummy {f00=0x0001, f01=0x0190, f02=»CT PLUP2 FMELI ! 2 P PERF UNPICT,BUFPOS UNPACK/EDUT PICTURELAYOUT ! & P XCOPY LDES,DEBIN3,BIN12,STATSH,W0 ! T $ P ADD BUFPOS,W2 ADJUST BUFFERPOS ! ~ $ P ADD DEBIN3,BIN12 ADJUST POINTER ! * P TBF BOOL6,LUPM JUMP IF GENERAL FORMAT ! P MOVE BIN15,
0x005210…0053a4 Dummy {f00=0x0001, f01=0x018e, f02=»B-ADR ! t ( P ADD BUFPOS,W2 ADJUST BUFPOS 2B-ADR " P B LUPM GO ON " : P EJECT " P PLUP3 FTEXT " ^ P MOVE BIN15,W0 WORK:=0 " r " P ADD BUFPOS,W1 ADJUST BUFFPOS " > P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB CHARCTERS " ( P ADD BUFPOS,W1 1
0x0053a4…005538 Dummy {f00=0x0001, f01=0x0190, f02=» ( P ADD DEBIN3,BIN15 ADJUST POINTERPOS # P B LUPM GO ON # 0 P EJECT # F PLUP4 FTAB # T P MOVE DEBIN3,W0 POINTER:=0 # h P ADD BUFPOS,W1 NEXT BUFFPOS # 4 P XCOPY DEBIN3,W1,W1,BPOOL(PINDCB),BUFPOS TABPOS # P SUB DEBIN3,W1 ADJUST TABPOS #
0x005538…0056cc Dummy {f00=0x0001, f01=0x0190, f02=»OVE BIN15,W0 WORK:=0 # P ADD BUFPOS,W1 NEXT BUFFPOS $ B P XCOPY BIN15,W1,W1,BPOOL(PINDCB),BUFPOS GET NUMB OF CHARACTERS $ @ ( P ADD BUFPOS,W1 1ST CHARCTERPOSITION $ $ P CBE BIN16,W2,LUP2 JUMP IF FMELI $ . P ADD BUFPOS,BIN15 ADJUST FOR NUMB OF CHARS $
0x0056cc…005860 Dummy {f00=0x0001, f01=0x0190, f02=» $ h * P MOVE DEBIN4,PINDCB SAVE BUFFERNUMBER % PLUP9A % 6 6 P PERF UNPFLK,BUFPOS UNPACK FLINK INIT NEXT BUFFER % D P B LUPM GO ON % ~ P EJECT % PLUP11 FNL % 6 P MOVE FMTWK(W5),DEBIN3 SAVE NUMBERS OF LDES CHARS % PLUP11A % 2 P CBE DEBIN
0x005860…0059f4 (1, 6) Dummy {f00=0x0002, f01=0x0190, f02=»11A % PLUP11B & . P TBF BOOL8,LUPR JUMP IF NO BUFF.ALTERATION & 0 P MOVE PINDCB,DEBIN4 RESTORE BUFFER'POINTER' & L P B LUPR END-OF-LINE & P EJECT & PLUP13 FKI:S & P SUB BIN16,W12 & P MOVE DEBIN2,W0 WORK:=0 & P ADD BUFPOS,W1 NEX
0x0059f4…005b88 Dummy {f00=0x0002, f01=0x0190, f02=»,LUPREF DUMMY-FORMAT FOUND & P SUB DEBIN3,W2 ' " 2 P CBL BIN16,W4,LUP13A JUMP IF FKI WITHOUT DUPL ' 8 * P SUB BIN16,W3 ADJUST FOR FKI WITH DUPL ' n P MOVE BIN15,W1 ' P CALL FMOVE,STRG10A,IND1 ' 8 P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 CHECK ADRESS-TYPE '
0x005b88…005d1c Dummy {f00=0x0002, f01=0x0190, f02=»OL(PINDCB),BUFPOS,DEBINW1,BIN16,DEBIN2 ' " P ADD BUFPOS,W3 ADJUST BUFFPOS ( . P B LUPM GO ON ( T P EJECT ( j PLUPREF ( x " P MOVE DEBINW2,W1 E-O-F-SIGNAL ( PLUPR ( P RET ( P PEND ( P EJECT ( P* ( 2 P* THIS ROUTINE EDITS AN
0x005d1c…005eb0 Dummy {f00=0x0002, f01=0x018e, f02=» ( V < P* 'RRR......' IN RIGHTADJUSTED ALPHANUMERIC ITEMS ) P* ) H L P*********************************************************************** ) R P* ) PFEDIT PROC ) , P MOVE DEINPUT,='-9' LOAD WITH -999999... ) , P MOVE DEBINW3,W0 INITIATE
0x005eb0…006044 Dummy {f00=0x0002, f01=0x0190, f02=» P CALL ADJUST,BIN16 * P BNOK FEDITR * " P GETCTL 1,DEBINW4 GETMAXLENGTH * 2 2 P CBE DEBINW4,W0,FEDITR MAXL=0 => END-OF-FORMAT * X P TSTCTL ALPHA * P BZ FEDBCD JUMP IF NUMERIC * . P GETCTL SCHK,DEBINW4 GET SPECIAL CHECK NR * * P CBNE DEBINW4,W2
0x006044…0061d8 Dummy {f00=0x0002, f01=0x4108, f02=»L' LOAD ITEM WITH 'L':S * ~ P B FEDITL GO ON + PFEDBCD + 8 0 P MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S + F P B FEDITL GO ON + z PFEDITR + P RET + P PEND + P EJECT + PIND1 FRMT + P FCTL W1 + P FMEND + END + @ +
0x0061d8…00636c Dummy {f00=0x0002, f01=0x2008, f02=» , JUMP IF NOT 2 ( . P MOVE :FMTITEM,=C'R' LOAD ITEM WITH 'R':S ) P B FEDITL GO ON ) P PFELEFT ) h . P MOVE :FMTITEM,=C'L' LOAD ITEM WITH 'L':S ) v P B FEDITL GO ON ) PFEDBCD ) 0 P MOVE :FMTITEM,DEINPUT LOAD ITEM WITH '-9':S ) P B FED
0x00636c…006500 Dummy {f00=0x0002, f01=0x0190, f02=» 8 8 4 D P$ E @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T Ev : W V F !SST WJ !AAT W> V V 0 V P _ W $ q > R P >b W >b & 8
0x006500…006694 (1, 7) Opaque[0x194]
0x006694…006828 # DirEnt {nam=»DECOMP«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0048, f03=0x0000}
0x006694…006828 IdxSect {
0x006694…006828 f00 = 0x0002 // 0x6694 @0x0
0x006694…006828 f01 = 0x0002 // 0x6696 @0x2
0x006694…006828 gno = [ // 0x6698 @0x4
0x006694…006828 [0x00]: C0x0002.0x1.0
0x006694…006828 ]
0x006694…006828 }
0x006828…0069bc Dummy {f00=0x0002, f01=0x018e, f02=» $ P IDENT DECOMP REL 10.0 80-04-11 P 79-03-06/DALI , DDUM DEDDIV D PDIV X P ENTRY DECOMP f P EXT CDV10 MODULO 10 CHECK | P EXT CDV110 MODULO 11 CHECK P LAST BYTE 0 WEIGHT P EXT CDV111 MODULO 11 CHECK P L
0x0069bc…006b50 Dummy {f00=0x0002, f01=0x0190, f02=» b , P DEC006,DEC007,DEC008,DEC009,DEC010 C ( P DEC011,DEC012,DEC013,DEC014,DEC015 8 PDEC001 d P CALL MMDDCK,W0,DEINPUT r P RET PDEC002 . P CALL MMDDCK,W2,DEINPUT AMERICAN STANDARD P RET PDEC003 4 P CALL DDMMCK,W2,
0x006b50…006ce4 Dummy {f00=0x0002, f01=0x4166, f02=» P RET PDEC008 P RET " PDEC009 . P RET < PDEC010 H P CALL CDV10,DEINPUT,BIN7 V P RET v PDEC011 P CALL CDV110,DEINPUT,BIN7 P RET PDEC012 P CALL CDV111,DEINPUT,BIN7 P RET PDEC013 P
0x006ce4…006e78 Dummy {f00=0x0002, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x006e78…00700c Dummy {f00=0x0002, f01=0x0190, f02=» ( 5 8 J F " D 0X ! R R4 2 RRRRRRRRRRRRRR "W #W &W + #4 _ j ! H C Y0 G N0 X 10 20 ` 30 f0 0 s
0x00700c…0071a0 Dummy {f00=0x0002, f01=0x0190, f02=»g! J F " D T " e_Z Y Y0X ""_g T X)DL W L ( Y 0 X j z H J F " D Y!DL 0X ##_ 0X ##_ 4 _ P P P( R0R P0R H
0x0071a0…007334 (1, 8) Opaque[0x194]
0x007334…0074c8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0050, f03=0x0000}
0x007334…0074c8 IdxSect {
0x007334…0074c8 f00 = 0x0002 // 0x7334 @0x0
0x007334…0074c8 f01 = 0x007a // 0x7336 @0x2
0x007334…0074c8 gno = [ // 0x7338 @0x4
0x007334…0074c8 [0x00]: C0x0002.0x2.0
0x007334…0074c8 [0x01]: C0x0002.0x3.0
0x007334…0074c8 [0x02]: C0x0003.0x0.0
0x007334…0074c8 [0x03]: C0x0003.0x1.0
0x007334…0074c8 [0x04]: C0x0003.0x2.0
0x007334…0074c8 [0x05]: C0x0003.0x3.0
0x007334…0074c8 [0x06]: C0x0004.0x0.0
0x007334…0074c8 [0x07]: C0x0004.0x1.0
0x007334…0074c8 [0x08]: C0x0004.0x2.0
0x007334…0074c8 [0x09]: C0x0004.0x3.0
0x007334…0074c8 [0x0a]: C0x0005.0x0.0
0x007334…0074c8 [0x0b]: C0x0005.0x1.0
0x007334…0074c8 [0x0c]: C0x0005.0x2.0
0x007334…0074c8 [0x0d]: C0x0005.0x3.0
0x007334…0074c8 [0x0e]: C0x0006.0x0.0
0x007334…0074c8 [0x0f]: C0x0006.0x1.0
0x007334…0074c8 [0x10]: C0x0006.0x2.0
0x007334…0074c8 [0x11]: C0x0006.0x3.0
0x007334…0074c8 [0x12]: C0x0007.0x0.0
0x007334…0074c8 [0x13]: C0x0007.0x1.0
0x007334…0074c8 [0x14]: C0x0007.0x2.0
0x007334…0074c8 [0x15]: C0x0007.0x3.0
0x007334…0074c8 [0x16]: C0x0008.0x0.0
0x007334…0074c8 [0x17]: C0x0008.0x1.0
0x007334…0074c8 [0x18]: C0x0008.0x2.0
0x007334…0074c8 [0x19]: C0x0008.0x3.0
0x007334…0074c8 [0x1a]: C0x0009.0x0.0
0x007334…0074c8 [0x1b]: C0x0009.0x1.0
0x007334…0074c8 [0x1c]: C0x0009.0x2.0
0x007334…0074c8 [0x1d]: C0x0009.0x3.0
0x007334…0074c8 [0x1e]: C0x000a.0x0.0
0x007334…0074c8 [0x1f]: C0x000a.0x1.0
0x007334…0074c8 [0x20]: C0x000a.0x2.0
0x007334…0074c8 [0x21]: C0x000a.0x3.0
0x007334…0074c8 [0x22]: C0x000b.0x0.0
0x007334…0074c8 [0x23]: C0x000b.0x1.0
0x007334…0074c8 [0x24]: C0x000b.0x2.0
0x007334…0074c8 [0x25]: C0x000b.0x3.0
0x007334…0074c8 [0x26]: C0x000c.0x0.0
0x007334…0074c8 [0x27]: C0x000c.0x1.0
0x007334…0074c8 [0x28]: C0x000c.0x2.0
0x007334…0074c8 [0x29]: C0x000c.0x3.0
0x007334…0074c8 [0x2a]: C0x000d.0x0.0
0x007334…0074c8 [0x2b]: C0x000d.0x1.0
0x007334…0074c8 [0x2c]: C0x000d.0x2.0
0x007334…0074c8 [0x2d]: C0x000d.0x3.0
0x007334…0074c8 [0x2e]: C0x000e.0x0.0
0x007334…0074c8 [0x2f]: C0x000e.0x1.0
0x007334…0074c8 [0x30]: C0x000e.0x2.0
0x007334…0074c8 [0x31]: C0x000e.0x3.0
0x007334…0074c8 [0x32]: C0x000f.0x0.0
0x007334…0074c8 [0x33]: C0x000f.0x1.0
0x007334…0074c8 [0x34]: C0x000f.0x2.0
0x007334…0074c8 [0x35]: C0x000f.0x3.0
0x007334…0074c8 [0x36]: C0x0010.0x0.0
0x007334…0074c8 [0x37]: C0x0010.0x1.0
0x007334…0074c8 [0x38]: C0x0010.0x2.0
0x007334…0074c8 [0x39]: C0x0010.0x3.0
0x007334…0074c8 [0x3a]: C0x0011.0x0.0
0x007334…0074c8 [0x3b]: C0x0011.0x1.0
0x007334…0074c8 [0x3c]: C0x0095.0x0.0
0x007334…0074c8 ]
0x007334…0074c8 }
0x0074c8…00765c Dummy {f00=0x0002, f01=0x0190, f02=» @ H IDENT T:AT10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 T:AT10 H T:AT10A Z > : T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 n > : D:CB40A C:CB40A D:CB50 C:CB50F D:TB20 Z:TB20. D:TB30- > : Z:TB30 D:TB40 Z:T
0x00765c…0077f0 Dummy {f00=0x0002, f01=0x0190, f02=» * & & * & = 6 P T * & [ * & y , ( @ T1
0x0077f0…007984 Dummy {f00=0x0002, f01=0x4024, f02=» 8 : n @ & & * & = 6 P T * & [ * & y , ( @ T1
0x007984…007b18 Dummy {f00=0x0002, f01=0x40e0, f02=» @ H IDENT T:DT10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 T:DT10 H T:DT10D Z PTSDE n * & `T1 x * ~ * * @ @ T1
0x007b18…007cac Dummy {f00=0x0002, f01=0x40ac, f02=» @ H IDENT T:ATAB TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 T:ATAB H T:ATABA Z T:AT10 n @ :A @ * * @ @ T1
0x007cac…007e40 Dummy {f00=0x0002, f01=0x40b0, f02=» @ H IDENT U:BTAB TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 U:BTAB H U:BTABB Z U:CB10 n @ CB1 :C @ * * @ @ T1
0x007e40…007fd4 (1, 9) Dummy {f00=0x0002, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 S:BTAB H S:BTABB Z n :B @
0x007fd4…008168 Dummy {f00=0x0002, f01=0x018e, f02=» @ H IDENT Z:TB10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z:TB10 H Z:TB10T Z & n & & = & [ & y & & & & &
0x008168…0082fc Dummy {f00=0x0002, f01=0x40be, f02=» & & ; & Y $ & w 4 & D & T & d & t @ & & & & &
0x0082fc…008490 Dummy {f00=0x0002, f01=0x409e, f02=» @ H IDENT D:TB10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:TB10 H D:TB10T Z n :T @ @ & & & & &
0x008490…008624 Dummy {f00=0x0002, f01=0x40f2, f02=» @ H IDENT D:DB10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:DB10 H D:DB10D Z * & > P P h n * & 0 = > @ &
0x008624…0087b8 Dummy {f00=0x0002, f01=0x40b2, f02=» @ H IDENT D:DB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:DB20 H D:DB20D Z * & n @ = > @ &
0x0087b8…00894c Dummy {f00=0x0002, f01=0x40b2, f02=» @ H IDENT D:DB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:DB30 H D:DB30D Z * & n n @ = > @ &
0x00894c…008ae0 Dummy {f00=0x0002, f01=0x412c, f02=» @ H IDENT U:CB10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 U:CB10 H U:CB10C Z * & @ n & & = & [ & y & &
0x008ae0…008c74 (1, 10) Dummy {f00=0x0003, f01=0x40da, f02=» @ H IDENT D:CB10 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:CB10 H D:CB10C Z * & 6 n $ 6 @
0x008c74…008e08 Dummy {f00=0x0003, f01=0x40dc, f02=» @ H IDENT C:CB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 C:CB20 H C:CB20C Z * & n $ $ @
0x008e08…008f9c Dummy {f00=0x0003, f01=0x40f6, f02=» @ H IDENT D:CB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:CB20 H D:CB20C Z * & B n * & = B @
0x008f9c…009130 Dummy {f00=0x0003, f01=0x40f0, f02=» @ H IDENT C:CB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 C:CB30 H C:CB30C Z * & n & " 8 8 @
0x009130…0092c4 Dummy {f00=0x0003, f01=0x40fa, f02=» @ H IDENT D:CB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:CB30 H D:CB30C Z * & F n * & = F @
0x0092c4…009458 Dummy {f00=0x0003, f01=0x0190, f02=» @ H IDENT C:CB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 C:CB40 H C:CB40C Z * & n * & * & = * & [
0x009458…0095ec Dummy {f00=0x0003, f01=0x406c, f02=» TK LP 6 GP 0 DU FD DLU * B V@ h & n * & * & = * & [
0x0095ec…009780 Dummy {f00=0x0003, f01=0x40f6, f02=» @ H IDENT D:CB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:CB40 H D:CB40C Z * & B . n * & D Z p - r ( = B @ & [
0x009780…009914 (1, 11) Dummy {f00=0x0003, f01=0x0190, f02=» @ H IDENT C:CB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 C:CB50 H C:CB50C Z $ & n & & = & [ & y & & & &
0x009914…009aa8 Dummy {f00=0x0003, f01=0x40ac, f02=»!ASUFTCE r * & i +-*:;&V?'ZGRNX()MEVTFCAB/,LRAP & TXZY+S,.><0-VEX > & ^ * n @ & [ & y & & & &
0x009aa8…009c3c Dummy {f00=0x0003, f01=0x40f2, f02=» @ H IDENT D:CB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:CB50 H D:CB50C Z * & >0 0 0 n * & M U t ~ 0 = > @ & &
0x009c3c…009dd0 Dummy {f00=0x0003, f01=0x4126, f02=» @ H IDENT Z:TB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z:TB20 H Z:TB20T Z & & n & & = & [ & y & *
0x009dd0…009f64 Dummy {f00=0x0003, f01=0x40f6, f02=» @ H IDENT D:TB20 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:TB20 H D:TB20T Z * & B n * & 0 0 0 " = ( . B @
0x009f64…00a0f8 Dummy {f00=0x0003, f01=0x418e, f02=» @ H IDENT Z:TB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z:TB30 H Z:TB30T Z * & n * & * & = & [ &
0x00a0f8…00a28c Dummy {f00=0x0003, f01=0x40fa, f02=» @ H IDENT D:TB30 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:TB30 H D:TB30T Z * & F @ B D F H n * & J L N P R T V @ = f F @ [ &
0x00a28c…00a420 Dummy {f00=0x0003, f01=0x40dc, f02=» @ H IDENT Z:TB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z:TB40 H Z:TB40T Z * & n $ $ @ F @ [ &
0x00a420…00a5b4 (1, 12) Dummy {f00=0x0003, f01=0x40f6, f02=» @ H IDENT D:TB40 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:TB40 H D:TB40T Z * & B n * & = B @
0x00a5b4…00a748 Dummy {f00=0x0003, f01=0x4150, f02=» @ H IDENT Z:TB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z:TB50 H Z:TB50T Z & n & & = & [ * & y ( $
0x00a748…00a8dc Dummy {f00=0x0003, f01=0x40fa, f02=» @ H IDENT D:TB50 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 D:TB50 H D:TB50T Z * & F Q 0 [ n * & 0 0 ^ e f h n t = ~ F @
0x00a8dc…00aa70 Dummy {f00=0x0003, f01=0x40ea, f02=» @ H IDENT Z:TB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 ! Z:TB60 ! H Z:TB60T ! Z * & ! n ! 2 ! 2 ! @ ! F @
0x00aa70…00ac04 Dummy {f00=0x0003, f01=0x40d2, f02=» @ H IDENT D:TB60 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 " D:TB60 " H D:TB60T " Z * & . " n " . " @ " 2 ! @ ! F @
0x00ac04…00ad98 Dummy {f00=0x0003, f01=0x4070, f02=» @ H IDENT DEDDIV TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 # $$$TRA # H # Z@ # l . " n " . " @ " 2 ! @ ! F @
0x00ad98…00af2c Dummy {f00=0x0003, f01=0x0190, f02=» @ H IDENT DEDISC TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 $ : 6 COND DEDISC RELEAS RETURN SCHPOO STRT01 WAIT $ H $$$TRAD $ @ < COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 $ WAITR d $ > : CHANFCM CLSBTHR DELBTCA
0x00af2c…00b0c0 Dummy {f00=0x0003, f01=0x0190, f02=»REVT NEXFMTS NEXJOB NXBTH NXJOB $ r > : OPNEBCd OPNNBCA PREFMT PREJOBF RECURR SCHFMT. SCHJOB- % ( 2 . T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO % j % % 7 % : % % 0 % .
0x00b0c0…00b254 (1, 13) Dummy {f00=0x0003, f01=0x0190, f02=» # $ % $ & % B & & & 0 ' & @ ( , & P ) 7 & ` * F & p + & , & - & . & / 7 & 0 ( & 1 4 & 2 & & 3 2
0x00b254…00b3e8 Dummy {f00=0x0003, f01=0x4170, f02=»RRRRRRRRRRRRRH R! R( & ` H ' J M ' 0 n Q ' @ p ' R t < ' b ~ M ' r J F " D @ Hx L R4 $ !"4 "!4 !!4 I @w L0R 0X V # R4 ' > ' Q ' '
0x00b3e8…00b57c Dummy {f00=0x0003, f01=0x0190, f02=» @ H IDENT DKRUT1 TRA 10.0 - - F1 O1111 REL10.0 80-04-11 ( B > CLSBTH DISU DLCURR DLRCCH FREESP GTNEXT GTPREV OFRSP ( H B > HRDT RDACC RDDSA RECURR REFSP RFRSPHWR WRDS0 WRFSP WRIACC ( WRICUR WRTCO ( $$$TRAA ( @ < CLSBTH
0x00b57c…00b710 Dummy {f00=0x0003, f01=0x018e, f02=»HWRD WRDSD _ WRFSP WRIACC` WRICUR- W WRTCO ( B > CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC ) : $ T:SWIT T:XSTAW WAIT_ WRITDK ) ) k ) ) ) % k ) * )
0x00b710…00b8a4 Dummy {f00=0x0003, f01=0x0190, f02=» ) K k * P * T * ( * 8 ` * H h * X n * h v " * x x * J F " D @0R Av P RK R4 0R Av e R4 0R Av e R4 @ 0X L0R P 6 * * *
0x00b8a4…00ba38 Dummy {f00=0x0003, f01=0x0190, f02=»R E bR * )bR* * ^ + k + , + < + L + k + l + | J F " D I 0R A R V R R4 R0R A R V RK E I b )*R b R* R4 Is + + + +
0x00ba38…00bbcc Dummy {f00=0x0003, f01=0x0190, f02=» _ R R#`RR b | R*j |)"` R4 R RL + n O , , T , < X - , L a DS , o _ , n t - , ~ J F " D @bR* | j` " |) R$`R R4 R`vV Ap Lb " j $"` RuV> Rav uajb " " , S , _ , S ,
0x00bbcc…00bd60 Dummy {f00=0x0003, f01=0x0190, f02=» , - _ - - * S - : - J - S - l - | J F " D "* u`Hp *?R R Rv?R Ru?R ` _ Ru) L ?Rj` " $ R`:R 0 ja " " - _ - - -
0x00bd60…00bef4 (1, 14) Dummy {f00=0x0004, f01=0x0190, f02=» - _ . d . j F . ( n F . 8 J F " D @ ? !"? 1AxW-j " - R R R R R R_9 RW Iu Au "_ *" . H . . . . J F " D ! A R4 R 0R c c ? !( ! A R4 ! ! e
0x00bef4…00c088 Dummy {f00=0x0004, f01=0x0190, f02=»jc " c c R R R Rc R R . d F / " / 2 / B # / R + / b J F " D _a R_) +_% R 0R c c 4 ! ! ! R" V 0X_ " b )*R b R* / r Y / y / J F " D @ !4 "bR * )bR* R& 4 @k
0x00c088…00c21c Dummy {f00=0x0004, f01=0x40ba, f02=» Ra RCj ""d Ra d`W R` (a AkIl'W / n 0 , 0 < 0 L 0 4 / - Ra R jd " $j $"` Ra R `vIs `! Rd` R4 " 0 l 0 @ 0 r Y / y / J F " D @ !4 "bR * )bR* R& 4 @k
0x00c21c…00c3b0 Dummy {f00=0x0004, f01=0x018e, f02=» @ H IDENT DKRUT2 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 1 , ( DELFMT ENTFMT NEXFMT OPCL PREFMT 1 H $$$TRAR 1 x 6 2 DELFMT ENTFMTN NEXFMTC OPCLM PREFMT 1 @ < ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLL DISU DLRCCH1 1 B >
0x00c3b0…00c544 Dummy {f00=0x0004, f01=0x0190, f02=» 2 2 | 2 $ ( 2 4 $ SYSFIL 2 D * 2 Z 4 2 j J F " D 2 RRRRH 0X_ A T|A @s C!!"C!!o L kV!0R A!R kP 0R A!R @ 4 2 z L 2 U X 2 2 d 2
0x00c544…00c6d8 Dummy {f00=0x0004, f01=0x0190, f02=» 2 , 3 3 3 ( 3 8 3 H J F " D Q E! R"! [ R3@ R4 H #@ C!!"C! R!T R!!RT R"!R0R A!R R4 3 X ( 3 3 3 PTS-DE 3 3 3
0x00c6d8…00c86c Dummy {f00=0x0004, f01=0x0190, f02=»?v` R#! RTj v " % j !! jGv " ! Apj !'! R$! P Ap RR$ ! ! 3 A 4 H M 4 X Q 4 h Y 4 x _ 4 u 4 y 4 J F " D @ R" T Ev R"v RP Ev R& 0R AvR 5@ Cv!W Hp L@ R4 H 4@ 4
0x00c86c…00ca00 Dummy {f00=0x0004, f01=0x0190, f02=» R& R#! T j ! ! R$! T 0R AvR R4 j " )( 4 x 5 6 5 H 0 5 X 5 j * 5 z " 5 5 " 5 J F " D Lj " '( ! 0R * 6 LW e / s R4 R:R m R`!:R 5
0x00ca00…00cb94 (1, 15) Dummy {f00=0x0004, f01=0x0190, f02=»jR 5 L E 6 J " 6 ^ 6 * b " 6 : j 6 J s FC 6 Z H F " D @&"c R"dR?R b W jd "R$ d U Rd!:RjR$"d R"bR c* RLjR""b jR$" 6 n 6 6 6 " 6 6 J
0x00cb94…00cd28 Dummy {f00=0x0004, f01=0x0190, f02=» 6 J F " D R"`R:RHp _ ba `LjR "` `c_V c Ap_1Ar 0RmP r$ t Ir t4(r 7 & 7 X " 7 h * 7 x " 7 7 7 " " 7 * " 7 J F " D m R$R*:R r` ta t( R:R R!rRV ! L ?R ) r
0x00cd28…00cebc Dummy {f00=0x0004, f01=0x0190, f02=» & 7 L 8 * 8 " 8 * & 8 : " 8 J 8 Z " 8 j 8 z J F " D R` m?R R<R m@s R$R*:R ` a&j` "R&fRa* `*jR&"` "`* @s RR:R R" R 8 " 8 8 " 8
0x00cebc…00d050 Dummy {f00=0x0004, f01=0x4092, f02=» )( ) )?Rj` "R$jR " R"aR:R Ra! ` % R!`R:R 8 x F 9 6 $ 9 H b "R L9 R`!j` "R$_! 9 X 9 |@ 9 m?R R<R m@s R$R*:R ` a&j` "R&fRa* `*jR&"` "`* @s RR:R R" R 8 " 8 8 " 8
0x00d050…00d1e4 Dummy {f00=0x0004, f01=0x0190, f02=» @ H IDENT DKRUT3 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 : D @ ALGO DELTBL ENTSYS ENTTBL GETFMT GETSYS GETTBL NOFFRE : H NXPRFMR SCHFMTA SFMTCH : $$$TRAD : @ < ALGOF DELTBLA o ENTSYS ENTTBL1 ; GETFMT1 GETSYS- : 8 4
0x00d1e4…00d378 Dummy {f00=0x0004, f01=0x0190, f02=»POOD STRT01R WAITN : ; ; * ; : F ; J x ; # ; l ' ; | , ; 1 ; : ; > ; J F " D r R:R RL '6c ( ]@s R$R*:RCq<R RU R!bR R
0x00d378…00d50c Dummy {f00=0x0004, f01=0x0190, f02=»!R( `b c jc!!R) R!bc V -?R b _Y cb ; n < , < < < L < J F " D j b R*j b)*R `! ` ! R!dRV R&cb _ojd "R$jb!! b(_3 cb R$c` R&{ < l < < < < F <
0x00d50c…00d6a0 Dummy {f00=0x0004, f01=0x0190, f02=» < = = = . = > : = N A T = ^ J F " D `1 a! a+ R"%R?R R:R R!%RP RU `* a!b a 1R` `1 a! a+ ?RApWg = p Q = V = X = = d =
0x00d6a0…00d834 (1, 16) Dummy {f00=0x0004, f01=0x0190, f02=» = > > > , > < T > L > ^ > n _ > ~ > > J F " D R!`R<Rja "R$ R`!<R a & `a_ RL %6c R:Rb " ! d %dL !?R >
0x00d834…00d9c8 Dummy {f00=0x0004, f01=0x0190, f02=» J F " D R!'RP L<R Hpl RL R"'R:R d" d*j` "Rd(` HpO R`!:RjRd"` R"'R: ? ? R ? b J F " D R c`_ Cq R!`R<R c` ` j`!!R)* `!j` "R$ ` !Hp a1h a!R(!X _ ) ? r A ? E B ? M ? S ? c
0x00d9c8…00db5c Dummy {f00=0x0004, f01=0x416a, f02=» ` a*Hs ? R @ @ @ 0 J F " D R`W R` V ! L0W< a"j " &h a& &V! a a! a j " $ ` _E @ B @ @ @ J F " D )W a&jb " a R4 d"@s$ " As Rd R jd " $jc " * c d ? R4 @
0x00db5c…00dcf0 Dummy {f00=0x0004, f01=0x0190, f02=» @ H IDENT DKRUT4 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 A B > DELBTC DELJOB ENTJOB GETJOB NEXJOB NXBTH NXJOB OPNEBC A H & " OPNNBCR PREJOBA READJB SCHJOBF A $$$TRA A @ < DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB. NXBTH 4 A
0x00dcf0…00de84 Dummy {f00=0x0004, f01=0x0190, f02=» @ < RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS B WRFSP B H B X B h B x B B # B . B 3 B ; B = B J F " D ApAt R:RAs
0x00de84…00e018 Dummy {f00=0x0004, f01=0x0190, f02=» R B } C C J F " D @:R a*mja " &"asz Rkj a"c a"j &"a R`:R ` a* Lj ""` j $" Rl C * C x C C C C JC m C J F " D R`v:Rj a"` a" Ruv:Rj a"u a"j &"a Rc
0x00e018…00e1ac Dummy {f00=0x0004, f01=0x0190, f02=» D $" a*_zj $"c R`:R Lj ""` `c Rcv_(ja " &"as c`_z Rcv:Rj $" C D L D : D l J F " D c R`:R a*_ jd " ajc " & a"ju " aIp `dWY a* c,j &"c f a, R`R7"c D | C D F D J D L D
0x00e1ac…00e340 Dummy {f00=0x0004, f01=0x0190, f02=» ud d , ) Rv ) D E E * E : E J E Z J F " D ?Rjo !v bo!&k bo'&l R) oV5 ! ! R" :R R* o | Uj |)"` It E j E E E E E
0x00e340…00e4d4 (1, 17) Dummy {f00=0x0004, f01=0x018e, f02=» E JD & F J F " D ?R R Ru) L ?R L?R R:R RVJ! L ) ?R `b b W R`!:R RLjR"" F ( F v F F F " F ' F 0 F 5 F : F
0x00e4d4…00e668 Dummy {f00=0x0004, f01=0x0190, f02=» F W G Z G _ G * b G : j G L y G J F " D @ @rT `# R:R R!`RV ! L ?R )?R aLb &Ra0R Hr R_Cj` " G l G G J G G G
0x00e668…00e7fc Dummy {f00=0x0004, f01=0x0190, f02=» G H H H . H > H N H ^ J F " D & bcbk & ! R&zb R ba zb?R k L?RKq %_1Aq_ R R:R@s RRHl Hk H n H H H H H
0x00e7fc…00e990 Dummy {f00=0x0004, f01=0x0190, f02=» Z H ] I u I w I , I < J F " D @# *RnHp. a$*a j " $ Z R :Rj` " &*`*K a,Hp bk & a?R0RlT$ l R I L I I I I I I I
0x00e990…00eb24 Dummy {f00=0x0004, f01=0x4086, f02=» I J F " D !bRR)jc "R&"c* LW dLb &Rd k jc "R$ c 0 ) R4 j a" a"b a& J a&4 J J p@ J ?R0RlT$ l R I L I I I I I I I
0x00eb24…00ecb8 Dummy {f00=0x0004, f01=0x0190, f02=» @ H IDENT PTSDE TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 K > : ATTDEV ATTPRT DEANOK DEAOK0 DEAOK1 DEAOK2 DEAOK4 K H 4 0 DEAPPLS DEPMSKA DEPRUT DETCHKF DETPRT PTSDE K $$$TRA K B > ATTDEVS ATTPRTD DEANOKT DEAOK0R h DEAOK1. m
0x00ecb8…00ee4c Dummy {f00=0x0004, f01=0x018e, f02=»T DE20STK DE30STH DE40STT DE50ST K r > : DE60ST DE70STR DEAP1AA DEAP2AD DEAP3Ah DEAP5A. DEAP7AK L * @ < DECLRA DERRF GETINDD GETVOL MSKOUTK OPCLS POOLA RESTOR5 L l D @ SAVES T:ABORS T:ATTF1 T:DELA2 T:DISP3 T:DSC05 T:DSC17 T:ERAS L , ( T:TEST T:WAI
0x00ee4c…00efe0 Dummy {f00=0x0004, f01=0x0190, f02=» M M M 8 M L M d M x M M M M
0x00efe0…00f174 (1, 18) Dummy {f00=0x0005, f01=0x018e, f02=» M 0 N N ( N 8 $ N H , N X 4 N h N x " N - " N 5 4 N 6 ' N : N J F " D 0R 0}0R o0R oA T 0R K 0RAd1XFAn@m R6
0x00f174…00f308 Dummy {f00=0x0005, f01=0x018e, f02=» N j O k O l O ( m O 8 n O H o O X q . O h | * O x J F " D @) R!P V R_, R6 !! _ jX 3 RRRRRRRRRR0R 0}@d R"P O " O d O F O
0x00f308…00f49c Dummy {f00=0x0005, f01=0x018e, f02=» O 4 P : P 4 P ( ( P 8 J F " D * R 1W 'W 1XF1XF1XF 1 v j !!Ov v" Cv P H > P P & P > P , 8 P J F " D 0X "" VvW 0R 0R
0x00f49c…00f630 Dummy {f00=0x0005, f01=0x0190, f02=» P c | Q d Q e | Q ( J F " D @ W% L h * h `h h h 2` RRRRRRRRW 4 !4 "4 $4 & Q 8 J F " D #4 H "4 4 * 4 | z { !V f 4 * Q F Q ( Q 0 Q
0x00f630…00f7c4 Dummy {f00=0x0005, f01=0x0190, f02=» L R 4 0R 0X 0X$0X T 0 Q f D R $ 2 R 4 < R D # R T ! R f % < R v g R & R & R PTS R $ R & R DATA R $ R
0x00f7c4…00f958 Dummy {f00=0x0005, f01=0x0190, f02=»& R PROGRAM: S $ S $ & S 4 XX S F " h S X & dG S h & d S x $ 10 SUPERVISORY FUNCTIONS S $ S & S & 20 S FORMAT S $ 0 S & -
0x00f958…00faec Dummy {f00=0x0005, f01=0x018e, f02=» DEFINITION S $ 0 T & T $ & 40 T 2 ENTRY T B $ 0 T X & T h MODE T v $ T & T & 50 T ! SEARCH T $ !0 T & T " MODE T $ "0 T
0x00faec…00fc80 Dummy {f00=0x0005, f01=0x0190, f02=» % 70 CONVERSIONY U $ %0 U " & U 2 & MODE U @ $ &0 U T & U d ( U r ' ! U ~ & U & RETURN FROM DATA-ENTRY U & U & U U & U U ( U ( & U
0x00fc80…00fe14 (1, 19) Dummy {f00=0x0005, f01=0x0190, f02=» $ + V , VALUE-SETSA V $ , V 0 & V @ - NAME: TS V N $ - V f & e V v & V & V & V & e @ V & V & V $ . V ( V . C V
0x00fe14…00ffa8 Dummy {f00=0x0005, f01=0x018e, f02=» @ V & W & W 0 SIZE OF W & $ 0 W > 1 ELEMENT W N $ 1 W f 2 S: W v $ 2 W & f W & d W & W 3 XX W " 3T W & W & g W
0x00ffa8…01013c Dummy {f00=0x0005, f01=0x0190, f02=» W & X 7 XX X " 7 ! X ( & 7 X 8 & ~ X F ( X T 8 X ` & X p " 9 XXXXXXXXXXXXXXXXXXXXX- X " 9 X & 9 X & X & U X ( X : X &
0x01013c…0102d0 Dummy {f00=0x0005, f01=0x4010, f02=» + X @ Y 7 XX X " 7 ! X ( & 7 X 8 & ~ X F ( X T 8 X ` & X p " 9 XXXXXXXXXXXXXXXXXXXXX- X " 9 X & 9 X & X & U X ( X : X &
0x0102d0…010464 Dummy {f00=0x0005, f01=0x0190, f02=» @ H IDENT DENTER TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 Z , ( DECLRA DECLRD DECLRN DECLRS DERR Z H $$$TRAN Z x 6 2 DECLRA DECLRDD DECLRNC DECLRS DERR Z B > ADJUSTN ATTPRTA CANC DEAPPL DEFORC1 DEGEN DELAST0 DELOCK Z >
0x010464…0105f8 Dummy {f00=0x0005, f01=0x0190, f02=» > : T:DYKI T:EDFLR T:EDWRC T:ERASD T:GETA T:GETC T:GETF [ D @ T:NKI T:PRINE T:SETCW T:TBWDE T:TFWDA T:THOMD T:TSTCD T:UPDF [ F T:XSTA TESTB [ & " [ [
0x0105f8…01078c Dummy {f00=0x0005, f01=0x0190, f02=» [ 8 P j
0x01078c…010920 Dummy {f00=0x0005, f01=0x0190, f02=» 8 6 ] J F " D R!4 R"4 R#4 R$4 R 4 @} 8RIn06 W 0X ! WP0X ! WII~ ] B , ] b L , ] r S , ] c 6 ] j 6 ] r , ] | , ] J F " D @ 0X ! W?H 0X ! W50X!! W.@n6 0X ! W 0X ! I~
0x010920…010ab4 (1, 20) Dummy {f00=0x0005, f01=0x0190, f02=» Z ] Z ^ B ^ J F " D W 0X ! (0X :RH~ ?R0X P :R _ 0X P C{P A )?RH ?R0XHoO ^ 0 > ^ ~ ^ > ^ ^ ^ ^ ^ ^ N ^
0x010ab4…010c48 Dummy {f00=0x0005, f01=0x0190, f02=»W 0X K R! 2 RRRW 0X 0R /1X F_5K~|0X ! _D2 RR ^ ~ _ < _ L x _ _ l S _ | : _ P _ $ 0 _ & _ ' _ . 0 _ 0 _ 1 _
0x010c48…010ddc Dummy {f00=0x0005, f01=0x0190, f02=»RW _ L E e ` G 8 ` J , ` * U j ` : V F ` J W j ` Z X e ` j Y e ` z Z g ` [ j ` j ` ] j ` ^ j ` _ j ` ` j ` a `
0x010ddc…010f70 Dummy {f00=0x0005, f01=0x0190, f02=» ` J " a a a ( S a 8 a H : a X P a h a x : a -" a J F " D & 0R P RK?R0R Pm0X 0R -8RWa0X 6 > W<( , ! Ld a : a
0x010f70…011104 Dummy {f00=0x0005, f01=0x018e, f02=» # !_'0X P 0X P oLW oLd o "_HI 0X R2 RRRW a ( b H ) B b X + b h 6 J b x J F " D @ @ @ @ @h@j #U 0R ! Td$ + " , 0X R %@|PI0X T /hZ b ] b ^ b ` S b
0x011104…011298 Dummy {f00=0x0005, f01=0x0190, f02=» b c c 5 c ( J F " D @" !T f ! j !! H{ RK?R0X P 0X P H RK?R RK?R0X W 2 c 8 L c J c . c & c c J c J F " D RRR ! 0X 0X P I 0X P
0x011298…01142c Dummy {f00=0x0005, f01=0x018e, f02=» d L d Z d $ a d 4 q d D d T d d d t d d d d d d d J F " D 0X P Am 2
0x01142c…0115c0 Dummy {f00=0x0005, f01=0x0190, f02=» + J e 0 e 3 e $ 5 8 e 4 ; $ e D J F " D !0R 0R V 0X !_ $ + ?RI 0XWI0X P 0R 9R0X !0R e T A e F J e M 8 e T D e g < e l B e n
0x0115c0…011754 (1, 21) Dummy {f00=0x0005, f01=0x0190, f02=»RIo 0X P e R f f f 0 f @ f P f ` f p L f f q f f : f f $ f f
0x011754…0118e8 Dummy {f00=0x0005, f01=0x0190, f02=» j f J g g b g . b g > H g N b g ^ b g n b g ~ . g # g # g g P g g H g 4 g
0x0118e8…011a7c Dummy {f00=0x0005, f01=0x0190, f02=» g h h J h , . h < + h L 4 : h < 4 h l > h | @ h J F " D R?RH{ A W B R.K #_ 0X P 0X P H %@m?R - !0X ( 1X F? h B : h F P h
0x011a7c…011c10 Dummy {f00=0x0005, f01=0x018e, f02=» 6 h x : i J i J F " D @R0X 0R /P 0X K ?R0X K ?R0X_.0X 0X H { ,W H s +0X 0 i * i x i i 8 i $ i i i J i . i
0x011c10…011da4 Dummy {f00=0x0005, f01=0x0190, f02=» i j j < j ( J j 8 j H J F " D ,L RT +_UH KA^0X 1X F?RAm #4 0X S 0X P 0R Q I j X j < j J j . j $ j % j
0x011da4…011f38 Dummy {f00=0x0005, f01=0x0190, f02=»8R $+ %'0X j V C * k G A k $ L k 4 M k D Q k T R k d Z b k t [ b k b k ] k ^ , k _ ( k ` L k a Z k f k
0x011f38…0120cc Dummy {f00=0x0005, f01=0x40ee, f02=»2 RRR #I k T l l " l 2 L l B l R & l b & l p ( l ~ l & 1 l ( l @o4 2 RRR_ (?R l l @ l f k
0x0120cc…012260 Dummy {f00=0x0005, f01=0x0190, f02=» @ H IDENT DENT01 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 m DENT01 m H $$$TRAN m Z DENT01 m l D @ CLEARBN DEACC DECLRA DECLRD DECLRN1 DECLRS1 DEDISC0 DELAST m B > DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR SETB m
0x012260…0123f4 (1, 22) Dummy {f00=0x0006, f01=0x0190, f02=» m z n n * n @ n ^ n r n n n n
0x0123f4…012588 Dummy {f00=0x0006, f01=0x0190, f02=» n o o o > . o N # o ^ * o n 3 o ~ 7 o 8 o 9 o : o ; o < G o = o > o
0x012588…01271c Dummy {f00=0x0006, f01=0x0190, f02=» U o V p ] p ^ [ p , _ z p < e l p L f l p g p l h p | i p j p k $ p s p J F " D @R H~ I Ao { R_ RKH{ 2 RRR_ 2 RRRRRRRb & R.
0x01271c…0128b0 Dummy {f00=0x0006, f01=0x0190, f02=» %?RIm)I~ Rh ( & g" " H I p l ~ q * ( q : q J ( q Z q j ( q z q z q q q z q J F " D R@o0X ! _ R_ 0X ! R%Z @m@n 0X ! _ I
0x0128b0…012a44 Dummy {f00=0x0006, f01=0x0190, f02=» q - r 8 4 r = r ( J F " D <R R" ?RHm R @ P&@jP A W3Ao R,P R!_ g R&K7 L@mAo?RH 0R r 8 D r [ r b *R r t r J F " D @Hm R! &@h@jP #W @fPO $0R TF L h ! !T R#P (
0x012a44…012bd8 Dummy {f00=0x0006, f01=0x018e, f02=»& ?R Ub & @ R.P )gL Ao?RAzAzT @mA R*P @ ?R@ @m8R@xP r s F s X s h s x s s s s D s ~ s s s
0x012bd8…012d6c Dummy {f00=0x0006, f01=0x0190, f02=» s t t t ( A t 8 % t H (0 L t X 5 t j 7 t z ; U t < U t = t > d t ? t J F " D )K?RI R)K?RI H W Io ?R g( " C~<R)g
0x012d6c…012f00 Dummy {f00=0x0006, f01=0x0190, f02=» &?R #* " #g_> ! & #g #L_ 0X ! R$PE;R@ t z 0 u 8 T u J T u Z u j $ u z $ u u $ u . u J F " D }({ % H~ - !gL Az?R@z?RH~ C <RI 0X ! W 0X ! W /8
0x012f00…013094 (1, 23) Dummy {f00=0x0006, f01=0x0190, f02=» 0 u - v A v 0 v * J F " D ?RAz % Rh ( & J RK @o?R@m!gL C~8R?R@zC~8R?R?RKm Jz I gL v < v v D v v v U v U v v
0x013094…013228 Dummy {f00=0x0006, f01=0x0190, f02=»X v L C w U w X . w * w : ^ w J ` w Z d w j h w z w w ~ ( w J F " D @! R&_ I~ Jo K _@ @ R!0X@o R(K RP RW R6 - R_ Hm 0X w w
0x013228…0133bc Dummy {f00=0x0006, f01=0x018e, f02=» w x ( x , x ( x 8 J F " D ! A R%V @ _ @ R"@m0X2 RRRRRRR R" / 80X !"W 0X ! @m Rh ( x H ~ x x 2 x x 4 x A x A x
0x0133bc…013550 Dummy {f00=0x0006, f01=0x018e, f02=» x J F " D & H I R?RAo( ! ?R R?RAoW I~ Co8RC <RCz8R RAo R"K2 RRRR0X ! y y V . y f y v y y z y y y y y y
0x013550…0136e4 Dummy {f00=0x0006, f01=0x0190, f02=» y / A z 1 * z 4 z ( 6 z 8 : U z H ; U z X < z h = 3 z x J F " D R!0X R(V RK?R R#K2 RRRRRRRR1X F_ Co<RCm<RCz8R0X R!K2 RRRR z J z M z O , z
0x0136e4…013878 Dummy {f00=0x0006, f01=0x018e, f02=» !U R*8R0X ?R Rh ! & R?RC <R Rh ( & H I R?R g( z { D { T U { d U { t { { { D { { { A { A {
0x013878…013a0c Dummy {f00=0x0006, f01=0x0190, f02=» | $ | . | $ | 4 D | D J F " D @o@z Ub & 5 +@mA{ R*V#( - 1XF0X ! 0X { R&{ mU_"@{Ao?R m | T " | | | % | ' | + | -
0x013a0c…013ba0 Dummy {f00=0x0006, f01=0x018e, f02=»_ R+K2 RRRRA #W 80 | b J } R } 0 ` } @ e } P o } ` r0 } p w & } y } } J F " D @X _3 R_8A @{0R $} !4 @{Az R'P ;R -nA{_% R!gL @m?R?R@ _/0R }
0x013ba0…013d34 (1, 24) Dummy {f00=0x0006, f01=0x4096, f02=» & FROM DISC.R ~ & ~ & @ O ~ , & U ~ > ( ~ L $ + 0R , A~4 @~P + , 4 ~ X ~ @ ~
0x013d34…013ec8 Dummy {f00=0x0006, f01=0x0190, f02=» @ H IDENT DENT02 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEEDIT DELAST DENDUP H $$$TRAN j $ DEEDIT : DELASTD DENDUP | B > ATTDB ATTWB CMPIND. DEDISC- DELOCK1 DEPOOLL EMPTYT0 GETDUP B > MASKI T:DISPL T:DUPLD T:EDW
0x013ec8…01405c Dummy {f00=0x0006, f01=0x0190, f02=» n * H ^ |
0x01405c…0141f0 Dummy {f00=0x0006, f01=0x0190, f02=» * > % l | , * , J F " D @h0R ! P # ( + ?R0X <RAhW %hZ ( !<R % (R ! j !! e
0x0141f0…014384 Dummy {f00=0x0006, f01=0x0190, f02=» !X b !U Z T! * : J J F " D ( W )W Lf "d "!U d ! R8T 0R (+0R + j Z : &
0x014384…014518 Dummy {f00=0x0006, f01=0x0190, f02=» ( J F " D P W ! ! 0X 0X 0X #@hT A !!4 ! 4 ! U M f Z , v J F " D @ 6 _l; 2*0R !T Wo0R "T j !! !b WX WU Wb . 1
0x014518…0146ac Dummy {f00=0x0006, f01=0x0190, f02=» $ J F " D F W Lh U ! V !!4 !"4 80X 1X F 6 4 $ : J F " D ''' ' y ''' "W% ," "0X We0X W "_ '_ !0X A
0x0146ac…014840 Dummy {f00=0x0006, f01=0x0190, f02=»W 0X 0R (P" &W:6 33 33 333 36 #W(1X F_ " > N 4 ^ n ~ $ * "
0x014840…0149d4 (1, 25) Dummy {f00=0x0006, f01=0x0190, f02=» " , " . " / $ " 0 2 ( @ L & & j SYMBOLIC: x $ ( & & & CONFIRM RECORD DELETE: (
0x0149d4…014b68 Dummy {f00=0x0006, f01=0x0190, f02=» & & RECORD * $ N @ & P TTTT9D ^ " N t & ( & & & DUPL FROM VALUESET $ U
0x014b68…014cfc Dummy {f00=0x0006, f01=0x018e, f02=» & : ( ! " & : 2 & : @ & CONFIRM RECORD INSERT: N ( r " ) ~ & & & RECOVERY OF # JOBE $ #E & : & k &
0x014cfc…014e90 Dummy {f00=0x0006, f01=0x018e, f02=» & & RECORD CORRECTIONS ( 6 & B & R & ` " & RECORD MUST BE VERIFIED n ( ' & & RECOVERY RUNNING.R ( ( &
0x014e90…015024 Dummy {f00=0x0006, f01=0x0190, f02=» $ +R $ & CONVERSION OF ALL BATCHES ( < , H & X $ *O f & ON UNIT:UN v - XU " -iN ( . & - $ *N & WITHIN JOB:O &
0x015024…0151b8 Dummy {f00=0x0006, f01=0x417c, f02=»& FF*O ( 0 & , $ & ENTER WANTED RECORDNUMBER: : ( b 1 n & E ~ ( 2 & ( 3 & ( 4 &
0x0151b8…01534c Dummy {f00=0x0006, f01=0x0190, f02=» @ H IDENT DENT03 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEFORC DEVERI H $$$TRAN b DEFORC DEVERI : t B > DELOCKN DERRORA DESTAT FMOVE FORCED1 MASKL T:DISP0 T:EDWR B > T:GETA T:GETCR T:KI T:SETC T:TSTC T:UPDF
0x01534c…0154e0 Dummy {f00=0x0006, f01=0x0190, f02=» , @ X l
0x0154e0…015674 (1, 26) Dummy {f00=0x0007, f01=0x018e, f02=» ~ ? . > N # ` . r 1 J F " D A 0X P L W 0X "0R /P LW L "j 0X 0X #4 @ C S ]
0x015674…015808 Dummy {f00=0x0007, f01=0x0190, f02=» $ 4 D T J F " D !4 !0X@ T 0R F j %! !0X ! 0X K R! 6 cv6 C d +4 -4
0x015808…01599c Dummy {f00=0x0007, f01=0x0190, f02=» $ 4 D T - d / t 3 5 : ? J F " D _ A 0X T f !0R F0X0X _ 0X 0R (P h ! !P 1X F_ 1X F !0X X
0x01599c…015b30 Dummy {f00=0x0007, f01=0x40f0, f02=» & & ( , & < & . J & . Z ( h t & . & ( * & $ @ 0X O _U "4 #4 $4 ` @ ! !P 1X F_ 1X F !0X X
0x015b30…015cc4 Dummy {f00=0x0007, f01=0x0190, f02=» @ H IDENT DENVAL TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DENVAL H $$$TRAN Z DENVAL l B > ATTDB ATTWB CLEARB. CMPIND- DEAPPU1 DECOMPL DEDISC0 DEEDIT D @ DEPOOL EMPTYT GETIND GETVAL MSKOUT SETB T:GETA T:GETC
0x015cc4…015e58 Dummy {f00=0x0007, f01=0x0190, f02=» $ B V n
0x015e58…015fec Dummy {f00=0x0007, f01=0x0190, f02=» " 2 6 B > R B L b C r D G J F " D @g@i@k@ "0X ( R#W H % W % o 6 0X R2 K ^ M/=><DGRNk
0x015fec…016180 Dummy {f00=0x0007, f01=0x0190, f02=» 0 @ P ` ( p # , J F " D A
0x016180…016314 (1, 27) Dummy {f00=0x0007, f01=0x0190, f02=» " D RRRRRR !j !! j ! !$ L0R ! ?RA _ !A <Rj !! " N ^ R n ) +-*: ~ -0 - J F " D 0X & ' ( 0R ! <R_ " ! ~L !Lh~ $ !P W ! E L!ASUFTCXE
0x016314…0164a8 Dummy {f00=0x0007, f01=0x0190, f02=» q r Y w 3 } , J F " D @ ~Lh~ * !P *W !, ( j !! !2 RRRRRRRRRR ?RA _ 0R < R $ R J F " D !<R " ?R #@ T 0X P9W
0x0164a8…01663c Dummy {f00=0x0007, f01=0x0190, f02=» R ( ( J F " D W h 8R?R6 0R !<R " ?R0R !<R " ?R( 0R ( # 8 B ' w ) B 2 7 R J F " D )0X A h U ! <R
0x01663c…0167d0 Dummy {f00=0x0007, f01=0x018e, f02=»! Lf "d "!U d ! R8P h & 3 6 F V $ f J F " D R& !?R 0R (+0R +j !! 1j !! 2 !I 0X P,W I ' v ` 3
0x0167d0…016964 Dummy {f00=0x0007, f01=0x0190, f02=» B " V J F " D R0R 9R?R " W @g@k !Aij !! !?R $@kAgW #@gAk@i ! j !! $ X V r [ ? ] b ?? J F " D @ ! Uj ?R L0R L h !T= h !U !P
0x016964…016af8 Dummy {f00=0x0007, f01=0x0190, f02=»h P Wk ~Ub~ "~ @ P 0R "!0R ""6 ! +-*: @ ) = T J F " D "W ! "W ! "W ! " , ~Lh~ $ !8R " " !6 P=W Q9W d N k p v | J F " D @R5@ TL 1 <R
0x016af8…016c8c Dummy {f00=0x0007, f01=0x018e, f02=» R& , LhZ !PDj !! 0R r ? 0 B R DGRN b v # , , , , , ,
0x016c8c…016e20 Dummy {f00=0x0007, f01=0x0190, f02=» , , , ( , 8 H X h , x , , 1 6 6 , J F " D (P L0R !_<( 4 R
0x016e20…016fb4 (1, 28) Dummy {f00=0x0007, f01=0x40ee, f02=» O n " J F " D @ ! _ R_ A| " @ P & ' ( !0X H| " 4/ o $ J F " D g " " @fI @j j !! j ! @ T W !4 Ii Ik Ig 4 Ah r 4 Aj4 Af4 @
0x016fb4…017148 Dummy {f00=0x0007, f01=0x018e, f02=» @ H IDENT DEPOOL TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEPOOL H $$$TRAP Z DEPOOL l CMPINDP GETINDA SETB ' '
0x017148…0172dc Dummy {f00=0x0007, f01=0x0190, f02=» J F " D @ 2 RRRRRRRRRRR A ! ~U ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P R E J F " D !0R ! N_m R ?R j !! '( !1j !& !j !!
0x0172dc…017470 Dummy {f00=0x0007, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! p ! ?R ! 0R !h & !&P E l J | J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D ) L
0x017470…017604 Dummy {f00=0x0007, f01=0x0190, f02=»!j !! ( _N Z - Fj 1 Tj * 5 Xj < @ N J F " D ! ( + ~UWhj !! ' !QU I N! L ! L Lb ! W:0 ^ R T V X J F " D @R^ h^ U !P L! Lj !!^ b ! f^ ! !A j !
0x017604…017798 Dummy {f00=0x0007, f01=0x4176, f02=» " D )W# + Lj ! h $ !T 8 W - !"4 !!4 j !!^ XW N 3 ` J F " D ( !"4 Lj ! j !! ( j (! ! _ f^ !0R^ !j^ !U p S J F " D @ !!4 6 LW U j !!~ W j !! (W
0x017798…01792c Dummy {f00=0x0007, f01=0x0190, f02=» @ H IDENT DE10ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE10ST DEAP1A H $$$TRA1 b DE10ST DEAP1A M t > : DE11ST1 DE12STA DE14ST DE15STF DEANOK DEAOK0. DECLRA- < 8 DECOMP DEPMSK1 DEPOOL DEPRUT DERR RESTOR T:A
0x01792c…017ac0 Dummy {f00=0x0007, f01=0x0190, f02=» 1 5 = $ J F " D ( &Ad1XFAn@m R6 0 R_ @n_ ( !'( _&3 RRRRR@d0R 0} h* Rh 4 B Z [ ] n ^ a c f h
0x017ac0…017c54 (1, 29) Dummy {f00=0x0007, f01=0x0190, f02=» 59 ] & T 8 J Z J F " D L|j " $# Lr?R ! !6 +; ^# LZb !" Lj !# R'bc (c" L l A N P
0x017c54…017de8 Dummy {f00=0x0007, f01=0x0190, f02=» & $ 10 SUPERVISORY FUNCTIONS $ 6 & F & T PROGRAM: b $ z & XX " h & d & d 11 DATE AND TIME $
0x017de8…017f7c Dummy {f00=0x0007, f01=0x40b0, f02=»& 14 SYSTEM-VARIABLESS $ 0 & @ 15 FILE-SPACEI N $ l ( | &?RP @ " h & d & d 11 DATE AND TIME $
0x017f7c…018110 Dummy {f00=0x0007, f01=0x0190, f02=» @ H IDENT DE11ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE11ST H $$$TRA1 Z DE11ST l 6 2 DECLRN1 DERRORA T:ATTF T:DISPF T:GETT T:SETT.
0x018110…0182a4 Dummy {f00=0x0007, f01=0x0190, f02=»K ! _ @n0X T !S0X ! _*a F0X n # , & < 11 DATE AND TIME J $ j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x0182a4…018438 Dummy {f00=0x0007, f01=0x4070, f02=» 999999 " T * ( : @S !4 F E Z@ l j & z DATE: $ & f XXE-XXE-XX " ! & TIME:
0x018438…0185cc Dummy {f00=0x0007, f01=0x0190, f02=» @ H IDENT DE12ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 * & hA20 CANC11 CANC12 DE12ST WRIT12 H $$$TRA1 v 4 0 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G : 6 DECLRA1 DEDISCA DEPOOL DERR ENT12 RESTORL T:ATTF0 T
0x0185cc…018760 Dummy {f00=0x0007, f01=0x0190, f02=» 8 @ A E B 0 J F " D L1XFAd # @d An@mAe@f R 2 RRR R_ !0R#$} R& 2 @ ] _ & & 99 " h & d
0x018760…0188f4 (1, 30) Dummy {f00=0x0008, f01=0x0190, f02=» NAME: TS $ & e , & < & J & X & e @ f & x & $ ( C & TYPE: $ & f &
0x0188f4…018a88 Dummy {f00=0x0008, f01=0x0190, f02=» ELEMENT $ S: , $ > & f N & d ^ & n XX | " T & & g XX " T & ELEMENT
0x018a88…018c1c Dummy {f00=0x0008, f01=0x406c, f02=» ( > : 8 @RRR_,4 j 1! ! !j 2! ! L R R ! 4 t V@ h & n XX | " T & & g XX " T & ELEMENT
0x018c1c…018db0 Dummy {f00=0x0008, f01=0x018e, f02=» @ H IDENT DE1201 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 ENT12 H $$$TRA1 X ENT12 j > : hA20 ATTDB ATTWB CANC11 CANC12F CLEARB DECLRN. DEDISC- | B > DEPOOL DERR DERROR FMOVE RESTOR T:DISP T:ERAS T:GETF T
0x018db0…018f44 Dummy {f00=0x0008, f01=0x0190, f02=» % 4 TT ( < < J F " D Hd ?R ! R8T R& ( RK !0R#$}?R ) _ ! Lb "" R" L B ! D R Y ] ^ _ g
0x018f44…0190d8 Dummy {f00=0x0008, f01=0x0190, f02=» ! L ! L L W b 0 " @ P ` J F " D L " ! j " j $" Af0R~F0R "P 0R~Fj~#! ! ! !W p c $ !
0x0190d8…01926c Dummy {f00=0x0008, f01=0x0190, f02=» $$ %0X 0X %%0X %% ` . > N ^ n ~ $ ! $ +
0x01926c…019400 Dummy {f00=0x0008, f01=0x0190, f02=» d { J F " D @ !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X %%I j z R 3 @ , ,
0x019400…019594 (1, 31) Dummy {f00=0x0008, f01=0x0190, f02=» !_ ! R8 Z ( 8 T H J F " D ! R( TJ?R ! R& ! Lb !# ~ Z % &
0x019594…019728 Dummy {f00=0x0008, f01=0x0190, f02=» 0R (+?R - RK !?R &A R$ 1 RK !2 x K 6 S F Y V b f d x g n r z ~ J F " D @ RRR_
0x019728…0198bc Dummy {f00=0x0008, f01=0x0190, f02=» i ( 8 A H " Z J F " D R R_ L R (0X % 0R ?R ~ R ~ RR j !! !0R~Fj " L0 j N &
0x0198bc…019a50 Dummy {f00=0x0008, f01=0x40aa, f02=» & & & U 0 ( > F A ? R "P L0R~F " !j~#! ! T j " $ j !! 1j !! 2 !!4 2 J @ L0 j N &
0x019a50…019be4 Dummy {f00=0x0008, f01=0x0190, f02=» @ H IDENT DE14ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE14ST H $$$TRA1 Z DE14ST l $ DECLRN1 DEDISCA DERR T:ATTF
0x019be4…019d78 Dummy {f00=0x0008, f01=0x0190, f02=» NAME CONTENTS $ & & 6 & X% D 01 T $ f & @ v & ! & & X% 02 $ & @ & " &
0x019d78…019f0c Dummy {f00=0x0008, f01=0x0190, f02=» & @ & $ & . & X% < 05 L $ ^ & @ n & % & & X% 06 $ & @ & & & & X%
0x019f0c…01a0a0 Dummy {f00=0x0008, f01=0x416c, f02=» & @ & ( & & & X% 4 09 D $ V & @ f & ) x & & X% 10 $ & @ & * & &
0x01a0a0…01a234 (1, 32) Dummy {f00=0x0008, f01=0x0190, f02=» @ H IDENT DE15ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE15ST H $$$TRA1 Z DE15ST l @ < ATTWB DECLRNT DEPOOL DERR- OPCL T:ATTFR T:DISP T:ERAS1 T:THOM
0x01a234…01a3c8 Dummy {f00=0x0008, f01=0x018e, f02=» !G! "?! !L ! " ! ! # !A h D & O 6 S F ] V d f h A v i j q s J F " D @n@m R6 p R_ 0X ! _7Hm_ R#P Q R2 RRR _ 0X R6 A
0x01a3c8…01a55c Dummy {f00=0x0008, f01=0x018e, f02=» J F " D $Gv ?v !L "?v ! " ! $ & ! % 0X & R$Xm R2 RRR _ R& V Q f & v 15 FILE SPACE? $ & USERFILE UNIT? $ & :U &
0x01a55c…01a6f0 Dummy {f00=0x0008, f01=0x0190, f02=» FILE $ & , SIZE : $ N & ^ FREE %M l $ & SYSTEMFILE $ & ZZZZ9 " ! &
0x01a6f0…01a884 Dummy {f00=0x0008, f01=0x410c, f02=»$ # & ZZZZ9 " $ 2 & B ZZZZ9 P " % f & # v ZZ9 " & & & & U ( R$4 @
0x01a884…01aa18 Dummy {f00=0x0008, f01=0x018e, f02=» @ H IDENT DE20ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE20ST DEAP2A H $$$TRA2 b DE20ST DEAP2A S t > : CMPIND2 CNTNUMA DE21ST DE23STF DE24ST DEANOK. DEAOK0- > : DEAOK4 DECLRA2 DEDISC DEPMSK DEPOOL DEPRUT D
0x01aa18…01abac Dummy {f00=0x0008, f01=0x0190, f02=» + , - ( 3 8 ; H @ X J F " D ( !Ad1XFAn@m R6 6 W,@n_ ( "2( _!@j3 RRRR@ @d0R 0} 4 Rh h G H l *! r *! | J
0x01abac…01ad40 Dummy {f00=0x0008, f01=0x0190, f02=» $ v , J F " D ) ?R Lj !& R'bc c b W 0X ! L R$ r"?R 7" v$ <
0x01ad40…01aed4 (1, 33) Dummy {f00=0x0008, f01=0x0190, f02=» C? Y? 0 @ $ P / ` 4 p 9 > J F " D RP ! L W+! L A ?R@ ?R 0R !T ?R )6 W ?R "?R &?R (?R C J F " D @ ?R
0x01aed4…01b068 Dummy {f00=0x0008, f01=0x0190, f02=» 6 L J F " D 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c X h x " 3 9 > J F " D _ & RK !?R 0X %%
0x01b068…01b1fc Dummy {f00=0x0008, f01=0x0190, f02=» 5 f N k o , q < s 5 L v N { n ~ J F " D @<Rj ! ! L @iW Ai?R RP ! L ?RA W @ ! L A ?R@ ?R R<R! L A ?R@ ?R 5 N
0x01b1fc…01b390 Dummy {f00=0x0008, f01=0x0190, f02=» N Y Q $ & 4 & 20 B FORMAT R $ 0 h & - x DEFINITION $ 0 & PROGRAM: $ 0 & XX
0x01b390…01b524 Dummy {f00=0x0008, f01=0x0190, f02=» $ 1 DEFINITION $ 1 * & : & 22 H BALANCE X $ 2 p & - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x01b524…01b6b8 Dummy {f00=0x0008, f01=0x4082, f02=»AT $ O ( B = ; R<R! L A ?R@ ?R R<R! L @ ?RA ?R?R ! L ! L !W 4 & l@ ~& - FORMAT $ 2 DEFINITION $ 2 & & 23 GET
0x01b6b8…01b84c Dummy {f00=0x0008, f01=0x0190, f02=» @ H IDENT DE21ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE21ST DEFGTC H $$$TRA2 b DE21ST DEFGTC t B > ATTDB ATTPRTT ATTWB DEDISC- DEFDSC1 DEPOOLL DERROR0 DETPRT D @ EMPTYT FCODE FEDIT FLINK FMOVE MTEXT PRFGUF
0x01b84c…01b9e0 Dummy {f00=0x0008, f01=0x0190, f02=» ! ( r , * % # 0 P 1 < 2 j 8 z > J F " D AnIj @{ " @iW Ai ! R" P RK7 ?R % L0R ,0R , R D J P
0x01b9e0…01bb74 (1, 34) Dummy {f00=0x0009, f01=0x0190, f02=» 2 RRRR0R F 'h #Q !j R, w j 1!w!I x 6 F V J f J v J F " D i j 2! ! !j "" j $" mHj R-P RK !2 RR_ R&{ { R
0x01bb74…01bd08 Dummy {f00=0x0009, f01=0x0190, f02=» J F " D )P RK !Ix 6 * ?R R&{ { R*P RK !2 RR_ R({ P RK $ J r J J J ) 3
0x01bd08…01be9c Dummy {f00=0x0009, f01=0x0190, f02=» Z ( e * v { 0 @ P J F " D @i, ! 0X Q R A ! 0X Q R A 0R j { ! !jm & {!0R "} R)P ` ( '
0x01be9c…01c030 Dummy {f00=0x0009, f01=0x0190, f02=» " 0 @ P ` p J F " D "}H{ Ij L RK !6 H" W 0R {$*0X R RP RK_4 R R0R "}_? 1
0x01c030…01c1c4 Dummy {f00=0x0009, f01=0x0190, f02=» K X ` p , z = < L J F " D @ {2 $ #?R R&{ @jP { R&{ W R&{ @jP H{ m R*" ! I{ ?R % & J F " D R& 4 0X 6 55 555555555W 'I ( W Ij I }I ( 'A He !
0x01c1c4…01c358 Dummy {f00=0x0009, f01=0x418c, f02=» ? ? ? ( 8 J F " D &Hdx #t #Wj #k &g2 RRRRRRRRRRRRRWHHdR #W;IeJ_J # & H # . ( ; ( J F " D '<W- RA ( %Ie,I ) xW Hi! ' 0R (T W
0x01c358…01c4ec Dummy {f00=0x0009, f01=0x0190, f02=» @ H IDENT DEATTF TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEATTF H $$$TRAA Z DEATTF l T:ATTFA & & 21 USER
0x01c4ec…01c680 Dummy {f00=0x0009, f01=0x0190, f02=» CORRECTION $ 1 & * & 8 & F $ %1 T & d & r FIELD $ 1 & : FU & XXXE " $ & START:
0x01c680…01c814 (1, 35) Dummy {f00=0x0009, f01=0x018e, f02=» & & ZZ " & & . 0 & OCCUPIED > RECORD T $ C j LENGTH z $ C & : & E TTTT " ( & & &
0x01c814…01c9a8 Dummy {f00=0x0009, f01=0x0190, f02=» & . & MINIMUM LENGTH ( $ I > & > N & : & @i j XX | " ' & & & MUST ENTER & (Y/T & & N & N
0x01c9a8…01cb3c Dummy {f00=0x0009, f01=0x0190, f02=» & N & N & ): & @s@ 0 & #@ B & R & ` & DUPLICATE n & & : & jA & & . & VERIFY & 9 & (Y/I &
0x01cb3c…01ccd0 Dummy {f00=0x0009, f01=0x0190, f02=»ITIAL CLEAR & ( & ( " & Y 0 & Y > & /N): L & u@ ^ & %@ p & . & SPECIAL HANDLING: & @k ZZVZZZ " & &
0x01ccd0…01ce64 Dummy {f00=0x0009, f01=0x0190, f02=» (#G:...) $ & 2 $ ACCUMULATION 2 $ N (#A:...) ^ $ v & & o@ & !@ & & p@ & "@ & & &
0x01ce64…01cff8 Dummy {f00=0x0009, f01=0x0190, f02=»DEFINITION $ 2 & j 2 " & # 2 & # @ CORRECTION N $ 2 h & x & $ %2 & & & STARTN $ 2 & & :
0x01cff8…01d18c Dummy {f00=0x0009, f01=0x018e, f02=» & @ ZZ " & & 0 & > BATCHN L $ & b & -ACCUMULATOR:A r & m XX " ( & . & SPECIAL HANDLING: & @k
0x01d18c…01d320 Dummy {f00=0x0009, f01=0x018e, f02=» & # GENERATION $ # 0 $ (#G:...) @ $ $ X & h & o@ v & !@ & & p@ & "@ & & & U ( %
0x01d320…01d4b4 (1, 36) Dummy {f00=0x0009, f01=0x018e, f02=» & SIZE: & f ` ( AA . " ( ! @ & P ) LINE ^ $ )! r * NUMBER $ *! & : & + + Z9 " + " & . , NUMBER
0x01d4b4…01d648 Dummy {f00=0x0009, f01=0x0190, f02=» & & 2 & $ & 3 2 & ( @ & 4 N & 2 & 5 j & < x & 6 & F & 7 & & & . 1234567890 $ .#
0x01d648…01d7dc Dummy {f00=0x0009, f01=0x413e, f02=»7890 $ 2# 3 1234567890 $ 3# 6 4 1234567890 F $ 4# ` 5 123456789 p $ 5# & & & & & & n @ & (
0x01d7dc…01d970 Dummy {f00=0x0009, f01=0x0190, f02=» @ H IDENT DE23ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE23ST H $$$TRA2 Z DE23ST l @ < ATTDB ATTPRTT ATTWB DE21ST- DECLRA1 DEDISCL DEPOOL0 DERR1 D @ DERROR DESTAT DETPRT FEDIT PRFGUF RESTOR T:ATTF T:DISP
0x01d970…01db04 Dummy {f00=0x0009, f01=0x0190, f02=» $ ( 8 7 H ~ X h ! x % . / 6 J F " D @g0R 0} { 1XFAn@ RAn2 RRRRR R_ 0R 0}@n_ RK6 5 ?RAg@
0x01db04…01dc98 Dummy {f00=0x0009, f01=0x0190, f02=» o s j t * u : v ~ J w Z x j y z z { c J F " D @ ) L AiW 0R {$* p!0X RAnP 0X ! 0X L RK2 RRRRRRRRR_Q
0x01dc98…01de2c Dummy {f00=0x0009, f01=0x018e, f02=» ~ * : J J F " D LW R XT 8 RK2 RRRJgwjm & {!_: RK2 RRRRR_ R({ P _ &! Z j j
0x01de2c…01dfc0 Dummy {f00=0x0009, f01=0x018e, f02=» H J F " D $!! {1Ii=j #!! {2 $ #j !! {(j ' { j {'" j { ! % { ! # _)j G V [ 7 f ] v b - l t u * % # P J F " D @ { ' R@j@{
0x01dfc0…01e154 (1, 37) Dummy {f00=0x0009, f01=0x0190, f02=» $ 4 7 D T d 7 t & & 23 GET FORMAT $ 3 &
0x01e154…01e2e8 Dummy {f00=0x0009, f01=0x403c, f02=» 0R($}2 RRR?R R&{ 0R 0}4 _ j &@ 8 4 7 D T d 7 t & & 23 GET FORMAT $ 3 &
0x01e2e8…01e47c Dummy {f00=0x0009, f01=0x0190, f02=» @ H IDENT DE24ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE24ST H $$$TRA2 Z DE24ST l @ < ATTDB DECLRAT DEDISC DEPOOL DERR1 DERRORL FEDIT RESTOR1 T:ATTF T:DISP T:GETF D
0x01e47c…01e610 Dummy {f00=0x0009, f01=0x0190, f02=» ' . 4 F < 2 J F " D 0R 0} { 1XFAn R6 R_ @n_ RK2 RRWm R* Lj !& 0R {$ B F J L T Z ] e
0x01e610…01e7a4 Dummy {f00=0x0009, f01=0x0190, f02=» d 0 @ P ` M p & & 24 COPY FORMAT $ 4 & FORMAT $ 4 & TO
0x01e7a4…01e938 Dummy {f00=0x0009, f01=0x40aa, f02=» & v @ & m & m ( & @ 6 & U H ( V . * ( RKW RK2 RRW R&{ _ R&{ 0R 0}4 b @ FORMAT $ 4 & FORMAT $ 4 & TO
0x01e938…01eacc Dummy {f00=0x0009, f01=0x0190, f02=» @ H IDENT DE30ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE30ST H $$$TRA3 Z DE30ST l < 8 DE31ST3 DECLRAA DEPMSK DEPRUTF DERR1 RESTOR1 T:ATTF0 +
0x01eacc…01ec60 Dummy {f00=0x0009, f01=0x018e, f02=» < & & 30 JOB , $ 0 @ & - P DEFINITION ^ $ 0 x & PROGRAM: $ 0 & 3 & XX " h & d
0x01ec60…01edf4 (1, 38) Dummy {f00=0x000a, f01=0x4118, f02=» DEFINITION $ 1 & . & 32 < GET L $ 2 ` & p JOB ~ $ 2 & - DEFINITION $ 2 ( @ R_? ! 4 D
0x01edf4…01ef88 Dummy {f00=0x000a, f01=0x0190, f02=» @ H IDENT DE31ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE31ST DEAP3A H $$$TRA3 b DE31ST DEAP3A t B > ATTWB DEANOKT DEAOK0 DECLRA DECLRN1 DEDISC1 DEPOOL0 DERR < 8 DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GET
0x01ef88…01f11c Dummy {f00=0x000a, f01=0x018e, f02=» & : R f
0x01f11c…01f2b0 Dummy {f00=0x000a, f01=0x0190, f02=» x 0 2 ( : J ! Z ) j * , z + 0 5 : J F " D 1XFAd!hL @dAn@mAe R6 ?R " R&z 2 RRR4 LW
0x01f2b0…01f444 Dummy {f00=0x000a, f01=0x0190, f02=» ^ 3 _ f ` f g , w < x L | Q } Q l ~ | s s J F " D @He @o RW 0R z ,AnAo@e R2 RRRRRRR _( R(z T &PU 1 RK2 RRRR
0x01f444…01f5d8 Dummy {f00=0x000a, f01=0x018e, f02=» z! X#b !& R"z <R R$z zU0R z ,@e0X " z 8 H X h x J F " D *k0X " R_ He% k0Rk<RId R$P )SW R"T k _ kLW @f !" )*
0x01f5d8…01f76c Dummy {f00=0x000a, f01=0x0190, f02=» c g k , J F " D @" )&0R * * L L_=0R !P #_R * , !" < *& J F " D 3 h &U !T , , _ ,& R!8RW:6 1?R
0x01f76c…01f900 Dummy {f00=0x000a, f01=0x0190, f02=» & & 99 " h * & d : CREATE J $ b & r GET $ JOB-DEFINITION $ & JOBNAME: $
0x01f900…01fa94 (1, 39) Dummy {f00=0x000a, f01=0x0190, f02=» & BATCHHEAD: $ 6 & f F & 4 X & h BALANCE: v $ & &g & 5 & FORMAT $ &
0x01fa94…01fc28 Dummy {f00=0x000a, f01=0x0190, f02=» & + & FORMAT $ 4 & D 2: R $ d & fA r & "A & ! SYMBOLIC: $ !A & &A & , & " FORM
0x01fc28…01fdbc Dummy {f00=0x000a, f01=0x0190, f02=»IC: $ $A & &A & - . & > % FORMAT L $ % b & r & 4: $ & & fA & $A & ' SYMBOLIC: $ 'A & &A
0x01fdbc…01ff50 Dummy {f00=0x000a, f01=0x0190, f02=» & %A & * SYMBOLIC: " $ *A < & &A L & / ^ & n + FORMAT | $ + & , 6: $ , & fA & &A & -
0x01ff50…0200e4 Dummy {f00=0x000a, f01=0x0190, f02=» / 7: $ / & fA " & 'A 4 & D 0 SYMBOLIC: R $ 0A l & &A | & 1 & 1 FORMAT $ 1 & 2 8: $ 2 &
0x0200e4…020278 Dummy {f00=0x000a, f01=0x4154, f02=» 4 FORMAT $ 4 & " 5 9: 0 $ 5 B & fA R & )A d & t 6 SYMBOLIC: $ 6A & &A & 3 & & & U ( 2 -
0x020278…02040c Dummy {f00=0x000a, f01=0x018e, f02=» @ H IDENT DE40ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DE40ST H $$$TRA4 Z DE40ST l > : DECLRA4 DECLRNA DECLRS DENT01F DEOPBC DEPMSK. DEPRUT- 2 . DERRS DERROR OPCL T:ATTF T:GETA T:GETF & "
0x02040c…0205a0 Dummy {f00=0x000a, f01=0x0190, f02=» x 4 H j
0x0205a0…020734 (1, 40) Dummy {f00=0x000a, f01=0x0190, f02=» " ! ( % 8 0 H J F " D @e kU lU( .AdIe 1XFW 1XFAn@mIe RW R6 . R_ @n_ Ief( $A6 X ] e f h i " o J F "
0x020734…0208c8 Dummy {f00=0x000a, f01=0x0190, f02=» Z $ 4 D T " d t J F " D @e@dKeN@ @ @ $ * h Rh R_ + , R 2 RRRR R_ 0X 1XF0 M & & 40
0x0208c8…020a5c Dummy {f00=0x000a, f01=0x018e, f02=»& XX " h " & d3 2 & d B & 41 P OPEN NEW ` $ 1 x BATCH $ 1 & & 42 OPEN OLD $ 2 BATCH
0x020a5c…020bf0 Dummy {f00=0x000a, f01=0x018e, f02=» BATCH $ 3 & * & 44 8 OPEN OLD H $ 4 ` TEST p $ & - ! BATCH $ !4 & $ '4 ( " & &
0x020bf0…020d84 Dummy {f00=0x000a, f01=0x018e, f02=» & % MODE $ %4 & & 4 6 & F & TEST T $ &4 h & x $ *4 & $ .4 & $ 14 & $ 44 ( '
0x020d84…020f18 Dummy {f00=0x000a, f01=0x0190, f02=» + UNIT $ +5 & :U ( & 8 , X J " ,i & l - VOLUME z $ - & : & & ( . / JOB $ /
0x020f18…0210ac Dummy {f00=0x000a, f01=0x410e, f02=» $ 2 3 NAME $ 3 $ & : 4 & " B & l V ( d 4 p & & U ( 5 & U & ( X _ @
0x0210ac…021240 Dummy {f00=0x000a, f01=0x018e, f02=» @ H IDENT DE20FS TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 > : FACC FCODE FCOPY FDUPL FGEN FITEMhFKI FLINK FMELIhFNL H $ hFSL FTABF FTEXT FVAL NOPOOL $$$TRAF D @ FACCF FCODE FCOPY FDUPL 1 FGEN1 FITEM .hFKI FLINK d
0x021240…0213d4 (1, 41) Dummy {f00=0x000a, f01=0x0190, f02=» . > N " ^ $ n & . ~ 6 8 ; . ? J F " D R! R4 R"j ! ! !j o Hi 0R F R ! " !
0x0213d4…021568 Dummy {f00=0x000a, f01=0x0190, f02=»& R ( R$j ! d * : J F " D ! !4 & ! c # R ( R% R !j ! !! !j ! ` !4 J d J F " D & " c # R ( R& R "j ! "! !j " ` "4
0x021568…0216fc Dummy {f00=0x000a, f01=0x0190, f02=» & $ R ( V D G $ k 4 m D J F " D @ R( R $j ! $! !j $ $4 0R F !h )Q ! ! #* T .
0x0216fc…021890 Dummy {f00=0x000a, f01=0x0190, f02=» D 0 @ P J F " D r!H (W% ! m R# T+ w! R0X ""j !Q W = RK ! ` 2 < d J F " D R+W
0x021890…021a24 Dummy {f00=0x000a, f01=0x0190, f02=» ` x J F " D @ H R+ "L0X !!" " !)I 0X # W 0X # & ' % y %Ad R W l | d N J F " D < RK ! !4 I /W . R ( a - !+ L !) !
0x021a24…021bb8 Dummy {f00=0x000a, f01=0x0190, f02=»j ! ! ! # L j ! ! !W j " ") !L 0R F R '0 J F " D R #4 j !Q !4 j !*! !j ! ! !4 !h )Q !j @ T d & ! ( & p! ( &
0x021bb8…021d4c Dummy {f00=0x000a, f01=0x0190, f02=» " " " " * " 8 " F " T " b " p " ~ " " " " " " " " "
0x021d4c…021ee0 Dummy {f00=0x000a, f01=0x0190, f02=» & #! ( " . & $! > ( L X & %! h ( v & &! ( & '! ( & (! (
0x021ee0…022074 (1, 42) Dummy {f00=0x000b, f01=0x018e, f02=»& ,! ( & -! ( ( 6 B & .! R ( ` l & /! | ( & 0! ( & 1! ( & 2!
0x022074…022208 Dummy {f00=0x000b, f01=0x0190, f02=» & 6! ( " . & 7! > ( L X & 8! h ( v & 9! ( & :! ( & ;! ( !
0x022208…02239c Dummy {f00=0x000b, f01=0x400e, f02=» @ & 6! ( " . & 7! > ( L X & 8! h ( v & 9! ( & :! ( & ;! ( !
0x02239c…022530 Dummy {f00=0x000b, f01=0x0190, f02=» @ H IDENT DEUNPF TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEUNPF DEUNPL FEDIT H $$$TRAU h " DEUNPF DEUNPLF FEDIT G z D @ ADJUSTU BINCONA FMOVE GETFWD NOPOOL1 RCNTRL1 T:DISP0 T:GETC T:SWIT T:TSTCP
0x022530…0226c4 Dummy {f00=0x000b, f01=0x0190, f02=» a p F J F " D @ R Hj j !! {(j { ! % { $! R0X ""Il _h !Ah?RAl - ! j !! n ~ J F " D !c % $ ! 6 W j " "W j !! ! $ # !0 Y C
0x0226c4…022858 Dummy {f00=0x000b, f01=0x0190, f02=»L "LH "L X Yh Nh ( Yh : Yh L Nh ^ % Ch p J F " D #LH #L $LH $L %LH %LH "L # oU U b ! " # H #V:#G:#A:$ c p d u
0x022858…0229ec Dummy {f00=0x000b, f01=0x0190, f02=» hQ 0 !T 2 RRRRRRRRRW W #_) !j !! z 8 H X J F " D !( "Q R Ii "_H ! `! a! !0R Fh )Q ! ! # `" a j a` h J F " D j a` ! ( !_ $ 6 1j b#~ W j b#~#W j b#~& b#
0x0229ec…022b80 Dummy {f00=0x000b, f01=0x0190, f02=» _ J F " D @ + * W !4 # `! a! !0R Fh )Q ! ! " `" a j a` J F " D j a` ! p 4 !jo ! - h] $ !T 6 #+jo ! ! b J F " D !" %_*jo ! )_ jo ! +_ ! !_+J .jo ! ._/jo ! , !4 L b
0x022b80…022d14 (1, 43) Dummy {f00=0x000b, f01=0x0190, f02=» . E > N ! ^ " n # ~ $ % ' E J F " D @h@k hQ 2 !0X2 RRRRRRRRRRRRRRRRRR?R !j b! - b! !j !!
0x022d14…022ea8 Dummy {f00=0x000b, f01=0x0190, f02=»o " b Jiq !0R Fh ) ` J F " D Q ! ! "_ !j !! !j b b _ b !jb!! b! !_ P l P | J F " D !j !! ! "q _ AkT c R _ %b!bL j b!U b!_ HkJ cWE % ' 6
0x022ea8…02303c Dummy {f00=0x000b, f01=0x4110, f02=» S Y ^ f , k < t R9 L y L9 ^ J F " D @?R !4 L 0X !0R 0R T$0X 0X P 0X ( " L_* L_/ _ p & ! ( 44 9
0x02303c…0231d0 Dummy {f00=0x000b, f01=0x0190, f02=» @ H IDENT DEPRFG TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 PRFGUF H $$$TRAP Z PRFGUF l 6 2 DERRORP DEUNPFA EMPTYT NOPOOLF T:EDWR T:PRIN. '
0x0231d0…023364 Dummy {f00=0x000b, f01=0x0190, f02=» P d f l #L: . ~ B J F " D @2 w R d "L@h Ru" ! Kh !@k ~L0RoT Lj~ # # - b Ro R #V:#G:#A:" J F " D -( q0R TF b , ! , " , # L h
0x023364…0234f8 Dummy {f00=0x000b, f01=0x0190, f02=» ( 0 , b _1Ii R!"dL&%( _ R#$dL&% W 1X F 4 n J , Z n l $ , | 8 J F " D $ 9 j~ bIi R!"dL&%W R#$dL&%( A b ~LAk_Dj~ S n W ,
0x0234f8…02368c Dummy {f00=0x000b, f01=0x0190, f02=»&%W R#$dL&% ~LAk4 + 1X F P W r 0 @ P ` * p " " " " ! ( & 1 FORMAT $ 1
0x02368c…023820 Dummy {f00=0x000b, f01=0x0190, f02=» PAGE $ # & : ZZ9R . " ! B & R & ` & n & | LINE $ ! FIELDO $ ! & - & MAX/MIN " & K M A V I
0x023820…0239b4 (1, 44) Dummy {f00=0x000b, f01=0x0190, f02=» A & #G: GENERATION $ # 6 & #A: F ACCUMULATION X $ # t & & & NO NO/POS -L LENGTH $ N $ & I E T E C -ITEM HANDL.
0x0239b4…023b48 Dummy {f00=0x000b, f01=0x0190, f02=»" " & XXXT " $ 0 & @ Z9 N " % ` & p Z9 ~ " & & Z9 " ' & & !' & & "'
0x023b48…023cdc Dummy {f00=0x000b, f01=0x018e, f02=» ZZVZZZ " ' & 0 & & ~ 4 & ~ B ( P & 1 l FORMAT | $ 1 & : & m & ( & NUMBER OF POOL-UNITS:N XE+XXO
0x023cdc…023e70 Dummy {f00=0x000b, f01=0x018e, f02=» & ! & ! LINE ! $ $ ! ! 8 & ACCUMULATOR ! H & POSITION ! b LENGTH ! x $ O ! & ( ! & SPECIAL ! & #L:< ! FIELD ! $ L ! & LAYOUT>
0x023e70…024004 Dummy {f00=0x000b, f01=0x0190, f02=» ! NOT " $ # " & " , NOT " : $ " N & ' " & HANDLING " j & " & " & " ( " ! " " & " & k A " & " " Z9 " "
0x024004…024198 Dummy {f00=0x000b, f01=0x40f0, f02=» " % & # & ) # & ZZVZZ9 # " " & & # 8 & 0 # H & ~ # V & ~ # d ( # r ' # ~ & 1 # ( # , ( & !L 1X F P # RKW ! 4 # # @ # " Z9 " "
0x024198…02432c Dummy {f00=0x000b, f01=0x0190, f02=» @ H IDENT DEPROC TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 $ DESC FDIR LINIT MTEXT $ H $$$TRAP $ j & " DESC & FDIRL LINIT MTEXT $ | @ < DEPOOLP DERRORA EMPTYT FACC FCOPY FDUPL FGEN.hFKI FMELI $ D @ hFNL FTABF FTEXT FVALT NOPOO
0x02432c…0244c0 Dummy {f00=0x000b, f01=0x0190, f02=» $ # % J F " D 0X RHf R( Hg R( j I 0X ##Ie !l_0 ! $ % & I % _ % j h % z s % x % J F " D @i I " " ( I 0X $'Ii # L " . I 0X $ RW .W % %
0x0244c0…024654 (1, 45) Dummy {f00=0x000b, f01=0x0190, f02=»@f@g L@l R l eIe ( L@l R l % l < & * J & < < & L J & ^ J F " D f( If LAl R l g !Af( hIg !W` L@l R l eIeJ( M_5 c & n & J & < & $ J & J F " D d
0x024654…0247e8 Dummy {f00=0x000b, f01=0x018e, f02=»!P I A ! ! & ' J F " D ! % _2 ! W ! !4 % @e@f@g@ R4 ! " # $ ' * ' x $ ' J F " D * + , 4 oL Hi 0R h / !Tr 6 )'''''48fD ' J F " D ]]NW[A A A jo ! ! ! !
0x0247e8…02497c Dummy {f00=0x000b, f01=0x018e, f02=» , ( * ( * ( $ * ( 4 * ( D * ( T 7 ( d ; ( t i ( G ( ( ` ( Q ( " ( ( & (
0x02497c…024b10 Dummy {f00=0x000b, f01=0x0190, f02=» ) #V:#G:#A:R ) " ) . ) > ) N ) ^ J F " D Rj I 0X ##AdA 0R T3 ` c d L h ) c#T # # d0X3 ) n ) ) ) 1 0 ) J F " D RRR(
0x024b10…024ca4 Dummy {f00=0x000b, f01=0x408e, f02=» " " $ . ! R# T ! R0X "" U ) | * : * J W RK !+ !4 T * Z * x@ * ` c d L h ) c#T # # d0X3 ) n ) ) ) 1 0 ) J F " D RRR(
0x024ca4…024e38 Dummy {f00=0x000b, f01=0x018e, f02=» @ H IDENT DECVRT TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 + BINCON CONNUM + H $$$TRAC + b BINCON CONNUM + t + 0 + J F " D L $ f c# # d# LhZ c! 7 c! #6 T$ $ T$$ +
0x024e38…024fcc Dummy {f00=0x000b, f01=0x0190, f02=» J F " D bch b!Z2! } c! b$ R " b_D( % $L b# R # b*a & &a_b a , J F " D c! ac bch baZ7! bc a ab c!j c!a! cb c!f c! ! d!_ bch b!Z=! , R $ , J F " D W "i c!j c!Z c! (c a ac bc Lh baZ ! )b c! bc 'b_ c! , ` [
0x024fcc…025160 Dummy {f00=0x000b, f01=0x0190, f02=»aL u $ #@g c hZ a b! +6 .... , p J F " D zV.VV*zVV......... .z .jc!! b"c ~W 6 b! !jc!! b"c f b! ! - . - | - / - J F " D W, R ! b! !Hg ( 'b `Ld b!Z` b! ! !@g _ R " ,0 b! ! | - M -
0x025160…0252f4 (1, 46) Dummy {f00=0x000c, f01=0x018a, f02=» '!! b ' j b!Z= 'b '!Ag_ 4 b - j . ( * . 8 " . H " . V " . d ( . r . ~ 9' . " . ( . . 99 . " . ( . .
0x0252f4…025488 Dummy {f00=0x000c, f01=0x4008, f02=»@ / ' j b!Z= 'b '!Ag_ 4 b - j . ( * . 8 " . H " . V " . d ( . r . ~ 9' . " . ( . . 99 . " . ( . .
0x025488…02561c Dummy {f00=0x000c, f01=0x0190, f02=» @ H IDENT DEVGAC TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 0 CNTNUM VGACNT 0 H $$$TRAV 0 b CNTNUM 9 VGACNT 0 t 6 2 CMPINDV DERRORA EMPTYT T:DISPF T:ERAS T:GETF. 0 R 0 0 0 !
0x02561c…0257b0 Dummy {f00=0x000c, f01=0x0190, f02=» 0 M P 1 Q P 1 b #P 1 , e V:G:A: 1 > J F " D @% ,L + , +L *LW * , + c L L bch b! !Tk c! h & c"T 1 T #L 1 J F " D " "Hi #L c" bc a , ach ba "T cb c!W. bc Lh ba !P b 1
0x0257b0…025944 Dummy {f00=0x000c, f01=0x0190, f02=»X &' &W 0X 120X ,- , ! 1 d Q 2 " 2 4 2 D 2 T ; 2 d J F " D L c !%cL ! !0X & RKj ! W * + !!4 L@k@g 2 v Z $ 2 [ $ 2 $ 2 ] $ 2
0x025944…025ad8 Dummy {f00=0x000c, f01=0x0190, f02=» g $ 3 h $ 3 i $ 3 $ j $ 3 4 k $ 3 D l $ 3 T m $ 3 d n $ 3 t o $ 3 p 3 q 3 r 3 s 3 t 3 u $ 3 $ 3
0x025ad8…025c6c Dummy {f00=0x000c, f01=0x018e, f02=» 4 ? 4 ? 4 $ $ 4 4 $ 4 D $ 4 T $ 4 d $ 4 t $ 4 $ 4 $ 4 $ 4 4 4 4 4
0x025c6c…025e00 Dummy {f00=0x000c, f01=0x0190, f02=» J F " D RRRRRRRRRRRRRRRRRRRRRRRRRRRRRW? ;6 ```` {`7{j {{````````` ` 5 5 R 5 b 5 r 5 $ 5 5 5 ? 5 ? 5 . 5 5
0x025e00…025f94 (1, 47) Dummy {f00=0x000c, f01=0x0190, f02=» @ 5 J F " D % a=hZa! c!P "5 c!W'Ag >W @gT _F c! c _ R !T 0Ra !T _ 6 Y c 6 ^ ^ 6 p g 6 u ^ 6 J F " D @R "T ( ) , $a #aL W60Ra !T W-0Ra !T W$$a! #aL bc b" b 6 6
0x025f94…026128 Dummy {f00=0x000c, f01=0x4108, f02=»W "b& cb_ c!,c _C( 6 ` 7 7 . < 7 > J F " D $ c ! & RK ! W Kg !!4 c! bc b "b Uj c b m bF b 7 N 7 AAAAAA 7 " 7 ( 7 @ a 4 a 7 E 7 @ 7
0x026128…0262bc Dummy {f00=0x000c, f01=0x0190, f02=» @ H IDENT DE50ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 8 DE50ST DEAP5A 8 H $$$TRA5 8 b DE50ST DEAP5A 8 t B > ATTDB ATTWB DEANOK. DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC 8 D @ DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR
0x0262bc…026450 Dummy {f00=0x000c, f01=0x0190, f02=» 8 ~ 9 9 : 9 X 9 n 9 9 9 9
0x026450…0265e4 Dummy {f00=0x000c, f01=0x0190, f02=» 9 v : : : : : N * : l : | : + $ : 1 : ? h : @ h : A : J F " D @e kU lU( ,AdIe'1XFAn
0x0265e4…026778 Dummy {f00=0x000c, f01=0x018e, f02=» RKIe ! 4 @e@d@ @ _Z@dAe " " R" J : z ; 8 ; H * ; X ; h * ; x ; J F " D ! U Uj ! !j !!/!j %!8!0R (+0R +( > " 1XFW 1XFAn@m ; ; ;
0x026778…02690c Dummy {f00=0x000c, f01=0x0190, f02=» ; < J F " D R Rh 2 RRR R_ R_ 0R (+0R +0X _ "l lU R R < * < f < v * < < < < < < " < ' <
0x02690c…026aa0 Dummy {f00=0x000c, f01=0x0190, f02=» USE < U 0 = J F " D @ R&| W L !" ! 0X %, ! b &l b &!Z2b '( "lW b &k = , = j $ = z , = . = = = = } = = = J
0x026aa0…026c34 (1, 48) Dummy {f00=0x000c, f01=0x0190, f02=» = } > " > } > ( } > 8 & > H > X J F " D ) Rh @ P R$ R_+ Rh " $ kU?R % 0Rk >?R lU?R0R 0} R > h D > * > > > ) >
0x026c34…026dc8 Dummy {f00=0x000c, f01=0x0190, f02=» R_ R_ 0R~P + , R > f L ? $ T $ ? 4 d 4 ? D x 4 ? T J F " D @@z6 Az R_ @ @z R$XP@ ~U 0R , P& b~ ![) !0R + T b~ ? d * ? ? , ? , ? 2 ?
0x026dc8…026f5c Dummy {f00=0x000c, f01=0x0190, f02=» ( ? @ J F " D 6 h[ * !T06 $ $$ 0R , T 0R , @ T 0R + !_6A X @ T ?R @ @ n # @ ~ & @ & 50 @ SEARCH @ $ 0 @ & @ MODE @ $ 0 @ &
0x026f5c…0270f0 Dummy {f00=0x000c, f01=0x0190, f02=» @ & A $ % A & A ( $ * A 6 ( A F A R & A b $ A p & A ~ $ / A & A $ 3 A $ @ A & A $ ? A ( A A &
0x0270f0…027284 Dummy {f00=0x000c, f01=0x0190, f02=» A $ ? B ( B 2 B & & B 6 $ * B D & B T $ / B b & B r $ 6 B & B $ < B & B RECORD B $ B & - B NUMBER B
0x027284…027418 Dummy {f00=0x000c, f01=0x0190, f02=»& - B STATUS C $ # C " & : C 2 & -e@ C @ & ~ C R $ @@ C ` ( C p C | & 51 C ! SEARCH C $ !1 C & C " MODE C $ "1 C & C #
0x027418…0275ac Dummy {f00=0x000c, f01=0x018e, f02=»ARCH C $ &2 D & D ' MODE D * $ '2 D > & D N ( BATCH D $ (2 D r & D ) LEVEL D $ )2 D ( D * D & 53 D + SEARCH D $ +3 D
0x0275ac…027740 Dummy {f00=0x000c, f01=0x018e, f02=» $ .3 E ( E / E 0 UNIT E 0 $ 03 E D & :U E T & E d 1 X E v " 1i E & E 2 VOLUME E $ 2 E & : E & E & E ( E 3
0x027740…0278d4 (1, 49) Dummy {f00=0x000c, f01=0x0190, f02=» E 6 F 7 JOB F $ 7 F , 8 NAME F < $ 8 F P & : F ` & ! F n & k F ( F 9 F : BATCH F $ : F ; NAME F $ ; F & : F &
0x0278d4…027a68 Dummy {f00=0x000c, f01=0x0190, f02=» : F & " G & l G ( G , ? G 8 & G H & ! G V & G f & " G t & ) G & # G & G & G & $ G & G & % G & ) G & & G
0x027a68…027bfc Dummy {f00=0x000c, f01=0x0190, f02=»& * G & H & + H & ) H , & , H : & H J & H X & - H f & H v & . H & ) H & / H & H & H & 0 H & H & 1 H & ) H
0x027bfc…027d90 Dummy {f00=0x000c, f01=0x40da, f02=» & H & 6 I & I & 7 I , & ) I < & 8 I J ( I Z @ I f & I v & I & U I ( I &?R I I @ I & H & 1 H & ) H
0x027d90…027f24 Dummy {f00=0x000c, f01=0x018e, f02=» @ H IDENT DE60ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 J DE60ST J H $$$TRA6 J Z DE60ST J l B > DECLRA6 DECLRNA DENT01 DEOPBCF DERR1 DERROR1 OPCL0 T:ATTF J T:GETA T:GETF J & " J
0x027f24…0280b8 Dummy {f00=0x000c, f01=0x0190, f02=» K K K 0 K R K t K K K K
0x0280b8…02824c Dummy {f00=0x000c, f01=0x0190, f02=» K L ' L J F " D @e( +AdIe 1XFW 1XFAn@m R6 - @~@ R_ @n_ IeW( &@6 _8A L 0 O L ~ W L X L ^ L _ L e L J F " D @W A A Ae@d_<@ R$V RK@ P 1XFAn@m
0x02824c…0283e0 Dummy {f00=0x000c, f01=0x0190, f02=» L M M M , F M < & M L & 60 M Z $ !0 M j & M z PROGRAM: M $ 0 M & M XX M " h M & d0 M & d M &
0x0283e0…028574 (1, 50) Dummy {f00=0x000d, f01=0x0190, f02=» 2 M & N & 63 N $ !3 N ( KEY N 8 $ 3 N L & / N TEST N j $ 3 N ~ & N & 64 N $ !4 N SIGHT N $ 4 N & / N TEST N $
0x028574…028708 Dummy {f00=0x000d, f01=0x0190, f02=» SIGHT N $ 4 O & O $ KEY O 2 $ 4 O F & 4 O V & / O f TEST O t $ O & O $ $4 O & O $ (4 O & O $ +4 O & O $ .4 O
0x028708…02889c Dummy {f00=0x000d, f01=0x018e, f02=» ( O $ P % UNIT P $ %4 P 0 & :U P @ & P P & X P b " &i P t & P ' VOLUME P $ ' P & : P & P & P ( P ( P ) JO
0x02889c…028a30 Dummy {f00=0x000d, f01=0x414a, f02=» , BATCH Q $ , Q - NAME Q * $ - Q > & : Q N & " Q & l Q p ( Q ~ . Q & Q & U Q ( Q / Q & U Q & Q ( Q 2 . , @ @
0x028a30…028bc4 Dummy {f00=0x000d, f01=0x0190, f02=» @ H IDENT DE70ST TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 R DE70ST DEAP7A R H $$$TRA7 R b DE70ST DEAP7A R t D @ ATTDB DEANOKT DEAOK0 DECLRA DECLRS1 DECONV1 DEDISC0 DELAST R D @ DEOPBC DEPMSK7 DEPOOL DEPRUT DERECS DER
0x028bc4…028d58 Dummy {f00=0x000d, f01=0x0190, f02=» S S & S D S Z S x S S S S
0x028d58…028eec Dummy {f00=0x000d, f01=0x018e, f02=» S T T & T : ( T X T h ( T x T ( T T ) T - T ? $ T J F " D kU lU( xAdIe 1XFW 6 1
0x028eec…029080 Dummy {f00=0x000d, f01=0x0190, f02=» T J F " D @$ R_ @n_)@ R$V RK6 Ie ! 4 @e@d ' * h Rh R_sI U U V U f U v U U , U J F " D e ' @f6 _ AfAe@d_ 2 RRR ( 0RkT (!0RlT (! %0X " _ U
0x029080…029214 (1, 51) Dummy {f00=0x000d, f01=0x018e, f02=» V ' V V $ J F " D ("6 ( R,KW R-K ! R 2 RRRRAzT R ! '! ?R6 ( k lU V 4 T V V V V " " V $ & V ) V 5 T V
0x029214…0293a8 Dummy {f00=0x000d, f01=0x0190, f02=» t W u T W x0 W $ { W 6 J F " D @&{ # R+P " + $ ( ( * W ( $ 6 ( _W R%T ( * 2 ( RR)gL R " W F 0 W W W W J F " D '"( g " #L R$T R # '#( _ Ub
0x0293a8…02953c Dummy {f00=0x000d, f01=0x0190, f02=» X & X J F " D R&{ 1XF0X ! 0X mU_" m 50R {&* p!0X R $ '$( 10R $} | @ X $ 0 X r X X & X X X - X 1 X 2 X
0x02953c…0296d0 Dummy {f00=0x000d, f01=0x018e, f02=» R2TC 6 ( B?R0R $} L R T l $_ " L2 RRRRR RK 2 R X F Y D G z Y T H Y d I Y t M Y N Y U Y [ Y a & Y l 0 Y o Y r Y
0x0296d0…029864 Dummy {f00=0x000d, f01=0x018e, f02=» , Z Z " Z $ J F " D @ Rh R$8R?R6 ?R0RN`a a bahNb# #P a% a` _ b#j !!Nb b!j ! Z 4 Z Z Z & Z & 70 Z CONVERSION Z $ 0 Z & Z
0x029864…0299f8 Dummy {f00=0x000d, f01=0x018e, f02=» ( [ [ & [ $ [ . & [ > $ # [ L & [ $ ' [ j & [ z $ * [ $ - [ ( [ [ & [ $ [ & [ $ # [ & [
0x0299f8…029b8c Dummy {f00=0x000d, f01=0x0190, f02=» [ CONVERSION $ 1 " & 2 VIA @ $ 1 T & d DATA COMMN r $ 1 ( & 71 CONVERSION $ 1 &
0x029b8c…029d20 Dummy {f00=0x000d, f01=0x0190, f02=»TCH LINKING $ "3 ] ( ] $ # ] 0 $ UNIT ] @ $ $3 ] T & :U ] d & ] t % X ] " %i ] & ] & VOLUME ] $ & ] & : ] & ] & ]
0x029d20…029eb4 (1, 52) Dummy {f00=0x000d, f01=0x0190, f02=» k ] ( ^ * ^ + BATCH ^ & $ + ^ < , NAME ^ L $ , ^ ` & : ^ p & "A ^ ~ & l ^ ( ^ - ^ & l ^ & A ^ & U ^ ( ^ . ^
0x029eb4…02a048 Dummy {f00=0x000d, f01=0x4138, f02=»& - ^ 1 NAME _ $ 1 _ & : _ 0 & @ _ > & $ _ P ( _ ` 2 * _ l & _ | & FETCHING FORMAT: _ & _ & FROM DISC.R _ & _ & @ O _ & U _ ( _
0x02a048…02a1dc Dummy {f00=0x000d, f01=0x0190, f02=» D H IDENT DE80ST TRA 10.0 - - F1 O1111 REL 1.0 79-08-14/DALI ` DE80ST DEAP8A ` L $$$TRA8 ` f DE80ST DEAP8A 0 ` x 4 0 DEANOK8 DEAOK0A DECLRA DECONVF DERR1 T:ATTF1 ` ` ` ` `
0x02a1dc…02a370 Dummy {f00=0x000d, f01=0x0190, f02=» 2 ` N G a M YA a Q NA a . T a @ a P & a ` & 80 a n RECEIVE MODE a ~ $ 0 a & a UNIT a $ 0 a & :U a & a X
0x02a370…02a504 Dummy {f00=0x000d, f01=0x0190, f02=» TYPE: a & e b X b " " b 4 & b D & 1= LINE TO PRINTER b R & b r & 2= LINE TO DISKT b & b & 3= DISK TO PRINTER b & b & RESTART(Y/N):I b & f b
0x02a504…02a698 Dummy {f00=0x000d, f01=0x4026, f02=» L ?RD b | U c @ c " X b " " b 4 & b D & 1= LINE TO PRINTER b R & b r & 2= LINE TO DISKT b & b & 3= DISK TO PRINTER b & b & RESTART(Y/N):I b & f b
0x02a698…02a82c Dummy {f00=0x000d, f01=0x0190, f02=» @ H IDENT DECONV TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 d DECONV d H $$$TRAC d Z DECONV d l & " ATTDEVC DETPRTA T:EDWR T:PRINF d d ! d # d * d 4 # d 8 d
0x02a82c…02a9c0 Dummy {f00=0x000d, f01=0x40c6, f02=» d & e & * e & NUMBER: e & 9999 e < " gU e P & e ` & e n & e | ( e @W LW 4 e L e @ e # d * d 4 # d 8 d
0x02a9c0…02ab54 (1, 53) Dummy {f00=0x000d, f01=0x018e, f02=» @ H IDENT DERROR TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 f CANC DERROR f H $$$TRAR f ` CANC DERROR f r D @ DELASTR DELOCKA MASK MSKOUT T:DISP1 T:EDWR1 T:ERAS0 T:GETA f T:NKI T:SETCO T:XSTA f * 7 f
0x02ab54…02ace8 Dummy {f00=0x000d, f01=0x0190, f02=» " g " g " g " g . " g < " g J " g X " g f " g t " g " g " g " g " g " # g " & g " ) g " - g " . g
0x02ace8…02ae7c Dummy {f00=0x000d, f01=0x0190, f02=» ; g " D h " D h " D h & " D h 4 " D h B " D h P " D h ^ " D h l " D h z " = h " > h " ? h " @ h " A h " B h " C h ( h h
0x02ae7c…02b010 Dummy {f00=0x000d, f01=0x0190, f02=» h & i & I/O-ERROR i ( i 4 i @ & i P & FUNCTION NOT ALLOWED i ^ ( i i & i & ! & COMPULSORY FIELD NOT FILLED i ( i i & i & ILLE
0x02b010…02b1a4 Dummy {f00=0x000d, f01=0x018e, f02=»ALREADY DEFINED/EXECUTED i ( j j , & j < & NOT FOUNDE j J ( j b j n & j ~ & NO DISC SPACEE j ( j j & j IN USEP j $ O j ( j
0x02b1a4…02b338 Dummy {f00=0x000d, f01=0x0190, f02=» j ! k & k ( $ &" MAXIMUM RECORD-LENGTH EXCEEDED k & ( k R k ^ & k n & NO RECORD FOUNDL k | ( k $ k & k , ' &% !MAXIMUM NUMBER OF FIELDS EXCEEDED k ( k
0x02b338…02b4cc Dummy {f00=0x000d, f01=0x0190, f02=» SYMBOLIC k $ R l & l " FORMAT l 0 $ R l F & : l V & : l d & l r , ' &% ! DOES NOT EXIST IN JOB-DEFINITION l & D l & OR ON SYSTEM-DISC l ( l ? l & l
0x02b4cc…02b660 Dummy {f00=0x000d, f01=0x0190, f02=» & : l & m & : m TTTT9S m * " O m @ & z O m P & : m ` & n m n & : m | & m & : m TTTT9S m " gO m & O m & : m & ASD m & 5 m
0x02b660…02b7f4 (1, 54) Dummy {f00=0x000e, f01=0x0190, f02=»RORD m v ( n n & n ( & USERFILE ASSIGN-ERRORO n 6 ( n Z n f & n v & DISC I/O-ERROR n & : n XXXXX- n " I n ( n n & n & DISC
0x02b7f4…02b988 Dummy {f00=0x000e, f01=0x0190, f02=» IN USEO n $ "I o ( o " # o . & o > $ VALUE-SETE o L $ $I o f & : o v & o % IN USEE o $ %I o ( o & o & o ' JOBN o $ 'I o
0x02b988…02bb1c Dummy {f00=0x000e, f01=0x0190, f02=» *I o & : p & l p & IN p ( + JOBN p : $ +I p N & : p ^ & k p l , IN USEO p z $ ,I p ( p - p & p ( # &! DEFINED LINE MAXIMUM EXCEEDEDT p ( p
0x02bb1c…02bcb0 Dummy {f00=0x000e, f01=0x018e, f02=»ONFIRM p | ( q 0 4 q & q * 1 FORMAT q 8 $ 1R q N & : q ^ & m q l & : q z 4 / &- )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) q ( q 2 q & ) q & ILLEGAL FORMAT NAMET q
0x02bcb0…02be44 Dummy {f00=0x000e, f01=0x0190, f02=» ( r 5 r & TEST ENTERED BATCH r ( r @ 6 r L & r $ & OUTPUT DEVICE NOT OPERABLE r j ( r 7 / r & r 6 2 &0 ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES r ( r 8
0x02be44…02bfd8 Dummy {f00=0x000e, f01=0x0190, f02=»THIN FORMAT: r j & m s & . s " & SIZE ON DISC:R s 0 : TTT9 s L " : I s ` & . s p ( s ~ ; ? s & . s ( # &! WARNING:REFERENCE TO FIELD (F s < XXXN s " < A s & ! & ) OUTSIDE
0x02bfd8…02c16c Dummy {f00=0x000e, f01=0x0190, f02=» > s & ( t & 95 % OF FILESPACE USED t ( t @ ? t L & t & CDV-ERRORI t j ( t @ t & t & DATE ERROR t ( t A t & t & TIME-OUT t (
0x02c16c…02c300 Dummy {f00=0x000e, f01=0x0190, f02=»TTEO t ~ ( u D u & u ( " & THIS IS A DUMMY MESSAGEN u 6 ( u u h F u x 3 u u ) ? u + u : + u J F " D !1X F P Q LU80X 88 R*j !!
0x02c300…02c494 (1, 55) Dummy {f00=0x000e, f01=0x018e, f02=» u Q v T v X v ( Z F v 8 _ v H f v X r v h v v x J F " D @ 1X FW % L "1X F 0XW 1X F !0X R! 6 W"0X 0R $( v v v v
0x02c494…02c628 Dummy {f00=0x000e, f01=0x4090, f02=» v w F w & o w ( & w 6 ( w D & " 6 4 Am4 0X 0X 4 w P w z@ w X FW % L "1X F 0XW 1X F !0X R! 6 W"0X 0R $( v v v v
0x02c628…02c7bc Dummy {f00=0x000e, f01=0x0190, f02=» @ H IDENT DERECS TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 x DERECS DEREFO x H $$$TRAR x b DERECS DEREFO w x t @ < ATTDB ATTWB DEDISC. DEPOOL- DEREC21 MSKOUTL OFRSP RESTOR1 x 4 0 T:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL x
0x02c7bc…02c950 Dummy {f00=0x000e, f01=0x0190, f02=» / x y 40 y J F " D 0R $}j *!! x0R @l 2 RRRRRRR?Rj x! ! wx xyj &"x !gLe x y" e y 0 J0 $ y ~ O y ` y J F " D @@ TW( ' )gL @l?Rj xy wj x! { W< R.V xwj &"w W j ! " "Hn ' wx y y
0x02c950…02cae4 Dummy {f00=0x000e, f01=0x0190, f02=» $* p!0X 0R x*6 VVVVOVOVV V "!H '0R **P I %!@ A W I y z J 50 z Z 7 z l J F " D " W %!T A @ 0R *,T H $!A W I $!T @ " , , gL0R #g !! z | G z M z _0 z t z
0x02cae4…02cc78 Dummy {f00=0x000e, f01=0x0190, f02=» z { @ { { , J F " D ! 7 R ZH_ j " "jx " &"x* ( L R Zf_q R1Zm u ?R !u R(R j " { < N { J F " D " j &"x u !?R ! _ j " & wx x 'jy " xy x u$x Aj " $( { ! { {
0x02cc78…02ce0c Dummy {f00=0x000e, f01=0x0190, f02=» { p0 w | u0 w | z0 w | . J F " D @ gL #gYuP W j ! x0R , + & # ( #L_ !gL #LWl x | @ | 0 L | 6 | P | | J F " D !?RI W!gLSj " $(wx WW ! wb &
0x02ce0c…02cfa0 Dummy {f00=0x000e, f01=0x0190, f02=» " D "u u j $" x*j &"x ( m ?RAn?R L R :R?R,wx W x* WY uj " "( | } N } ^ } n J F " D ?Rj " &( * % 1W 0 R :Rj " & *1 1 W u ! u ! u ! } ~ B ! } D } G } v }
0x02cfa0…02d134 (1, 56) Dummy {f00=0x000e, f01=0x0190, f02=» } ~ # ~ r ~ . k ~ > ~ N ~ ^ ~ n J F " D ( % _ ' xw gL # ( ( #g?R g "b & AlW '2 RRRRRRR R :R ~ ~ ~ B ~ ~ 0 ~
0x02d134…02d2c8 Dummy {f00=0x000e, f01=0x0190, f02=» ! Hl " * W 2?RIl * (m Hl . W H ?R?R Ub & ~ H0 J ^ o B l q | r t y J F " D @$ ' )gL *W ( W R*PE - { ) ?R1XF0X ! 0X({
0x02d2c8…02d45c Dummy {f00=0x000e, f01=0x0190, f02=»0 x w e 6 , J F " D nmW *W * n An xIl j ! { W . ( ' !gL j x) w R<R? < w e " 6 $ ' ` )
0x02d45c…02d5f0 Dummy {f00=0x000e, f01=0x0190, f02=» ?R R <R0R@vP C 8R?R ' ( % 2 R j F ( H 8 L H D X b h h x q ` s v y J F " D @RRRC 8R0R@v<R "!_y # "=R g " R&| R&z )?R R ?R ' xj
0x02d5f0…02d784 Dummy {f00=0x000e, f01=0x4062, f02=»@ O & U ( " " ( y !!4 L 4 y & L@ ^ X b h h x q ` s v y J F " D @RRRC 8R0R@v<R "!_y # "=R g " R&| R&z )?R R ?R ' xj
0x02d784…02d918 Dummy {f00=0x000e, f01=0x0190, f02=» @ H IDENT DEREC2 TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEOPBC DEREC2 H $$$TRAR b DEOPBC DEREC2 7 t B > ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT B > DERECS DEREFOC DERROR EMPTYT OPCL RESTOR
0x02d918…02daac Dummy {f00=0x000e, f01=0x0190, f02=» . L ` x
0x02daac…02dc40 Dummy {f00=0x000e, f01=0x0190, f02=» , < " L % n " ~ " * ? J F " D 2 RR0R@vP LW2 R+P 0R@vP'A T# R*K kU lU R5P7 # k
0x02dc40…02ddd4 (1, 57) Dummy {f00=0x000e, f01=0x0190, f02=» x ~ " J F " D @@v $W R&z R&| R&{ 0R@v_U R&z R&| R&{ 0R $} L . | 0 & $ J F " D R ^
0x02ddd4…02df68 Dummy {f00=0x000e, f01=0x0190, f02=» . > P $ ` p J F " D R'K R #L R$T R-_ R#_-@ P 0R $}A L R W Ay@m 4 @ 0R 0R $
0x02df68…02e0fc Dummy {f00=0x000e, f01=0x0190, f02=» > 9 J F " D } R2V RK@y@z@oA # R&{ R&z R&| Rh Ae0R 0} 4 2 RRRRR n q J l J F " D @ uf xyj " & yj &" * 7W (u ! j ! " " 1 R :R "!H $! g | E E E
0x02e0fc…02e290 Dummy {f00=0x000e, f01=0x0190, f02=» J ! * J : J F " D $" 7 R :RW R.:R uf *y x *j &" _* u L R :Rj "" J J ! J ( E -
0x02e290…02e424 Dummy {f00=0x000e, f01=0x018e, f02=» l J q x ( | 8 J F " D @( % W ( % # 0R@vP (z Ub &k R"V 0X " ?RI + R#P R 0R@v0X # H " % / " E J F
0x02e424…02e5b8 Dummy {f00=0x000e, f01=0x0190, f02=» E * & : " J J F " D l W H R&P$?R R'T j " &( * )?R Lb %f #j?R0R |"-0R 0R@vP Z E E 4 ! < " J F " D I N?R( % #@H A ?R(
0x02e5b8…02e74c Dummy {f00=0x000e, f01=0x0190, f02=»P A WB0R@vT ( ' $W3 $W I K @ 0R 0R $} R2TmH z ! 8 J Z " j z J F " D 7 Uj &"* W L R TT0R z , { 0R@vT % 4 * R*T4 m 4W m "
0x02e74c…02e8e0 Dummy {f00=0x000e, f01=0x40da, f02=» " # ( - 8 0 H J F " D # W R&| 0X ' 0R@vT R&z @ P R$0R $} W xyj &" X @x x* !!4 ! 4 O @ "
0x02e8e0…02ea74 (1, 58) Dummy {f00=0x000f, f01=0x0190, f02=» @ H IDENT DEFDSC TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEFDSC H $$$TRAF Z DEFDSC l D @ ATTPRTF CANCT DEAPPL DEATTF DEFGTC1 DELOCK1 DEPOOL0 DERROR B > DESTAT DETPRT DEUNPF DEUNPL EMPTYT FDIR hFNLhFSL MASK
0x02ea74…02ec08 Dummy {f00=0x000f, f01=0x0190, f02=»:TFWD V . * T:THOMN T:UPDFT T:XSTAT UPDBOLT VGACNTT @ d $
0x02ec08…02ed9c Dummy {f00=0x000f, f01=0x0190, f02=» J & ' , 3 < J F " D Ii " !W ! 0R R" P RK !, ! ?RIj { j L P F X J F " D @1! !j 2! !Hj Lj !&m R$ r"Ii' U ! ( j !! ( ) x.
0x02ed9c…02ef30 Dummy {f00=0x000f, f01=0x018e, f02=» J ( ( ( 4 8 H 8 X J F " D !U 'U U & Ii ( R In 0X ! W 0X ! @n ! Ij 0X :R0X h 2 ( ' $
0x02ef30…02f0c4 Dummy {f00=0x000f, f01=0x018e, f02=» V W ^ , ( ` 8 a H h , X j h k x | : J F " D @ I I Ij& # x 0X KK W20X KK W(0X KK W ! $ 0X K :
0x02f0c4…02f258 Dummy {f00=0x000f, f01=0x018e, f02=» ( 8 H X h x J F " D T W 0X K T R! 2 RRRW "?RI I I I
0x02f258…02f3ec Dummy {f00=0x000f, f01=0x0190, f02=» J F " D RR !0X / R2 RRRRW$0X Am6 ! bC I .4 ?R F f B v @ D " 4 0 6 : > 0 @ J F "
0x02f3ec…02f580 Dummy {f00=0x000f, f01=0x018e, f02=» O S T $ U 4 W : D Y T ` * d i 2 t u { > J F " D @F !0X R?R RK2 RRR?R RW #0X T %y0X %%_ W}?R( 0XW 6
0x02f580…02f714 (1, 59) Dummy {f00=0x000f, f01=0x0190, f02=» $ J F " D !0X ( 1X F?R0X K ?RHi He 0R ( #0R T R ,I R ! R $ r 8 : H "
0x02f714…02f8a8 Dummy {f00=0x000f, f01=0x0190, f02=» ?R 0^ $ % 0X 0R <R RK2 RRRR?R R2 r 0 4 @ ( P : ` p 1 1 ! " #
0x02f8a8…02fa3c Dummy {f00=0x000f, f01=0x0190, f02=» , - l . / 0 0 @ 1 P 5 ` 6 p 7 8 9 1 : 1 ; < = > ?
0x02fa3c…02fbd0 Dummy {f00=0x000f, f01=0x0190, f02=» H I J J F " D RR #?R0X 0X ?R $ 2 RRRRRRRRRRRRRRRRRRRRRRRR2 RRRRRRRRRRR 0 L 2 ~ Q $ Y c ( k m 2 t $ | J F " D @RRRR
0x02fbd0…02fd64 Dummy {f00=0x000f, f01=0x0190, f02=» 2 , J F " D e Kh R( ! u!0X #'@ @ @ R( ?R@ R( !"_cA $?R0X && < 2 $ J F " D Ru! !eJh ?R0X &&A % Ad@ @ #?RA @ R
0x02fd64…02fef8 Dummy {f00=0x000f, f01=0x40c6, f02=» & & & ( 4 @ & 1 P ( ` @ < : .He @h Ru!Kh R( ! Ru! R du Rd ! _3 $?R $?R l 6 @ $ J F " D Ru! !eJh ?R0X &&A % Ad@ @ #?RA @ R
0x02fef8…03008c Dummy {f00=0x000f, f01=0x0190, f02=» @ H IDENT DEACCU TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEACC SETERR H $$$TRAA ` DEACC SETERR r > : ADJUSTA CMPINDA DENVAL EMPTYTF GETACC GETFWD. MSKOUT- & "
0x03008c…030220 Dummy {f00=0x000f, f01=0x0190, f02=» @ b z
0x030220…0303b4 (1, 60) Dummy {f00=0x000f, f01=0x0190, f02=» / 5 : J F " D @l L H KAd6 @d !0R 0R R40R ! T&Hl 0R 0R @l0R T W 0 G ~ M R s MDA J F " D @ 0Al0R 0R X/ R"_B 4 ! ! + Lh # !T}6
0x0303b4…030548 Dummy {f00=0x000f, f01=0x018e, f02=» J F " D "90R !T2@e@i@k !" ? 'hZ 2 !TS &6 R" 0 R n J F " D _ Ai_8Ae_<" y LWsAkW !j !! ( ~ !~W)j !! C ? E J F " D @F L0R U !b
0x030548…0306dc Dummy {f00=0x000f, f01=0x405c, f02=» > : 8 W R#Ik ! 9R 3hZ ! ! ?R6 PW LW L4 F@ X R" 0 R n J F " D _ Ai_8Ae_<" y LWsAkW !j !! ( ~ !~W)j !! C ? E J F " D @F L0R U !b
0x0306dc…030870 Dummy {f00=0x000f, f01=0x0190, f02=» @ H IDENT DEGENE TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEGEN H $$$TRAG X DEGEN j > : ADJUSTG CMPINDA DENVAL EMPTYTF GETFWD GETGEN. MSKOUT- | > : T:ERAS T:GETA T:GETC T:GETF T:SETC T:TSTC T:UPDF TYPET
0x030870…030a04 Dummy {f00=0x000f, f01=0x0190, f02=» 2 J ^
0x030a04…030b98 Dummy {f00=0x000f, f01=0x0190, f02=»* " " " * " 8 ( F R & b ( r ~ & ( " +TTTTTTTTTTTTTTTTTTTT9 " ! (
0x030b98…030d2c Dummy {f00=0x000f, f01=0x0190, f02=» + } 1 7 J F " D L@d@g0X 0XW0 Ad0R 0R R Ag0R ! P R"Hd 0R 0R 4 , V DUFM z n J F " D @! ! @ Lh $ !6 ++ W) R"@|Tyj !! ! j ! ?
0x030d2c…030ec0 Dummy {f00=0x000f, f01=0x0190, f02=» !UF+-*:;AS ^ ^ * : J Z j z ^ ^ } J F " D i ! 9R Lh * !TY2 RRRRRRRRRW R"_ ! _ A
0x030ec0…031054 (1, 61) Dummy {f00=0x000f, f01=0x0190, f02=» ? I x J F " D @!! L0R !b ! WY U !j !! 6 & ) 0R ! * x J F " D W30R !P(_ 0R ! $W ( 0R # W a F " Hi b
0x031054…0311e8 Dummy {f00=0x000f, f01=0x0190, f02=» m F " 0 V G $ 4 D T ! d . t : J F " D R !<R ?R( 0R 0R 0X 0X TJ U m F ! P Q 0X , F 0!
0x0311e8…03137c Dummy {f00=0x000f, f01=0x404c, f02=» 0 PW LW L4 6@ H D T ! d . t : J F " D R !<R ?R( 0R 0R 0X 0X TJ U m F ! P Q 0X , F 0!
0x03137c…031510 Dummy {f00=0x000f, f01=0x40aa, f02=» @ H IDENT DEAPPU TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DEAPPU H $$$TRAA Z DEAPPU l 4 P EA @ CLR,KEP,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C
0x031510…0316a4 Dummy {f00=0x000f, f01=0x418a, f02=» @ H IDENT DECOMP TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DECOMP H $$$TRAC Z DECOMP l , ( CDV10 CDV110T CDV111 DDMMCK MMDDCK1 1 7 =
0x0316a4…031838 Dummy {f00=0x000f, f01=0x0190, f02=» @ H IDENT DELOCK TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DELOCK H $$$TRAL Z DELOCK l , ( CLEARBL MSKOUTA SETB UPDBIN UPDBOL1 . ; ? J F " D c b"R b! b
0x031838…0319cc Dummy {f00=0x000f, f01=0x4010, f02=» n @ K TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DELOCK H $$$TRAL Z DELOCK l , ( CLEARBL MSKOUTA SETB UPDBIN UPDBOL1 . ; ? J F " D c b"R b! b
0x0319cc…031b60 Dummy {f00=0x000f, f01=0x0190, f02=» @ H IDENT DESTAT TRA 10.0 - - F1 O1111 REL 10.0 80-04-11 DESTAT DESTAU H $$$TRAS b DESTAT DESTAU t TESTB UPDBINT & "
0x031b60…031cf4 (1, 62) Dummy {f00=0x0010, f01=0x0190, f02=» < T n
0x031cf4…031e88 Dummy {f00=0x0010, f01=0x4064, f02=»z 0R R 34 U j ! !0R P b ![ x @! ! ( 4 6 J N@ ` T n
0x031e88…03201c Dummy {f00=0x0010, f01=0x0190, f02=» > F IDENT ASSRUT REL 10.0 80-04-11 H D ! ATTWB ATTDB SAVEY RESTOR GETFREA SETFREA SETOCC CHANFC` GETVOL F J F " UPDBOLN UPDBIN SETBY TESTB CLEARB MSKOUTL RCNTRL0 WCNTRL GETVAL F B GETACC GETGEN GETDUPB ATTBUF FORCE
0x03201c…0321b0 Dummy {f00=0x0010, f01=0x018e, f02=» & &9B ATTDB $ CHANFC` $ 6 T:FDSP J SAVEY 6 , ( @ %W _ F C W n RESTOR L , ( 7 ( = W GETFREA n , ( W" _ &
0x0321b0…032344 Dummy {f00=0x0010, f01=0x0190, f02=» SETFREA , ( ) ' , ( & X X X* T Z0 L , ( I R < _ <h =_H ^L | SETOCC UPDBOLN UPDBIN , ( _ _R & G _d
0x032344…0324d8 Dummy {f00=0x0010, f01=0x018e, f02=»ARB , ( c P _v _| V V Q W TESTB > GETVOL P , ( _< _B d , ( C ( B T B , ( " $ ' Y ' , ( _
0x0324d8…03266c Dummy {f00=0x0010, f01=0x0190, f02=» f , ( ) 9h9G & C 9b! 8 #_h B " ' " WCNTRL b 8 MSKOUTL f L , ( I "? 99g! ":e" B =_ _f ` ATTBUF v , ( i & 9_ @ # FORCED~ , ( @ C _ #0
0x03266c…032800 Dummy {f00=0x0010, f01=0x0190, f02=» T l , ( _. W P 8 _> , ( " < , ( P 8# ' Y = # l GETACC < GETGEN @ GETDUPB D GETIND H , ( 3 x _ _ _ _
0x032800…032994 (1, 63) Dummy {f00=0x0010, f01=0x0190, f02=» ]8 Z YB_J W , ( A & C & C ( , ( & C C ( B X X CLOSEF OPENF * & _ W & Y < * C _& , (
0x032994…032b28 Dummy {f00=0x0010, f01=0x0190, f02=» 3 ( B +_ @ P V , ( Q E $ E & E ( E 0 E , Y 0 GETFWD ~ ` T:GRFC t , ( q H E . X , ( ' X P &V Y , X T:GETF( ADJUST
0x032b28…032cbc Dummy {f00=0x0010, f01=0x4092, f02=» -R AP T H D ! aR cP uV WR T !P P P W P& P P P T W P P }W W P V |@ E . X , ( ' X P &V Y , X T:GETF( ADJUST
0x032cbc…032e50 Dummy {f00=0x0010, f01=0x0190, f02=» > F IDENT CDVRUT REL 10.0 80-04-11 CDV10 CDV110 CDV111 F CDV110 f CDV111 z CDV10 I:EVA0 , ( W _ P T , ( !00R !99Q $ Y T U
0x032e50…032fe4 Dummy {f00=0x0010, f01=0x4036, f02=» 7T ;U EU ST WP ]P | t @ 20-04-11 CDV10 CDV110 CDV111 F CDV110 f CDV111 z CDV10 I:EVA0 , ( W _ P T , ( !00R !99Q $ Y T U
0x032fe4…033178 Dummy {f00=0x0010, f01=0x0190, f02=» > F IDENT DATCHK REL 10.0 80-04-11 DATCHKK DDMMCK MMDDCK F DATCHKK h MMDDCK | I:EVA0 , ( " P , ( P V V V I:R
0x033178…03330c Dummy {f00=0x0010, f01=0x4062, f02=»! : 0 , J P % J )P /V 3 7V M b W b eT L@ ^ F DATCHKK h MMDDCK | I:EVA0 , ( " P , ( P V V V I:R
0x03330c…0334a0 Dummy {f00=0x0010, f01=0x0190, f02=» D F IDENT CTAB01 80-08-20 E.V. DATA ENTRY CTAB01K CTAB02 L CTAB02 f CTAB01K z , ( 0123 , ( ! 456789 , ( A ' < +,-. 012345
0x0334a0…033634 (1, 64) Dummy {f00=0x0010, f01=0x4054, f02=»nopqrstuvwxyz{|}^ ~ < | | | >@ P1K CTAB02 L CTAB02 f CTAB01K z , ( 0123 , ( ! 456789 , ( A ' < +,-. 012345
0x033634…0337c8 Dummy {f00=0x0010, f01=0x2008, f02=» L = KMD21 DATE = 80 08 19 1216PACK NBR = 0021
0x0337c8…03395c Dummy {f00=0x0010, f01=0x0190, f02=»ING THE VALUE TO BE MASKED ~ P* " PMSKOUT EQU * , P CALL I:EVA0 ADDRESS TO MASK @ P LDR A6,A9 d P CALL I:EVA0 ADDRESS TO BIN v $ P LDR* A1,A9 GET CONTENTS OF BIN * P ANRS A1,A6 LOGICAL AND WITH MASK AND P STORE RESULT IN MASK
0x03395c…033af0 Dummy {f00=0x0010, f01=0x018e, f02=» PRDSECT EQU * P CALL T:FDSP P CALL I:EVA0 , P LDR* A1,A9 @ P CM 10,A8 T $ P ST A1,12,A8 STORE SECTOR NUMBER f PRDS100 LDKL A1,410 & P ST A1,4,A8 STORE REQUESTED LENGTH P CALL I:EVA0 $ P ST A9,2,A8 STORE BUFFER ADRESS
0x033af0…033c84 Dummy {f00=0x0010, f01=0x0190, f02=» | P LKM P DATA 1 PRET1 ABL I:RT1 $ EJECT : 4 1* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF H 6 1* FREE RECORD COUNTER. THIS IS ONLY DONE * %* IF CURRENT RECORD WAS BUSY 6 1* SYNTAX: CALL SETFRE,BPOOL(IND
0x033c84…033e18 Dummy {f00=0x0010, f01=0x0190, f02=» INDICATE SETFRE SET EQU * CALL GETPAR * LDR A6,A9 COPY ADDRESS > ( $ CALL I:EVA0 GET ADDRESS TO REC. NO. ^ LDR A2,A7 COPY A7 LDR* A3,A9 GET INDEX LC A1,17,A6 ECR A1,A1 ( $ LC A1,18,A6 GET START RECORD NU
0x033e18…033fac Dummy {f00=0x0010, f01=0x0190, f02=»R v LDR A10,A10 RF(NZ) TEST0 IF SET0CC " * SETFRE: TEST IF ALREADY FREE > TEST1 LDR A4,A4 d P RB(N) RET1 IF ALREADY FREE | " ORKL A4,/8000 SET RECORD FREE LDK A1,1 INDICATE INCREMENT . *TES100 ADS A1,-2,A2 IN-/DE-CRE
0x033fac…034140 Dummy {f00=0x0010, f01=0x0190, f02=» TO RIGHTMOST BYTE | " SCR A4,A7 STORE UPDATED BYTE P RB RET1 @ * P & "* SETOCC: TEST IF ALREADY OCCUPIED Z TEST0 EQU * LDR A4,A4 $ P RB(NN) RET1 IF ALREADY OCCUPIED * % SUK A1,1 A1 = -1; INDICATE DECREMENT $ ANKL A4
0x034140…0342d4 (1, 65) Dummy {f00=0x0010, f01=0x0190, f02=»IED AND DECREMENT NUMBER OF ~ 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD $ * IS FREE ` 6 2* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB r : 6* NUMB = CURRENT RECORD NUMBER (= 0 AS OUTPUT IF : 5*
0x0342d4…034468 Dummy {f00=0x0010, f01=0x0190, f02=» TO CRVOL * z P* PVOLNAM EQU * P LDK A1,0 2 P RTN A14 D P EJECT T P* b 0 P* ATTACH A STRING VARIABLE AS WORKBLOCK TO l P* THE TERMINAL CONTROL AREA 0 P* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK , P* STRG= STRI
0x034468…0345fc Dummy {f00=0x0010, f01=0x0190, f02=»N ITEM HOLDING BLOCK NUMBER WITHIN T:A P* . ATTWB EQU * 8 P LDKL A10,2 INDICATE WB L PATT EQU * l " CALL I:EVA0 ADDRESS TO NEW WB ~ LDR A7,A9 SAVE ADDRESS " P CALL I:EVA0 GET DISPLACEMENT P ADR* A7,A9 & ! CALL I:EV
0x0345fc…034790 Dummy {f00=0x0010, f01=0x0190, f02=»TO WB OR DB x PATT100 EQU * ! & P STR A7,A1 STORE NEW WB/DB-ADDRESS ! ( P RB RET1 ! R P EJECT ! b P* ! p 0 P* SAVE POINTERS TO DB:S/WB:S IN STRING ITEM ! z , P* SYNTAX: CALL SAVE,DISPL,LENGTH,STRG ! 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT R
0x034790…034924 Dummy {f00=0x0010, f01=0x0190, f02=»G= STRING VARIABLE TO STORE THE SAVED POINTERS IN ! P* " : PSAVE EQU * " D P CALL GETP GET PARAMETERS " V PSAV100 EQU * " x P ADR A2,A7 " P ADR A7,A9 " PSAV200 EQU * " P LCR A1,A2 " P SCR A1,A7 " P ADK A2,1 " P ADK A7,1 "
0x034924…034ab8 Dummy {f00=0x0010, f01=0x0190, f02=»T:A (TERMINAL CONTROL AREA) " 0 P* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG # $ > P* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINTER # X * P* LENGTH= NUMBER OF BYTES TO RESTORE # : P* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED # P*
0x034ab8…034c4c Dummy {f00=0x0010, f01=0x0190, f02=»O RESTORE # ~ P* $ ( P* GET PARAMETERS FOR SAVE/RESTORE $ P* $ H PGETP EQU * $ R P CALL I:EVA0 $ d " P LDR* A7,A9 START DISPLACEMENT $ x P CALL I:EVA0 $ P LDR* A6,A9 GET LENGTH $ P CALL I:EVA0 $ P LDK A2,40 $ , P ADR A2,A13 GET AD
0x034c4c…034de0 Dummy {f00=0x0010, f01=0x0190, f02=»* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION $ P* % B : P* ITEM(W1) = CURRENT ITEM % L F P* LENGTH = BIN HOLDING ITEM LENGTH % D P* DIMENSION = BIN HOLDIN
0x034de0…034f74 (1, 66) Dummy {f00=0x0011, f01=0x0190, f02=»RESS TO ITEM % 4 P LD A10,I:EVA0-2 READ DIMENSION STORED BYE I:EVA & P LDR A7,A5 COPY END ADDRESS & L $ P SUR A7,A9 CALCULATE ITEM LENGTH & p ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM & P STR A7,A9 STORE LENGTH & & P CALL I:EVA0 ADDRESS TO DIMENSION &
0x034f74…035108 Dummy {f00=0x0011, f01=0x0190, f02=»NSION OF INDEXED ITEM & l P* ' : P* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) ' ( P* ' f B P* OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM ' p B P* CR = 1 IF INDEX>MAX. INDEX OF ITEM ' D P*
0x035108…03529c Dummy {f00=0x0011, f01=0x0190, f02=» P LDR* A6,A9 SAVE INDEX VALUE ( 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM ( ( P LDR A6,A6 ( ^ P RF(NP) LESS ( p * P CW A6,I:EVA0-2 COMPARE WITH DIMENSION ( P RF(G) GREAT ( P* ( PEQUAL EQU * ( PUT150 EQU * ( P LDK A1,0 INDICA
0x03529c…035430 Dummy {f00=0x0011, f01=0x0190, f02=» CR = 1 ( ~ " P RB UT200 STORE CR AND RETURN ) PLESS EQU * ) 6 P LDK A1,2 ) H P RB UT200 ) Z P EJECT ) l P* ) z 2 P* CALL WRITDK,DSET,FILECODE,BUF,LEN,RECNO ) P* ) . P* DSET EVENT CONTROL BLOCK ) & P* FILEC
0x035430…0355c4 Dummy {f00=0x0011, f01=0x0190, f02=»LATIV SECTOR NO WITHIN THE FILE ) v P* * ( PWRITDK EQU * * 2 P LDKL A11,/95 ORDER CODE * F P RF READ00 * f P EJECT * x P* * 2 P* CALL READDK,DSET,FILECODE,BUF,LEN,RECNO * P* * . P* DSET EVENT CONTROL BLOCK * & P*
0x0355c4…035758 Dummy {f00=0x0011, f01=0x0190, f02=»ECNO RELATIVE SECTOR NO WITHIN THE FILE * P* + 4 PREADDK EQU * + > P LDKL A11,/91 ORDER CODE + R PREAD00 EQU * + r ( P CALL T:FDSP GET DSET ADDRESS TO A8 + 6 P* GET PARAMETERS FROM PARAMETER LIST AND STORE + P* THEM IN DSET + P C
0x035758…0358ec Dummy {f00=0x0011, f01=0x0190, f02=»ECORD LENGTH + P LDR A6,A9 , P ST A6,4,A8 , & P CALL I:EVA0 RECORD NO , : P LDR A6,A9 , X P ST A6,12,A8 , j P XRR A6,A6 , ~ P ST A6,10,A8 , P LDR A7,A11 , PREAD20 EQU * , P* A7 ORDER CODE , P* A8 DSET ADDRESS ,
0x0358ec…035a80 Dummy {f00=0x0011, f01=0x0190, f02=»OND CODE TO 0 ,OK , ~ P ANKL A6,/2000 - * P RB(NZ) GREAT SET COND CODE TO 1 ,EOF - 0 & P RB LESS SET COND CODE TO 2 ,ERROR - ^ P* - P EJECT - P* - & P* CALL CLOSEF,DSET,FILECODE - P* - 0 P* DSET EVENT CONTROL BLOC
0x035a80…035c14 (1, 67) Dummy {f00=0x0011, f01=0x0190, f02=»EVA0 GET FILE CODE AND STORE IT IN DSET - P LDR A6,A9 . 0 P SC A6,1,A8 . B P LDK A7,/A2 LOAD ORDER CODE . V P RB READ20 . z P EJECT . P* . 4 P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME . P* . 0 P* DSET EVENT CON
0x035c14…035da8 Dummy {f00=0x0011, f01=0x0190, f02=» FILE NAME . | ( P* VOLUME VOLUME NAME / P* / B POPENF EQU * / L ( P CALL T:FDSP GET DSET ADDRESS TO A8 / ` * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE / P LDR A1,A9 / 4 P CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) / ( P ADK
0x035da8…035f3c Dummy {f00=0x0011, f01=0x0190, f02=»T / l " P LDK A6,80 NO OF BYTES IN FPB 0 P LDR A2,A9 ADDRESS TO FPB 0 0 POPEN00 EQU * 0 R P CMR A2 STORE ZERO IN FPB 0 f P ADK A2,2 INCREACE ADDRESS 0 P SUK A6,2 0 P RB(NZ) OPEN00 0 P* 0 , P* GET FILE NAME AND STORE IT IN FPB 0
0x035f3c…0360d0 Dummy {f00=0x0011, f01=0x0190, f02=»LE NAME 0 v POPEN20 EQU * 1 P LCR A6,A9 GET ON CHAR 1 $ $ P SCR A6,A3 STORE ONE CHAR IN FPB 1 B P ADKL A9,1 1 j P ADK A3,1 1 | P SUK A4,1 1 P RB(NZ) OPEN20 1 P* 1 , P* GET VOLUME NAME AND STORE IT IN FPB 1 P CALL I:EVA0 1 & P ADK
0x0360d0…036264 Dummy {f00=0x0011, f01=0x4130, f02=» ONE CHAR IN FPB 1 P ADKL A9,1 2 P ADK A3,1 2 * P SUK A4,1 2 < P RB(NZ) OPEN40 2 N P LDK A7,/A1 LOAD ORDER CODE 2 d P LKM 2 P DATA 15 2 , P* STORE FILE CODE IN FILE CODE BUFFER 2 P LC A6,1,A8 2 P STR A6,A1 2 " P RB READ40 CHE
0x036264…0363f8 Dummy {f00=0x0011, f01=0x2008, f02=» 3 SUKL A14,4 LDR A12,A6 CF A14,CRV 2 ADKL A14,4 F LD A13,-2,A14 Z LDR* A12,A14 p LDR A6,A1 SAVE RETURN CODE $ CF I:EVA0 GET ADRESS TO RETCOD STR A6,A9 ABL I:RT1 END @ RE
0x0363f8…03658c Dummy {f00=0x0011, f01=0x0190, f02=»P._6 & Q 9d! )0 + P 7 Y Z $ _ : V ) 0 p !0 p " TV *V &V : V S W P 9 S W _ V P W T V E + : & 6 p [ [ [ [ $ [ [ >h [ [ g b g
0x03658c…036720 Dummy {f00=0x0011, f01=0x0190, f02=»! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : 0 p !0 p " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V &
0x036720…0368b4 (1, 68) Dummy {f00=0x0095, f01=0x40da, f02=» @ H IDENT D:CB10 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 D:CB10 H D:CB10C Z * & 6 n $ 6 @
0x0368b4…036a48 Dummy {f00=0x0095, f01=0x40dc, f02=» @ H IDENT C:CB20 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 C:CB20 H C:CB20C Z * & n $ $ @
0x036a48…036bdc Dummy {f00=0x0095, f01=0x40f6, f02=» @ H IDENT D:CB20 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 D:CB20 H D:CB20C Z * & B n * & = B @
0x036bdc…036d70 Dummy {f00=0x0095, f01=0x40f0, f02=» @ H IDENT C:CB30 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 C:CB30 H C:CB30C Z * & n & " 8 8 @
0x036d70…036f04 Dummy {f00=0x0095, f01=0x40fa, f02=» @ H IDENT D:CB30 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 D:CB30 H D:CB30C Z * & F n * & = F @
0x036f04…037098 Dummy {f00=0x0095, f01=0x0190, f02=» @ H IDENT C:CB40 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 C:CB40 H C:CB40C Z * & n * & * & = * & [
0x037098…03722c Dummy {f00=0x0095, f01=0x406c, f02=» TK LP 6 GP 0 DU FD DLU * B V@ h & n * & * & = * & [
0x03722c…0373c0 Dummy {f00=0x0095, f01=0x40f6, f02=» @ H IDENT D:CB40 TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 D:CB40 H D:CB40C Z * & B . n * & D Z p - r ( = B @ & [
0x0373c0…037554 (1, 69) Opaque[0x194]
0x037554…0376e8 # DirEnt {nam=»DEMON «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0230, f03=0x0000}
0x037554…0376e8 IdxSect {
0x037554…0376e8 f00 = 0x0011 // 0x37554 @0x0
0x037554…0376e8 f01 = 0x0012 // 0x37556 @0x2
0x037554…0376e8 gno = [ // 0x37558 @0x4
0x037554…0376e8 [0x00]: C0x0011.0x2.0
0x037554…0376e8 [0x01]: C0x0011.0x3.0
0x037554…0376e8 [0x02]: C0x0012.0x0.0
0x037554…0376e8 [0x03]: C0x0012.0x1.0
0x037554…0376e8 [0x04]: C0x0012.0x2.0
0x037554…0376e8 [0x05]: C0x0012.0x3.0
0x037554…0376e8 [0x06]: C0x0013.0x0.0
0x037554…0376e8 [0x07]: C0x0013.0x1.0
0x037554…0376e8 [0x08]: C0x0013.0x2.0
0x037554…0376e8 ]
0x037554…0376e8 }
0x0376e8…03787c Dummy {f00=0x0011, f01=0x0190, f02=»7 C` 0 f 6 < < c @ ^ z ^ ^ j X H 2 Z i% z
0x03787c…037a10 Dummy {f00=0x0011, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A > ! & ? ? ? ? ? ? ? @! > > U H ( ( P c P WN T P ,$ T T _ A
0x037a10…037ba4 Dummy {f00=0x0011, f01=0x0190, f02=» @! XV ) A! A _b A A ` A! _t A A Q > A ( A Q _ A < Q P Q Z Y _ 8 " Q Z P 0 9 _ x _, _ P H H ? ? ? ? ? ^ A _ _
0x037ba4…037d38 Dummy {f00=0x0011, f01=0x0190, f02=» 4 T - 1_& U T P 0 U _r ? @ T 0 A 1 Q Q >W 0 @ 1 A P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ?
0x037d38…037ecc Dummy {f00=0x0011, f01=0x0190, f02=»P A : > _ #M 1 A A Q _ A < Q P Q Z Y _ 8 Q Z P 0 9 _ _, _ P H H ? ? ? ? ? ^ A _ _
0x037ecc…038060 Dummy {f00=0x0011, f01=0x0190, f02=» $V T " A :( @ X H A ( 1 ) @ H P 1 % E I (@ @ <a D >a H D $! u " C C 6 V P C j U4 B 0 C # C C S j Y ' " C
0x038060…0381f4 (1, 70) Dummy {f00=0x0011, f01=0x0190, f02=» ;h # <c$ " P PR 4 5 T P ? X U X # > PZ PF P P 0 X T Y Wn U U T X^ T E "& Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > "& Z X "X 8' T
0x0381f4…038388 Dummy {f00=0x0011, f01=0x0190, f02=» % E Y HB @ P A # @ 1"78 &3$ Q |P ^ " A B X T " T A 7T B # Y B A P T YF ZJ X T X M A B z H X @ "& z 8 Px X XZ#
0x038388…03851c Dummy {f00=0x0011, f01=0x0190, f02=» B P8 P )@:b P ) :a P :a P X '? R Q )@ 8 8 "" A X T " " P: A f X P 2 W Y @ f T* " ] D W @ :C v_L) @ _ &P _ Y * ;g# + _ Y . _ 2 Y _
0x03851c…0386b0 Dummy {f00=0x0011, f01=0x0190, f02=» ?M P: A PdQ* ? A L @ T M -W ,E A A > > >M A _ A > ;I C X "A _@ A A A A "& # X& &T X T *:EV W X T Y 2:DV X Qx *:EVp W " P Y WD X $ QB R
0x0386b0…038844 Dummy {f00=0x0011, f01=0x0190, f02=» T 8Tt 9Wb B 7P P " A W A @ A.W< A I.9 X R C C j X R C C "& A @ A. X V 9 j X V 9_d @ x B U
0x038844…0389d8 Dummy {f00=0x0011, f01=0x0190, f02=»$ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! < X X ! X P R ?]* U C _. _: ! < ! <" $ P X ( X ]T ! Y h Y _p X X R X
0x0389d8…038b6c Dummy {f00=0x0011, f01=0x0190, f02=»U X Y ( Y B 9a C "" 8 J P: 8 B W0 B W B W B @ T 8 T Y Y Y Y "& Y * ! X *_B B 1 4 X X X X ' 4 B U B $" 4 C 4 _^ x B U
0x038b6c…038d00 Dummy {f00=0x0011, f01=0x0190, f02=» $ P~ Pz Pv Pr P " B ! T 9 Y > ! 9EV0 X > y ! + ! ! T Y > 2 B | ! 9FR D $ B Xp # v B Z H @^ H @Y B Y ! ! Y 8;eT ! 9FR* Y >WP X >Pn Y > ! 9 R ! 9 R Y Y >
0x038d00…038e94 (1, 71) Dummy {f00=0x0012, f01=0x0190, f02=» *W 8 T " T 9_Z B ;e :e Q P 9 4 8 X >" P # ;B 4 X >;C+ W W q r Y @ T ! Q : Y Y "& R Y Y 6 @ T Y ! ! TF Y ! ,! P Y Y Y 6 P X Y '? C @ P( a W
0x038e94…039028 Dummy {f00=0x0012, f01=0x0190, f02=» 4 Y W C X P "& ! ! T 9 Y > ! ! Tr X 6P !v @ TOT2 @ 1T( @ ! # " Q D P R P Q @ X X X Y ! W 4 C C
0x039028…0391bc Dummy {f00=0x0012, f01=0x0190, f02=» 1 ! T V C B Q 1 "& Y @ r t @ B X _" X Z.W A I X ' { B C X 4 !0 9 ! ! T 9 ! X Y X Y 9 X !P T4 A W A
0x0391bc…039350 Dummy {f00=0x0012, f01=0x0190, f02=» ^: Y: Y Y Z B Y V V Y ^ Y X Y X !? P* P P" P ! ! P @ 9W ! ! P6 P 4 ! # T X Y J ! _ # 6 4 ! # & X Y J_0 W Y T Y P Y R Y D @ T4B S4W. Y Z 8! T X ^ Y Z X X C X
0x039350…0394e4 Dummy {f00=0x0012, f01=0x0190, f02=» ! # P W ! 9 ! X ^< Y Y B Y X LP 1 Y L 0 Y N 1 0B. X J P Y : ! & ! X # P Y J:A , X N A Y N @ B. Y Y F X Y C '? X Y _ A <(@ X P X R K P0 @ T X TT $C Y B "&K
0x0394e4…039678 Dummy {f00=0x0012, f01=0x0190, f02=» ^: X V X X 4 6 ! # T 6 X BT !v 4 A ;D A 4 , ( H 0 ) $P $ ) U @ C W 0P P X T C
0x039678…03980c Dummy {f00=0x0012, f01=0x0190, f02=»T X P 4 Y C C 8W T 8P Y ^ 5 ) P U "& XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P
0x03980c…0399a0 Dummy {f00=0x0012, f01=0x0190, f02=» D P ( ) 1 H _( X (@ X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0P 1 _ 2W Y H T "& ( _ " ^ 4 _
0x0399a0…039b34 (1, 72) Dummy {f00=0x0012, f01=0x0190, f02=» _ D $P D % 1 I D u T T T T T T > & #<" #P"& x#j.b . . /, / .<.P " B V *1 7 6 $ ' ** ! % Y Wz B Tr ! C B $ ) Y WX X $ $ ^ WB X Y :g H " I "! P& X !
0x039b34…039cc8 Dummy {f00=0x0012, f01=0x0190, f02=» T E _ (X _ X $ _v0 > > > > > > > > > @! A! W :W ^ ! Z@ ! (XH @! P T M ]X , ) L P $R _, A! Pj P Y U ( ) 5 & > > > > > > > $ " [ [ [ [ [ [ [ > > [ [
0x039cc8…039e5c Dummy {f00=0x0012, f01=0x0190, f02=» P~ "R~ Y "& ( Pj T P` " <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ 8! W0" P T 8! P< P8 # Y Y Y Y "& X X Y X X X X ' 4 B U B ("
0x039e5c…039ff0 Dummy {f00=0x0012, f01=0x0190, f02=» "& !$"W< Y U R -P & X ( ) Y * & X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > ' > Pb P C & B & T B % X * $ 4 T % & X (T !# W ' Y * V ' !$ B P X "
0x039ff0…03a184 Dummy {f00=0x0012, f01=0x0190, f02=» % Wr W 0 Z ' !$ B Z Z& X * ,T J W X (P Y * 0 %_. % Y * W _p P ' _ C !$X """ 'N QPR X R(;GV$ $ ' P8 X R2;GV. X % X ( $4 P ' X *T * W Y ( - "& ? X :a Z T T W
0x03a184…03a318 Dummy {f00=0x0012, f01=0x0190, f02=»P > 0 > >_ P > _v B 1 > JT , _ ' ) ) )x PB P8 " B P B L # +P !# !# T !# Y " !# W !# !# W !# Y Y )" $6 U P" T Y "_. P4 R( Pj O]> V _F T Y Y " V Y _^ C _P
0x03a318…03a4ac Dummy {f00=0x0012, f01=0x0190, f02=» > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f $ X _x R0 V0 ! P* P P P" R ?Q !# Y R Q ) $ -_ ? _ X # !# ^ Y _( X Z !# P0 P X _ X " ' !# !# X " ( )
0x03a4ac…03a640 Dummy {f00=0x0012, f01=0x0190, f02=» $ Y "R Y " _ Y "_. B 1 -j !# ,^ B B U4 $ ! T _ U D ! T _ $$ X" X& X* C $6 , X`" E*4P( 8'0P E*4TD ! T 9 _ ! T @_ ! $6 B P !- B C , ^N P R ?] _ C _ $6
0x03a640…03a7d4 (1, 73) Dummy {f00=0x0012, f01=0x0190, f02=» !# $ P !# !# ,N !# 1P X " C ,T Y " "& X Y " Y > X " X "" Y %Q Y > X Z2<BR > $ Y !# T X !# Y " Zn ,F T _ !# X $ P !-4 + R V P P" !# ,^W ,N $ X $ X !-4_ X $ X
0x03a7d4…03a968 Dummy {f00=0x0012, f01=0x0190, f02=» R@ X X "" Y & X % V Y !- X $ X " !- X & + * `R Y !# !# !# 4 !# V !# V W :h !# 4 X %" X ## R 4 ,N >' "?:B ] ( P H U _ T U P U ;C ,$ T -_> -
0x03a968…03aafc Dummy {f00=0x0012, f01=0x0190, f02=» <(@ /b C # P >_ < U = (@ " B /x P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P* P P" P P P T` 2 0 " 0| P | B B T P2 & T, L L R Q U V ,
0x03aafc…03ac90 Dummy {f00=0x0012, f01=0x0190, f02=» _< " " P2 @ Q, , Y ," P L P T L R :AV ' > _ #A 1 0 1 V W :h !# > A1 @ @ 7 @ R&P % % @ I I I I _4 @ P ! #D9 V ( 1 Y !
0x03ac90…03ae24 Dummy {f00=0x0012, f01=0x0190, f02=» <(@ /b C # P 1 ' 44 3 ! 54 A0 5 P< 6n P& 8! P6 K @P X T X !? ? 3 W W @W 5n 5, " 6 W A0 5 X* 6 X2 " (@ I # V V " LP V : V V P W Y Y "
0x03ae24…03afb8 Dummy {f00=0x0012, f01=0x0190, f02=» $P, # ' P @T #?W #?$? 2t _2 J @" P Y 9 @ J ! T " Y X G 5,! 54 5 P C P* 5, J : J < W W P X V C W 5: X ! "? K >Q 9 5nW Y B W _.! T 5 T P % Y % Y Y V + V
0x03afb8…03b14c Dummy {f00=0x0012, f01=0x0190, f02=» R 5 6 N ! N P" N & N T S _ _& - M L G " _ W C ( B P U 4. T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ $ : 6 6 P" $ 5 8X 8 , Y $ : _
0x03b14c…03b2e0 Dummy {f00=0x0012, f01=0x0190, f02=» " $ Y : @ P0 8 T _ " & Y 4 : : $ - Y : 6 6 7 7N7N7N 0123456789 ' +,-. 0123456789 < @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^_ * ?;_: =!
0x03b2e0…03b474 (1, 74) Dummy {f00=0x0012, f01=0x0190, f02=»UU @ @ ! P$>B @E AE @E E D P _ $ % $P _ % A >f A A A @ " Q" 7 :d @ # U R>P0 P E @J AD @J P2 @ _ * A B W * A B W :a2 * A @ D & W F W @ F W CRP BAP CO
0x03b474…03b608 Dummy {f00=0x0012, f01=0x0190, f02=» W G R" W W V V 8 !RRT W V X W W V V V PF A @ G U U^ A Q G VD Y2 W V @ " TJ W P G Y E
0x03b608…03b79c Dummy {f00=0x0012, f01=0x0190, f02=» W A A W E T F W V E = V W Y( P Z& = :L < P W <9B @ V W Q E W @E A D. @ < V W < ! P W @ V P
0x03b79c…03b930 Dummy {f00=0x0012, f01=0x0190, f02=» @ ! T _ P :l 9b ) V _ @ V^ > > W A> A>n W W @J @J PH @ > W> @J T @B @JW @B > C. W @7 W > > >Z > >Z ? ? ?^ >Z ? ? ?^
0x03b930…03bac4 Dummy {f00=0x0012, f01=0x0190, f02=»_ 0 !TTX W A= !CCT CC A> > _ 0 !;; ? >Z_ S ACg AC C. @ R @ ! T AB AC @7 V V I E W V $ ) H V 0 !;;P P V PN _ P !;;T X$ W E nX T > :
0x03bac4…03bc58 Dummy {f00=0x0012, f01=0x0190, f02=»11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : ? : ? : ? : ? : ? : ? : 0 )T : !00T W : E TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. : @B C. ? X C.9h! @B @B
0x03bc58…03bdec Dummy {f00=0x0012, f01=0x0190, f02=»P 8b @ AA AA$ AAL AAPW A^ A7 AA AA AA AA AD A> AC4 ACJ : 9e :e Q P 9e @7 P A7 9C) A I " @7 ! P " :B A7 t q B J " n : 0 R _ <d?d A7 U <e @7 P A7 <C, D L "
0x03bdec…03bf80 Dummy {f00=0x0012, f01=0x0190, f02=» B. AD A> AC4 ACJ : h:B* A7 @7 P A7 B J 4R 4 :B 4 @7 : V V 49B @7 4R @ t w A I ! j : B AD A> AC4 ACJ AB ! T C B W AB AB I ! : 9D @ @7 r s @7 A I T - A _ I N T V
0x03bf80…03c114 (1, 75) Dummy {f00=0x0013, f01=0x0190, f02=»T X W n : YX d C !CCTx xB. ? <X B.9 H7 Q B _ @ _ !SSTF 0 U7 P A X X W W X X S W W W : V W V T W P D V T W F P P V W @ $ P p
0x03c114…03c2a8 Dummy {f00=0x0013, f01=0x0190, f02=» A A> 2 ; Z [ : : [ [ : Q8 T W Z A. c @ V W U E R $ )_ : V r G V
0x03c2a8…03c43c Dummy {f00=0x0013, f01=0x0190, f02=» M : W V R R, Y R <B V x " 1 W V z : F^_@ V : W R H<P F0 FH W x F HD_ V : t " D P W V Pv $;A^ D E D P. V E P E P T E E _N T E E _ r G V
0x03c43c…03c5d0 Dummy {f00=0x0013, f01=0x0190, f02=»W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : J @ 0 V @ E 0 H W : ? ? R 0 R P P B : _ ! : 4P0 " D Hr H H $ M v
0x03c5d0…03c764 Dummy {f00=0x0013, f01=0x0190, f02=»G I = Hh H $ @ ! P I F F _D V r A V 9n A V tT @ A A V @ ! @ P P^ P PR_ _ @ V W U( P P( P V W U " @ Q V P A. V P _T
0x03c764…03c8f8 Dummy {f00=0x0013, f01=0x0190, f02=» _ 3 $ A. @ & @ W f A A ` : A "& > l : H$R F0 W n V pT : N V l W H V ]" . nT" F^ W v FH W n V ~P K W x F L` H F _v V d , V
0x03c8f8…03ca8c Dummy {f00=0x0013, f01=0x0190, f02=» 8 V V x % V v % : V V P W t $ ) ^ r V E W f ) G V E ) W b G E ) G ` " W p W ~ pP0 KN R H<P KZ HD_ W ~ R H<X4 KZ HD_ ` W ~ pPV KN R , HT
0x03ca8c…03cc20 Dummy {f00=0x0013, f01=0x0190, f02=» ) @ ! P C C $ W z ` pPJ F " R HT E R T E D E @ H E F G #_T W | j W V b ( W p V ` $ W ` E 0 ;h 0 :C # : .=H N N~ HT .=H N N~ HT N : d 8
0x03cc20…03cdb4 (1, 76) Dummy {f00=0x0013, f01=0x0190, f02=» - @ - N !TTP E N :H N TBT W W4 2 " T @ E X 2 N =H N N~ @ ) N !TTXT !CCT N !UUT d O WT N 2 .:H N R P V E _ N S N S YB : v ` @ W W W
0x03cdb4…03cf48 Dummy {f00=0x0013, f01=0x0190, f02=»Z0 % _ W l a w ` :A W V d 4 W P 5 _ W ` W d V V W V V $ ) ^ A 7 ` _ P Q W r _ Q W @ @ % _z V , P@ , - 4 ] 4 G Y 5 X * _6
0x03cf48…03d0dc Dummy {f00=0x0013, f01=0x0190, f02=» 9 A : ` @ V :a @ HT @ A @ HT;a P$ W @ A @ T E A : ` @ P R _ R 3 S S V V W @ @ T E : P S S _ : V CRP COP W @ 3 V 3
0x03d0dc…03d270 Dummy {f00=0x0013, f01=0x0190, f02=» E 3 S _@ S Yd @ @ T E : @ @ @ #D# P ; V T" _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T E : W . !TTP E ^
0x03d270…03d404 Dummy {f00=0x0013, f01=0x0190, f02=» ^ P0 ^ r " U E _2 ^ P0 ^ " U E _2 V tP G R E S ( V | S =J @ " S V l S W l V S V CRT V p S W p W W
0x03d404…03d598 Dummy {f00=0x0013, f01=0x0190, f02=» _ ^ Pd W p ^ V 8 8 4 D P$ E @ # P H I K T + Y@ V p _f V t Y N !TTX @ @ T E : W % @ P _ R @ WT R @ 0
0x03d598…03d72c Dummy {f00=0x0013, f01=0x0190, f02=» ( ^ W d _ _P G =h G V d V r < Zv V f P W f _B V W V t Yv N !TTX @ @ T E : N !TTX !CCTr ^ P, ^ V r 4 U E $ $ _. ^ P, ^ V 4 U E
0x03d72c…03d8c0 Dummy {f00=0x0013, f01=0x0190, f02=» _ V d V r < Zv V f _2 ^ U^ ^ V 8 8 8 4 D P$ E @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T E : W V F !SST ] WJ !AAT
0x03d8c0…03da54 (1, 77) Dummy {f00=0x0013, f01=0x0190, f02=» D E ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( [ W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P Z V : ` P: @
0x03da54…03dbe8 Dummy {f00=0x0013, f01=0x0190, f02=» ;a WR# T W W,# T W W # T W W W R _ $ W : E Y Z @ T A V W Y0 Z6 @ T A V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v
0x03dbe8…03dd7c Dummy {f00=0x0013, f01=0x0190, f02=» Y$ P W | V z 3 % W P _ V |P V v ] W v P _ @ P V E A (P ) @ @ P V E A (P ) @ @ @ T E : N =H N N~ : N =H N N~ : &=H F N~ : F =H F N~ : F
0x03dd7c…03df10 Dummy {f00=0x0013, f01=0x0190, f02=» : Q RH R S S T Vb W^ X ]~ @ R @ $ D L * A CRT M " _ _ _ _ ` j ! X 1 X 6 < < < < `"`,`2 `8 P` 0` Q` J$ KB 6 !AAP ` `d`d
0x03df10…03e0a4 Dummy {f00=0x0013, f01=0x0190, f02=» P P W | V z 3 % W P _ V |P V v ] W v P _ @ P V E A (P ) @ @ P V E A (P ) @ @ @ T E : N =H N N~ : N =H N N~ : &=H F N~ : F =H F N~ : F
0x03e0a4…03e238 Dummy {f00=0x0013, f01=0x0000, f02=»
[…0x2…]
0x03e560…03e6f4 (1, 78) Opaque[0x194]
0x03e6f4…03e888 # DirEnt {nam=»PTSDE «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0278, f03=0x0000}
0x03e6f4…03e888 IdxSect {
0x03e6f4…03e888 f00 = 0x0013 // 0x3e6f4 @0x0
0x03e6f4…03e888 f01 = 0x000a // 0x3e6f6 @0x2
0x03e6f4…03e888 gno = [ // 0x3e6f8 @0x4
0x03e6f4…03e888 [0x00]: C0x0013.0x3.0
0x03e6f4…03e888 [0x01]: C0x0014.0x0.0
0x03e6f4…03e888 [0x02]: C0x0014.0x1.0
0x03e6f4…03e888 [0x03]: C0x0014.0x2.0
0x03e6f4…03e888 [0x04]: C0x0014.0x3.0
0x03e6f4…03e888 ]
0x03e6f4…03e888 }
0x03e888…03ea1c Dummy {f00=0x0013, f01=0x0190, f02=» " P IDENT PTSDE REL 10.0 80-04-11 P UPD 80-04-24/DALI * P 80-03-24/DALI F DDUM DEDDIV ^ PDIV r ENTRY PTSDE P* 0 P* ENTRIES FOR APPLICATIONAL HANDLING P* P ENTRY DEAPPL P ENTRY DEAOK0 P
0x03ea1c…03ebb0 Dummy {f00=0x0013, f01=0x0190, f02=»RY DEPRUT P ENTRY ATTPRT P ENTRY DETPRT ( P ENTRY ATTDEV > P EJECT T * b * ** EXTERNAL REFERENCES TO SCREEN l * P EXT DECLRA P EXT DECLRS P EXT DECLRN * 4 0* EXTERNAL REFERENCES T
0x03ebb0…03ed44 Dummy {f00=0x0013, f01=0x0190, f02=»NITION | EXT DE40ST ENTRY MODE " EXT DE50ST SEARCH/CORRECTION , EXT DE60ST VERIFICATION R EXT DE70ST CONVERSION r * 6 2* EXTERNAL REFRERENCES FOR DATA-ENTRY FILES * P EXT OPCL OPEN SYSTEM-FILE P EXT CHA
0x03ed44…03eed8 Dummy {f00=0x0013, f01=0x0190, f02=» P EXT DEPOOL TESTVARIANT P EXT DERR $ P EXT SAVE 6 P EXT RESTOR H P EXT ATTBUF P EXT TESTB p P EXT MSKOUT & P EXT COND SET/CLEAR CONDITION REG. P EXT UPDBOL P EXT POOLA ( P EXT GETIND GETINDEX VARIABLE/LENG
0x03eed8…03f06c Dummy {f00=0x0013, f01=0x0190, f02=»A P EXT DEAP3A P EXT DEAP5A P EXT DEAP7A 2 P* F P* P P INCLUDE DELITT Z P r EJECT z * * START OF PROGRAM * PTSDE 8 P CALL SAVE,W0,W16,PWBDB4 SAVE ORIGINATE ADRESSES TO " P
0x03f06c…03f200 Dummy {f00=0x0013, f01=0x0190, f02=» PRINT DSETS j P SET UORG P BNZ FINISH & $ P CALL GETIND,RBUF,RBUFLN,DEBINW1 : P CALL POOLA ADJUST POOLS b PFINISH PDEST & P SET BOOL1 PART OF FORMAT DISPLAY PDEST00 ATTFMT F00ST & P SET DEPROMPT PROMPT-TEXTS DIS
0x03f200…03f394 (1, 79) Dummy {f00=0x0014, f01=0x0190, f02=»W0 P PERF DERR P B STA100 CANCEL . P CLEAR DEPROMPT < B STA050 T * f RETUR p P ATTFMT F00RET ~ P SET DEPROMPT P PERF DECLRA P B DEST * ENTER P CBE BIN1,W0,DEST P PERF OP
0x03f394…03f528 Dummy {f00=0x0014, f01=0x0190, f02=»NW1,W0 P PERF DERR P IB DEBINW2,ENT52,ENT52,ENT5 P MOVE DEBINW4,W0 D P B ENT32 PENT4 l P MOVE MODE,MODTAB(BIN1) x 0 + PERFI BIN1,DE10ST,DE20ST,DE30ST,DE40ST, C 0 P DE50ST,DE60ST,DE70ST,DE00ER,DE00ER,DE00ER PENT5
0x03f528…03f6bc Dummy {f00=0x0014, f01=0x0190, f02=»,W0,ENT4 PENT52 P PERF OPCL,W2 P BOK ENT6 4 P PERF DERR F PENT6 X P CBNE BIN2,W0,DEST00 d P B DEST P* PDE00ER PROC P MOVE BIN1,W0 P RET P PEND EJECT * * APPLICATI
0x03f6bc…03f850 Dummy {f00=0x0014, f01=0x018e, f02=»T C P DEAJOB C P DEABATCH C P DEAENKEY C 6 P DEUNENT L P B DEAER6 ^ " PDEAPRTES CHECK OF NEW PRNUM p P MOVE BCD13A,DEINPUT P MOVE BIN1,BCD13A $ P MOVE BIN2,BIN1 SAVE KEYED INPUT P DIV BIN1,W8 . P
0x03f850…03f9e4 Dummy {f00=0x0014, f01=0x018e, f02=» d P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 ( & P CALL UPDBOL,BIN1 CLEAR ALL BOOLS > P MOVE BCD2A,BCD13A h P MOVE BIN2,BCD2A P MOVE BCD3A,W10 P DIV BCD13A,BCD3A P MOVE BIN1,BCD13A P PERF DEPMSK PDEAENKEY
0x03f9e4…03fb78 Dummy {f00=0x0014, f01=0x0190, f02=» P* $ P ATTFMT FORMN DUMMY INSTRUCTION P ATTFMT FORMA - " - 6 P ATTFMT VSET V P EJECT j PDEUNENT x P MOVE DEBINW2,W17 PDEAUNIT * P MOVE BCD2A,DEINPUT CHECK IF SPECIFIED & P MOVE DEBINW4,BCD2A UNIT NUMBER IS
0x03fb78…03fd0c Dummy {f00=0x0014, f01=0x0190, f02=»W0,DEAUN0 x P ERASE 1,W2,W2 " P MOVE TABLE,FVOLNAME(FILINDUS) ( P B DEAUN5 N PDEAUN0 ` . P CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE n : P CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME ( P CBE DEBINW4,W0,DEAUN4 JUMP IF OKEY
0x03fd0c…03fea0 Dummy {f00=0x0014, f01=0x0190, f02=»INDUS),TABLE ~ PDEAUN5 P DISPLAY 2,W1,W1 " P B DEAOK0 : PDEAUN2 L P MOVE DEBINW4,W7 Z P B DEANOK r PDEAJOB CHECK IF SPECIFIED P MOVE STSAVE(W1),DEINPUT " P JOBNAME EXISTS ON USERFILE P B DEAOK0 " PDEABATCH
0x03fea0…040034 (1, 80) Dummy {f00=0x0014, f01=0x0190, f02=» < P* JUMP TO APPL HANDLING IN CORRESPONDING PROGRAM P* D PDEAPP0 N P SUB DEBINW3,=W'100' $ P MOVE DEBINW4,PRNUM SAVE PRNNUM x P MOVE BCD3A,W10 LOAD +10 * P DIV PRNUM,BCD3A GET MODE TENTH FIGURE ( P MOVE DEBIN1,PRNUM LOAD MO
0x040034…0401c8 Dummy {f00=0x0014, f01=0x0190, f02=»ODE LEVEL BINARY v P IB DEBIN1 JUMP MODE APPL C P DEAP1A C < P DEAP2A C P P DEAP3A C d P DEAER6 C x P DEAP5A C P DEAER6 C P DEAP7A C P DEAER6 P B DEAER6 P EJECT > P* RETURNS F
0x0401c8…04035c Dummy {f00=0x0014, f01=0x0190, f02=»3,W1 P RET PDEAOK2 P MOVE DEBINW3,W2 & P RET > PDEAOK4 J P MOVE DEBINW3,W4 X P RET p PDEAER6 | " P MOVE DEBINW4,W6 ILLEGAL VALUE PDEANOK P MOVE DEBINW3,W3 RET PEND EJECT * & !
0x04035c…0404f0 Dummy {f00=0x0014, f01=0x0190, f02=»HKUT P MOVE DEBINW3,W0 RET $ PEND 0 P EJECT > F P****************************************************************** L F P* THIS PROCEDURE RETURNS THE PROGRAMNUMBER SPLIT INTO TO BINARYS * F P****************************************
0x0404f0…040684 Dummy {f00=0x0014, f01=0x0190, f02=» P MOVE SECOND,BCD2A P RET P PEND * P EJECT 8 , P**************************************** F , P* THIS PROCEDURE FIX THE PROGRAMMASKS. * v , P**************************************** PDEPMSK PROC P MOVE PINACC,W0 P MOVE
0x040684…040818 Dummy {f00=0x0014, f01=0x0190, f02=» DEAPR10 JUMP IF > 00 P MOVE KEYMSK,W0 P RET 6 PDEAPR10 B P MUL BIN4,W10 R & P ADD BIN4,BIN2 NEXT DIGIT IN PRNUM h $ P DIV BIN4,W2 BYTE POS IN PRKEYS P MOVE DEBINW3,W0 $ P XCOPY DEBINW3,W1,W1,PRKEYS,BIN4 , P CALL TESTB,BI
0x040818…0409ac Dummy {f00=0x0014, f01=0x0190, f02=»KEYMSK,DEBINW2 P RET PDEAPR20 " P DIV DEBINW3,W16 2 P MOVE KEYMSK,DEBINW3 J P RET f P PEND r P EJECT P* J P* ATTACH DE-PRINTER. SHOULD BE PERFORMED BEFORE ANY PRINTING IS DONE . P* CONDITION-REGISTER IS SET TO
0x0409ac…040b40 Dummy {f00=0x0014, f01=0x018e, f02=» IS GIVEN IN DEBINW4 T T P* IN DEBIN1, THE TERMINALNUMBER OF THE CURRENT TASK IS RGIVEN FOR EV PRINTING. P* t PATTPRT PROC ~ P MOVE DEBINW4,=X'0030' P PERF ATTDEV,DEBINW4 P RET P PEND PATTDEV PROC FC P CALL CHANFC
0x040b40…040cd4 (1, 81) Dummy {f00=0x0014, f01=0x0190, f02=» P TESTIO DEDSPRT P BNZ NOTOK P WAIT DEDSPRT . P XSTAT DEDSPRT,DEBINW4 D P CBE DEBINW4,W0,OK b P B ATT10 NOT OK | PNOTOK P ABORT DEDSPRT P B ATT10 NO PRINTER POK P DSC1 DEDSPRT,ATTACH,W20 P BOK OUT
0x040cd4…040e68 Dummy {f00=0x0014, f01=0x0190, f02=»ET/CLEAR CONDITION REG. P RET P PEND , P* : > P* RELEASE DE-PRINTER. MUST BE PERFORMED AFTER PRINTOUT. D P* PDETPRT PROC P DSC1 DEDSPRT,DETACH,W0 P RET P PEND P EJECT * * F
0x040e68…040ffc Dummy {f00=0x0014, f01=0x0190, f02=»LR ' ',1 P FCOPY =C'ENTRY' P FILLR ' ',5 ( P FCOPY =C'REL 10.0' < FNUL X FNL f FNL r P FCOPY =C'PROGRAM:' ~ ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM FBF BOOL1,F00OUT FNL ( P FCO
0x040ffc…041190 Dummy {f00=0x0014, f01=0x0190, f02=»ON' ~ FNL P FTEXT '30 ' P FCOPY =C'JOB' , P FILLR '-',1 B P FCOPY =C'DEFINITION' V FNL t P FTEXT '40 ' P FCOPY =C'ENTRY' P FILLR ' ',1 P FCOPY =C'MODE' FNL P FTEXT '50 ' P FCOPY =C'SEARCH
0x041190…041324 Dummy {f00=0x0014, f01=0x0190, f02=»PY =C'MODE' FNL P FCOPY =C'70 CONVERSION' P FILLR ' ',1 @ P FCOPY =C'MODE' T P FNL l F00OUT x FMEND PF00RET FRMT P FSL $ P FTEXT 'RETURN FROM DATA-ENTRY' P FNL P FKI 1 P FCOPY HEX00
0x041324…0414b8 Dummy {f00=0x0014, f01=0x018e, f02=»S * v $ P* ACK(W1) = ELEMENT NO. * $ P******************************* 4 PVSET FRMT P FSL n P FMEL '99',PRNUM z P FBT BOOL1,F13 P FCOPY =C' CREATE' P FB F12A PF13 FCOPY =C' GET' PF12A FCOPY =C' VALUE-SETS'
0x0414b8…04164c Dummy {f00=0x0014, f01=0x0190, f02=» 2 P FKI 8,NUM,MINL=2,MAXL=2,ME,NCLR,NEOI,APPL=101 P FCOPY STR6A > P FB F12UT R PF12C d P FLINK F121 p PF12UT FMEND P* PF121 FRMT P FNL P FCOPY =C'TYPE:' P FBT BOOL3,F121A P FBF BOOL1,F124 IF CREAT
0x04164c…0417e0 Dummy {f00=0x0014, f01=0x0190, f02=» A/N ` P FCOPY STR2A PF125 P FTAB 10 , P FCOPY =C'SIZE OF ' < P FCOPY =C'ELEMENT' X P FCOPY =C'S:' r P FBT BOOL3,F125A P FBF BOOL1,F127 IF CREATE PF125A P FINP 28 P FMEL 'XX',TIME P FB F128 P
0x0417e0…041974 (1, 82) Dummy {f00=0x0014, f01=0x018e, f02=»ENT' P FCOPY =C' NO.:' P FBF BOOL3,FEND IF LINE 1-3 $ P FINP 13 ENTER H P FMEL 'XX',ACK(W1) ^ P FNL x P* FLINK STR64A P FCTL X'DE',STR64A PFEND P FMEND P* PFORMN FRMT * P FKI 1,NUM,MINL=1,MAXL=1,REWRT
0x041974…041b08 Dummy {f00=0x0014, f01=0x4100, f02=» P* PFORMA FRMT ( P* FKI 1,ALPHA,MINL=1,MAXL=1,NEOI,ME $ P* FCOPY FDVBCD(BIN6) P 6 P FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) l P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND END @ =1,REWRT
0x041b08…041c9c Dummy {f00=0x0014, f01=0x2008, f02=» P FTEXT '50 ' P FCOPY =C'SEARCH/CORRECTION' $ FNL H P FTEXT '60 ' T P FCOPY =C'VERIFICATION' h FNL P FCOPY =C'70 CONVERTION' FNL P FCOPY =C'80 FILE HANDLING' F00OUT FMEND END
0x041c9c…041e30 Dummy {f00=0x0014, f01=0x0190, f02=» | !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0# : H~ ? 0$ P : _ 0% P C{P A )? H ? 0&HoO !H~ 0' $ W 0' # ! 2 W 0 0 /1( _5K~|0 ! _
0x041e30…041fc4 Dummy {f00=0x0014, f01=0x0190, f02=»( 2" + " ( " # I ? & 0+ P ? 0" Pm0) 0 -8 Wa0) 6 > W<( , ! 1d # !_'0) P 0% P o0W o2d o "_HI 0) 2 W @ @ @ @ @h@j #U 0, ! Td$ + " , 0& %@|PI0% T /hZ " !T f ! j !! H{ ? 0% P 0- P H !?
0x041fc4…042158 Dummy {f00=0x0014, f01=0x0190, f02=»8" .4 #H .Hj 0" #T @m?#@hP !00 01 V 0# !_ $ + ?$I 02WI0% P 0" 9%0# !00 01 T.0% T/WL0# ! 03W #I{ H~ I H 0$ 0&? A 04P#:&;%Io 0- P H 2 ' ' ' ? JA J K{ 0) ?( !00 01 8 _[J # T 2 ' 0% T 2 )**? 2 ***0- 8+J ?
0x042158…0422ec Dummy {f00=0x0014, f01=0x0190, f02=» ?.0&_.0# 0 H { ,W H s +0) 0% P 0" Q ,8/?0A 0# !00 01 P : SdW 0% X70- P J ? EK{H ,L T +_UH KA^0) 1( ? Am #4 0$ S 0% P 0" Q I ) *&KA)? 0$ % 0% P-0- P H % !W/ ?1 #? 08 $+ %'0 0 < H{ W ! 2 ***234
0x0422ec…042480 Dummy {f00=0x0014, f01=0x0190, f02=» T u A e C Z o p 1 ^ C & : 6 * 1 -0 1 J ?
0x042480…042614 (1, 83) Opaque[0x194]
0x042614…0427a8 # DirEnt {nam=»DE10ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02a0, f03=0x0000}
0x042614…0427a8 IdxSect {
0x042614…0427a8 f00 = 0x0015 // 0x42614 @0x0
0x042614…0427a8 f01 = 0x0004 // 0x42616 @0x2
0x042614…0427a8 gno = [ // 0x42618 @0x4
0x042614…0427a8 [0x00]: C0x0015.0x0.0
0x042614…0427a8 [0x01]: C0x0015.0x1.0
0x042614…0427a8 ]
0x042614…0427a8 }
0x0427a8…04293c Dummy {f00=0x0015, f01=0x0190, f02=» $ P IDENT DE10ST REL 10.0 80-04-11 P 79-11-13/DALI , DDUM DEDDIV D PDIV X P ENTRY DE10ST f P ENTRY DEAP1A | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR * : P*
0x04293c…042ad0 Dummy {f00=0x0015, f01=0x018e, f02=» DE14ST SYSTEM-VARIABLES P EXT DE15ST FILE-SPACE , P EXT DECOMP STANDARD VALIDATION ROUTINE > P EXT DEPOOL POOL-HANDLING n P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* P EXT DEAOK0 P EXT DEANOK P
0x042ad0…042c64 Dummy {f00=0x0015, f01=0x018e, f02=» PDE10ST PROC P CBNE BIN2,W0,ENT1 PDEST 2 & P SET BOOL1 PART OF FORMAT DISPLAY > PDEST10 h P ATTFMT F10ST v & P SET DEPROMPT PROMPT-TEXTS DISPLAY PDEST20 P CLEAR DECHANGE P PERF DECLRA PDEST40 " P IB DEBINW
0x042c64…042df8 Dummy {f00=0x0015, f01=0x0190, f02=» ~ P B DEST20 * ENTER $ P CBNE BIN1,W1,RET2 2 P CBNE BIN2,W0,ENT1 L P B DEST f PENT1 v 2 P PERFI BIN2,DE11ST,DE12ST,DE12ST,DE14ST,DE15ST P CLEAR BOOL1 < P CALL RESTOR,W0,W16,PWBDB4 RESTORE ORIGINATE ADRESSES TO
0x042df8…042f8c Dummy {f00=0x0015, f01=0x0190, f02=» * PRETUR P MOVE BIN2,W1 P MOVE BIN1,W0 2 PRET2 H RET T P EJECT ` P* n ( P* APPL VALUE HANDLING ROUTINE x P* PDEAP1A 2 P IB DEBINW4,DEAP11,DEAP12,DEAP12,DEAP14,DEAP15 PDEAP10 P B DEAER
0x042f8c…043120 Dummy {f00=0x0015, f01=0x0190, f02=»E SWEDISH WAY t P BOK DEAOK0 * P PERF DECOMP,W2 TEST THE AMERICAN WAY * P BOK DEAOK0 X P PERF DECOMP,W3 DATE DDMMYY l P BOK DEAOK0 P B DEAER6 , PDEA113 XCOPY STR2A,W0,W2,DEINPUT,W0 HOUR P CBG STR2A,=C'23',DEAER6 & P X
0x043120…0432b4 (1, 84) Dummy {f00=0x0015, f01=0x0190, f02=»R6 z P B DEAOK0 PDEAP12 12 VALUE SETS P MOVE BCDI21(W1),DEINPUT : P MOVE BIN1,BCDI21(W1) Z ( P IB DEBINW3,DEAP121,DEAP122,DEAP123 x PDEAP121 VALUE-SET NO. P CBE BIN1,W0,DEAER6 P CBG BIN1,=W'93',DEAER6 P COPY TA
0x0432b4…043448 Dummy {f00=0x0015, f01=0x018e, f02=»RG10A SCAN BUFFERS p P CBNE DEBIN4,W2,DE1211 P MOVE DEBINW4,=W'25' 8 P B DEANOK T PDE1211 f P MOVE DEBINW2,W17 ENT-KEY t PDEOK P B DEAOK0 PDEAP122 VALUE-SET TYPE P MOVE STR2A,DEINPUT P MOVE STR1A,DEINPUT
0x043448…0435dc Dummy {f00=0x0015, f01=0x0190, f02=» j P CBG BIN1,=W'80',DEAER6 P MOVE STR1A,STR2A ( P CBE STR1A,=C'A',DE123A B P CBG BIN1,W21,DEAER6 b P DIV BIN1,W2 NUMERIC ~ P MUL BIN1,W2 P ADD BIN1,W1 P MOVE TIME,BIN1 P MOVE DEINPUT,TIME PDE123A P MOVE
0x0435dc…043770 Dummy {f00=0x0015, f01=0x018e, f02=»END EJECT * * FORMATS $ * < PF10ST FRMT F FSL X ( P FCOPY =C'10 SUPERVISORY FUNCTIONS' d FNL FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P
0x043770…043904 Dummy {f00=0x0015, f01=0x40b2, f02=» P FCOPY =C'13 GET VALUE-SETS' FNL ( " P FCOPY =C'14 SYSTEM-VARIABLES' 4 P FNL Z P FCOPY =C'15 FILE-SPACE' f PF10OUT FMEND END @ PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P
0x043904…043a98 Dummy {f00=0x0015, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x043a98…043c2c Dummy {f00=0x0015, f01=0x0190, f02=»Cz8 Ao " 2 '0 ~ * & ! !0) (V ? g 2 #%2 * & ) ( ()*(( 11 _ Co< Cm< Cz8 0+ J * & G ! 2 + !X b !U *8 0( x * & e ? h ! & ? C < h * & ( & H I ?& g( " @oW $ * &
0x043c2c…043dc0 Dummy {f00=0x0015, f01=0x0190, f02=» 0) { &{ mU_"@{Ao? m 5 * & + p!0 An ! 6 @_2( (' % * * & 7 ) _ + 2 ../0A #W 80 X * & U _3 _8A @{0 $} !4 @{A * & s z 'P ; -nA{_% !g2 @m?1?2@ * & _/0 + 0 , A~4 @~P + , 4
0x043dc0…043f54 (1, 85) Opaque[0x194]
0x043f54…0440e8 # DirEnt {nam=»DE11ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b0, f03=0x0000}
0x043f54…0440e8 IdxSect {
0x043f54…0440e8 f00 = 0x0015 // 0x43f54 @0x0
0x043f54…0440e8 f01 = 0x0002 // 0x43f56 @0x2
0x043f54…0440e8 gno = [ // 0x43f58 @0x4
0x043f54…0440e8 [0x00]: C0x0015.0x2.0
0x043f54…0440e8 ]
0x043f54…0440e8 }
0x0440e8…04427c Dummy {f00=0x0015, f01=0x0190, f02=» $ P IDENT DE11ST REL 10.0 80-04-11 P 79-11-15/LABJ , P************************* D P* 11 DATE AND TIME f P************************* DDUM DEDDIV PDIV P ENTRY DE11ST P EXT DECLRN P EXT DERROR EJECT
0x04427c…044410 Dummy {f00=0x0015, f01=0x0190, f02=»ROC P ATTFMT F11 P SET DEPROMPT P GETTIME STR6A 6 P MOVE TIME,STR6A L P MOVE BCDI21(W1),DATE d PCANC P PERF DECLRN PCBE11 " P IB DEBINW2,CANCEL,RETUR,ENTER P MOVE DEBINW4,W4 ERROR P PERF DERROR,DEKTAB4
0x044410…0445a4 Dummy {f00=0x0015, f01=0x018e, f02=»ME,STR6A P MOVE BCDI21(W1),DATE P DISPLAY 1,W1,W0 . P B CANC F PENTER EDIT STR6A,FTIME V P SETTIME STR6A t P MOVE DATE,BCDI21(W1) RETUR RET PEND EJECT PF11 FRMT FSL P FCOPY ='11 DATE AND T
0x0445a4…044738 Dummy {f00=0x0015, f01=0x411e, f02=» l FILLR ' ',4 FCOPY ='TIME:' 0 P FKI 25,MINL=6,MAXL=6,ME,NEOI,REWRT,APPL=103 4 FMEL 'XXE.XXE.XX',TIME h P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 FMEND PFTIME FRMT P FMEL '999999',TIME P FMEND
0x044738…0448cc Dummy {f00=0x0015, f01=0x2008, f02=» FMEND END @ &E TIME RETUR RET 8 PEND J EJECT X F111 FRMT f FSL x FCOPY ='111 DATE AND TIME' FNL FCOPY ='DATE:' . * FKI 17,MINL=6,MAXL=6,ME,NEOI,REWRT,APPL=1 FMEL 'XXE
0x0448cc…044a60 Dummy {f00=0x0015, f01=0x0190, f02=»8" .4 #H .Hj 0" #T @m?#@hP !0. 0/ V 0+ !_ $ + ?$I 07WI00 P 0" 9%0+ !0. 0/ T.00 T/WL0+ ! 08W #I{ H~ I H 0( 03? A 0)P#:&;%Io 09 P H 2 ' ' ' ? JA J K{ 0* ?( !0. 0/ 8 _[J # T 2 ' 00 T 2 )**? 09 8+J ?+
0x044a60…044bf4 (1, 86) Opaque[0x194]
0x044bf4…044d88 # DirEnt {nam=»DE30ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02b8, f03=0x0000}
0x044bf4…044d88 IdxSect {
0x044bf4…044d88 f00 = 0x0015 // 0x44bf4 @0x0
0x044bf4…044d88 f01 = 0x0004 // 0x44bf6 @0x2
0x044bf4…044d88 gno = [ // 0x44bf8 @0x4
0x044bf4…044d88 [0x00]: C0x0015.0x3.0
0x044bf4…044d88 [0x01]: C0x0016.0x0.0
0x044bf4…044d88 ]
0x044bf4…044d88 }
0x044d88…044f1c Dummy {f00=0x0015, f01=0x0190, f02=» $ P IDENT DE30ST REL 10.0 80-04-11 P 79-10-10/DALI , DDUM DEDDIV D PDIV X P ENTRY DE30ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR * 2 P* EXTERNAL REFERENC
0x044f1c…0450b0 Dummy {f00=0x0015, f01=0x0190, f02=»ESTOR P EJECT * * START OF PROGRAM & * H PDE30ST PROC R P CBNE BIN2,W0,ENT1 f PDEST & P SET BOOL1 PART OF FORMAT DIDELAY PDEST10 P ATTFMT F30ST & P SET DEPROMPT PROMPT-TEXTS DIDELAY PDEST
0x0450b0…045244 Dummy {f00=0x0015, f01=0x0190, f02=»M r P PERF DERR P B DEST40 CANCEL . P CLEAR DEPROMPT < P B DEST20 T * f ENTER p P CBNE BIN1,W3,RET2 ~ P CBNE BIN2,W0,ENT1 P B DEST PENT1 P PERF DE31ST P CLEAR BOOL1 < P CALL RESTOR,W0,W1
0x045244…0453d8 Dummy {f00=0x0015, f01=0x0190, f02=»NUM,BIN1 P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF DEPMSK 4 P B DEST10 H * Z PRETUR d P MOVE BIN2,W1 r P MOVE BIN1,W0 PRET2 RET P PEND EJECT * * FORMATS * PF30ST FRMT
0x0453d8…04556c Dummy {f00=0x0015, f01=0x0190, f02=»OGRAM:' P FILLR '3',1 ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 $ P FMEL 'XX',PRNUM P P FBF BOOL1,F30OUT h FNL P FTEXT '31 ' P FCOPY =C'CREATE' P FILLR ' ',1 P FCOPY =C'JOB' P FILLR '-',1 P FCOPY =C'DEFI
0x04556c…045700 Dummy {f00=0x0015, f01=0x4046, f02=»PY =C'DEFINITION' PF30OUT FMEND ( END 6@ B1 $ P FMEL 'XX',PRNUM P P FBF BOOL1,F30OUT h FNL P FTEXT '31 ' P FCOPY =C'CREATE' P FILLR ' ',1 P FCOPY =C'JOB' P FILLR '-',1 P FCOPY =C'DEFI
0x045700…045894 (1, 87) Dummy {f00=0x0016, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x045894…045a28 Dummy {f00=0x0016, f01=0x0002, f02=»#
0x045a28…045bbc Dummy {f00=0x0016, f01=0x0190, f02=» ~ " ` ?( G ! +b L 8 b f P ,i p$ A j z H&g a ~N> ` `0 H ^% H @` z@u ` `N> H >N> `H ja @ `H ^ z@c @ i ` d @8 U ! ~ ` @Z @ @ ~ ^ @^ ` ~~ 6 ( . ~ @ ~ ~f ` & ^ f @ `
0x045bbc…045d50 Dummy {f00=0x0016, f01=0x0190, f02=»A1,12,A8 ICOMPS SEQUENCE ~ B P SUK SPTR,4 STACK POINTER ON ARG2 > P CF A14,ARG2 F P LD A1,REGFLG ONE ARGUMENT IN REGISTER ? 6 P RF(0) ICOMP1
0x045d50…045ee4 Dummy {f00=0x0016, f01=0x0190, f02=» JUMP IF SO v B P MLK 3 OUTPUT THE INSTRUCTION < P DATA X'8304' LDR A3,A1 f D P DATA 0 TO TRANSFER 2ND ARGUMENT H P DATA 0
0x045ee4…046078 Dummy {f00=0x0016, f01=0x0190, f02=» INSTRUCTION ^ F P CF A14,INST LD(*) A2,"1ST ARG" P RF ICOMP4 ^ P* ~ F P* NONE ARGUMENT IN REGISTER: PICOMP1 EQU * J P LDK.L A7,X'824
0x046078…04620c Dummy {f00=0x0016, f01=0x0190, f02=» FIRST ARGUMENT IN REGISTER: PICOMP2 EQU * D D P MLK 3 PRODUCE THE INSTRUCTION ` > P DATA X'8204' LDR A2,A1 H P DATA 0
0x04620c…0463a0 Dummy {f00=0x0016, f01=0x0190, f02=» t P* PICOMP3 EQU * J P ADK SPTR,4 STACK POINTER ON 2ND ARG.ITEM . D P LDK.L A7,X'8340' PRODUCE THE INSTRUCTION: | H P CF A14,INST LD(*) A3,"2ND ARG"
0x0463a0…046534 (1, 88) Opaque[0x194]
0x046534…0466c8 # DirEnt {nam=»DE40ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02c8, f03=0x0000}
0x046534…0466c8 IdxSect {
0x046534…0466c8 f00 = 0x0016 // 0x46534 @0x0
0x046534…0466c8 f01 = 0x0006 // 0x46536 @0x2
0x046534…0466c8 gno = [ // 0x46538 @0x4
0x046534…0466c8 [0x00]: C0x0016.0x1.0
0x046534…0466c8 [0x01]: C0x0016.0x2.0
0x046534…0466c8 [0x02]: C0x0016.0x3.0
0x046534…0466c8 ]
0x046534…0466c8 }
0x0466c8…04685c Dummy {f00=0x0016, f01=0x0190, f02=» $ P IDENT DE40ST REL 10.0 80-04-11 P 80-01-29/DALI , DDUM DEDDIV D PDIV X P ENTRY DE40ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRN P EXT DECLRS P EXT DERR
0x04685c…0469f0 Dummy {f00=0x0016, f01=0x0190, f02=» EXT DEPMSK 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* P P EXT DENT01 Z " P EXT DEOPBC OPEN BATCH-ROUTINE n P* P INCLUDE DELITT P EJECT 2 P********************************************* 2 P* START OF DAT
0x0469f0…046b84 Dummy {f00=0x0016, f01=0x0190, f02=»********************************************* PDE40ST PROC 6 P CLEAR BOOL2 J P MOVE JOBNAME,HEX00 ^ P MOVE BATCH,HEX00 z P CBNE BIN2,W0,DEEN10 PDEST00 & P SET BOOL1 PART OF FORMAT DISPLAY PDEST10 P TBT BOOL2,DEST20
0x046b84…046d18 Dummy {f00=0x0016, f01=0x0190, f02=» PDEST50 P CLEAR DECHANGE P TBT BOOL2,DEST55 * P PERF DECLRA D P B DEST60 X PDEST55 j P PERF DECLRS x PDEST60 $ P IB DEBINW2,DE40CA,DE40RE,DE40EN P MOVE DEBINW4,W0 PDE40ER P PERF DERR P B DEST60
0x046d18…046eac Dummy {f00=0x0016, f01=0x0190, f02=»TER-KEY PRESSED P* PDE40EN " ( P TBT BOOL2,OPEN1 JUMP IF OPEN BATCH 0 PDEEN10 P CBNE BIN1,W4,DERE30 j 0 P IB BIN2,DEEN20,DEEN50,DEEN30,DEEN40,DEEN15 P B DEST00 PDEEN15 P SET DOOL4 P B DEEN50 PDEEN20
0x046eac…047040 Dummy {f00=0x0016, f01=0x0190, f02=» CLEAR BOOL1 P B DEST20 P EJECT & * 4 P* RETURN-KEY PRESSED > * Z PDE40RE d * P CLEAR DOOL3 DATAENTERING ON USERFILE r P PERF OPCL,W4 CLOSE USERFILE P BNERR DERE20 P MOVE DEBINW1,W0 P PERF DERROR,DEKTAB6
0x047040…0471d4 (1, 89) Dummy {f00=0x0016, f01=0x0190, f02=»20 * P CLEAR DOOL5 IF SET RETURN FROM DEOPBC , P BNZ DERE60 OTHERWISE WITHIN THIS MODULE 8 ( P TBT BOOL2,DERE50 IF SET NOT FRMT 40 h ( P MOVE BIN2,W1 RETURN FROM THIS MODE P MOVE BIN1,W0 PDERE30 RET PDERE50 " P CLEAR BOO
0x0471d4…047368 Dummy {f00=0x0016, f01=0x0190, f02=» r P CLEAR DOOL4 P CLEAR DOOL8 P MOVE BIN1,W4 0 P MUL BIN1,W10 F P MOVE PRNUM,BIN1 P PERF DEPRUT,PRNUM,BIN1,BIN2 t P PERF DEPMSK P B DEST10 P EJECT * P************************************** ( P* THIS IS THE
0x047368…0474fc Dummy {f00=0x0016, f01=0x018e, f02=» MOVE DEBINW2,W0 POPEN2 P MOVE WORK(W11),W0 MSK-WORD & P MOVE WORK(W12),W0 COMP-WORD J P PERF DEOPBC,DEBINW2 n ( P IB DEBINW2,OPEN3,OPEN3,DE40RE,OPEN4 POPEN3 P PERF DENT01 P B OPEN2 POPEN4 P GETABX DEBINW3
0x0474fc…047690 Dummy {f00=0x0016, f01=0x0190, f02=» ~ * PF40ST FRMT FSL $ P FTEXT '40 ' 0 P FCOPY =C'ENTRY' D P FILLR ' ',1 P FCOPY =C'MODE' p FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P FBF BOOL1,F40OUT
0x047690…047824 Dummy {f00=0x0016, f01=0x0190, f02=» OLD ' P FCOPY =C'BATCH' P FNL & P FTEXT '43 ' 2 P FCOPY =C'OPEN NEW ' F P FCOPY =C'TEST' b P FILLR '-',1 z P FCOPY =C'BATCH' P FNL P FTEXT '44 ' P FCOPY =C'OPEN OLD ' P FCOPY =C'TEST' P FILLR '-',1
0x047824…0479b8 Dummy {f00=0x0016, f01=0x0190, f02=»1 P FLINK F45ST P FB F41ST2 PF41ST1 FMEL 'XX',PRNUM 0 P FTAB 4 N P FCOPY =C'ENTRY' ^ P FILLR ' ',1 v P FCOPY =C'MODE' P FBF DOOL7,F41ST2 P FILLR ' ',1 P FCOPY =C'TEST' PF41ST2 FNL P FLINK
0x0479b8…047b4c Dummy {f00=0x0016, f01=0x018e, f02=»5ST FRMT P FTEXT '45 ' P FCOPY =C'DELETE' $ P FILLR '-',1 > P FCOPY =C'BATCH' R P FMEND j PF40UV FRMT x P FCOPY =C'UNIT' P FTEXT ':U' ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 P FMEL 'X',USERFILE P FTAB 20
0x047b4c…047ce0 Dummy {f00=0x0016, f01=0x0190, f02=» P FCOPY =C'NAME' P FILLR ':',1 > P FKI 9,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=3,DUPL=STSAVE(W1) 4 P FCOPY JOBNAME v P FMEND PF40BAT FRMT P FCOPY =C'BATCH' P FCOPY =C'NAME' P FILLR ':',1 > P FKI 30,ALPHA,MINL=1,M
0x047ce0…047e74 (1, 90) Dummy {f00=0x0016, f01=0x405c, f02=»ND PBELL FRMT P FSL P FILLR X'07',1 ( P FMEND > P END L@ X
0x047e74…048008 Dummy {f00=0x0016, f01=0x2008, f02=»
0x048008…04819c Dummy {f00=0x0016, f01=0x0190, f02=»1 COMMA MISSING AFTER FIRST ELEM. OF AN EQUIV. LISTE ILLEGAL EQUIVALENCE LIST ELEMENT ILLEGAL SUBSCRIPT VALUER0 LEFT PARENTHESIS MISSING IN FORMAL ARGUMENT LIST ILLEGAL FORMAL ARGUMENTS1 ILLEGAL SYNTACTIC UNIT AFTER FORMAL ARGUMENT LISTN. MISSING LEFT PARENTHES
0x04819c…048330 Dummy {f00=0x0016, f01=0x0190, f02=»/ MISSING RIGTH PARENTHESIS IN A DEFINE FILE LISTS" ILLEGAL SYNTACTIC UNIT AFTER COMMA* CONSTANT LIST DOES NOT MATCH VARIABLE LIST/ NON-COMMON VARIABLE @ FORBIDDEN IN A BLOCK DATAA+ FORMAL ARG. @ CANNOT BE INITIALIZED BY DATA 3 INIT.OF COMMON VARIABLE @ FORBIDDEN
0x048330…0484c4 Dummy {f00=0x0016, f01=0x0190, f02=»1 NB. OF SUBSCRIPTS DOES NOT MATCH NB OF DIMENSIONS 2 A CONSTANT CANNOT BE CONVERTED TO THE COR.VAR.TYPE ILLEGAL OR TOO LARGE CONSTANT-# ILLEGAL SYNTAX FOR A DATA STATEMENTK ILLEGAL SUBSCRIPT LIST MISSING OR ILLEGAL DELIMITER ILLEGAL ITEM IN A CONSTANT LISTE$
0x0484c4…048658 Dummy {f00=0x0016, f01=0x0190, f02=»1 LOWER OR UPPER LIMIT MISSING IN A DO-IMPLIED LIST ! ILLEGAL STEP IN A DO-IMPLIED LIST ILLEGAL COMPLEX CONSTANT MISSING ELEMENT IN A LISTE2 @ IN A NAMELIST STATEMENT IS NOT VARIABLE OR ARRAY ARRAY NN IS GREATER THAN 32KITER ILLEGAL ITEM IN A CONSTANT LISTE$
0x048658…0487ec Dummy {f00=0x0016, f01=0x0190, f02=»% THIS STATEMENT IS TOO LONG TO COMPILE CONVERSION OVERFLOW @ IS NOT AN INTEGER VARIABLE ILLEGAL DO TERMINAL STATEMENT ) DO STATEMENT MUST NOT FOLLOW A LOGICAL IF 0 DO TERMINAL STATEMENT LABEL @ PREVIOUSLY DEFINED IMPROPERLY NESTED DO LOOPS UNDEFINED LABEL
0x0487ec…048980 Dummy {f00=0x0016, f01=0x0190, f02=»& EXPRESSION IN ARITHMETIC IF IS COMPLEX SYNTAX ERROR, END PARAMETER NOT ALLOWED FOR THIS STATEMENT* NAMELISTS ARE INCOMPATIBLE WITH RANDON I/O @ IS NOT A FORMAT LABEL NOT INTEGER EXPRESSION$ MISSING LIST IN AN UNFORMATTED WRITE) MULTIPLE RETURN NOT ALLOWED IN
0x048980…048b14 (1, 91) Opaque[0x194]
0x048b14…048ca8 # DirEnt {nam=»DE20ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x02e0, f03=0x0000}
0x048b14…048ca8 IdxSect {
0x048b14…048ca8 f00 = 0x0017 // 0x48b14 @0x0
0x048b14…048ca8 f01 = 0x000a // 0x48b16 @0x2
0x048b14…048ca8 gno = [ // 0x48b18 @0x4
0x048b14…048ca8 [0x00]: C0x0017.0x0.0
0x048b14…048ca8 [0x01]: C0x0017.0x1.0
0x048b14…048ca8 [0x02]: C0x0017.0x2.0
0x048b14…048ca8 [0x03]: C0x0017.0x3.0
0x048b14…048ca8 [0x04]: C0x0018.0x0.0
0x048b14…048ca8 ]
0x048b14…048ca8 }
0x048ca8…048e3c Dummy {f00=0x0017, f01=0x0190, f02=» $ P IDENT DE20ST REL 10.0 80-04-11 P 80-03-23/JAER , DDUM DEDDIV D PDIV X P ENTRY DE20ST f P ENTRY DEAP2A | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERROR * 6 P*
0x048e3c…048fd0 Dummy {f00=0x0017, f01=0x0190, f02=» EXT DE24ST COPY FORMAT P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE * P* f $ P EXT DEAOK0 RETURN TO DEAPPL =0 p $ P EXT DEANOK RETURN TO DEAPPL =3 $ P EXT DEAOK2 RETURN TO DEAPPL =2 $ P EXT DEAOK4 RETURN TO DEAPPL =4
0x048fd0…049164 Dummy {f00=0x0017, f01=0x0190, f02=»OOL BUFFERPOOL ROUTINE & P EXT CNTNUM CONTROL VARIABLE INDEX P* H P EXT RESTOR R P EXT DEPRUT f P EXT DEPMSK z P EXT CMPIND COMPERE INDEX EJECT * * KEYTABLES * & P* USAGE: DATA ENTRY S
0x049164…0492f8 Dummy {f00=0x0017, f01=0x0190, f02=» t P* PDEKTAB4 KTAB CLR,CAN,RET,CFW * 6 * START OF PROGRAM @ * b P EJECT l PDE20ST PROC z P CBNE BIN2,W0,ENT1 PDEST & P SET BOOL1 PART OF FORMAT DISPLAY PDEST20 P ATTFMT F20ST & P SET D
0x0492f8…04948c Dummy {f00=0x0017, f01=0x0190, f02=»ER t P B ERROR CANCEL P CLEAR DEPROMPT ( B STA050 @ * R ENTER P CBNE BIN1,W2,RET2 j P CBNE BIN2,W0,ENT1 P B DEST PENT1 P CLEAR BOOL7 , P PERFI BIN2,DE21ST,DE21ST,DE23ST,DE24ST P CLEAR DOO
0x04948c…049620 Dummy {f00=0x0017, f01=0x0190, f02=»E BIN1,W20 P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF DEPMSK 6 P B DEST20 J * ERROR f P MOVE DEBINW4,DEBINW2 t ERR2 P PERF DERROR,DEKTAB4 B STA100 * PRETUR P MOVE BIN2,W1 P MOVE BIN1,W0
0x049620…0497b4 (1, 92) Dummy {f00=0x0017, f01=0x0190, f02=»DEA21,DEA22,DEA23, C ( P DEA24,DEA25,DEA26,DEA27,DEA28, C P DEA29 J & P B DEAP2B LONG BRANCH CONSTRUCTION Z P EJECT P* P* APPLE=1,DE21 P* FORMAT DEFINED? P* PDEA21 . P XCOPY STR1A,W0,W1,DEINP
0x0497b4…049948 Dummy {f00=0x0017, f01=0x0190, f02=»1A , P CBNE STR1A,='*',DEE232 JUMP IF # * NOK PDE1B : P CBE FORMAT,DEINPUT,DEB21 F & P MOVE FRMTPNTR,W0 FORMATPOINTER:=0 h " P PERF DEDISC,W12 SEARCH FORMAT P BOK DEE28 FOUND NOT OK & P CBE DEBINW4,W9,DE1C NOT FOUND OK P B DEA
0x049948…049adc Dummy {f00=0x0017, f01=0x0190, f02=»,DEBIN4,STRG10A SEARCH AMONG BUFFERS z . P CBE DEBIN4,W0,DE1D NOT FOUND AMONG BUFFER , 6 P CBE DEBIN3,PINDDB,DE1D FOUND BUT SAME CURR BUFFER ^ P B DEE28 NOT OK PDE1D $ P GETCTL 0,DEBINW3 GET APPL VALUE . P CBE DEBINW3,=W'118',DEB21 JUMP IF A
0x049adc…049c70 Dummy {f00=0x0017, f01=0x0190, f02=»JECT P* P* APPLE=2,DE21 4 P* CHECK IF INPUT IS LESS THAN OR EQUAL 23 2 P* j PDEA22 t * P MOVE BCD3A,DEINPUT LOAD INPUT DECIMAL * P MOVE DEBINW3,BCD3A LOAD INPUT BINARY $ P MOVE DEBINW4,W23 LOAD 23 BINARY * P C
0x049c70…049e04 Dummy {f00=0x0017, f01=0x0190, f02=»APPLE=3,DE21 , P* CHECK IF INPUT IS Y(ES) OR N(O) P* D PDEA23 N P PERF DEYN CHECK YES OR NO P BOK DEAOK0 OK ~ P BNOK DEE26 ILLEGAL VALUE P EJECT P* P* APPLE=4,DE21 & P* CHECK AND GET FORMAT-N
0x049e04…049f98 Dummy {f00=0x0017, f01=0x0190, f02=» B DEANOK NOT OK PDE24A P MOVE DEBINW2,W17 FAKE ENTER & P B DEAOK0 OK J P EJECT ^ P* l P* APPLE=5,DE21 v @ P* CHECK IF INPUT IS LESS THAN 64 AND NOT > FIELDLENGTH P* PDEA25 * P MOVE BCD3A,DEINPUT LOAD I
0x049f98…04a12c Dummy {f00=0x0017, f01=0x0190, f02=»EB21 <64 OK ~ P B DEE26 ILLEGAL VALUE P EJECT 2 P* @ P* APPLE=6,DE21 J * P* DUPLICATION-REFERENCE-CONTROL f P* PDEA26 4 P MOVE FMTWK(W4),DEBINW1 STORE NUMB OF DUPL.CHARS 4 P PERF CNTNUM,DEINPUT,FMTWK,W4 CONTRO
0x04a12c…04a2c0 Dummy {f00=0x0017, f01=0x0190, f02=» APPLE=7,DE21 * P* CHECK IF INPUT VALUE < =32.767 P* D PDEA27 N , P MOVE BCD13A,DEINPUT LOAD INPUT DECIMAL , P CBNG BCD13A,=D'+32767',DEB21 <=32767 OK P B DEE26 ILLEGAL VALUE P EJECT P* P* APPLE=8,DE21
0x04a2c0…04a454 (1, 93) Dummy {f00=0x0017, f01=0x0190, f02=»OR NO z * P CBE STR1A,='C',DE8B C(ONDITIONAL) OK P B DEE26 ILLEGAL VALUE < PDE8A Z P CBE STR1A,='Y',DE8C f PDE8B P SET CTAB P B DEAOK0 PDE8C ( P CLEAR CTAB INICATE KEYED INP-FIELD P B DEAOK0 P EJECT
0x04a454…04a5e8 Dummy {f00=0x0017, f01=0x0190, f02=»D INPUT DECIMAL x ( P MOVE DEBINW3,BCD13A LOAD '99'BINARY P CALL CMPIND,DEBINW3,ACK(W1) D P BNOK DEE26 OUT OF RANGE h P B DEAOK0 OK P EJECT P* P* LONG BRANCHE LIST P* ( P* APPL VALUE HANDLING ROUTINE
0x04a5e8…04a77c Dummy {f00=0x0017, f01=0x0190, f02=»CTION r P* PDEB21 P B DEAOK0 & PDEE22 8 $ P MOVE DEBINW4,W2 UNDEFINED ERROR F P B DEANOK n PDEE26 " P MOVE DEBINW4,W6 ILLEGAL VALUE P B DEANOK PDEE28 $ P MOVE DEBINW4,W8 ALREADY DEFINED P B DEANOK
0x04a77c…04a910 Dummy {f00=0x0017, f01=0x0190, f02=»* LINE-DESIGN CONTROL P* $ PDEA210 . 2 P MOVE FMTWK(W5),DEBINW1 STORE NUMB OF LDES CHS < P MOVE BIN5,W0 LOAD STPOINTER r 2 P MOVE DEBIN4,DEBINW1 STORE NUMBER OF LDES CHRS PD10A P CLEAR BOOL8 , P MATCH DEINPUT,BIN5,DEBIN4,P
0x04a910…04aaa4 Dummy {f00=0x0017, f01=0x0190, f02=» FIELD = > l ( P MOVE DEBINW1,BIN5 SAVE STARTPOINTER * P MOVE BIN16,W0 STPOINTER PICCHRS-TABLE > , P MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 l & P BNOK D10X NUMERIC FIELD OK (E<X>) * P CBE BIN16,W0,D10B ALPHANUM INDICATED * P IB BIN16,D10B,D10D,
0x04aaa4…04ac38 Dummy {f00=0x0017, f01=0x0190, f02=»D ERROR ~ PD10B , P TBT BOOL6,D10NOK JUMP IF BALANCE FORMAT " P MOVE BIN15,BIN16 SAV PIC-TYPE L PD10C r P ADD BIN5,W1 NEXT POS ~ 2 P CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > . P MOVE BIN16,W0 STARTPOINTER PICCHRS-TABLE , P MAT
0x04ac38…04adcc Dummy {f00=0x0017, f01=0x0190, f02=»D10Z * P CBE BIN16,W12,D10J END OF FIELD FOUND P B D10NOK ILLEGAL PIC-STRG : PD10X P ADD BIN5,W1 NEXT POS h 2 P CBE BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > P MOVE BIN16,W0 , P MATCH PICSTR,BIN16,W15,DEINPUT,BIN5,W1 P BNOK
0x04adcc…04af60 Dummy {f00=0x0017, f01=0x018e, f02=»0-14 r P B D10NOK UNDEFINED ERROR PD10D . P SET BOOL8 : $ P B D10X LONG BRANCH INSTRUCTION L PD10F t P ADD BIN5,W1 NEXT POS 2 P CBG BIN5,FMTWK(W5),D10NOK NO END OF FIELD = > P MOVE BIN16,W0 , P MATCH PICSTR,BIN16,W15,DEINPU
0x04af60…04b0f4 (1, 94) Dummy {f00=0x0017, f01=0x0190, f02=» ( P TBF BOOL8,D10NOK JUST 'E':S NOT OK PD10J 0 P ADD BIN5,W1 NEXT MATCH POS < 0 P MOVE DEBIN4,FMTWK(W5) RESORE NUMB OF CHARS ` P SUB DEBIN4,BIN5 P CBE DEBIN4,W0,D10OK READY P B D10A SEARCH NEXT FIELD PD10NOK " P MOVE DEBI
0x04b0f4…04b288 Dummy {f00=0x0017, f01=0x018e, f02=»EAOK4 INDICATE EDIT-MODE PD10OK P MOVE BIN5,W0 . $ P ERASE 2,W5,W5 CLEAR LINE DESIGN D P MOVE LDISP,=' ' MOVE SPACES l P B DEAOK0 OK P EJECT P* ( P* APPL VALUE HANDLING ROUTINE P* P* P* LONG
0x04b288…04b41c Dummy {f00=0x0017, f01=0x0190, f02=» P DEA213,DEA214,DEA215, C P DEA216,DEA217,DEA218 & * P B DEE22 JUMP IF APPLE-VALUE OVERFLOW D P EJECT r P* P* APPL = 11,DE21 * P* SAVE NUMBER OF CHARS IN STRG 1 P* PDEA211 6 P MOVE FMTWK(W10),DEBINW1 S
0x04b41c…04b5b0 Dummy {f00=0x0017, f01=0x0190, f02=»VE NUMBER OF CHARS IN STRG2 P* $ PDEA212 . 6 P MOVE FMTWK(W11),DEBINW1 STORE NUMB OF ACC.-CHARS < $ P B DEAOK0 OK NO UPDATE OF FIELD v P EJECT P* P* APPL = 13,DE21 P* PDEA213 & P MOVE FRMTPNTR,W0 FORMATPOIN
0x04b5b0…04b744 Dummy {f00=0x0017, f01=0x0190, f02=»TR1A,='*',DE13A P CLEAR BOOL6 F=USER FORMAT P B DE13B : PDE13A J P SET BOOL6 T=BALANCE FORMAT X PDE13B | P B DEAOK0 P EJECT P* P* APPL=14,DE21 T P* MUST ENTER YES, SET SCHK4-BIT IF C(ONDITIONAL ME
0x04b744…04b8d8 Dummy {f00=0x0017, f01=0x0190, f02=»'C',DE14C P B DEE26 ILLEGAL VALUE PDE14C 0 & P SET SCHK4 INDICATE CONDITIONAL ME > P B DE14A CLEAR ME h PDE14B P CLEAR SCHK4 NO COND ME $ P CBE STR1A,='N',DE14A JUMP IF NO P SET ME INDICATE MUST ENTER P B DEAOK0 OK
0x04b8d8…04ba6c Dummy {f00=0x0017, f01=0x0190, f02=» AUTOTAB YES/NO SET NEOI-BIT IF YES P* 0 PDEA215 : P PERF DEYN CHECK YES OR NO H P BNOK DEE26 ILLEGAL VALUE j $ P CBE STR1A,='N',DE15A JUMP IF NO P SET NEOI INDICATE AUTO-TAB P B DEAOK0 OK PDE15A $ P CLEAR NEOI IN
0x04ba6c…04bc00 Dummy {f00=0x0017, f01=0x0190, f02=» IF YES h P* PDEA216 " P PERF DEYN CHECK IF YES OR NO ( P BNOK DEE26 ILLEGAL VALUE N $ P CBE STR1A,='N',D16A JUMP IF NO p & P SET VERIFY INDICATE VERIFICATION P B DEAOK0 PD16A * P CLEAR VERIFY INDICATE NO VERIFICATION
0x04bc00…04bd94 (1, 95) Dummy {f00=0x0018, f01=0x0190, f02=»* PDEA217 P PERF DEYN CHECK YES OR NO P BNOK DEE26 ILLEGAL VALUE : $ P CBE STR1A,='N',D17A JUMP IF NO & P CLEAR NCLR INDICATE INITIAL CLEAR P B DEAOK0 PD17A ( P SET NCLR INDICATE NO INITIAL CLEAR P B DEAOK0
0x04bd94…04bf28 Dummy {f00=0x0018, f01=0x018e, f02=» CHECK IF INPUT IS Y(ES) OR N(O) P* , PDEYN PROC 6 ( P MOVE STR1A,DEINPUT LOAD INPUT VALUE H " P CBE STR1A,='N',DEYNOK N(O) OK t $ P CBE STR1A,='Y',DEYNOK Y(ES) OK P CMP W0,W1 CR:#0 P B DEYNRT PDEYNOK P CMP W0,W0 CR:
0x04bf28…04c0bc Dummy {f00=0x0018, f01=0x0190, f02=» P FTEXT '20 ' P FCOPY =C'FORMAT' P FILLR '-',1 2 P FCOPY =C'DEFINITION' F FNL d P FCOPY =C'PROGRAM:' p ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM P FBF BOOL1,F20OUT P FNL P FTEXT '21 '
0x04c0bc…04c250 Dummy {f00=0x0018, f01=0x4144, f02=»COPY =C'BALANCE' P FILLR '-',1 ! P FCOPY =C'FORMAT' ! , P FCOPY =C'DEFINITION' ! F P FNL ! d P FTEXT '23 ' ! p P FCOPY =C'GET' ! P FILLR ' ',1 ! P FCOPY =C'FORMAT' ! P FNL ! P FTEXT '24 ' ! P FTEXT 'COPY ' ! P FCOPY =
0x04c250…04c3e4 Dummy {f00=0x0018, f01=0x2008, f02=» " P FTEXT '22 ' P FCOPY =C'BALANCE' P FILLR '-',1 : P FCOPY =C'FORMAT' N P FCOPY =C'DEFINITION' h P FNL P FTEXT '23 ' P FCOPY =C'GET' P FILLR ' ',1 P FCOPY =C'FORMAT' PF20OUT FMEND E
0x04c3e4…04c578 Dummy {f00=0x0018, f01=0x0190, f02=» b f 0 n 2!X!6 l ! T v ^ X @ T W D V P @ & @ T 2 W A < P C V 0 C V P @ T
0x04c578…04c70c Dummy {f00=0x0018, f01=0x0190, f02=» _" V ~ V 0 9 A ~ P P D D @ D D A @ V T V ~ V 0 ] R D D " = # @ T A _
0x04c70c…04c8a0 Dummy {f00=0x0018, f01=0x0190, f02=» D D B X._. P 9H P C @ P P D @ W" @ W D @ B V W U @ T W X @ D B @ T B @ T @ W X
0x04c8a0…04ca34 (1, 96) Opaque[0x194]
0x04ca34…04cbc8 # DirEnt {nam=»DEDDIV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0308, f03=0x0000}
0x04ca34…04cbc8 IdxSect {
0x04ca34…04cbc8 f00 = 0x0018 // 0x4ca34 @0x0
0x04ca34…04cbc8 f01 = 0x000e // 0x4ca36 @0x2
0x04ca34…04cbc8 gno = [ // 0x4ca38 @0x4
0x04ca34…04cbc8 [0x00]: C0x0018.0x1.0
0x04ca34…04cbc8 [0x01]: C0x0018.0x2.0
0x04ca34…04cbc8 [0x02]: C0x0018.0x3.0
0x04ca34…04cbc8 [0x03]: C0x0019.0x0.0
0x04ca34…04cbc8 [0x04]: C0x0019.0x1.0
0x04ca34…04cbc8 [0x05]: C0x0019.0x2.0
0x04ca34…04cbc8 [0x06]: C0x0019.0x3.0
0x04ca34…04cbc8 ]
0x04ca34…04cbc8 }
0x04cbc8…04cd5c Dummy {f00=0x0018, f01=0x0190, f02=» $ P IDENT DEDDIV REL 10.0 80-04-11 P 80-03-24 , L M************************************************************************ @ * * L L* ********************************************************* 4 0* * ITE
0x04cd5c…04cef0 Dummy {f00=0x0018, f01=0x0190, f02=»NUMBER z * * $ * * BOOL >0 - & $ * * BIN >0 - N 4 0* * BCD >0 A,B,C,............ v 4 0* * STR >0 A,B,C,............ * * L L*
0x04cef0…04d084 Dummy {f00=0x0018, f01=0x0190, f02=»**************** X P EJECT DDIV & TERM T1 4 P UWB CB1 D CWB CB2 T P CWB CB3 d CWB CB4 t CWB CB5 TWB TB2 TWB TB3 TWB TB4 TWB TB5 P TWB TB1 P DWB DB1(TB1) P DWB DB2(TB1)
0x04d084…04d218 Dummy {f00=0x0018, f01=0x0190, f02=»FC=D0,DEV=DU PDEDSDYKB DSET FC=20 PDEDSSCRN DSET FC=50 0 PDEDSPRT DSET FC=36 L ( P FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN f P EJECT P* P* STARTPOINT P* P* P* P START PTSDE P STACK 400
0x04d218…04d3ac Dummy {f00=0x0018, f01=0x0190, f02=» PRBUF STRG 768 RECORD AREA * POVERFLOW STRG 10 OVERFLOWAREA FOR RBUF & EJECT T * b * TERMINAL-BLOCK: 2R l 6 P* THIS DATA-BLOCK MUST NOT EXCCED 256 BYTES & "* USAGE: FORMAT-DEFINITION * PDB1 DBLK
0x04d3ac…04d540 Dummy {f00=0x0018, f01=0x0190, f02=» 6=FIELDLENGTH P 7=MINIMUMLENGTH P 8=USED RECORD SPACE 2 LDES STRG 80 LINE DESIGN P PLDISP STRG 80 LINE DISPLAY p PDUPL STRG 6 DUPLICATION-REF. * PFDVSTR STRGI (5),1 1=KEYED INPUT FIELD P 2=MUST ENTER FIELD P 3=A
0x04d540…04d6d4 (1, 97) Dummy {f00=0x0018, f01=0x0190, f02=» HANDLING ~ 0 PFMTWK BINI (24) WORKITEMS FORMAT GENERATION ( PPINDCB BIN POINTERINDEX CURR BUFFER F , PPINDDB BIN POINTERINEX 1ST DESC. BUFFER r $ PPINDND BIN NUMB OF DESC BUFFERS * PFBIN1 BIN WORKITEM FORMAT GENERATION * PFBIN2 BIN WORKI
0x04d6d4…04d868 Dummy {f00=0x0018, f01=0x018e, f02=»2 DBLK PSTATUS BIN STATUS " PSIZSYM BIN SIZE OF SYMBOLICS ( PSYMREC BINI (12) RECORDNR N & PFORTAB STRGI (21),6 FORMAT 1 - 21 p PJOBSPC STRG 1 P EJECT P* P* TERMINAL-BLOCK: 3R B P* THIS DATA-BLOCK MUS
0x04d868…04d9fc Dummy {f00=0x0018, f01=0x0190, f02=» PBDAFRO BOOL FROSEN BATCH " PBDATRA BOOL TRANSFERRED BATCH & PBDAFOR BOOL FORCED BATCH L PBDATES BOOL TESTBATCH n PBDAVER BOOL VERIFIED BATCH & PBDAACT BOOL BATCH DURING ENTERING , PBDAMVR BOOL RECORDS TO VERIFY IN BATCH &
0x04d9fc…04db90 Dummy {f00=0x0018, f01=0x0190, f02=»NSMITTED | P 4 = NUMBER OF FORCED P 5 = NUMBERS TO VERIFY 0 P 6 = LAST ENTERED SUBTOTAL P ( PACK BCDI (12),16 ACCUMULATORS 01 - 5 t * PUSEV STRGI (5),15 USER-VARIABLES 1 - 3 EJECT * * COMMON-BLOCK: 1 *
0x04db90…04dd24 Dummy {f00=0x0018, f01=0x0190, f02=» USED IN OPENSY PBOOLA2 BOOL USED IN OPENUS PUORG BOOL F < PW32 BIN W'32' CONSTANT P PW64 BIN W'64' CONSTANT n PW128 BIN W'128' CONSTANT PW188 BIN W'188' CONSTANT PW200 BIN W'200' CONSTANT & PF95PROC BINI (11) 5 % OF FIL
0x04dd24…04deb8 Dummy {f00=0x0018, f01=0x0190, f02=» NAME 8-8 NUMBER OF USERS P 9-9 LINK TO NEXT BUFFER , PBPOOL STRGI (1),2 BUFFERPOOL N EJECT r * * COMMON-BLOCK: 2 * * USAGE: CONSTANTS * PCB2 BLK W0 BIN W'0' CONSTANT
0x04deb8…04e04c Dummy {f00=0x0018, f01=0x0190, f02=» | PW6 BIN W'6' CONSTANT PW7 BIN W'7' CONSTANT $ PW8 BIN W'8' CONSTANT @ PW9 BIN W'9' CONSTANT W10 BIN W'10' CONSTANT x PW11 BIN W'11' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT PW14 BIN W'14' CONSTANT
0x04e04c…04e1e0 Dummy {f00=0x0018, f01=0x0190, f02=»* PCB3 BLK W16 BIN W'16' CONSTANT PW17 BIN W'17' CONSTANT 8 PW18 BIN W'18' CONSTANT V PW19 BIN W'19' CONSTANT t PW20 BIN W'20' CONSTANT PW21 BIN W'21' CONSTANT PW22 BIN W'22' CONSTANT PW23 BIN W'23' CONSTANT
0x04e1e0…04e374 (1, 98) Dummy {f00=0x0018, f01=0x0190, f02=»CONSTANT PW29 BIN W'29' CONSTANT " PSYSLEN BIN W'198' RECLEN SYST . 0 PFNOOFREC BINI (11) NO OF FREE RECORD IN FILE T EJECT * P* COMMON-BLOCK: 4 * " * USAGE: DISC-HANDLING PCB4 BLK PRECOV BO
0x04e374…04e508 Dummy {f00=0x0018, f01=0x0190, f02=» & PFILECODE BINI (11),X'D0' FILECODE * PFCOUNTER BINI (11) COUNTER (USER/FILE) . , PFINDEXPO BINI (11) POOLIND TO FREESP-REC PFRINF BINI (11) FILESTATUS ( PFFSNR BINI (11) REC.NUMBER FREESPACE $ PRBUFLN BIN RECORDBUFFERLENGTH PPRKEYS
0x04e508…04e69c Dummy {f00=0x0018, f01=0x0190, f02=»H MODE STARTING C | * P 0000000000 WITH SUPERVISORY MODE. C , P 0000000000 (PROGRAMNUMBERS 10 - 19). C H . P 0000000000 THE FIRST HALFBYTE IS USED C x * P 0000000000 BY PROGRAMNUMBER 10,THE C . P 0000000000 NEXT BY 11 AND SO ON UP TO C $
0x04e69c…04e830 Dummy {f00=0x0018, f01=0x0190, f02=»29). x P EACH HALBYTE REPRESENTS & P A KEYMASK AND CONSISTS OF FOUR . P BITS CORRESPONDING TO THE X P FOUR KEY-SWITCHES ON THE | $ P KEYBOARD.FOR INSTANCE IF THE $ P BYTE IS X'60',THE FIRST HALF- P BYTE IS 6, THEN THE
0x04e830…04e9c4 Dummy {f00=0x0018, f01=0x0190, f02=»D PROGRAM. | , PPROGNR STRG X' EXISTING PROGRAMNUMBERS C P 803F 00 - 15 C B P 0F83 16 - 31 C Z P 80FC 32 - 47 C r P 3C0F 48 - 63 C P 8300 64 - 79 C P 0000 80 - 95 C P 0000 96 - 115 C P ' P EJECT L P*
0x04e9c4…04eb58 Dummy {f00=0x0018, f01=0x018e, f02=»E | P POS 5 = DEVICE-CLASS " P CLASS = 1 DATA-COMM. OUT * P = 2 DATA-COMM.IN P P = 3 CASSETTE t " P = 4 PRINTER LP/GP P = 5 DISK-FILE $ P = 6 FLOPPY-DISC FILE $ P
0x04eb58…04ecec Dummy {f00=0x0018, f01=0x0190, f02=» n $ P 544B001203 TK[]<FC=12><CL=3> C $ P 4C50003604 LP[]<FC=36><CL=4> C 0 $ P 4750003004 GP[]<FC=30><CL=4> C X $ P 445500D005 DU[]<FC=D0><CL=5> C $ P 464400D806 FD[]<FC=D8><CL=6> C $ P 444C550007 DLU <FC=00><CL=7> C P ' P* DI
0x04ecec…04ee80 Dummy {f00=0x0018, f01=0x018e, f02=»F2 FIXDISC 2 6875/6876 C P F3 CARTRIDGE 2 6875/6876 C P F8 FLEX 1 6879 C D P F9 FLEX 2 6879 C ^ P FA FLEX 3 6879 C x P FB FLEX 4 6879 C P FC 80-MB 6877 C P ' EJECT * P* COMMON-BLOCK: 5
0x04ee80…04f014 (1, 99) Dummy {f00=0x0019, f01=0x018e, f02=» p P E9 0 = DUMMY C P C0 1 = FCOPY C P C2 2 = FMELI C 8 P C3 3 = FTEXT C P P C4 4 = FTAB C h P C5 5 = FVAL C P C6 6 = FGEN C P C7 7 = FACC C P CC 8 = FDUPL C P DE 9 = FLINK C P E0 10= FSL C
0x04f014…04f1a8 Dummy {f00=0x0019, f01=0x0190, f02=» P F8 16= FKI DUPL C " P FA 17= FKI APPLE<255 DUPL C " P FB 18= FKI APPLE>255 DUPL C F P ' l P EJECT x PSYSBUF STRG 256C DISC BUFFER PDATE BCD 8X'0F000000' YYMMDD PTIME BCD 8 HHMMSS PHEX00 STRG 1X'00' PAUSE ITEM
0x04f1a8…04f33c Dummy {f00=0x0019, f01=0x0190, f02=»',C'C',C'H' P EJECT & PVALSTR STRG X' VALIDATION STRING C " P 4D 0. M=MESSAGE C L P 2F 1. /=NOT C h P 3D 2. ==EQUAL C P 3E 3. >=GREATER C P 3C 4. <=LESS C " P 44 5. D=DUPLICATE STRING C P* P 4C 6.
0x04f33c…04f4d0 Dummy {f00=0x0019, f01=0x0190, f02=»SER VARIABLE C P 46 11. F=FORMAT FIELD C P 54 12. T=VALUE SET C 8 * P 43 13. C=CODED VALIDATION ROUTINE C V P 45 14. E=EMPTY FIELD C P* P 2B 15. +=ADD C P 2D 16. -=SUBTRACT C P 2A 17. *=MULTIPLY C P 3A 1
0x04f4d0…04f664 Dummy {f00=0x0019, f01=0x0190, f02=»* P 3F 22. ?=INSIGNIFICANCE C " P 27 23. '=LITERAL SEPARATOR C . $ P 5A 24. Z=ZEROISE ACCUMULATOR C T P 47 25. G=GO TO FIELDNR C | $ P 52 26. R=NEXT FORMAT CHANGE C ( P 4E 27. N=IMMIDIATE RECORD CHANGE C $ P 58 28. X=INDEX OF VA
0x04f664…04f7f8 Dummy {f00=0x0019, f01=0x0190, f02=»TATIU C P 4D 0. M=MUST VERIFY C P 45 1. E=ENTERING C 0 P 56 2. V=VERIFIED C L P 54 3. T=TEST ENTERED C h P 46 4. F=FORCED C P 43 5. C=CONVERTED C P 41 6. A=ACCEPTED(FROSEN) C P 42 7. B=BALANCED C P 2F 8.
0x04f7f8…04f98c Dummy {f00=0x0019, f01=0x0190, f02=»UM C r ( P 52 1. R=RIGHTADJUSTED ALPHANUM C * P 41 2. A=LEFTADJUST TO LEAD. DIG. C 8 $ P 50 3. P=SKIP THIS POSITION C f * P 54 4. T=LEFTADJ. TO LEAD. N. ZER C $ P 58 5. X=PRINT ALPHANUMERIC C * P 5A 6. Z=LEAD. ZEROES REPL. SPACE
0x04f98c…04fb20 Dummy {f00=0x0019, f01=0x0190, f02=» P 2C 10. ,=INSERT COMMA C P 2E 11. .=ROOMLESS POINT C & & P 3E 12. >=END OF PICTURE STRING C J ( P 3C 13. <=BEGIN OF PICTURE STRING C t P 30 14. 0=LEFT ZERO FILL C P ' P EJECT & PPICCON STRG X' PICTURECONVERTION C ( P
0x04fb20…04fcb4 (1, 100) Dummy {f00=0x0019, f01=0x0190, f02=» LEFT ZERO FILL C P ' * PLRUQUE STRG 48 LEAST RECENT USED QUEUE & EJECT T * b P* TERMINAL-BLOCK: 2 l * 2 -* USAGE: TERMINAL-DEPENDENT VARIASBELS * PTB2 BLK " PKEY4 BOOL POSITION INDICATORS
0x04fcb4…04fe48 Dummy {f00=0x0019, f01=0x0190, f02=»BOOL WORKITEM BOOL3 BOOL WORKITEM BOOL4 BOOL WORKITEM 2 BOOL5 BOOL WORKITEM N BOOL6 BOOL WORKITEM j BOOL7 BOOL WORKITEM BOOL8 BOOL WORKITEM PBOOL9 BOOL WORKITEM $ PDECHANGE BOOL VARIABLES CHANGED " PDEPROM
0x04fe48…04ffdc Dummy {f00=0x0019, f01=0x0190, f02=»EM ~ PDEBIN3 BIN WORKITEM PDEBIN4 BIN WORKITEM & PDEBIN5 BIN WORKITEM B ( PUSELEN BIN LENGTH OF MAX RECORDAREA ^ PKEYMSK BIN MASK AUTHORITY & PNUMBER BCD 7 CURRENT RECORDNUMBER & !PRNUM BCD 4 CURRENT PROGRAMNUMBER $ USERFILE
0x04ffdc…050170 Dummy {f00=0x0019, f01=0x018e, f02=» & !FORMAT STRG 6 CURRENT FORMAT-NAME ! " PSYMBOL STRG 6 CURRENT SYMBOLIC ! . " PSTATSH STRG 133 SEARCH STATUS ! T EJECT ! z * ! * TERMINAL-BLOCK: 3 ! * ! " * USAGE: DATA ENTERING ! * ! PTB3 BLK ! PSWIT01 BOO
0x050170…050304 Dummy {f00=0x0019, f01=0x0190, f02=» PSWIT06 BOOL -"- " PSWIT07 BOOL " PSWIT08 BOOL USED IN DEDISC " 4 $ PSW95PR BOOL 95% FILESPACE USED " X $ PSOOL1 BOOL USED FOR STATUSLINE " PSOOL2 BOOL -"- " PDOOLA BOOL " PDOOLB BOOL " PDOOLC BOOL " PVERIFM BOOL
0x050304…050498 Dummy {f00=0x0019, f01=0x0190, f02=»CNO FMT-CHAIN " x * PMAXOCC BIN RESERVED FOR DISCHANDLING # $ PPTRFMCH BIN POINTER IN RNRFMCH # D * PCURSEC BIN CURRENT SECTORNO USERFILE # l $ PFILINDUS BIN INDEX FOR USERFILE # , (PRECPR BIN PREVIOUS DATA-RECORD IN RBUF # & !PRECCUR BIN CURRENT
0x050498…05062c Dummy {f00=0x0019, f01=0x0190, f02=»FMT # r * PPINACC BIN POOLINDEX TO ACCUMULATORS $ * PPWBDB4 STRG 16 SAVEAREA FOR WORKBLOCKS $ : P AND DESCRIPTORS $ h " PSTR64A STRG 64 STRINGWORKITEM $ 6 PSTSAVE STRGI (4),6 THIS VARIABEL IS USED TO SAVE C $ & P X'000000000000',X'000000000000' $
0x05062c…0507c0 Dummy {f00=0x0019, f01=0x0190, f02=»JECT $ * % * TERMINAL-BLOCK: 4 % * % 8 0 ,* USAGE: BOOLEAN AND BINARY WORKITEMS % B * % v TB4 BLK % PDBOBAL BOOL BALANCED RECORD % PDBOFRO BOOL FROSEN RECORD % $ PDBOTRA BOOL TRANSFERRED RECORD % PDBOFOR BOO
0x0507c0…050954 (1, 101) Dummy {f00=0x0019, f01=0x018e, f02=» " PDBOMVR BOOL MUST BE VERIFIED & " PDOOL1 BOOL USED IN ENTRY MODE & * PDOOL2 BOOL -"- & P PDOOL3 BOOL -"- & n PDOOL4 BOOL -"- & PDOOL5 BOOL -"- & PDOOL6 BOOL -"- & PDOOL7 BOOL T=TEST MODE & & PDO
0x050954…050ae8 Dummy {f00=0x0019, f01=0x018e, f02=» BIN3 BIN WORKITEM ' BIN4 BIN WORKITEM ' BIN5 BIN WORKITEM ' 8 BIN6 BIN WORKITEM ' R BIN7 BIN WORKITEM ' l BIN8 BIN WORKITEM ' BIN9 BIN WORKITEM ' BIN10 BIN WORKITEM ' BIN11 BIN WORKITEM ' BIN12 BIN WORKITEM '
0x050ae8…050c7c Dummy {f00=0x0019, f01=0x0190, f02=» ' * TERMINAL-BLOCK: 5 ( * ( * D P* USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES ( 4 . P* BOOLEANS: BITS OF CTLWORD IN FKI ( | * ( PTB5 BLK ( & PSCHK1 BOOL SPECIAL CHECK 1 MINUS ( PSCHK2 BOOL SPECIAL CH
0x050c7c…050e10 Dummy {f00=0x0019, f01=0x0190, f02=»AB.-BIT ( ~ PNCLR BOOL T NO CLEAR-BIT ) PREWRT BOOL REWRITE-BIT ) 0 " PNEOI BOOL NOT-END-OF-ITEM-BIT ) P PALPHA BOOL ALPHANUMERIC BIT ) v PME BOOL MUST ENTER BIT ) P EJECT ) PDEBINW1 BIN DENTERVARIABLE ) PDEBINW2 BIN DENTERVARIABLE
0x050e10…050fa4 Dummy {f00=0x0019, f01=0x0190, f02=» 81 DENTERVARIABLE ) BCD2A BCD 2 WORKITEM * PBCD3A BCD 3 WORKITEM * 6 PBCD13A BCD 13 WORKITEM * R STR1A STRG 1 WORKITEM * p STR2A STRG 2 WORKITEM * PSTR6A STRG 6 WORKITEM * PSTR6B STRG 6 * PSTRG10A STRG 10 WORKITEM * PSTR15A STR
0x050fa4…051138 Dummy {f00=0x0019, f01=0x0190, f02=»TB6 BLK * & PNEWVOL BOOL F 'NEW VOLUME LOADED' + " PSWITFS BOOL F FREESPACE TAKEN + : & PSWITWT BOOL F SYSBUF ATTACHED Y/N + ` * PSWITSY BOOL F SYSTEMFILE ASSIGNED Y/N + ( PSWITUS BOOL F USERFILE ASSIGNED Y/N + & PASDFLAG BOOL T AUTOMATIC SKIP/DUP +
0x051138…0512cc Dummy {f00=0x0019, f01=0x018e, f02=»WORKITEM, DISC-ROUTINES + ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES , $ PDKBIN3 BIN WORKITEM, DISC-ROUT , L PSECLEN BIN W'256' , t P SECTORLENTH USERFILE , ( PTABLE STRG 6 TABLE-NAME (VALUE-SETS) , PEOLINE BIN END-OF-LINE , ( PVSEIND BIN VA
0x0512cc…051460 Dummy {f00=0x0019, f01=0x4014, f02=» END - @ - NES + ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES , $ PDKBIN3 BIN WORKITEM, DISC-ROUT , L PSECLEN BIN W'256' , t P SECTORLENTH USERFILE , ( PTABLE STRG 6 TABLE-NAME (VALUE-SETS) , PEOLINE BIN END-OF-LINE , ( PVSEIND BIN VA
0x051460…0515f4 (1, 102) Dummy {f00=0x0019, f01=0x2008, f02=» . EOLINE BIN END-OF-LINE + ( PVSEIND BIN VALUE-SET ELEMENT INDEX + ( " PWORK BINI (12) FREE WORK ITEMS + T P WORKITEM 11,12 USED BYE + z P SEARCH MODE + PDIV + END + @ + SC-ROUTINES * ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES
0x0515f4…051788 Dummy {f00=0x0019, f01=0x0190, f02=» X% > @ ( X% ? @ ) X% @ @ * U ! # % ' * . 2 : C M Y f s 0 Q Q '" ! $ & ! % 0 & $Xm 2 _ & $4
0x051788…05191c Dummy {f00=0x0019, f01=0x0190, f02=» t H h l p( !Ad1 An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 4 W ) 4 m ,P ) ? 6j !& 'bc c b W 0* ! 2 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x05191c…051ab0 Dummy {f00=0x0019, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 3? !6 (DTdt_ * ? + ? ,< j ! ! 4 @iW Ai? P ! 5 ? A W @ ! 7 A ? @ ?
0x051ab0…051c44 Dummy {f00=0x0019, f01=0x0190, f02=»% <0' ,0& , $ ? r8 ( 2 0% 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 0' {$* p!0
0x051c44…051dd8 Dummy {f00=0x0019, f01=0x0190, f02=»!* & & & ! 1 0 "}H{ Ij 0 !6 H" W 0' {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0+ 6 55 555555555W 'I ( W Ij I }I
0x051dd8…051f6c Dummy {f00=0x0019, f01=0x0190, f02=» ' 0" (T W $0( "W 0( 4 u C o 4 7 ! i 8 G 8 U 1 ' v *CFNYGETUSERBALANCE P 'g @ U 20 # - , )
0x051f6c…052100 Dummy {f00=0x0019, f01=0x0190, f02=» 0 7 Q ( ` ` H{ Ij 0 !6 H" W 0' {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0+ 6 55 555555555W 'I ( W Ij I }I
0x052100…052294 (1, 103) Opaque[0x194]
0x052294…052428 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0850, f03=0x0000}
0x052294…052428 IdxSect {
0x052294…052428 f00 = 0x0042 // 0x52294 @0x0
0x052294…052428 f01 = 0x0004 // 0x52296 @0x2
0x052294…052428 gno = [ // 0x52298 @0x4
0x052294…052428 [0x00]: C0x0042.0x2.0
0x052294…052428 [0x01]: C0x0042.0x3.0
0x052294…052428 ]
0x052294…052428 }
0x052428…0525bc Dummy {f00=0x0042, f01=0x0190, f02=» P$TRALI PSCR /O PTRA DEDDIV PTRA DEDISC 2 PTRA DKRUT1 D PTRA DKRUT2 V PTRA DKRUT3 h PTRA DKRUT4 z PTRA PTSDE PTRA DENTER PTRA DENT01 PTRA DENT02 PTRA DENT03 PTRA DENVAL PTRA DEPOOL
0x0525bc…052750 Dummy {f00=0x0042, f01=0x018e, f02=»ST PTRA DEATTF PTRA DE23ST PTRA DE24ST . PTRA DE30ST @ PTRA DE31ST R PTRA DE40ST d PTRA DE20FS v PTRA DEUNPF PTRA DEPRFG PTRA DEPROC PTRA DECVRT PTRA DEVGAC PTRA DE50ST PTRA DE60ST PTR
0x052750…0528e4 Dummy {f00=0x0042, f01=0x0190, f02=» PTRA DEGENE PTRA STROUT PTRA DEAPPU , PTRA DECOMP > PTRA DELOCK P PTRA DESTAT b PASM ASSRUT t PASM CDVRUT PASM DATCHK PKPF /O PSCR /O PASG 2,LP0F P$LINK PEND P$TRANL PASG 2,NO
0x0528e4…052a78 Dummy {f00=0x0042, f01=0x0190, f02=» P$PROD PDEL DEPROD,/L PSCR /O , PNOD C : PINC PTSDE H PINC DEDISC Z PINC DELOCK l PNOD ~ PTLK U,2K PINC /OBJCT,INT:PROD,/F0 PLKE M PKPF /L,DEPROD PSCR /O PEND $LINK PDE
0x052a78…052c0c Dummy {f00=0x0042, f01=0x0190, f02=» KPF /L,DELINK PEND P$LINKLI * PDEL DELINK,/L : PSCR /O P PNOD C ^ PINC PTSDE l PINC DEDISC ~ PINC DELOCK PNOD PINC DEACCU PINC DEGENE PNOD PTLK U,M,1850 PLKE M PKPF /L,D
0x052c0c…052da0 Dummy {f00=0x0042, f01=0x018e, f02=»DK PPOB PKPF 3,LINKOB PEND * P$CROSS 6 PSCR /O D PINC /OBJCT R PASG 3,DK d PPOB t PRUN OBX PEND P$SIZE PSCR /O PNOD C PINC PTSDE PINC DEDISC PINC DELOCK PNOD P
0x052da0…052f34 (1, 104) Dummy {f00=0x0042, f01=0x018e, f02=» PNOD PINC DKRUT3 PNOD " PINC DKRUT4 . PNOD @ PINC DEPOOL L PNOD ^ PINC DE10ST j PNOD | PINC DE11ST PNOD PINC DE12ST PNOD PINC DE1201 PNOD PINC DE14ST PNOD PINC DE15
0x052f34…0530c8 Dummy {f00=0x0042, f01=0x0190, f02=» PINC DE24ST PNOD PINC DE30ST & PNOD 8 PINC DE31ST D PNOD V PINC DE40ST b PNOD t PINC DE50ST PNOD PINC DE20FS PNOD PINC DE60ST PNOD PINC DE70ST PNOD PINC DE80ST
0x0530c8…05325c Dummy {f00=0x0042, f01=0x018e, f02=»C DEVGAC PNOD PINC DEACCU PNOD . PINC DEGENE : PNOD L PINC STROUT X PNOD j PINC DEAPPU v PNOD PINC DECOMP PNOD PINC DECVRT PNOD PINC DEPRFG PNOD PINC DEUNPF PNOD
0x05325c…0533f0 Dummy {f00=0x0042, f01=0x0074, f02=» PTLK U,2K PEND P$TRA $ PTRA @S= 0 PKPF /O @ PXRF @S= N PSKF 2 ^ PEND l PINC DEAPPU v PNOD PINC DECOMP PNOD PINC DECVRT PNOD PINC DEPRFG PNOD PINC DEUNPF PNOD
0x0533f0…053584 Dummy {f00=0x0042, f01=0x2008, f02=» TLK U,2K PEND P$TRA $ PTRA @S= 0 PKPF /O @ PXRF @S= N PSKF 2 ^ PEND l PINC DEAPPU v PNOD PINC DECOMP PNOD PINC DECVRT PNOD PINC DEPRFG PNOD PINC DEUNPF PNOD
0x053584…053718 Dummy {f00=0x0042, f01=0x0190, f02=»L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b !&
0x053718…0538ac Dummy {f00=0x0042, f01=0x0190, f02=»!4 F & 0^ 8 %z >%v 2>1z182 2 1P2P1& 2 . (1 n t $t& $ 0 1 3 $" @ Z# #Z . j$ $ % %X 1 zg g 4 z % a | D b e ) 1 @ }
0x0538ac…053a40 Dummy {f00=0x0042, f01=0x0190, f02=» F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x053a40…053bd4 (1, 105) Opaque[0x194]
0x053bd4…053d68 # DirEnt {nam=»CDVRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0350, f03=0x0000}
0x053bd4…053d68 IdxSect {
0x053bd4…053d68 f00 = 0x001a // 0x53bd4 @0x0
0x053bd4…053d68 f01 = 0x0004 // 0x53bd6 @0x2
0x053bd4…053d68 gno = [ // 0x53bd8 @0x4
0x053bd4…053d68 [0x00]: C0x001a.0x2.0
0x053bd4…053d68 [0x01]: C0x001a.0x3.0
0x053bd4…053d68 ]
0x053bd4…053d68 }
0x053d68…053efc Dummy {f00=0x001a, f01=0x0190, f02=» $ P IDENT CDVRUT REL 10.0 80-04-11 P 79-03-12/PEEN , P UPD 79-01-18/PEEN D P* ` P* j 6 P* THIS ROUTINE MAKES CDV-CHECK ON A STRING ITEM. t P* @ P* NOTE: THE DIGIT(S) ZERO SHOULD BE INSERTED IN THE STRING : P* AS
0x053efc…054090 Dummy {f00=0x001a, f01=0x0190, f02=» LENGTH t P* P* 6 P* CALLING FORMAT: 1. CALL CDV10,STRING,BIN $ 6 P* 2. CALL CDV110,STRING,BIN ^ 6 P* 3. CALL CDV111,STRING,BIN P* D P* 'STRING' = A STRING
0x054090…054224 Dummy {f00=0x001a, f01=0x0190, f02=»OT NUMERIC CHARACTERS ARE SKIPPED) j H P* 'BIN' = A BINARY ITEM HOLDING THE CHECK- * F P* DIGIT(S) AS OUTPUT IF THE CHECK v 8 P* WAS UNSUCCESSFUL P* P*
0x054224…0543b8 Dummy {f00=0x001a, f01=0x0190, f02=» 'BIN' HOLDS CHECK-DIGIT(S) IF CR=1 (ELSE BIN=0) P EJECT F P* USE OF REGISTERS T P* REGISTER USE t ( P* A1 COUNTER FOR MULTIPLY " P* A2 CURRENT WEIGHT & P* A4 CHARACTER SAVE AREA *
0x0543b8…05454c Dummy {f00=0x001a, f01=0x0190, f02=»SUM n " P* A10 SUM OF PRODUCTS P* 2 P* < P* PARAMETERS FOR CDV F < P* USE CONTENTS AT CDV10 CDV110 CDV111 f P* : P* MAX FOR RESTART OF WEIGHT 2 11 10 < P* DIVIDEND FOR TOTAL SU
0x05454c…0546e0 Dummy {f00=0x001a, f01=0x0190, f02=»VA0 P EXTRN I:RT1 P* P* * PCALL FORM 16=/F6A1,16 4 EJECT R CDV110 EQU * ` " LDK A6,11 LOAD RESTART LIMIT t CD005 EQU * P LDK A7,11 LOAD DIVIDEND RF CDV20 * * CDV111 EQU * "
0x0546e0…054874 (1, 106) Dummy {f00=0x001a, f01=0x018e, f02=» A7,10 LOAD DIVIDEND CDV20 EQU * ( $ CALL I:EVA0 ADDRESS TO INPUT STRING 0 LDK A2,1 LOAD START WEIGHT SUR A10,A10 ZERO TO SUM CDV30 EQU * CWR A5,A9 RF(E) CDV60 IF FINISHED LC A4,-1,A5 GET CHARACTER P
0x054874…054a08 Dummy {f00=0x001a, f01=0x0190, f02=» * * %* MULTIPLY AND ACCUMULATE ONE DIGIT LDR A1,A2 SET WEIGHT < CDV40 EQU * Z ADR A10,A4 ADD TO SUM n SUK A1,1 DECREMENT COUNTER RB(P) CDV40 IF MORE TO ADD & ! CWR A2,A6 MULTIPLY BY 2 IN CDV10 RF(NE) CD
0x054a08…054b9c Dummy {f00=0x001a, f01=0x0190, f02=»2,1 INCREMENT WEIGHT CWR A2,A6 " RF(NG) CDV50 IF NOT MAX LIMIT . LDK A2,1 RESTART WEIGTH T CDV50 EQU * t SUK A5,1 DECREMENT POINTER RB CDV30 CONTINUE * CDV60 EQU * LDK A6,0 INDICATE OK P CWK A
0x054b9c…054d30 Dummy {f00=0x001a, f01=0x417a, f02=»CT 10/11 FROM SUM ~ RB(P) CDV70 SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK < P NGR A10,A10 GET CHECK DIGIT LDK A6,1 INDICATE NOT OK CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR
0x054d30…054ec4 Dummy {f00=0x001a, f01=0x2008, f02=» SUM STILL > 0 RF(Z) CDVOUT IF CDV-OK ADR A10,A7 GET CHECK DIGIT > LDK A6,1 INDICATE NOT OK b CDVOUT EQU * & ! CALL I:EVA0 GET CHECK-DIGIT ITEM * & STR A10,A9 STORE CHECK-DIGIT IF ERROR LD A1,2,A13 GET STACK B
0x054ec4…055058 Dummy {f00=0x001a, f01=0x0190, f02=» F IDENT ASSRUT D @ CHANFCK CREVOL CREFIL DELFIL GETVOL COPYDD GETFREL CHVOL $ J F " SURVEY UPDBOL UPDBIN SETBY TESTB CLEARB MSKOUT` RDSECT SETOCCN l 4 0 SETFRE VOLNAMR ATTWB CMPIND GETIND! RESTOR CHANFCK
0x055058…0551ec Dummy {f00=0x001a, f01=0x0190, f02=» ~ I:RT1 CREFIL L , , ( 5 D ' @ , ( O p CRFILE , ( i ' DELFIL , (
0x0551ec…055380 Dummy {f00=0x001a, f01=0x0190, f02=» z COPVOL , ( * GETVOL Z , ( ' n , ( ( B Q C C , ( ! ( B T B $ ' , ( A D
0x055380…055514 (1, 107) Opaque[0x194]
0x055514…0556a8 # DirEnt {nam=»DE50ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0360, f03=0x0000}
0x055514…0556a8 IdxSect {
0x055514…0556a8 f00 = 0x001b // 0x55514 @0x0
0x055514…0556a8 f01 = 0x000a // 0x55516 @0x2
0x055514…0556a8 gno = [ // 0x55518 @0x4
0x055514…0556a8 [0x00]: C0x001b.0x0.0
0x055514…0556a8 [0x01]: C0x001b.0x1.0
0x055514…0556a8 [0x02]: C0x001b.0x2.0
0x055514…0556a8 [0x03]: C0x001b.0x3.0
0x055514…0556a8 [0x04]: C0x001c.0x0.0
0x055514…0556a8 ]
0x055514…0556a8 }
0x0556a8…05583c Dummy {f00=0x001b, f01=0x0190, f02=» $ P IDENT DE50ST REL 10.0 80-04-11 P UPD 80-04-24/DALI , P 80-04-14/DALI H DDUM DEDDIV ` PDIV t P ENTRY DE50ST P ENTRY DEAP5A * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT
0x05583c…0559d0 Dummy {f00=0x001b, f01=0x0190, f02=»XT DERECS P EXT DEDISC P EXT SETB & P EXT TESTB 8 P EXT CLEARB J P EXT MSKOUT ^ P EXT DERROR r P EXT OPCL P EXT DESTAU BUILD STATUS P EXT DEPRUT P EXT ATTWB P EXT ATTDB P EXT EMPTYT P EXT
0x0559d0…055b64 Dummy {f00=0x001b, f01=0x0190, f02=» INCLUDE DELITT EJECT 2 P********************************************* & 0 P* START OF SEARCH/CORR. HANDLE PRORAMSCREEN- ( P* LAYOUTS 50,51,52,53 SEARCH MODE. , P* THESE ROUTINES USE THE DENTER-SCREEN. 2 P****************************
0x055b64…055cf8 Dummy {f00=0x001b, f01=0x0190, f02=»50EN PDEST00 & P SET BOOL1 PART OF FORMAT DISPLAY PDEST10 D P TBT BOOL2,DE50EN R P ATTFMT F50ST l & P SET DEPROMPT PROMPT-TEXTS DISPLAY PDEST50 P CLEAR DECHANGE P PERF DECLRS PDEST60 $ P IB DEBINW2,DE50CA,D
0x055cf8…055e8c Dummy {f00=0x001b, f01=0x0190, f02=» t P MOVE DEBINW4,BIN3 PDE50E2 " PDE50ER 0 P PERF DERR > P B DEST60 P P EJECT b P* p P* CANCEL-KEY PRESSED z P* PDE50CA P CLEAR DEPROMPT P B DEST50 * P* ENTER-KEY PRESSED P* P
0x055e8c…056020 Dummy {f00=0x001b, f01=0x0190, f02=» CLEAR DOOL3 P BZ DERE20 P PERF OPCL,W4 CLOSE USERFILE & P BNERR DERE20 J P MOVE DEBINW1,W0 ` P PERF DERROR,DEKTAB6 x PDERE20 P TBT BOOL2,DERE50 P MOVE BIN2,W1 P MOVE BIN1,W0 PDERE30 RET PDERE50
0x056020…0561b4 (1, 108) Dummy {f00=0x001b, f01=0x0190, f02=»LEAR BOOL1 PART OF FORMAT DISPLAY P SET BOOL2 LEVEL 2 IN SEARCH * & P MOVE EOLINE,W2 NUMBER OF BUFFERS N $ P MOVE BIN4,W2 NUMBER OF CONSEC. x 0 P PERF DEPOOL,W2,EOLINE,BIN4,STRG10A GET LOCK P BNOK DE50ER P MOVE DEBINW2,W0 PDE5203
0x0561b4…056348 Dummy {f00=0x001b, f01=0x0190, f02=» x & P XCOPY BPOOL(EOLINE),W0,W1,W128,W1 & P XCOPY BPOOL(EOLINE),W1,W1,W15,W1 2 & P XCOPY BPOOL(EOLINE),W5,W1,W24,W1 $ P CALL ATTWB,BPOOL(EOLINE),W8,W11 $ P CALL ATTDB,BPOOL(EOLINE),W0,W11 P CBNE DEBINW2,W0,DE52EN & P CBE BIN2,W2,DE520
0x056348…0564dc Dummy {f00=0x001b, f01=0x0190, f02=» CLEAR DECHANGE P PERF DECLRS PDE5210 , P PERF DEPRUT,PRNUM,BIN1,BIN2 : $ P IB DEBINW2,DE52CA,DE52RE,DE52EN ^ P MOVE DEBINW4,W0 PDE5220 P PERF DERR P B DE5210 PDE52CA P PERF DECLRA P B DE5210 PDE52
0x0564dc…056670 Dummy {f00=0x001b, f01=0x0190, f02=»NW2 z P B DE5220 PDE52EN P MOVE DEBINW2,W0 , P MOVE STSAVE(W2),BATCH D P MOVE BATCH,HEX00 b P PERF DEOPBC,DEBINW2 | P MOVE BIN7,W0 P PERF DEPRUT,PRNUM,BIN1,BIN2 & P CBE BIN2,W2,EN5202 JUMP IF BATCH P ATTFMT F51S
0x056670…056804 Dummy {f00=0x001b, f01=0x0190, f02=»52RE,DE52ER t PEN5205 $ P CBE BIN2,W1,EN5210 JUMP IF JOB " ( P MOVE BIN5,=W'34' GET NEXT BATCHNAME J P B EN5220 v PEN5210 $ P MOVE BIN5,W21 GET NEXT JOBNAME PEN5220 P PERF DEDISC,BIN5 P BNOK EN5270 $ P CBE BIN2,W1,E
0x056804…056998 Dummy {f00=0x001b, f01=0x0190, f02=»T,W0 x P* CALL MSKOUT,BIN10,BIN7 . P* CBNE BIN6,BIN10,DE52EN STATUS NOT MATCH , P PERF DESTAU,BDSTAT,STRG10A ^ ( P PERF DEPOOL,W6,PINACC,BIN8,STRG10A P B EN5250 PEN5240 P MOVE STRG10A,=C'IN USE ' PEN5250 P ADD BIN7,
0x056998…056b2c Dummy {f00=0x001b, f01=0x0190, f02=»ATCH,W0 COPY p 0 P CON X.COPY,FDVBCD(BIN7),W6,W1,VALSTR,W18 : 2 P CON X.COPY,FDVBCD(BIN7),W7,W8,STRG10A,W0 COPY H P MOVE STSAVE(W2),BATCH ~ P B EN5257 PEN5255 . P CON X.COPY,FDVBCD(BIN7),W0,W6,JOBNAME,W0 P MOVE STSAVE(W1),JOBNAME
0x056b2c…056cc0 Dummy {f00=0x001b, f01=0x0190, f02=»E BIN7,W24,EN5205 PEN5258 P CLEAR DOOL3 ( P BZ EN5259 < P PERF OPCL,W4 CLOSE USERFILE N PEN5259 r P DISPLAY 3,W3,W4 P CLEAR DECHANGE P DSC0 DEDSDYKB,02 P PERF DECLRN PEN5260 2 P IB DEBINW2,DE52CA,DE52RE,DE
0x056cc0…056e54 (1, 109) Dummy {f00=0x001b, f01=0x0190, f02=» FOUND' h P CBNE BIN7,W0,EN5258 P PERF DEPRUT,PRNUM,BIN1,BIN2 , PEN5280 P P CLEAR DOOL3 ^ P BZ EN5281 IF NOT OPEN r P MOVE BIN3,DEBINW4 " P PERF OPCL,W4 CLOSE USER FILE P MOVE DEBINW4,BIN3 PEN5281 P PERF DERR
0x056e54…056fe8 Dummy {f00=0x001b, f01=0x0190, f02=»WD PRESSED x P MOVE JOBNAME,HEX00 P B DE5203 . PBW5200 @ & P CBE DEBINW2,W5,BW5210 BWD PREESED N P CALL EMPTYT,JOBNAME x P BNZ EN5265 EMPTY! P B DE5203 PBW5210 P MOVE BATCH,HEX00 PDE52CL P B DE5203 P
0x056fe8…05717c Dummy {f00=0x001b, f01=0x0190, f02=»NE,BIN8,STRG10A | P SET BOOL2 P B DE50RE * P EJECT < . P****************************************** J , P* THIS IS THE MAINLOOP IN SEARCH RECORD. | , P* THE PROCEDURES FOR BATCHHANDLING USED , P* ARE THE SAME AS FOR ENTRY AND VERIFY.
0x05717c…057310 Dummy {f00=0x001b, f01=0x018e, f02=» " P NOT USED WITHIN PROGRAM 53 PDE5305 * P SET DEPROMPT 8 P CLEAR DECHANGE N PDE5310 f P MOVE WORK(W11),W0 COMP-WORD t " P MOVE WORK(W12),W0 MSKOUT-WORD & P PERF DECLRS CLEAR SOME VARIABELS PDE5315 $ P IB DEBINW2,DE53CA
0x057310…0574a4 Dummy {f00=0x001b, f01=0x0190, f02=» P B DE5315 PDE53EN P MOVE DEBINW2,W0 ( P CALL EMPTYT,STR64A @ P BZ EN5300 IF NOT EMPTY P MOVE WORK(W11),W0 COMP-WORD | " P MOVE WORK(W12),W0 MSKOUT-WORD PEN5300 , P PERF DEOPBC,DEBINW2 OPEN BATCH-ROUTINE P CLE
0x0574a4…057638 Dummy {f00=0x001b, f01=0x018e, f02=»ATARECORDHANDLING-ROUTINE $ P B EN5300 TAKE CARE OF RETURCODE " PDE53RE J P CLEAR DOOL3 X P CLEAR SOOL2 l P PERF OPCL,W4 CLOSE USERFILE P BOK DE53ST SUCCESSFULLY PEN5320 OPEN BATCH FAILED P CLEAR DOOL3 P MOVE STR64A,H
0x057638…0577cc Dummy {f00=0x001b, f01=0x0190, f02=» P CBE DEBINW2,W0,DES120 * P COPY STR64A,DEBINW2,W1,STATIU,W9 ',' & ADD DEBINW2,W1 T PDES120 l , P CALL TESTB,WORK(W11),DEBINW3 COMP-WORD z P BNZ DES140 * P COPY STR64A,DEBINW2,W1,STATIU,W8 '/' ADD DEBINW2,W1 PDES1
0x0577cc…057960 Dummy {f00=0x001b, f01=0x0190, f02=»ES100 ~ P ATTFMT F53ST P DISPLAY 3,W5,W5 $ P DISPLAY 3,W6,W6 < P GETFLD 0,W4,DEBINW3 T " P B DE5320 DISPLAY ERRORMESSAGE p P EJECT P* ( P* APPL VALUE HANDLING ROUTINE P* PDEAP5A $ P IB DEBINW4,DEAP51,DEA
0x057960…057af4 (1, 110) Dummy {f00=0x001b, f01=0x0190, f02=»RD v " P MOVE WORK(W12),W0 MSKOUT-WORD P MOVE BIN9,W0 0 PAPP003 F P CBE BIN9,DEBINW1,APP340 T P MOVE BIN8,W0 t PAPP005 * P MATCH STATIU,BIN8,W10,DEINPUT,BIN9,W1 P BNOK APP395 ILLEGAL LETTER P IB BIN8, C P APP395 -
0x057af4…057c88 Dummy {f00=0x001b, f01=0x0190, f02=»35 = C P APP330 = PAPP310 . P CALL TESTB,WORK(W12),BIN8 LOOK IF STATUS . P BNZ APP395 MASK ALREADY SET ` * P CALL SETB,WORK(W12),BIN8 MSKOUT-WORD P CLEAR DOOL6 NOT-FLAG SAT? P BNZ APP330 PAPP320 ( P CALL SETB,WORK(W1
0x057c88…057e1c Dummy {f00=0x001b, f01=0x018e, f02=» P BZ APP330 PAPP340 P CLEAR DOOL6 NOT-FLAG ( " P BNZ APP395 LAST LETTER = '/' F PAPP350 l P B DEAOK0 z PAPP395 PDEAER6 P MOVE DEBINW4,W6 P B DEANOK P PEND EJECT * * FORMATS
0x057e1c…057fb0 Dummy {f00=0x001b, f01=0x0190, f02=» FNL P FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 , P FMEL 'XX',PRNUM X P FBF BOOL1,F50OUT p FNL P FLINK F51ST2 P FNL P FLINK F52ST2 P FNL P FLINK F53ST2 PF50OUT P FMEND
0x057fb0…058144 Dummy {f00=0x001b, f01=0x0190, f02=» P FNL P FLINK F50STA P FMEND * PF52ST FRMT 8 P FSL J P FLINK F52ST2 V P FNL l P FLINK F50UV x P FNL P FLINK F52JOB P FTAB 20 P FLINK F50BAT P FLINK F50END P FNL P FLINK F50STA
0x058144…0582d8 Dummy {f00=0x001b, f01=0x0190, f02=» FTAB 20 P FLINK F53BAT P FNL & P FCOPY =C'RECORD' 2 P FILLR '-',1 L P FCOPY =C'NUMBER' ` P FILLR ':',1 z P FKI 15,MAXL=7,NEOI P FMEL 'XXXX',BCDI21(W3) P FTAB 30 P FCOPY =C'RECORD' P FILLR '-',1 P
0x0582d8…05846c Dummy {f00=0x001b, f01=0x0190, f02=»MEND PF51ST2 FRMT P FTEXT '51 ' P FCOPY =C'SEARCH' 4 P FILLR ' ',1 N P FCOPY =C'MODE' b P FILLR ' ',1 z P FCOPY =C'JOB' P FILLR ' ',1 P FCOPY =C'LEVEL' P FMEND PF52ST2 FRMT P FTEXT '52 ' P F
0x05846c…058600 Dummy {f00=0x001b, f01=0x0190, f02=»PY =C'LEVEL' P FMEND PF53ST2 FRMT " P FTEXT '53 ' 6 P FCOPY =C'SEARCH' J P FILLR ' ',1 d P FCOPY =C'MODE' x P FILLR ' ',1 P FCOPY =C'RECORD' P FILLR ' ',1 P FCOPY =C'LEVEL' P FMEND PF50UV FRMT
0x058600…058794 (1, 111) Dummy {f00=0x001c, f01=0x0190, f02=»PY =C'VOLUME' P FILLR ':',1 P FINP 27 * P FCOPY TABLE : P FMEND N PF50JOB FRMT P FCOPY =C'JOB' p P FCOPY =C'NAME' P FILLR ':',1 : P FKI 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1) P FCOPY JOBNAME P F
0x058794…058928 Dummy {f00=0x001c, f01=0x0190, f02=»L=3,DUPL=STSAVE(W1) j P FCOPY JOBNAME P FMEND 2 PF50BAT FRMT @ P FCOPY =C'BATCH' T P FCOPY =C'NAME' l P FILLR ':',1 < P FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) P FCOPY BATCH FMEND PF53BAT FRMT
0x058928…058abc Dummy {f00=0x001c, f01=0x0190, f02=» P FCOPY BATCH FMEND PF50STA FRMT & P FINP 1 : P FCTL X'C0',FDVBCD(W1) J P FINP 21 h P FCTL X'C0',FDVBCD(W2) x P FINP 41 P FCTL X'C0',FDVBCD(W3) P FNL P FINP 1 P FCTL X'C0',FDVBCD(W4) P FINP 21
0x058abc…058c50 Dummy {f00=0x001c, f01=0x0190, f02=» P FINP 21 ! P FCTL X'C0',FDVBCD(W8) ! P FINP 41 ! 2 P FCTL X'C0',FDVBCD(W9) ! B P FNL ! ` P FINP 1 ! l P FCTL X'C0',FDVBCD(W10) ! | P FINP 21 ! P FCTL X'C0',FDVBCD(W11) ! P FINP 41 ! P FCTL X'C0',FDVBCD(W12) ! P FNL ! P
0x058c50…058de4 Dummy {f00=0x001c, f01=0x0190, f02=» ! x P FNL " P FINP 1 " P FCTL X'C0',FDVBCD(W16) " $ P FINP 21 " D P FCTL X'C0',FDVBCD(W17) " T P FINP 41 " t P FCTL X'C0',FDVBCD(W18) " P FNL " P FINP 1 " P FCTL X'C0',FDVBCD(W19) " P FINP 21 " P FCTL X'C0',FDVBCD(W20)
0x058de4…058f78 Dummy {f00=0x001c, f01=0x40ba, f02=»L X'C0',FDVBCD(W23) " P FINP 41 # P FCTL X'C0',FDVBCD(W24) # , P FMEND # L PF50END FRMT # Z P FNL # n P FKI 1 # z P FCOPY HEX00 # P FMEND # END # @ # P FCTL X'C0',FDVBCD(W19) " P FINP 21 " P FCTL X'C0',FDVBCD(W20)
0x058f78…05910c Dummy {f00=0x001c, f01=0x2008, f02=» $ PY HEX00 P FMEND END &@ 2 P FCTL X'C0',FDVBCD(W19) : P FINP 21 Z P FCTL X'C0',FDVBCD(W20) j P FINP 41 P FCTL X'C0',FDVBCD(W21) P FNL P FINP 1 P FCTL X'C0',FDVBCD(W22) P FINP 21 P F
0x05910c…0592a0 Dummy {f00=0x001c, f01=0x0190, f02=»!* & & & ! 1 0 "}H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x0592a0…059434 (1, 112) Opaque[0x194]
0x059434…0595c8 # DirEnt {nam=»DE31ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0388, f03=0x0000}
0x059434…0595c8 IdxSect {
0x059434…0595c8 f00 = 0x001c // 0x59434 @0x0
0x059434…0595c8 f01 = 0x0008 // 0x59436 @0x2
0x059434…0595c8 gno = [ // 0x59438 @0x4
0x059434…0595c8 [0x00]: C0x001c.0x1.0
0x059434…0595c8 [0x01]: C0x001c.0x2.0
0x059434…0595c8 [0x02]: C0x001c.0x3.0
0x059434…0595c8 [0x03]: C0x001d.0x0.0
0x059434…0595c8 ]
0x059434…0595c8 }
0x0595c8…05975c Dummy {f00=0x001c, f01=0x0190, f02=» $ P IDENT DE31ST REL 10.0 80-04-11 P 79-10-19/DALI , P*************************** D P* 31 CREATE JOB DEFINITION h P* 32 GET JOB DEFINITION P*************************** P************************** P* FORTAB 1 - 21
0x05975c…0598f0 Dummy {f00=0x001c, f01=0x0190, f02=» * z P* 21 BALANCE * P* SYMREC 1 - 12 * . P* 1-9 REC.NR FORMAT 1-9 * P P* 10 REC.NR BATCHHEAD * r P* 11 REC.NR BALANCE * P* 12 MAXL. SYMB.NAMES * P************************** 6 P**************
0x0598f0…059a84 Dummy {f00=0x001c, f01=0x0190, f02=»RE FORMAT * n 6 P************************************************* DDUM DEDDIV R PDIV f P ENTRY DE31ST t P ENTRY DEAP3A P EXT DECLRA P EXT DECLRN P EXT DERROR P EXT DERR P EXT DEDISC P EXT A
0x059a84…059c18 Dummy {f00=0x001c, f01=0x0190, f02=»JECT PDE31ST PROC P ATTFMT F31 P SET BOOL1 4 P CBE PRNUM,=D'32',A10 F P CLEAR BOOL1 d PA10 x P SET DEPROMPT P CLEAR DECHANGE " P SET BOOL2 2 LINES ON DISPLAY P PERF DECLRA PA20 * P IB DEBINW2,CANC
0x059c18…059dac Dummy {f00=0x001c, f01=0x0190, f02=»R,BIN7,STRG10A RELEASE BUFFER z PA50 & P IB DEBINW2,A10,RETUR,A10 2 PRETUR RET T P PEND f P EJECT t PFORW , P MOVE BIN1,=W'29' GET NEXT,REL.PREV.BUFF P B B20 PBACKW . P MOVE BIN1,=W'30' GET PREV. REL.PREV.BUFF
0x059dac…059f40 Dummy {f00=0x001c, f01=0x018e, f02=»L2,B35 IF COMPLETE PICTURE P CLEAR DENOCHAN " PB35 : P PERF DERR F P B B70 X PB50 f & P CALL ATTWB,BPOOL(PJOBCUR),W0,W12 r P SET DEPROMPT PB60 & P SET DENOCHAN NO CHANGES POSSIBLE P CLEAR BOOL2 ENTIRE FORMAT
0x059f40…05a0d4 (1, 113) Dummy {f00=0x001c, f01=0x0190, f02=» P EJECT PCORR PDEL 4 P PERF DEPOOL,W8,PJOBCUR,BIN7,STRG10A LOCK BUFFER * P BNOK DEL200 b P CMP DEBINW2,W6 v P BE C70 IF CORRECTION P* P* DELETION P* PDEL100 . P MOVE DEBINW4,W17 'PRESS ENT FOR DELET
0x05a0d4…05a268 Dummy {f00=0x001c, f01=0x0190, f02=»DEL100 4 CFW C P DEL150 5 ENT C P DEL100 6 EOI . P* ENTER-KEY D PDEL150 X P MOVE DEBINW2,W3 f P PERF DEDISC,W5 DELETE JOB ~ P BOK CANC PDEL200 & P SET DENOCHAN NO CHANGES POSSIBLE P PERF DERR P B B70
0x05a268…05a3fc Dummy {f00=0x001c, f01=0x0190, f02=»N7,W0 NO CONSECUTIVE BUFFERS " P MOVE STRG10A,MODTAB(W3) ='J' $ * P COPY STRG10A,W1,W6,DEINPUT,W0 JOBNAME J > P PERF DEPOOL,W2,PJOBCUR,BIN7,STRG10A GET BUFFER WITH LOCK x P BNOK ERR99 4 P PERF DEPOOL,W4,PJOBCUR,BIN7,STRG10A SET BUFFER P M
0x05a3fc…05a590 Dummy {f00=0x001c, f01=0x018e, f02=»EMS t P MOVE FORTAB(W10),JOBNAME P DISPLAY 4,W2,W0 . PC70 F P************** R P* CORR. JOB h P************** | P PERF DECLRN P B A20 P EJECT PENTER & P TBF BOOL2,ENTER2 IF ENTIRE FORMAT P MOVE DEINPUT,
0x05a590…05a724 Dummy {f00=0x001c, f01=0x0190, f02=» t P* MODUL 31 - CREATE JOB P************************** ( P PERF DEDISC,W4 SEARCH JOB J P BOK ERR8 'ALREADY EXISTS' l " P CBE DEBINW4,W9,C20 NOT FOUND P B ERR99 P************************** P* MODUL 32 - GET JOB P****
0x05a724…05a8b8 Dummy {f00=0x001c, f01=0x0190, f02=» PD20 P MOVE JOBNAME,=X'00' P B ERR99 , P EJECT < P*************************** J P* CHECK FORMAT-SYMBOLIC: n P*************************** PENTER2 P MOVE BIN2,W0 PEA P CLEAR BOOL3 P ADD BIN2,W1
0x05a8b8…05aa4c Dummy {f00=0x001c, f01=0x0190, f02=»OVE BIN3,BIN2 P ADD BIN3,W10 , P CALL EMPTYT,FORTAB(BIN3) SYMBOLIC NAME , P BNZ EA EMPTY P CLEAR BOOL3 r P BNZ EA JOB NOT EMPTY P* GET INPUT FIELD NO. P MOVE BIN3,BIN2 P MUL BIN3,W2 P ADD BIN3,W1 PEERR G
0x05aa4c…05abe0 Dummy {f00=0x001c, f01=0x0190, f02=»E1 ADD BIN2,W1 P CBG BIN2,W8,E3 P CALL EMPTYT,FORTAB(BIN2) . P BZ E1 NOT EMPTY P P MOVE BIN3,BIN2 h PE11 ADD BIN3,W1 P CBG BIN3,W9,E3 READY P CALL EMPTYT,FORTAB(BIN3) P BNZ E11 EMPTY $ P MOVE FORTAB(BIN2),FORTAB(
0x05abe0…05ad74 (1, 114) Dummy {f00=0x001c, f01=0x0190, f02=») r P MOVE FORTAB(BIN3),=X'00' P MOVE FORTAB(BIN5),=X'00' , P B E1 N PE3 CALL EMPTYT,FORTAB(W1) & P********************************* ~ $ P* FIRST FORMAT MUST BE PRESENT & P********************************* P BZ E4 NOT EMP
0x05ad74…05af08 Dummy {f00=0x001c, f01=0x018e, f02=» MOVE BIN2,W10 0 P MOVE SYMREC(W12),W0 MAXL.OF SYMBOLIC NAMES PE41 ADD BIN2,W1 J P CBG BIN2,W19,E5 READY b P MOVE BIN3,W0 , P MATCH FORTAB(BIN2),BIN3,W6,HEX00,W0,W1 P BNZ E42 NO MATCH = 6 CHAR. P CBNG BIN3,SYMREC(W12),E41
0x05af08…05b09c Dummy {f00=0x001c, f01=0x0190, f02=» P BOK CANC P B ERR99 P EJECT & P* 4 ( P* APPL VALUE HANDLING ROUTINE > P* j PDEAP3A t $ P IB DEBINW3,APP101,APP102,APP102 PAPP101 P MOVE DEBINW2,W17 IND.ENTER P B DEAOK0 PAPP102 P MOVE BIN3,W
0x05b09c…05b230 Dummy {f00=0x001c, f01=0x018e, f02=»AOK0 BATCHEAD P B DAER32 BALANCE PAPP1020 0 P CALL TESTB,DEBINW3,W15 @ P BNZ DEAOK0 BALANCE ` PDAER32 | P MOVE DEBINW4,W32 P B DEANOK P* P* PERR0 P MOVE DEBINW4,W0 'BELL' P B ERR99 PER
0x05b230…05b3c4 Dummy {f00=0x001c, f01=0x0190, f02=» P MOVE DEBINW1,W0 P PERF DERR P B A20 2 EJECT @ PF31 FRMT N P FSL ^ P FMEL '99',PRNUM j P FBT BOOL1,F32 P FCOPY =C' CREATE' P FB F31A PF32 FCOPY =C' GET' " PF31A FCOPY =C' JOB-DEFINITION' P FNL
0x05b3c4…05b558 Dummy {f00=0x001c, f01=0x0190, f02=»INES 0 P FKI 11,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=101 P FCOPY JOBNAME @ P FB F31UT V PF31C h P FLINK F311 t PF31UT FMEND P* PF311 FRMT FNL P FCOPY =C'BATCHHEAD:' 0 P FKI 12,MINL=1,MAXL=6,ALPHA,NEOI,ME,AP
0x05b558…05b6ec Dummy {f00=0x001c, f01=0x0190, f02=»03 f P FCOPY FORTAB(W21) BALANCE P FNL , P FCOPY =C'FORMAT' 8 P FILLR ' ',1 R P FCOPY =C'1:' f . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 | P FCOPY FORTAB(W1) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=
0x05b6ec…05b880 Dummy {f00=0x001c, f01=0x0190, f02=»NL=1,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W2) ( P FTAB 28 B P FCOPY =C'SYMBOLIC:' R $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA n P FCOPY FORTAB(W12) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'3:' . P FKI 11,
0x05b880…05ba14 (1, 115) Dummy {f00=0x001d, f01=0x0190, f02=»OI,ALPHA x P FCOPY FORTAB(W13) P FNL * P FCOPY =C'FORMAT' 6 P FILLR ' ',1 P P FCOPY =C'4:' d . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 z P FCOPY FORTAB(W4) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=6,
0x05ba14…05bba8 Dummy {f00=0x001d, f01=0x0190, f02=»=1,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W5) & P FTAB 28 @ P FCOPY =C'SYMBOLIC:' P $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA l P FCOPY FORTAB(W15) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'6:' . P FKI 11,MI
0x05bba8…05bd3c Dummy {f00=0x001d, f01=0x0190, f02=»,ALPHA v P FCOPY FORTAB(W16) P FNL ( P FCOPY =C'FORMAT' 4 P FILLR ' ',1 N P FCOPY =C'7:' b . P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA,APPL=102 x P FCOPY FORTAB(W7) P FTAB 28 P FCOPY =C'SYMBOLIC:' $ P FKI 38,MINL=1,MAXL=6,NE
0x05bd3c…05bed0 Dummy {f00=0x001d, f01=0x0190, f02=»,MAXL=6,NEOI,ALPHA,APPL=102 P FCOPY FORTAB(W8) $ P FTAB 28 > P FCOPY =C'SYMBOLIC:' N $ P FKI 38,MINL=1,MAXL=6,NEOI,ALPHA j P FCOPY FORTAB(W18) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' . P FKI 11,MINL
0x05bed0…05c064 Dummy {f00=0x001d, f01=0x4080, f02=»LPHA t P FCOPY FORTAB(W19) P FNL & P FKI 1,MINL=0,MAXL=0 2 P FCOPY HEX00 N P FMEND b END p@ |NEOI,ALPHA j P FCOPY FORTAB(W18) P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' . P FKI 11,MINL
0x05c064…05c1f8 Dummy {f00=0x001d, f01=0x2008, f02=» P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 ( P FMEND < END J@ V=1,MAXL=6,NEOI,ALPHA N P FCOPY FORTAB(W18) v P FNL P FCOPY =C'FORMAT' P FILLR ' ',1 P FCOPY =C'9:' $ P FKI 11,MINL=1,MAXL=6,NEOI,ALPHA P
0x05c1f8…05c38c Dummy {f00=0x001d, f01=0x0190, f02=» | Z V, [ t @ [ | Z [ _ 0 t 5 P 8 8 8 Z P 9 _ Z P 8 0 5 _ 0 5 SJ SJP _0 P 0 5 _ P 0 5 Z Z
0x05c38c…05c520 Dummy {f00=0x001d, f01=0x0190, f02=» $ , P T f 6 @ 0 A 6 A 8 <P Q "P A 8 D A A $ P Q A 6 S @ : A , 4 @ 4P A , @ 4=!P A 4 A $ A _2 @ 6P @ : A $ 0 @ 8P A $ D : Q B _ @ :_ C_ 5
0x05c520…05c6b4 (1, 116) Opaque[0x194]
0x05c6b4…05c848 # DirEnt {nam=»DE14ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03a8, f03=0x0000}
0x05c6b4…05c848 IdxSect {
0x05c6b4…05c848 f00 = 0x001d // 0x5c6b4 @0x0
0x05c6b4…05c848 f01 = 0x0004 // 0x5c6b6 @0x2
0x05c6b4…05c848 gno = [ // 0x5c6b8 @0x4
0x05c6b4…05c848 [0x00]: C0x001d.0x1.0
0x05c6b4…05c848 [0x01]: C0x001d.0x2.0
0x05c6b4…05c848 ]
0x05c6b4…05c848 }
0x05c848…05c9dc Dummy {f00=0x001d, f01=0x0190, f02=» $ P IDENT DE14ST REL 10.0 80-04-11 P 79-11-15/LABJ , P************************* D P* 14 SYSTEM-VARIABLES f P************************* DDUM DEDDIV PDIV P ENTRY DE14ST P EXT DECLRN P EXT DERR P EXT
0x05c9dc…05cb70 Dummy {f00=0x001d, f01=0x0190, f02=»OK SETPR PCANC10 PERF DERR P B A1 ( PSETPR SET DEPROMPT 6 P PERF DECLRN P " PA1 IB DEBINW2,CANC,RETUR,ENTER d P MOVE DEBINW4,W0 ERROR P B CANC10 P* $ PENTER PERF DEDISC,W20 ENTER SYSV P BNOK CANC10 PRETUR RE
0x05cb70…05cd04 Dummy {f00=0x001d, f01=0x0190, f02=»ENTS' | FNL P FCOPY MODTAB(W5) FCOPY =C'01' 4 P FKI 7,MINL=0,MAXL=17,ALPHA J P FCOPY SYSV(W1) n P FNL P FCOPY MODTAB(W5) FCOPY =C'02' P FKI 7,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W2) FNL
0x05cd04…05ce98 Dummy {f00=0x001d, f01=0x0190, f02=»W5) FCOPY =C'04' P FKI 7,MINL=0,MAXL=17,ALPHA " P FCOPY SYSV(W4) F FNL ^ P FCOPY MODTAB(W5) j FCOPY =C'05' P FKI 7,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W5) FNL P FCOPY MODTAB(W5) FCOPY =C'06
0x05ce98…05d02c Dummy {f00=0x001d, f01=0x0190, f02=»,MINL=0,MAXL=17,ALPHA P FCOPY SYSV(W7) FNL 6 P FCOPY MODTAB(W5) B FCOPY =C'08' P FKI 7,MINL=0,MAXL=17,ALPHA r P FCOPY SYSV(W8) FNL P FCOPY MODTAB(W5) FCOPY =C'09' P FKI 7,MINL=0,MAXL=17,ALPHA
0x05d02c…05d1c0 Dummy {f00=0x001d, f01=0x4068, f02=»V(W10) P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 6 FMEND J END X@ d' P FKI 7,MINL=0,MAXL=17,ALPHA r P FCOPY SYSV(W8) FNL P FCOPY MODTAB(W5) FCOPY =C'09' P FKI 7,MINL=0,MAXL=17,ALPHA
0x05d1c0…05d354 (1, 117) Dummy {f00=0x001d, f01=0x2008, f02=» END @ FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA . FCOPY WTAB(15) R FNL j FCOPY STR1A v FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA FCOPY WTAB(16) FMEND F131 FRMTR1A FSLPY =C'
0x05d354…05d4e8 Dummy {f00=0x001d, f01=0x0190, f02=»OVV V "!H '0 **P I * & %!@ A W I " W %!T A @ 0 * & *,T H $!A W I $!T @ " N * & ; , , g40 #g !!4 { 0' {$* | * & Y 0& x*({ ' ( $ g4@ !" #g4 * & w x* !u uv_ 0 j x! ! 7 * &
0x05d4e8…05d67c Dummy {f00=0x001d, f01=0x0190, f02=» 'jy " xy x u$x Jj " $( * & xw u 1 /_ /Z j . * & + " &( * 1Z)_5 x* wx x 'j * & I y " g4 #gYuP W j ! x0 * & g , + & # #4_ !g3 #4W * & l x !? I W!g3Sj " $(wx
0x05d67c…05d810 Dummy {f00=0x001d, f01=0x0190, f02=» x* W p * & Y uj " "( _ j " &( * % * & 1W 0 : j " & *1 1 W < * & 9 u ! u ! u ! 1 : jx " & j * & W 1 w*j " w wx wx * & u j &"w xw? w w !( % _ ' * & xw g4 # (
0x05d810…05d9a4 Dummy {f00=0x001d, f01=0x0190, f02=»*W + 4 ! ~ * & Hl " * W 2? Il * * & ) (m Hl . W H ? ? Ub & J * & G $ ' )g3 *W ( W x * & e *PE - { ) ? 1 0 ! 0) * & ({ ' x( ' ' wj " jy " * &
0x05d9a4…05db38 Dummy {f00=0x001d, f01=0x0190, f02=» g3 j x) w < ? < ? !j &m * & &j "y ( + ? A ? < 0 @vP * * & 7 C 8 ? ' ( % 2 ! C 8 0 @v< X * & U "!_y # "= g " &| & * & s z )? ? ' xj " ( y !!4 2 4 ' * &
0x05db38…05dccc Dummy {f00=0x001d, f01=0x412a, f02=» + z w q l E [ * * & ' 8 > ! & H * & E FETCHING FORMAT: FROM D v * & c ISC. @ U 0 0 * n < D
0x05dccc…05de60 Dummy {f00=0x001d, f01=0x4014, f02=» HNOD @ q l E [ DEREC2 , * & ' 8 n ! & > * & E FETCHING FORMAT: FROM D l * & c ISC. @ U 0 0 * n < D D
0x05de60…05dff4 (1, 118) Opaque[0x194]
0x05dff4…05e188 # DirEnt {nam=»DEACCU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03b8, f03=0x0000}
0x05dff4…05e188 IdxSect {
0x05dff4…05e188 f00 = 0x001d // 0x5dff4 @0x0
0x05dff4…05e188 f01 = 0x0008 // 0x5dff6 @0x2
0x05dff4…05e188 gno = [ // 0x5dff8 @0x4
0x05dff4…05e188 [0x00]: C0x001d.0x3.0
0x05dff4…05e188 [0x01]: C0x001e.0x0.0
0x05dff4…05e188 [0x02]: C0x001e.0x1.0
0x05dff4…05e188 [0x03]: C0x001e.0x2.0
0x05dff4…05e188 ]
0x05dff4…05e188 }
0x05e188…05e31c Dummy {f00=0x001d, f01=0x0190, f02=» $ P IDENT DEACCU REL 10.0 80-04-11 P 80-03-05/DALI , * D L L************************************************************************ N * : 6* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * > 9* AFTER ENTERING A
0x05e31c…05e4b0 Dummy {f00=0x001d, f01=0x0190, f02=» < 7* AT DELETION OF A RECORD THIS MODULE REVERSES THE . )* ACCUMULATIONS DONE BY THAT RECORD. D * v 6 P* THE MODULE IS ENTERED WHITH THE STATEMENT: P* $ P* * PERF DEACC,OPTION * P* P* WHERE:
0x05e4b0…05e644 Dummy {f00=0x001d, f01=0x0190, f02=»ACC v 0 P* -2 = CORRECTION,IGNORE ZEROIZING L L************************************************************************ @ * DDUM DEDDIV PDIV * * ***** ENTRIES * P ENTRY DEACC P ENT
0x05e644…05e7d8 Dummy {f00=0x001d, f01=0x0190, f02=» GETFWD P EXT ADJUST P EXT CMPIND COMPARE INDEX $ P EXT DENVAL F P INCLUDE DELITT Z EJECT r * L L************************************************************************ * ( $* MAIN-ROUTINE FOR ACCUMULATION
0x05e7d8…05e96c Dummy {f00=0x001d, f01=0x0190, f02=»00 P CLEAR BOOL9 * & MOVE BCD2A,='0' CLEAR ERROR-INDICATOR ( P MOVE BIN2,W0 CLEAR CURRENT-FIELD-NR L ( P TBF DBOACC,A900 NO ACC IN FORMAT ? x " P SET BOOL1 INDICATE NORMAL ACC P IB OPTION,A100,A050 PA050 & P CLEAR BOOL1 INDICATE
0x05e96c…05eb00 Dummy {f00=0x001d, f01=0x0190, f02=»NR l 8 P CALL GETFWD,DEBINW4,3,BIN2,BIN11 GET NEXT ACC-FIELD P CALL ADJUST,DEBINW4 F BERR A900 END OF FORMAT ? b " P ..."CURRENT-FIELD" CURRENT * * ***** GET ACC-STRING ***** * PA200 , P CALL GETACC,BPO
0x05eb00…05ec94 (1, 119) Dummy {f00=0x001e, f01=0x0190, f02=»ALL ADJUST,DEBINW4 P CLEAR BOOL9 PA210 . P CALL EMPTYT,:FMTITEM : P BNZ A800 IF EMPTY FIELD X * x * $ ***** EXECUTE ACC-STRING ***** * P B EXACC "PERF" EXACC PA250 . P CBE BIN1,W0,A100 NO DUPL IN LAS
0x05ec94…05ee28 Dummy {f00=0x001e, f01=0x0190, f02=» P BOK A200 'DUPL-FIELD' FOUND EJECT ( * 6 * @ ***** SET ERROR-CODE ***** J * n A800 x " PERF SETERR,W2 ERROR-CODE = 2 B A100 * * * * &***** RETURN TO CALLING MODULE ***** *
0x05ee28…05efbc Dummy {f00=0x001e, f01=0x018e, f02=»********************************************** v * 6 F B* SUB-ROUTINE FOR EXAMINATION AND EXECUTION OF THE ACC-STRING @ * L L************************************************************************ * PEXACC PB000 P
0x05efbc…05f150 Dummy {f00=0x001e, f01=0x0190, f02=» l P EJECT P* P* " P*****GET ACCUMULATOR-NR ***** * P* P PB100 Z " P ADD BIN12,W1 INCREASE DISPL. f * P CBG BIN12,BIN13,A250 END OF STRING ? P* PB103 P MOVE BIN6,W0 CLEAR ACC-NR P MOVE BIN7,W0 P
0x05f150…05f2e4 Dummy {f00=0x001e, f01=0x0190, f02=» IB BIN7,B105,B105 P EJECT P* ( & P* HANDLE CONDITIONAL ACCUMULATION 2 P* ( P MOVE DEBINW1,W0 SET INPUTLENGT = 0 f ( P SUB BIN13,BIN12 PUT DISP INTO BIN13 , P PERF DENVAL,W1 EXECUTE VALIDATIONSTRING P CLEAR DOOLB ERROR-FLAG
0x05f2e4…05f478 Dummy {f00=0x001e, f01=0x0190, f02=»0 GET THE LENGTH OF ACC.STRING ( P XCOPY BIN3,W1,W1,BPOOL(BIN11),BIN12 & P MOVE BIN13,=X'3F' R P CALL MSKOUT,BIN13,BIN3 l 2 P ADD BIN13,BIN12 PUT END OF ACC.STRING INTO 13 P B B100 PB105 P* " P ADD BIN12,W1 INCREASE DISPL.
0x05f478…05f60c Dummy {f00=0x001e, f01=0x0190, f02=»-FIELD ? z P* P CBNE BIN7,W2,B120 NOT ACC ? P CALL CMPIND,BIN6,ACK(W1) > P BNOK B120 OUT OF RANGE ` P* $ P CLEAR BOOL2 INDICATE PLUS-SIGN , P CLEAR BOOL6 INDICATE NO ABSOLUTE-VALUE * P CLEAR BOOL8 INDICATE DEFAULT NOT USED
0x05f60c…05f7a0 Dummy {f00=0x001e, f01=0x0190, f02=» BIN12,BIN13,B190 END OF STRING ? P MOVE BIN7,W7 * @ P MATCH VALSTR,BIN7,W18,BPOOL(BIN11),BIN12,W1 NEXT BYTE = ? @ P BNOK B250 LITTERAL PREFIX ? P SUB BIN7,W6 ADJUST INDEX P IB BIN7 C & P B160,B120,B120,B120 "!,A,S,U" C & P
0x05f7a0…05f934 (1, 120) Dummy {f00=0x001e, f01=0x0190, f02=»0 "',Z" * * ( #***** FORMAT-ERROR DETECTED ***** $ * P PB120 Z & " PERF SETERR,W2 SET ERROR-CODE = 2 f P* P* $ P***** DUPLICATE-FIELD-NR ***** P* PB140 ( P MOVE BIN1,BIN6 UPDATE DUPL-FIELD-NR
0x05f934…05fac8 Dummy {f00=0x001e, f01=0x0190, f02=»SOLUTE-VALUE z P B B110 P* $ P* . P***** MINUS-SIGN ***** 8 P* X PB170 b " P SET BOOL2 INDICATE MINUS-SIGN n P* P* P***** PLUS-SIGN ***** P* PB175 P B B110 P* P* P*****
0x05fac8…05fc5c Dummy {f00=0x001e, f01=0x0190, f02=» B390 P* P* P***** DEFAULT ***** " P* @ PB190 J $ P SET BOOL8 INDICATE DEFAULT USED V P B B210 ~ P EJECT P* P* P***** FORMAT-FIELD ***** P* PB200 " P ADD BIN12,W1 INCREASE DISPL.
0x05fc5c…05fdf0 Dummy {f00=0x001e, f01=0x0190, f02=»IN2 CURRENT FIELD PB220 2 P CON X.MOVE,STR64A,X.PSEU1,X.PSEU2,X.WB10,BIN7 & P MOVE BCDI21(W1),STR64A P B B300 | P* P* P***** LITTERAL ***** P* PB250 B P XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 MOVE PREFIX T
0x05fdf0…05ff84 Dummy {f00=0x001e, f01=0x0190, f02=»OVE DEINPUT,HEX00 " P ADD BIN12,W1 INCREASE DISPL. : P COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL @ . P MOVE BCDI21(W1),DEINPUT MOVE TO WORKITEM ~ P SUB BIN9,W1 ADJUST INDEX $ P ADD BIN12,BIN9 INCREASE DISPL. P EJECT P
0x05ff84…060118 Dummy {f00=0x001e, f01=0x0190, f02=»DI21(W1),W0,W1,D1,W0 PLUS-SIGN TO WORKITEM PB310 2 P TBT BOOL2,B330 MINUS-SIGN ? > " P TBT BOOL1,B340 REVERSED ACC ? b PB320 0 P ADD ACK(BIN6),BCDI21(W1) ADD TO ACCUMULATOR P B B350 P* PB330 " P TBT BOOL1,B320 REVERSED A
0x060118…0602ac Dummy {f00=0x001e, f01=0x0190, f02=» PB360 & P PERF SETERR,W3 SET ERROR-CODE = 3 P* : PB380 D " P TBT BOOL8,B395 DEFAULT USED ? P PB390 v " P ADD BIN12,W1 INCREASE DISPL. P CMP BIN12,BIN13 " P BG A250 END OF STRING REACHED P MOVE BIN7,W19 @ P MATCH VALST
0x0602ac…060440 Dummy {f00=0x001e, f01=0x018e, f02=» * L M************************************************************************ * ^ 2 -* SUB-ROUTINE FOR SETTING THE ERROR-CODE h * L L************************************************************************ * SETERR
0x060440…0605d4 (1, 121) Dummy {f00=0x001e, f01=0x40ea, f02=» * X200 " MOVE BCD2A,='-1' FORMAT-ERROR B X900 D * T X300 ^ MOVE BCD2A,='9' OVERFLOW j * * X900 RET * PEND * END @
0x0605d4…060768 Dummy {f00=0x001e, f01=0x2008, f02=» * X300 MOVE BCD2A,='9' OVERFLOW & * H * R X900 RET h * t PEND ~ * END @ ****** d * SETERR PROC ERRIND X000 IB ERRIND,X100,X200,X300 B
0x060768…0608fc Dummy {f00=0x001e, f01=0x000c, f02=»800208 j cXBTH 7 NXJOB 5 OPNEBC OPNNBCG PREJOBX READJBH SCHJOBN CONDT DEPOOLL DISU DLRCCHH EMPTYTO FREESPX RDACC RDDSH RELEAS5 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS WRFSP SFMTCHG y CONDF DEPOOLB DISUE FREESP HRDT R
0x0608fc…060a90 Dummy {f00=0x001e, f01=0x0190, f02=» DERROR 800208 $$$TRAD CANCO d DECHK1A DECHK20 DECHK31 DECHK40 DECHK5 DECHK6D DECHK7C DERRORK DESTAT DETCHKD T:DISPd T:DSC1A T:EDWRK T:ERASC T:GETAD T:NKI T:SETCK REORGS 800208 $$$TRAO REORGS CHA
0x060a90…060c24 Dummy {f00=0x001e, f01=0x0190, f02=» f TWRIT12 + 800208 $$$TRAI REC1 REC2 [ DSKERRI SETBT T:RWRI { 6BIDACR K 800208 BIDAC BIDACR h JBINACR M 800208 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD O 800208 ADDMOD
0x060c24…060db8 Dummy {f00=0x001e, f01=0x0190, f02=»L0 T:DISP1 T:ERAS V Y DENTER 800208 $$$TRAN DECLRA DECLRDD DECLRNC DECLRS DERR hAPP CANCE DECHK14 DECHK20 DECHK3 DECHK4R DECHK57 DECHK6 DECHK7 DERRORR DESTATC DETCHKD EMPTYT MASK T:DISP T:DUPL T:DYKIN T:EDFLK T:EDWRK T
0x060db8…060f4c Dummy {f00=0x001e, f01=0x0190, f02=»:XSTAT ) LDEPOOL 800208 $$$TRAP DEPOOL CMPINDP SETBT TESTB e REORGU 800208 $$$TRAO REORGU CHANFCO CHVOL DECLRN DISU- DSKERR1 FREESPL GETVOL9 T:ASSIL T:ATTF T:DSC0 CRESUD 800208 $$$TRAE
0x060f4c…0610e0 Dummy {f00=0x001e, f01=0x0190, f02=» T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB50 C:CB50F D:CB60 C:CB60 D:CB70 C:CB70 D:CB80 C:CB80 D:CB90 C:CB90 D:CBA0 C:CBA0 D:DB10A C:CBA0A D:CBB0 C:CBB0F D:CBC0 C:CBC0 4T:DT10 800208 T:DT1
0x0610e0…061274 (1, 122) Opaque[0x194]
0x061274…061408 # DirEnt {nam=»DE60ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03d8, f03=0x0000}
0x061274…061408 IdxSect {
0x061274…061408 f00 = 0x001e // 0x61274 @0x0
0x061274…061408 f01 = 0x0006 // 0x61276 @0x2
0x061274…061408 gno = [ // 0x61278 @0x4
0x061274…061408 [0x00]: C0x001e.0x3.0
0x061274…061408 [0x01]: C0x001f.0x0.0
0x061274…061408 [0x02]: C0x001f.0x1.0
0x061274…061408 ]
0x061274…061408 }
0x061408…06159c Dummy {f00=0x001e, f01=0x0190, f02=» $ P IDENT DE60ST REL 10.0 80-04-11 P 79-07-30/DALI , DDUM DEDDIV D PDIV X P ENTRY DE60ST f * | * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DERR P EXT DECLRN P EXT DECLRS
0x06159c…061730 Dummy {f00=0x001e, f01=0x0190, f02=» DEPMSK P* 8 P* EXTERNAL REFERENCES TO APPLICATION ROUTINE P* V P EXT DEAOK0 ` P EXT DEANOK t P INCLUDE DELITT P EJECT 2 P********************************************* . P* START OF VERIFYING. HANDLE PRORAMS
0x061730…0618c4 Dummy {f00=0x001e, f01=0x0190, f02=»***************** t PDE60ST PROC P CLEAR BOOL2 . P CBNE BIN2,W0,DEEN10 B PDEST00 ^ & P SET BOOL1 PART OF FORMAT DISPLAY l PDEST10 P TBT BOOL2,DEST20 P ATTFMT F60ST P B DEST30 PDEST20 P ATTFMT F61ST
0x0618c4…061a58 Dummy {f00=0x001e, f01=0x0190, f02=»BINW2,DE60CA,DE60RE,DE60EN P MOVE DEBINW4,W0 " PDE60ER : P CLEAR VERIFM H P CLEAR KEYVER ^ P PERF DERR t P B DEST60 P EJECT P* P* CANCEL-KEY PRESSED P* PDE60CA P CLEAR DEPROMPT P B DEST50
0x061a58…061bec Dummy {f00=0x001e, f01=0x0190, f02=»,W6,DERE30 ( P IB BIN2,DEEN20,DEEN50,DEEN30,DEEN60 P B DEST00 > PDEEN20 P P SET KEYVER ^ P B DEEN50 r PDEEN30 P SET KEYVER PDEEN60 P SET DOOL7 PDEEN50 P SET BOOL2 P CLEAR BOOL1 P B DEST20
0x061bec…061d80 Dummy {f00=0x001e, f01=0x018e, f02=» BNERR DERE20 P MOVE DEBINW1,W0 P PERF DERROR,DEKTAB6 . P CLEAR DOOL5 J P BZ DERE60 ^ P ATTFMT F61ST p & P SET DEPROMPT PROMPT-TEXTS DISPLAY P CLEAR DECHANGE P PERF DECLRN P B DEST60 PDERE20 P CLEAR DOOL5
0x061d80…061f14 (1, 123) Dummy {f00=0x001f, f01=0x0190, f02=» P CLEAR BOOL2 P CLEAR BOOL1 PDERE60 , P CLEAR VERIFM VERIFY-MODE : P TBT BOOL2,DEEN10 P CLEAR DOOL7 v P CLEAR DOOL4 P CLEAR KEYVER P B DEST10 P EJECT * P************************************** * P* THIS
0x061f14…0620a8 Dummy {f00=0x001f, f01=0x0190, f02=»1 P SET VERIFM VERIFY-MODE P MOVE DEBINW2,W0 * POPEN2 B P PERF DEOPBC,DEBINW2 P ( P IB DEBINW2,OPEN3,OPEN3,DE60RE,OPEN4 l POPEN3 P PERF DENT01 P B OPEN2 POPEN4 P GETABX DEBINW3 P ATTFMT F61ST P G
0x0620a8…06223c Dummy {f00=0x001f, f01=0x0190, f02=» FSL P FTEXT '60 ' P FLINK F60VER $ FNL : P FCOPY =C'PROGRAM:' F ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 b P FMEL 'XX',PRNUM P FBF BOOL1,F60OUT FNL P FTEXT '61 ' P FLINK F60VER P FCOPY =C'KEY'
0x06223c…0623d0 Dummy {f00=0x001f, f01=0x0190, f02=» FCOPY =C'KEY' P FILLR '/',1 P FCOPY =C'TEST' * P FNL B P FTEXT '64 ' N P FLINK F60VER b P FCOPY =C'SIGHT' x P FILLR '/',1 P FCOPY =C'TEST' PF60OUT FMEND PF61ST FRMT FSL PF61ST1 FMEL 'XX',P
0x0623d0…062564 Dummy {f00=0x001f, f01=0x0190, f02=»PY =C'KEY' PF61ST3 P FBF DOOL7,F61ST4 P FILLR '/',1 : P FCOPY =C'TEST' N PF61ST4 f FNL t P FLINK F60UV P FNL P FLINK F60JOB P FTAB 20 P FLINK F60BAT P FNL P FLINK F60END P FMEND
0x062564…0626f8 Dummy {f00=0x001f, f01=0x0190, f02=»MT P FCOPY =C'UNIT' P FTEXT ':U' " ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 6 P FMEL 'X',USERFILE b P FTAB 20 | P FCOPY =C'VOLUME' P FILLR ':',1 P FINP 27 P FCOPY TABLE P FMEND PF60JOB FRMT P FCOPY =
0x0626f8…06288c Dummy {f00=0x001f, f01=0x416a, f02=»ME P FMEND PF60BAT FRMT P FCOPY =C'BATCH' , P FCOPY =C'NAME' D P FILLR ':',1 > P FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) p P FCOPY BATCH FMEND PF60END FRMT P FKI 1 P FCOPY HEX00
0x06288c…062a20 Dummy {f00=0x001f, f01=0x2008, f02=» F60BAT FRMT P FCOPY =C'BATCH' P FCOPY =C'NAME' 4 P FILLR ':',1 L > P FKI 30,ALPHA,MINL=1,MAXL=6,ME,NEOI,APPL=4,DUPL=STSAVE(W2) ` P FCOPY BATCH FMEND PF60END FRMT P FKI 1 P FCOPY HEX00 P FMEND P
0x062a20…062bb4 (1, 124) Dummy {f00=0x001f, f01=0x2008, f02=»
0x062bb4…062d48 Dummy {f00=0x001f, f01=0x0190, f02=» P MOVE BIN2,=W'495' FLOPPY P CBG FCOD,=X'F7',F31 & " P MOVE BIN2,=W'6400' CARTRIDGE B PF31 h $ P* CALCULATE NO. OF FREE SECTORS t P MOVE BIN3,=X'D0' P CALL CHANFC,DISK,BIN3 P DSC0 DISK,CLOSE ( P ASSIGN DISK,0,RETCOD,SYSFIL
0x062d48…062edc Dummy {f00=0x001f, f01=0x018e, f02=» IF OTHER VOLUME PF32 P MOVE RECNUM,W1 $ " P RREAD DISK,RBUF,SYSLEN,RECNUM < P BERR DISKERR b $ P* NO. OF RECORDS IN SYSTEMFILE x P XCOPY CREREC,W0,W2,RBUF,W1 P DIV CREREC,W2 P SUB BIN2,CREREC PF33 P ATTFMT FU
0x062edc…063070 Dummy {f00=0x001f, f01=0x0190, f02=» PF40 ( P CBE PRNUM,=D'4',F45 IF COPY SYSFIL & P CBE FTYPE,=D'1',F45 IF SYSTEMFILE @ P MOVE FILNAM,DCFILE j P B F50 PF45 P MOVE FILNAM,SYSFIL P MOVE VOLNAM,SYSVOL P CBNE PRNUM,=D'4',F50 & P MOVE VOLNAM,OUTPU
0x063070…063204 Dummy {f00=0x001f, f01=0x0190, f02=»************ P ERASE 0,W1,W4 P MOVE STR1A,=C'S' * * P XCOPY PBLOCK,W6,W1,STR1A,W0 F.ORG='S' D , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME r . P XCOPY PBLOCK,W16,W6,VOLNAM,W0 VOL-NAME 1 P MOVE BIN1,=W'49' " P XCOPY PBLOCK,BIN1,W1,W1,W
0x063204…063398 Dummy {f00=0x001f, f01=0x0190, f02=»PY PBLOCK,BIN1,W1,W2,W1 BF 2 P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 RECORD LENGTH " & P CBE FTYPE,=D'1',F53 IF SYSTEMFILE X , P XCOPY PBLOCK,BIN1,W1,W3,W1 DCFILE-BF=3 6 P XCOPY PBLOCK,BIN2,W2,W128,W0 RECORD LENGTH = 128 PF53 P MOVE BIN1,=W'56
0x063398…06352c Dummy {f00=0x001f, f01=0x0190, f02=»,W0 NIF x P MOVE BIN1,=W'52' " P XCOPY PBLOCK,BIN1,W2,W0,W0 KA * * P CALL CREFIL,PBLOCK,SBUF,SYSBUF,RETCOD P P CMP RETCOD,W3 ~ P BE DERR10 P CMP RETCOD,W7 P BE DERR7 P CMP RETCOD,W0 P BNE DISKERR P MOVE BIN1,=X'D0
0x06352c…0636c0 Dummy {f00=0x001f, f01=0x018e, f02=»NAM p P BNOK DISKERR P PERF REC2 " P PERF REC1 4 P CMP PRNUM,=D'4' F P BE C43 IF COPY SYSFIL ^ P DSC0 DISK,CLOSE | PRETUR P B DEINIT P EJECT PREC1 PROC P********************** P* WRITE 1:ST RECORD
0x0636c0…063854 (1, 125) Opaque[0x194]
0x063854…0639e8 # DirEnt {nam=»DE70ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x03f0, f03=0x0000}
0x063854…0639e8 IdxSect {
0x063854…0639e8 f00 = 0x001f // 0x63854 @0x0
0x063854…0639e8 f01 = 0x000a // 0x63856 @0x2
0x063854…0639e8 gno = [ // 0x63858 @0x4
0x063854…0639e8 [0x00]: C0x001f.0x2.0
0x063854…0639e8 [0x01]: C0x001f.0x3.0
0x063854…0639e8 [0x02]: C0x0020.0x0.0
0x063854…0639e8 [0x03]: C0x0020.0x1.0
0x063854…0639e8 [0x04]: C0x0020.0x2.0
0x063854…0639e8 ]
0x063854…0639e8 }
0x0639e8…063b7c Dummy {f00=0x001f, f01=0x0190, f02=» $ P IDENT DE70ST REL 10.0 80-04-11 P 80-03-24/DALI , DDUM DEDDIV D PDIV X P ENTRY DE70ST f P ENTRY DEAP7A | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRS P EXT DECLRN
0x063b7c…063d10 Dummy {f00=0x001f, f01=0x0190, f02=»CODED t P CONVERSION ROUTINE & P EXT DELAST WRITE AND READ ON LAST , P ROW OF DISPLAY. V ( P EXT DERROR WRITE AND READ A KEY ON p P LAST ROW OF THE DISPLAY P EXT DEOPBC OPEN BATCH P EXT DEPOOL POOLHANDLING " P EXT DERECS
0x063d10…063ea4 Dummy {f00=0x001f, f01=0x0190, f02=» P* P EXT RESTOR RESTOR WORKBLOCK P AND DESCRIPTORADRESSES 2 P EXT EMPTYT T P EXT UPDBOL h P EXT UPDBIN | P EXT GETIND $ P EXT DEANOK NOT OK RET FROM APPL P EXT DEAOK0 OK RET FROM APPL * P INCLUDE DELIT
0x063ea4…064038 Dummy {f00=0x001f, f01=0x0190, f02=»CE-TYPE l . P* STSAVE(W4) HOLDING THE FILE-NAME P* B ( P* PERF DECONV,<FC1>,<FC2>,<RETCODE> L P* x ( P* <FC1> = 1 TRANSMIT & P* = 2 RECEIVE . P* = 3 TO OTHER MEDIA .
0x064038…0641cc Dummy {f00=0x001f, f01=0x0190, f02=»ARECORD ATTACHED r 0 P* = 4 BALANCE ATTACHED 0 P* = 5 CLOSE CONVERSION L 2 P* <RETCODE> = 0 NO ERRORS DETECTED . P* /= 0 ERROR DETECTED 2 P* > 0 WRITE
0x0641cc…064360 Dummy {f00=0x001f, f01=0x0190, f02=»T b @ P* =-3 GET CURRENT BATCH FROM BEGINNING 6 P* =-4 RETURN FROM CONVERSION N 4 P* =-5 DELETE CURRENT BATCH P* 6 P* THE FORMAL PARAMETERS <FC1> AND <FC2> MAY NOT BE * P* UP
0x064360…0644f4 (1, 126) Dummy {f00=0x001f, f01=0x0190, f02=»RSION. HANDLE PRORAMSCREEN- $ P* LAYOUTS 70,71 CONVERSION MODE. $ , P* THESE ROUTINES USE THE DENTER-SCREEN. L 2 P********************************************* | PDE70ST PROC P MOVE JOBNAME,HEX00 P MOVE BATCH,HEX00 . P CBNE BIN2,W
0x0644f4…064688 Dummy {f00=0x001f, f01=0x018e, f02=»T 70 t P ATTFMT F70ST P B DEST30 " PDEST20 4 P IB BIN2,DEST21,DEST22 B PDEST21 PROGRAM 71 ` P ATTFMT F71ST | P B DEST30 PDEST22 PROGRAM 72 P ATTFMT F72ST PDEST30 & P SET DEPROMPT PROMPT-TEXTS DISPLAY
0x064688…06481c Dummy {f00=0x001f, f01=0x0190, f02=» PDEST60 0 P IB DEBINW2,DE70CA,DE70RE,DE70EN CAN,RET,ENT P MOVE DEBINW4,W0 J PDE70ER b P CLEAR DOOL3 p P BNZ D70ER2 P MOVE BIN3,DEBINW4 P PERF OPCL,W4 P MOVE DEBINW4,BIN3 PD70ER2 P PERF DERR P B DES
0x06481c…0649b0 Dummy {f00=0x001f, f01=0x0190, f02=»EY PRESSED * PDE70RE * P CLEAR DOOL3 DATAENTERING ON USERFILE * P PERF OPCL,W4 CLOSE USERFILE X P BNERR DERE20 | P MOVE DEBINW1,W0 P PERF DERROR,DEKTAB6 P IB DEBINW2,DERE55,DERE55 PDERE20 ( P TBT BOOL2,DERE50
0x0649b0…064b44 Dummy {f00=0x001f, f01=0x0190, f02=»AR BOOL2 CHANGE TO FRMT 70 P CLEAR BOOL1 " P MOVE BIN1,W7 6 P MUL BIN1,W10 L P MOVE PRNUM,BIN1 b PDERE55 z P PERF DEPRUT,PRNUM,BIN1,BIN2 P PERF DEPMSK P B DEST10 P EJECT * P**************************************
0x064b44…064cd8 Dummy {f00=0x001f, f01=0x0190, f02=»**** n * P* ENTER-KEY PRESSED P* 2 PDE70EN < P TBT BOOL2,DEOPEN J PDEEN10 d P CBNE BIN1,W7,DERE30 r P CLEAR BOOL3 PROGRAM 72 P IB BIN2,DEEN20,DEEN15 P B DEST00 PDEEN15 P SET BOOL3 PROGRAM 72
0x064cd8…064e6c Dummy {f00=0x001f, f01=0x0190, f02=» P EJECT PDE71ST START OF DATACOMM PDE72ST 4 * P MOVE WORK(W8),W0 USED FOR CHECKING OF B P PART CONVERSION. p P 0 = THE WHOLE USERFILE " P 1 = ALL BATCHES IN THIS JOB P 2 = THIS JOB,THIS BATCH ( P CALL EMPTYT,JOBNA
0x064e6c…065000 Dummy {f00=0x001f, f01=0x018e, f02=» P BNZ CO7130 NO BATCHNAME P CBE WORK(W8),W1,CO7120 $ ( P MOVE DEBINW4,W5 JOBNAME NOT ENTERED D P GETFLD 0,W2,DEBINW3 p P B DE70ER PCO7120 P MOVE WORK(W8),W2 PCO7130 P IB WORK(W8),CO7140,CO7150 P PERF DELAST,W12,D
0x065000…065194 (1, 127) Dummy {f00=0x0020, f01=0x0190, f02=» d PCO7150 P MOVE DEBINW2,W0 P PERF DEOPBC,DEBINW2 . , P IB DEBINW2,CO7160,CO7160,DE70RE,DE70ER J PCO7160 z " P SET SOOL2 IF SET LINE IS OPEN P BNZ CO7161 PCO716A 0 P PERF DECONV,BIN5,W1,DEBINW4 OPEN CONVERSION P MOV
0x065194…065328 Dummy {f00=0x0020, f01=0x0190, f02=»O7170,CO7186 PCO7162 SEND WHOLE FILE P MOVE BATCH,HEX00 4 & P PERF DEDISC,W21 GET NEXT JOBNAME N P BOK CO7164 x P CBNE DEBINW4,W9,CO7183 P B RETUBC WHOLE FILE SEND PCO7164 , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A
0x065328…0654bc Dummy {f00=0x0020, f01=0x0190, f02=»(W4),BATCH SAVE BATCHNAME ( P MOVE BIN3,=W'34' GET NEXT BATCHNAME " 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 N P PERF DEDISC,BIN3 P BOK CO7180 , P CBNE DEBINW4,W9,CO7183 NOT 'NOT FOUND' ( P IB WORK(W8),RETUBC JUMP IF ONE JOB
0x0654bc…065650 Dummy {f00=0x0020, f01=0x018e, f02=» PCO7180 , P MOVE BCDI21(W3),W0 SET WANTED RECNO = 0 P PERF DERECS,W11 B P BOK CO7186 Z " P CBG DEBINW4,W11,ERRCO2 ERROR n P CBL DEBINW4,W8,CO7182 P CBNE DEBINW4,W10,CO7184 PCO7183 P B ERRCO2 ERROR PCO7182 P C
0x065650…0657e4 Dummy {f00=0x0020, f01=0x0190, f02=» P PERF DERECS,W5 GET CURRENT P BNOK ERRCO2 ( P CBNE BIN3,W10,CONVNO < * P IB WORK(W8),CO7166,RETUBC EMPTY BATCH Z PCONVNO 4 P CBNE NUMBER,=D'0',CONVE1 JUMP IF NOT BATCHHEAD PCONVE0 * P PERF DECONV,BIN5,W2,DEBINW4 BATCHHEAD
0x0657e4…065978 Dummy {f00=0x0020, f01=0x0190, f02=» 0 P CBE DEBINW4,BDPOIN(W2),CONVE2 JUMP IF LAST 0 P ADD BCDI21(W3),=D'1' INCREASE WANTED RECNO 8 $ P PERF DERECS,W4 GET NEXT RECORD l " P BNOK ERRCO2 JUMP IF NOT OKEY PCONVEA , P PERF DECONV,BIN5,W3,DEBINW4 DATARECORD P MOVE WORK(W7),W
0x065978…065b0c Dummy {f00=0x0020, f01=0x0190, f02=»INPUT,W0,W6,FORTAB(W21),W0 BALANCEFORMAT P MOVE FRMTPNTR,SYMREC(W11) 0 PCONVEF R P PERF DEDISC,W10 GET FORMAT ` P BOK CONVE3 * P CBNE DEBINW4,W13,ERRCO2 NO WORKSPACE * P CBE PINDFR,W0,ERRCO2 NO CURR. FORMAT ( P PERF DEPOOL,W6,PIND
0x065b0c…065ca0 Dummy {f00=0x0020, f01=0x0190, f02=»VEF PCONVE3 * P MOVE FORMAT,FORTAB(W21) BALANCE NAME $ P CALL ATTDB,BPOOL(PINDFR),W6,W10 H P MOVE BIN16,FLIND(W1) p P ATTFMT BPOOL(BIN16) PCONVEB ( P PERF DECONV,BIN5,W4,DEBINW4 BALANCE P MOVE WORK(W7),W4 SAVE TYPE P
0x065ca0…065e34 (1, 128) Dummy {f00=0x0020, f01=0x0190, f02=»DAACT P CALL UPDBIN,BDSTAT ( P PERF DEDISC,W18 WRITE ACCUMULATORS * P BNOK ERRCO2 V PCONVEC j P MOVE DEBINW2,W0 x P IB WORK(W8),CONVE5,RETUBC PCONVE5 P B CO7166 GET NEXT BATCH " PDELCUR DELETE CURRENT BATCH 0 P C
0x065e34…065fc8 Dummy {f00=0x0020, f01=0x0190, f02=» MOVE BATCH,STSAVE(W4) P B CONVEC PERRCO1 0 P CBG DEBINW4,W0,ERRCO3 > P MUL DEBINW4,=W'-1' : P IB DEBINW4,CONVE4,CONVE2 JUMP ON NEGATIV ERROR-CODE C x P CO7175,RETUBC,DELCUR PERRCO3 P PERF DERROR,DEKTABS & P MOVE DEBI
0x065fc8…06615c Dummy {f00=0x0020, f01=0x0190, f02=»EB JUMP CLR DEP TYPE j P CLEAR SOOL2 PERRCO2 0 P PERF DERROR,DEKTABS > P IB DEBINW2,ERRCO2,CONVE4 Z PRETUBC | 0 PRETBC2 PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A < P CALL RESTOR,W0,W16,PWBDB4
0x06615c…0662f0 Dummy {f00=0x0020, f01=0x0190, f02=»DBIN,BDSTAT ( P PERF DEDISC,W18 WRITE ACCUMULATORS * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A @ PRETBC3 n P CLEAR SOOL2 CONVERSION OPEN | P BZ RETBC4 P PERF DECONV,BIN5,W5,DEBINW4 PRETBC4 P CLEAR DOOL3 P PERF DEPRUT,PRN
0x0662f0…066484 Dummy {f00=0x0020, f01=0x0190, f02=»CT P* & P* APPL-VALUE HANDLING ROUTINE P* > PDEAP7A PROC H P IB DEBINW3,DEA71 P B DEANOK ILLEGAL APPL-VALUE v P* 0 P* APPL-VALUE = 1(101) OUTPUT:BIN6 = FILECODE < P* BIN5 = <FC>,FUNCTIO
0x066484…066618 Dummy {f00=0x0020, f01=0x018e, f02=»DEBIN3,DEBIN2 * P MATCH DEVTYP,DEBIN3,W3,DEINPUT,W0,W3 P BOK DEA71B D " P ADD DEBIN2,W5 GET NEXT DEVICE X * P CBE DEBIN2,DEBIN1,DEA71E LAST DEVICE ~ P B DEA71A PDEA71B & P ADD DEBIN3,W3 ADJUST FOR FILECODE 2 P XCOPY BIN6,W1,W1,
0x066618…0667ac Dummy {f00=0x0020, f01=0x0190, f02=» PDEA71E P MOVE DEBINW4,W9 NOT FOUND P B DEANOK 8 P PEND J EJECT X * f * FORMATS p * PF70ST FRMT FSL P FTEXT '70 ' P FCOPY =C'CONVERSION' $$ FNL P FCOPY =C'PROGRAM:'
0x0667ac…066940 Dummy {f00=0x0020, f01=0x0190, f02=» FMEND PF72ST FRMT FSL ( P FLINK F71S 4 FNL H P FLINK F71UV T P FNL h P FLINK F71JOB t P FTAB 20 P FLINK F71BAT P FLINK F71END P FMEND PF71ST FRMT P FSL P FLINK F72S F
0x066940…066ad4 (1, 129) Dummy {f00=0x0020, f01=0x0190, f02=» FLINK F71END P FMEND PF71S FRMT $ P FTEXT '71 ' 6 P FCOPY =C'CONVERSION' J P FILLR ' ',1 h P FCOPY =C'VIA' | P FILLR ' ',1 P FCOPY =C'DATA COMM' P FMEND PF72S FRMT P FTEXT '71 ' P FCOPY =C'CONVERSI
0x066ad4…066c68 Dummy {f00=0x0020, f01=0x0190, f02=» FTEXT '73 ' P FCOPY =C'BATCH LINKING' P FMEND 4 PF71UV FRMT B P FCOPY =C'UNIT' T P FTEXT ':U' l ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 P FMEL 'X',USERFILE P FTAB 20 P FCOPY =C'VOLUME' P FILLR ':',1 P FIN
0x066c68…066dfc Dummy {f00=0x0020, f01=0x018e, f02=» 9,ALPHA,MINL=1,MAXL=6,NEOI,APPL=3,DUPL=STSAVE(W1) P FCOPY JOBNAME : P FMEND P PF71BAT FRMT ^ P FCOPY =C'BATCH' r P FCOPY =C'NAME' P FILLR ':',1 < P FKI 30,ALPHA,MINL=1,MAXL=6,NEOI,APPL=4,DUPL=STSAVE(W2) P FCOPY BATCH
0x066dfc…066f90 Dummy {f00=0x0020, f01=0x0190, f02=» | P FILLR ':',1 ! 0 P FKI 9,ALPHA,MINL=2,MAXL=3,NEOI,ME,APPL=101 ! P FCOPY STSAVE(W3) ! P P FTAB 20 ! j P FCOPY =C'FILE' ! z P FILLR '-',1 ! P FCOPY =C'NAME' ! P FILLR ':',1 ! P FKI 32,ALPHA,MAXL=6,NEOI ! P FCOPY STSAVE(W4) !
0x066f90…067124 Dummy {f00=0x0020, f01=0x405c, f02=» FNL ! P FKI 1,ALPHA " P FCOPY HEX00 " P FMEND " 4 P* " B END " L@ " XE(W3) ! P P FTAB 20 ! j P FCOPY =C'FILE' ! z P FILLR '-',1 ! P FCOPY =C'NAME' ! P FILLR ':',1 ! P FKI 32,ALPHA,MAXL=6,NEOI ! P FCOPY STSAVE(W4) !
0x067124…0672b8 Dummy {f00=0x0020, f01=0x2008, f02=» # FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x0672b8…06744c Dummy {f00=0x0020, f01=0x0190, f02=» POPENUS0C P CLEAR BOOLA2 P PERF COND * RET < PCLOSUS H P TBF SWITUS,CLOSUS01 V P CLEAR SWITUS r P SUB FCOUNTER(FILINDUS),W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK CLOSUS02 $ P MOV
0x06744c…0675e0 Dummy {f00=0x0020, f01=0x0190, f02=»COPY RBUF,W0,W1,W0,W1 P PERF DISU,W4,W1,RBUF P BNOK CLOSUS02 < ( P CALL CHANFC,DISK,FILECODE(FILINDUS) R PCLOSUS02 ~ DSC0 DISK,WEOF CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLEN,W0,W
0x0675e0…067774 (1, 130) Opaque[0x194]
0x067774…067908 # DirEnt {nam=»DE80ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0418, f03=0x0000}
0x067774…067908 IdxSect {
0x067774…067908 f00 = 0x0020 // 0x67774 @0x0
0x067774…067908 f01 = 0x0004 // 0x67776 @0x2
0x067774…067908 gno = [ // 0x67778 @0x4
0x067774…067908 [0x00]: C0x0020.0x3.0
0x067774…067908 [0x01]: C0x0021.0x0.0
0x067774…067908 ]
0x067774…067908 }
0x067908…067a9c Dummy {f00=0x0020, f01=0x0190, f02=» ( P IDENT DE80ST REL 1.0 79-08-14/DALI DDUM DEDDIV 0 PDIV D P ENTRY DE80ST R P ENTRY DEAP8A h * ~ * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRN P EXT DERR P EXT DERROR
0x067a9c…067c30 Dummy {f00=0x0020, f01=0x0190, f02=»VERTING h P EXT DECONV PWEOF EQU 3 CLOSE FILE $ EJECT B PDE80ST PROC P PDEST d PDEST80 p P ATTFMT F80ST ~ PDEST72 & P SET DEPROMPT PROMPT-TEXTS DISPLAY STA050 P CLEAR DECHANGE P PERF DECLRA ST
0x067c30…067dc4 Dummy {f00=0x0020, f01=0x0190, f02=» ERROR P MOVE DEBINW4,W0 ERR2 . P PERF DERR : B STA100 L * ^ PDE80RE h P MOVE BIN1,W0 v P MOVE BIN2,W1 P RET PDE80EN P MOVE DEBINW3,BCD13A $ P PERF DECONV,W2,DEBINW3,DEBINW4 P CBE DEB
0x067dc4…067f58 Dummy {f00=0x0020, f01=0x0190, f02=» P MOVE BCD2A,DEINPUT P MOVE DEBINW3,BCD2A $ P IB DEBINW3,DEAOK0,DEAOK0,DEAOK0 < PTYPE81 d " P MOVE DEBINW4,W6 ILLEGAL VALUE r P B DEANOK PREST80 P MOVE STR1A,DEINPUT P CBE STR1A,=C'Y',REST81 P CBNE STR1A,=C'N',TY
0x067f58…0680ec Dummy {f00=0x0020, f01=0x0190, f02=»XT '80 ' P FCOPY =C'RECEIVE MODE' P FNL 0 P FCOPY =C'UNIT' < P FTEXT ':U' T ( P FKI 7,MINL=1,MAXL=1,NEOI,ME,APPL=2 h P FMEL 'X',USERFILE P FTAB 20 P FCOPY =C'VOLUME' P FILLR ':',1 P FINP 27 P FCOPY TABLE
0x0680ec…068280 Dummy {f00=0x0020, f01=0x4164, f02=»INE TO PRINTER' P FNL P FTEXT '2= LINE TO DISK' $ P FNL D P FTEXT '3= DISK TO PRINTER' P P FNL t P FTEXT 'RESTART(Y/N):' * P FKI 15,ALPHA,MAXL=1,ME,NEOI,APPL=102 P FCOPY STR1A P FNL P FLINK F80END P FMEND
0x068280…068414 (1, 131) Dummy {f00=0x0021, f01=0x2008, f02=»
0x068414…0685a8 Dummy {f00=0x0021, f01=0x0190, f02=» Z < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* H PDECLRD PROC R P* f P PERF DENTER,W4 p P RET P PEND P* P* ERROR PRINTOUT P* PDERR PROC P MOVE DEBINW1,W0 P PERF DENTER
0x0685a8…06873c Dummy {f00=0x0021, f01=0x0190, f02=»VARIABLE v " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? 6 P BE ERRPRINT YES ! ^ P x . P TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT P SHOULD BE DIDELAYED P* P* ONLY VARIABLE FIELDS P* P I
0x06873c…0688d0 Dummy {f00=0x0021, f01=0x0190, f02=»SE ALL FROM 1 AND UP ~ P B CONT P* , PCLEARS 6 , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP D P B CONT t PCLEARD P TBT VERIFM,VERIF * P DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP P B CONT PVERIF P TBF KEYVER,SIGH
0x0688d0…068a64 Dummy {f00=0x0021, f01=0x018e, f02=» DISPLAY ENTIRE FORMAT P* PENTIRE ( P CLEAR DEPROMPT 6 P IB DEBINW2 JUMP C N P ECLRA ON C h P ECLRS ROUTINE C | P ECLRN INDEX C P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3
0x068a64…068bf8 Dummy {f00=0x0021, f01=0x0190, f02=» PECLRS * P ERASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN MEMORY @ P* ^ & P* CLEAR NO VARIABLES IN MEMORY h P* PECLRN P TBT VERIFM,EVERIF ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P B CONT PEVERIF
0x068bf8…068d8c Dummy {f00=0x0021, f01=0x0190, f02=» P* PCONT P MOVE DEBINW2,W8 HOME-KEY & P GETABX DEBINW4 GET CURRENT INDEX < ( P BL KTHOME JUMP IF NO CURRENT FIELD f P TBF VERIFM,CONT5 P B KTHOME PCONT5 6 P GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION P B
0x068d8c…068f20 Dummy {f00=0x0021, f01=0x0190, f02=»4,DEBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* < PCONT6 F P TSTCTL 5 LOOK IF CTAB T P BZ SETCREAD r P TEST DOOLA " P BZ KTHOME JUMP IF NOT BALANCE P MOVE DEBINW2,W9 P B KTHOME P EJECT P* & P* S
0x068f20…0690b4 (1, 132) Opaque[0x194]
0x0690b4…069248 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0428, f03=0x0000}
0x0690b4…069248 IdxSect {
0x0690b4…069248 f00 = 0x0021 // 0x690b4 @0x0
0x0690b4…069248 f01 = 0x0004 // 0x690b6 @0x2
0x0690b4…069248 gno = [ // 0x690b8 @0x4
0x0690b4…069248 [0x00]: C0x0021.0x1.0
0x0690b4…069248 [0x01]: C0x0021.0x2.0
0x0690b4…069248 ]
0x0690b4…069248 }
0x069248…0693dc Dummy {f00=0x0021, f01=0x0190, f02=» P* DELITT EJECT ENT EQU X'8C' ENTER * CAN EQU X'91' CANCEL F PRET EQU X'92' RETURN b PRG EQU X'94' PROGRAM ~ PTOT EQU X'93' TOTAL PSTS EQU X'96' STATUS PPRT EQU X'98' PRINT $ PKEP EQU X'8D' KEEP FIELD
0x0693dc…069570 Dummy {f00=0x0021, f01=0x0190, f02=»NSERT z RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD 2 " RBW EQU X'81' RECORD BACKWARD V PASD EQU X'82' | EOI EQU X'80' FIELD FORWARD $ PPLS EQU X'9C' FIELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS P
0x069570…069704 Dummy {f00=0x0021, f01=0x018e, f02=» REST OF FIELD ~ CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD : PBSP EQU X'8B' BACKSPACE ` " PVAL EQU X'97' FORCE VALIDATION NOK EQU X'FF' NOKEY PX.MOVE EQU X'00' PX.COPY EQU X'62' PX.MATCH EQU X'68'
0x069704…069898 Dummy {f00=0x0021, f01=0x0190, f02=» PDETACH EQU X'0F' EJECT * * * KEYTABLES 4 * N & P* USAGE: DATA ENTRY SCREEN X * , PDEKTAB1 KTAB BSP,CLR,NOK,EOI,CAN,RET, C P PLS,BTB,HOM,ERS, C P KEP,NOK,NOK,STS,PRT, C . P DUP,CFW,EN
0x069898…069a2c Dummy {f00=0x0021, f01=0x0190, f02=»NOK,NOK,NOK, C P NOK,CBW * * ( PDEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C 4 P CLR,SKP,EOI,CAN,RET, C ` P PLS,BTB,HOM P* PDEKTAB4 KTAB CLR,CAN,RET,CFW P* , PDEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C " P RFW,RB
0x069a2c…069bc0 Dummy {f00=0x0021, f01=0x0190, f02=» PDEKTAB8 KTAB CAN,NOK,ENT * $ , PDEKTABA KTAB BSP,NOK,CLR,EOI,CAN,RET, C . P PLS,BTB,HOM,NOK, C ^ P NOK,NOK,MIN,NOK,NOK, C | P NOK,CBW * ( PDEKTABB KTAB CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET, C P
0x069bc0…069d54 (1, 133) Dummy {f00=0x0021, f01=0x0190, f02=»,RET,NOK,VAL,FRC C | P BTB,HOM P* . ( PDEKTABF KTAB CLR,CAN,RET,NOK,NOK,FRC 8 8 PDEKTABI KTAB CLR,CAN,RET,RBW,VAL,FRC,NOK,NOK,NOK,ASD d P* 8 PDEKTABK KTAB PLS,EOI,MIN,DUP,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN
0x069d54…069ee8 Dummy {f00=0x0021, f01=0x408c, f02=»KTABS KTAB CLR,CAN,RET P* , PDEKTABV KTAB NOK,STS,PRT,CAN,RET,ENT, C ( " P RFW,RBW,COR,RDL,TOT,NOK,RIN X P* ~@ ,NOK,NOK,ASD d P* 8 PDEKTABK KTAB PLS,EOI,MIN,DUP,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN
0x069ee8…06a07c Dummy {f00=0x0021, f01=0x2008, f02=» LR,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C " NOK,NOK,NOK,NOK,PRT, C @ NOK,CBW,ENT b * x ( $SPKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C CLR,KEP,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C
0x06a07c…06a210 Dummy {f00=0x0021, f01=0x414a, f02=» > @ IDENT T:STEV T,PRR=5.0,791206,870137140500 T:STEV F T:STEV X T:GRFC l I:EVA0 ~ * & H #0T Y Y , ( ! T # P & #0T ( I:ERR2 7
0x06a210…06a3a4 Dummy {f00=0x0021, f01=0x0190, f02=» > @ IDENT T:EDFL T,PRR=5.0,791206,870137140500 T:EDFL F T:EDFL X T:PM1 l T:PM2 | T:CASP , ( I Y ( x P Y * , ( x y W X " T:DUPX
0x06a3a4…06a538 Dummy {f00=0x0021, f01=0x0190, f02=» , ( w V X ( x C T:SCUW 4 , ( ( Y * X Y , X F , ( X C & C C v T:IOER , ( ( B P 9 R 9 X , ( !@P X X * b ) Y *
0x06a538…06a6cc Dummy {f00=0x0021, f01=0x0190, f02=» B U C Q C D T:CLR1 * T:CLR2 < , ( mP X X * $" ~_> @ Y N , ( X * _R X !@XX y X # ~ , ( x V y X X * P , ( P 1 _ 1 X * X
0x06a6cc…06a860 Dummy {f00=0x0021, f01=0x4148, f02=» X n T:CLIT T:EKEY , ( C $ " P y _ x T 2 , ( a@ X H X X * , )$ b P _ : H D !T P d )Wv 9 T UP m d yV& Ph R^ PP #P =T QU [Q e r g t 4 0 i k m
0x06a860…06a9f4 (1, 134) Opaque[0x194]
0x06a9f4…06ab88 # DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0438, f03=0x0000}
0x06a9f4…06ab88 IdxSect {
0x06a9f4…06ab88 f00 = 0x0021 // 0x6a9f4 @0x0
0x06a9f4…06ab88 f01 = 0x0014 // 0x6a9f6 @0x2
0x06a9f4…06ab88 gno = [ // 0x6a9f8 @0x4
0x06a9f4…06ab88 [0x00]: C0x0021.0x3.0
0x06a9f4…06ab88 [0x01]: C0x0022.0x0.0
0x06a9f4…06ab88 [0x02]: C0x0022.0x1.0
0x06a9f4…06ab88 [0x03]: C0x0022.0x2.0
0x06a9f4…06ab88 [0x04]: C0x0022.0x3.0
0x06a9f4…06ab88 [0x05]: C0x0023.0x0.0
0x06a9f4…06ab88 [0x06]: C0x0023.0x1.0
0x06a9f4…06ab88 [0x07]: C0x0023.0x2.0
0x06a9f4…06ab88 [0x08]: C0x0023.0x3.0
0x06a9f4…06ab88 [0x09]: C0x0024.0x0.0
0x06a9f4…06ab88 ]
0x06a9f4…06ab88 }
0x06ab88…06ad1c Dummy {f00=0x0021, f01=0x0190, f02=» $ P IDENT ASSRUT REL 10.0 80-04-11 P 80-03-18/PEEN , P UPD 79-11-01/PEEN D P UPD 79-10-18/PEEN ` P UPD 79-10-04/PEEN | P UPD 79-09-24/DALI P UPD 79 08 14/PEEN$$ P UPD 79-04-24/PEEN P UPD 79-02-28/PEEN
0x06ad1c…06aeb0 Dummy {f00=0x0021, f01=0x0190, f02=»AVE P ENTRY RESTOR ENTRY GETFRE " ENTRY SETFRE 8 ENTRY SETOCC N P ENTRY CHANFC d P ENTRY GETVOL z P ENTRY UPDBOL P ENTRY UPDBIN P ENTRY SETB P ENTRY TESTB P ENTRY CLEARB P ENTRY MSKOUT
0x06aeb0…06b044 Dummy {f00=0x0021, f01=0x0190, f02=» P ENTRY ATTBUF P ENTRY FORCED P ENTRY GETIND 0 P ENTRY CMPIND F P ENTRY WRITDK P ENTRY READDK r P ENTRY CLOSEF P ENTRY OPENF P ENTRY POOLA P ENTRY GETFWD P ENTRY ADJUST * EXTRN I:EVA
0x06b044…06b1d8 Dummy {f00=0x0021, f01=0x0190, f02=» * CALL FORM 16=/F6A1,16 P* 0 PFVAL EQU /C5 : PFACC EQU /C7 N PFGEN EQU /C6 b PFDUP EQU /CC v PFLINK EQU /DE PFCBIX EQU 12 PFCBNIX EQU 44 PFCBROW EQU 14 PFCBNLI EQU 46 PFCBLP EQU 4
0x06b1d8…06b36c Dummy {f00=0x0021, f01=0x0190, f02=»L AREA z 0 P* SYNTAX: CALL ATTWB,STRG,DISPL,BLOCK , P* STRG= STRING ITEM TO BE WORKBLOCK B 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE r P* 'STRG'-START 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P
0x06b36c…06b500 Dummy {f00=0x0021, f01=0x0190, f02=»DRESS ~ " P CALL I:EVA0 GET DISPLACEMENT P ADR* A7,A9 4 & ! CALL I:EVA0 ADDRESS TO WB NUMBER H LDR* A1,A9 r SLL A1,2 TIMES 4 ADR A1,A13 ADDRESS TO DB ( P ADR A1,A10 GET ADDRESS TO WB OR DB PATT100 EQU * & P STR A
0x06b500…06b694 (1, 135) Dummy {f00=0x0022, f01=0x0190, f02=»TO ` P* THE TERMINAL CONTROL AREA 0 P* SYNTAX: CALL ATTDB,STRG,DISPL,BLOCK . 2 P* STRG= STRING ITEM TO BE DISCRIPTOR BLOCK b 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE P* 'STRG'-START 8 P* BLOCK= BIN ITEM HO
0x06b694…06b828 Dummy {f00=0x0022, f01=0x0190, f02=» P* P* CHANGE FILE CODE IN ECB P* CALL: 2 * P* CALL CHANFC,DATASET,FILECODE D P* r PCHANFC EQU * | " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BIN. P LC A3,1,A9 GET FILE CODE & P SC A3
0x06b828…06b9bc Dummy {f00=0x0022, f01=0x0190, f02=»NTAX: CALL SAVE,DISPL,LENGTH,STRG 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE * ( P* THE VERY FIRST DB:POINTER d @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTE
0x06b9bc…06bb50 Dummy {f00=0x0022, f01=0x0190, f02=»00 EQU * P LCR A1,A2 P SCR A1,A7 " P ADK A2,1 4 P ADK A7,1 F P SUK A6,1 X P RB(NZ) SAV200 j P RF RETUR P* 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE * P* TO THE T:A (TERMINAL CONTROL AREA) 0 P* SY
0x06bb50…06bce4 Dummy {f00=0x0022, f01=0x0190, f02=»ES TO RESTORE x : P* STRG= STRING ITEM HOLDING POINTERS TO BE RESTORED P* T PRESTOR EQU * ^ P CALL GETP r P LDR A1,A2 P LDR A2,A9 CHANGE P LDR A9,A1 ADDRESSES P RB SAV100 START TO RESTORE P* ( P* GET PARAME
0x06bce4…06be78 Dummy {f00=0x0022, f01=0x0190, f02=» LDR* A6,A9 GET LENGTH P CALL I:EVA0 P LDK A2,40 2 , P ADR A2,A13 GET ADDRESS TO DB-POINTER /A D P RTN A14 t P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB < 8* OUTP
0x06be78…06c00c Dummy {f00=0x0022, f01=0x0190, f02=» NUMBER OF FRE RECORDS RF(Z) NOK IF NONE FREE GET100 EQU * > CWR A7,A8 R RF(E) NOK END OF RECORD d & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE ADK A
0x06c00c…06c1a0 Dummy {f00=0x0022, f01=0x0190, f02=»N BYTE r LDR A4,A4 SEA100 RF(N) FOUND IF FOUND ADK A5,1 INCREMENT COUNTER D SLL A4,1 h RB SEA100 z FOUND SLL A4,1 CLEAR BIT , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER FOU100 SRL A4,1 SUK A5,1 DECREMENT
0x06c1a0…06c334 (1, 136) Dummy {f00=0x0022, f01=0x0190, f02=»A7,18,A9 GET START RECORD NUMBER ( $ ADR A6,A7 GET CURRENT RECORD NUMBER ( LDKL A1,-1 T , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. h NOK EQU * CALL I:EVA0 & "NOK100 STR A6,A9 STORE FOUND INDEX RETUR ABL I:RT1 EJECT
0x06c334…06c4c8 Dummy {f00=0x0022, f01=0x0190, f02=»RRENT RECORD WAS BUSY 6 1* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB @ <* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) X * SETFRE EQU * SUR A10,A10 INDICATE SETFRE SET EQU * CALL GETPAR LDR
0x06c4c8…06c65c Dummy {f00=0x0022, f01=0x0190, f02=»7,A6 ECR A1,A1 ( $ LC A1,18,A6 GET START RECORD NUMBER & " SUR A3,A1 GET RELATIVE RECORD NO. J " P CALL SEABIT SEARCH WANTED BIT t P LDR A6,A6 P RB(Z) NOK100 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC " * SE
0x06c65c…06c7f0 Dummy {f00=0x0022, f01=0x0190, f02=» A1,1 INDICATE INCREMENT . *TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER TES200 SUK A3,1 R RF(N) TES300 BYTE RESTORED j SRC A4,1 RB TES200 * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE " SCR A4,A7 STORE UPDATED BYTE R
0x06c7f0…06c984 Dummy {f00=0x0022, f01=0x0190, f02=»IED r * % SUK A1,1 A1 = -1; INDICATE DECREMENT $ ANKL A4,/7FFF INDICATE OCCUPIED : RB TES100 b EJECT t 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD * IS FREE 6 2*
0x06c984…06cb18 Dummy {f00=0x0022, f01=0x0190, f02=» WRONG NUMBER) ~ SETOCC EQU * , LDR A10,A14 INDICATE SETOCC @ RB SET d P EJECT t P* 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING P* 16 BOOLEAN ITEMS P* PUPDBOL EQU * ( P CALL I:EVA0
0x06cb18…06ccac Dummy {f00=0x0022, f01=0x0190, f02=»MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN P* 2 PUPDBIN EQU * < ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM P P LD A1,-2,A9 GET BOOLEANS | P STR A1,A9 STORE IN BIN P RB RETUR P EJECT P* 0 P* SEARCH WANTED BIT IN A CHARA
0x06ccac…06ce40 Dummy {f00=0x0022, f01=0x0190, f02=» A3,8 RF(N) SET100 ADK A7,1 $ CWR A7,A8 6 & " RB(NE) SET050 CONTINUE IN NOT EOR H * % LDK A6,0 INDICATE INCORRECT REC. NO. r P RTN A14 * PLACED IN CURRENT BYTE SET100 EQU * ADK A3,8 LCR A4,A7
0x06ce40…06cfd4 (1, 137) Dummy {f00=0x0022, f01=0x0190, f02=» A1,1 RB(NZ) SET300 TEST EQU * $ P RTN A14 6 P EJECT F P* T . P* SET WANTED BIT IN A STRING OR BIN ITEM ^ & P* SYNTAX: CALL SETB,ITEM,INDEX P* PSETB EQU * P SUR A10,A10 INDICATE 'SET' PSETB10 EQU *
0x06cfd4…06d168 Dummy {f00=0x0022, f01=0x0190, f02=» TO INDEX x P LDR* A3,A9 GET INDEX " P CALL SEABIT SEARCH WANTED BIT 0 P LDR A10,A10 V P RF(N) SETB30 IF TEST BIT j P RF(Z) SETB20 JUMP IF SETBIT P* CLEAR BIT P ANKL A4,/7FFF CLEAR BIT P RB TES200 RESTORE BYTE P* SE
0x06d168…06d2fc Dummy {f00=0x0022, f01=0x0190, f02=»ALSE | P LDR A4,A4 TEST BIT P RF(NN) SETB40 IF FALSE ( P LDK A1,1 INDICATE TRUE H PSETB40 EQU * h P LD A4,2,A13 GET STACK BASE | " P SC A1,-2,A4 STORE CR ON STACK P RF RET P* * P* CLEAR BIT IN STRING OR BIN VARIABLE
0x06d2fc…06d490 Dummy {f00=0x0022, f01=0x0190, f02=»NUE P* * P* TEST BIT IN STRING OR BIN VARIABLE ( P* SYNTAX: CALL TESTB,ITEM,INDEX D & P* OUTPUT: CR = 0 (BIT IS FALSE) p & P* CR = 1 (BIT IS TRUE) P* PTESTB EQU * $ P LDKL A10,-1 INDICATE 'TEST BIT'
0x06d490…06d624 Dummy {f00=0x0022, f01=0x0190, f02=»OD b ( P* RETCOD = 0 IF OK, ELSE 1 P* 6 PGETVOL EQU * @ ( P CALL T:FDSP GET DSET ADDRESS TO A8 T * P CALL I:EVA0 GET BUFFER ADDRESS TO A9 ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN P ANKL A9,/FFFE , P ST A9,2,A8 STORE BUFFER
0x06d624…06d7b8 Dummy {f00=0x0022, f01=0x0190, f02=»DDRESS TO VOLNAM ~ P LDK A7,/80 LOAD ORDER CODE , P* A7 ORDER CODE FOR TEST STATUS < P* A8 DSET ADDRESS l P LKM P DATA 1 P LD A1,8,A8 LOAD RETURN CODE P RF(NZ) ERROR : P* STORE THE VOLUME NAME (OUTPUT
0x06d7b8…06d94c Dummy {f00=0x0022, f01=0x0190, f02=»NAME p PLOOP EQU * P LCR A3,A1 P SCR A3,A9 0 P ADK A1,1 B P ADKL A9,1 T P SUK A2,1 f P RB(P) LOOP x PUT EQU * P LDK A6,0 PVIN CF A14,I:EVA0 P STR A6,A9 STORE RETURN-CODE PRET ABL I:RT1 PERROR
0x06d94c…06dae0 Dummy {f00=0x0022, f01=0x0190, f02=» CALL I:EVA0 ADDRESS TO RPOOL LC A8,15,A9 & ECR A8,A8 : $ LC A8,16,A9 GET OCCUPIED BYTES L ADR A8,A7 GET END ADDRESS t P SUKL A8,10 " LDR A2,A7 SAVE START ADDRESS $ ADK A7,2 ADDRESS TO FIRST BITS LDK A6,0
0x06dae0…06dc74 (1, 138) Dummy {f00=0x0022, f01=0x0190, f02=»S h : P* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL 6 P* BUFF+DISPL= START ADDRESS IN STRING ITEM H > P* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS , P* MINL= BIN FOR MIN LENGTH , P* MAXL=
0x06dc74…06de08 Dummy {f00=0x0022, f01=0x0190, f02=»S p P LDR A8,A9 & P CALL I:EVA0 DISPLACEMENT ADDRESS " P ADR* A8,A9 GET START POINTER F P CALL I:EVA0 l P LDR A7,A9 " P SUK A7,2 ADDRESS TO BOOLEANS P CALL I:EVA0 MINL ADDRESS P LDR A6,A9 P CALL I:EVA0 MAXL ADDRESS
0x06de08…06df9c Dummy {f00=0x0022, f01=0x0190, f02=»E IN BUFFER " P SRL A1,8 SHIFT OUT 8 BOOLEANS P SLL A1,7 : P ADR* A1,A9 GET NEOI + MAXL L P SC A1,1,A8 STORE IN BUFFER p P SRL A1,2 SHIFT IN ME + TYPE P ANK A1,/C0 P ADR* A1,A6 GET MINL P SCR A1,A8 STORE IN BUFFER
0x06df9c…06e130 Dummy {f00=0x0022, f01=0x018e, f02=»AXL z P STR A2,A9 STORE MAXL ! P LCR A2,A8 ! * P ANK A2,/3F MASK OUT MINL ! < P STR A2,A6 STORE MINL ! ^ $ P SRL A1,7 NEOI TO RIGHTMOST POS. ! | P ANK A1,1 MASK OUT NEOI ! $ P LCR A2,A8 GET ME + TYPE + MINL ! P SRL A2,5 SHIFT OUT MINL !
0x06e130…06e2c4 Dummy {f00=0x0022, f01=0x0190, f02=» ! P EJECT " P* " 0 P* WRITE CONTROLS FROM BOOLEANS AND BINS TO " P* STRING ITEM " T : P* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL " l 2 P* BUFF+DISPL= START POINT FOR WRITINGM " B P* BOOLBIN= FIRST BIN IN SAME W
0x06e2c4…06e458 Dummy {f00=0x0022, f01=0x0190, f02=»WCNTRL EQU * " ( P LDR A10,A14 INDICATE WRITE CONTROLS # P RB CONTRL # @ P EJECT # R P* # ` . P* MASK OUT WANTED BITS ACCORDING TO MASK # j & P* SYNTAX: CALL MSKOUT,MASK,BIN # 6 P* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN # 8 P*
0x06e458…06e5ec Dummy {f00=0x0022, f01=0x018e, f02=»ALL I:EVA0 ADDRESS TO MASK # P LDR A6,A9 $ " P CALL I:EVA0 ADDRESS TO BIN $ 4 $ P LDR* A1,A9 GET CONTENTS OF BIN $ X * P ANRS A1,A6 LOGICAL AND WITH MASK AND $ P STORE RESULT IN MASK $ P RB RET $ P* $ P EJECT $ P* $ , P* ATTAC
0x06e5ec…06e780 Dummy {f00=0x0022, f01=0x018e, f02=» $ P CALL T:FDSP DSET-ADDRESS % P LDKL A1,/4000 % * $ P ORRS A1,A8 INDICATE FIX BUFFER % @ $ P CALL I:EVA0 GET BUFFER ADDRESS % h $ P ST A9,2,A8 STORE BUFFER ADDRESS % P SUR A5,A9 CALCULATE LENGTH % P ST A5,14,A8 STORE LENGTH % PATTRET EQU
0x06e780…06e914 (1, 139) Dummy {f00=0x0023, f01=0x0190, f02=» 0 P* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' & P* & 8 , P* SYNTAX: CALL FORCED,ITEM & B 2 P* OUTPUT: CR = 0 NOT FORCED & r . P* CR = 1 FORCED & P* & PFORCED EQU * & " P CALL I:EVA0 GET
0x06e914…06eaa8 Dummy {f00=0x0023, f01=0x0190, f02=»ET RIGHTMOST DIGIT & P SUK A3,/A ' PFOR100 EQU * ' , P RF(Z) NOTFND JUMP IF FORCED ' @ P RF UT150 NOT FORCED ' d PALPHA EQU * ' & P LCR A3,A9 GET LEFTMOST CHARACTER ' P SUK A3,'?' ' P RB FOR100 ' P EJECT ' P* ' P* GET VALID
0x06eaa8…06ec3c Dummy {f00=0x0023, f01=0x0190, f02=»PLEN = POOL UNIT LENGT (BIN) ' 4 P* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN) ( $ > P* START = POINTER TO STRING WIN CURRENT POOL UNIT ( . P* LEN = LENGTh OF FOUND STRING ( , P* CR = 0 IF STRING IS FOUND ( 0 P*
0x06ec3c…06edd0 Dummy {f00=0x0023, f01=0x018e, f02=» * ( P LDR A10,A12 SAVE PP ) P LD* A11,-8,A13 ) & P ADR A11,A13 GET FCB-ADDRESS ) > $ P LDR* A6,A11 GET ADDRESS TO ITEM ) b . P ADKL A6,P:BAS+2 GET START SEARCH ADDRESS ) PVAL150 EQU * ) P LCR A1,A6 GET FORMAT CODE ) P ADK A6,1 INCREMENT PO
0x06edd0…06ef64 Dummy {f00=0x0023, f01=0x0190, f02=» P RF(E) VAL300 * P CWK A1,FDUP * P RF(E) VAL300 * . P SUK A1,FLINK * D P RF(NZ) VAL200 IF NOT FLINK * Z P* FLINK * ~ ( P LDR A12,A6 UPDATE PP TO FLINK-ITEM * * P CALL I:EVA0 ADDRESS TO NEXT POOL UNIT * P LDR A12,A10 RESTORE PP * $ P
0x06ef64…06f0f8 Dummy {f00=0x0023, f01=0x0190, f02=»DICATE NOT FOUND * P RF OUT + P* FVAL,FACC OR FGEN + ( PVAL300 EQU * + D P CWR A1,A7 + X P RF(E) OUT JUMP IF FOUND + j P LCR A1,A6 GET COUNTER + $ P ADR A6,A1 UPDATE FORMAT POINTER + P ADK A6,1 + P RB VAL150 CONTINUE + P* + P
0x06f0f8…06f28c Dummy {f00=0x0023, f01=0x0190, f02=»11,A5 SAVE POOL LENGTH + $ P CALL I:EVA0 ADDRESS TO BUFFIND , P LDR A7,A9 SAVE ADDRESS , F * P CALL I:EVA0 ADDRESS TO START POINTER , f P LDR A8,A9 SAVE ADDRESS , " P CALL I:EVA0 ADDRESS TO LENGTh , P LDR A6,A6 , P RF(Z) NOTFND IF NOT FOUND ,
0x06f28c…06f420 Dummy {f00=0x0023, f01=0x018e, f02=» , r P LDK A1,0 - PUT100 EQU * - P ADK A1,1 - . " P SUR A6,A11 SUB WIF POOL-LENGF - @ & P RB(P) UT100 CONTINUE IF POSITIVE - f * P ADR A6,A11 RESTORE RELATIVE POSITION - ( P STR A1,A7 STORE BUFFER UNIT NUMBER - " P STR A6,A8 STORE START POINTER
0x06f420…06f5b4 (1, 140) Dummy {f00=0x0023, f01=0x0190, f02=» - n PGREAT EQU * . PNOTFND EQU * . P LDK A1,1 INDICATE CR = 1 . 0 " P RB UT200 STORE CR AND RETURN . R PLESS EQU * . x P LDK A1,2 . P RB UT200 . P EJECT . P* . P* GET ACCUMULATION STRING . P* SEE UNDER GETVAL ABOVE .
0x06f5b4…06f748 Dummy {f00=0x0023, f01=0x0190, f02=»* GET GENERATION STRING . P* SEE UNDER GETVAL ABOVE / P* / B PGETGEN EQU * / L , P LDK A7,FGEN INDICATE GENERATION STRING / ` P RB VAL100 START TO SEARC / P* / P / P* GET DUPLICATION STRING / P* SEE UNDER GETVAL ABOVE / P
0x06f748…06f8dc Dummy {f00=0x0023, f01=0x0190, f02=»BLE AND LENGTH / n P* 0 > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION 0 P* 0 b : P* ITEM(W1) = CURRENT ITEM 0 l F P* LENGTH = BIN HOLDING ITEM LENGTH 0 D P*
0x06f8dc…06fa70 Dummy {f00=0x0023, f01=0x0190, f02=»ND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 1 2 P LD A10,-6,A14 READ DIMENSION STORED BY I:EVA 1 4 P LDR A7,A5 COPY END ADDRESS 1 j $ P SUR A7,A9 CALCULATE ITEM LENGTH 1 ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM 1 P STR A7,A9 STORE LENGTH 1 & P CALL
0x06fa70…06fc04 Dummy {f00=0x0023, f01=0x0190, f02=» > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM 2 P* 2 F : P* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) 2 P P* 2 @ P* OUTPUT: CR = 0 IF INDEX=OK INDEX OF ITEM 2 8 P* CR = 1 IF INDEX > MAX
0x06fc04…06fd98 Dummy {f00=0x0023, f01=0x0190, f02=»DEX 2 r P LDR* A6,A9 SAVE INDEX VALUE 3 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 3 0 P LDR A6,A6 3 f P RB(NP) LESS IF LESS THAN 1 3 x ( P CW A6,-6,A14 COMPARE WITH DIMENSION 3 P RB(G) GREAT IF TOO HIGH 3 P RB EQUAL IF OK INDEX 3 P*
0x06fd98…06ff2c Dummy {f00=0x0023, f01=0x0190, f02=»CK 3 h & P* FILECODE FILE NUMBER 4 " P* BUF BUFFER 4 4 , P* LEN REQUESTED LENGTH 4 Z > P* RECNO REALATIV SECTOR NO WITHIN THE FILE 4 P* 4 PWRITDK EQU * 4 P LDKL A11,/95 ORDER CODE 4
0x06ff2c…0700c0 Dummy {f00=0x0023, f01=0x0190, f02=» CONTROL BLOCK 4 t & P* FILECODE FILE NUMBER 5 " P* BUF BUFFER 5 @ , P* LEN REQUESTED LENGTH 5 f > P* RECNO RELATIVE SECTOR NO WITHIN THE FILE 5 P* 5 PREADDK EQU * 5 P LDKL A11,/91 ORDE
0x0700c0…070254 (1, 141) Dummy {f00=0x0023, f01=0x0190, f02=»* THEM IN DSET 5 P CALL I:EVA0 FILE CODE 6 P LDR* A6,A9 6 8 P SC A6,1,A8 6 L P CALL I:EVA0 BUFFER ADDRESS 6 ` P ST A9,2,A8 6 P CALL I:EVA0 RECORD LENGTH 6 P LDR* A6,A9 6 P ST A6,4,A8 6 P CALL I:EVA0 RECORD NO 6 P LDR* A6
0x070254…0703e8 Dummy {f00=0x0023, f01=0x0190, f02=»DSET ADDRESS 6 P LKM 7 P DATA 15 7 P* 7 0 P* CHECK ON ERROR CODE 7 : PREAD40 EQU * 7 P LD A6,8,A8 7 p ( P RB(Z) EQUAL SET COND CODE TO 0 ,OK 7 P ANKL A6,/2000 7 * P RB(NZ) GREAT SET COND CODE TO 1 ,EOF 7 & P RB LESS SET COND CO
0x0703e8…07057c Dummy {f00=0x0023, f01=0x0190, f02=» EVENT CONTROL BLOCK 7 ~ ( P* FILECODE FILE NUMBER 8 " > P* BUFF BUFFER OF AT LEAST 80 BYTES 8 N F P* RECNO LAST RECORD NUMBER (SHOULD BE ZERO) 8 P* 8 PCLOSEF EQU * 8 P LDR A11,A14 IND
0x07057c…070710 Dummy {f00=0x0023, f01=0x0190, f02=» LDR* A6,A10 GET FILE CODE 8 P SC A6,1,A8 9 " P LDK A7,/A2 LOAD ORDER CODE 9 6 P RB READ20 9 Z P EJECT 9 l P* 9 z 4 P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME 9 P* 9 0 P* DSET EVENT CONTROL BLOCK 9 ( P*
0x070710…0708a4 Dummy {f00=0x0023, f01=0x0190, f02=» VOLUME VOLUME NAME 9 P* : " POPENF EQU * : , P SUR A11,A11 INDICATE OPENF : @ POPENF0 EQU * : d ( P CALL T:FDSP GET DSET ADDRESS TO A8 : x * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE : P LDR A10,A9 : 4 P CALL I:EVA0 GET ADDRESS TO FPB(FI
0x0708a4…070a38 Dummy {f00=0x0023, f01=0x0190, f02=»8 STORE THE ADDRESS IN DSET : " P LDK A3,80 NO OF BYTES IN FPB ; $ P LDR A2,A9 ADDRESS TO FPB ; J POPEN00 EQU * ; l P CMR A2 STORE ZERO IN FPB ; P ADK A2,2 INCREACE ADDRESS ; P SUK A3,2 ; P RB(NZ) OPEN00 ; P* ; , P* GET FILE NAM
0x070a38…070bcc Dummy {f00=0x0023, f01=0x0190, f02=»SE ; v * P ADK A6,8 ADDRESS TO FILE NAME IN FPB < & P LDK A4,8 NO OF CHAR IN FILE NAME < 8 POPEN20 EQU * < b P LCR A3,A9 GET ON CHAR < v $ P SCR A3,A6 STORE ONE CHAR IN FPB < P ADKL A9,1 < P ADK A6,1 < P SUK A4,1 < P RB(NZ) OPEN20 < P
0x070bcc…070d60 Dummy {f00=0x0023, f01=0x0190, f02=»CHAR IN VOLUME NAME < POPEN40 EQU * = P LCR A3,A9 = 0 $ P SCR A3,A6 STORE ONE CHAR IN FPB = B P ADKL A9,1 = j P ADK A6,1 = | P SUK A4,1 = P RB(NZ) OPEN40 = P LDK A7,/A1 LOAD ORDER CODE = P LKM = P DATA 15 = , P* STORE FILE COD
0x070d60…070ef4 (1, 142) Dummy {f00=0x0023, f01=0x0190, f02=»EVALUATE NUMBERS OF POOLS SPECIFIED IN CONFIGURATION = P* > < P* SYNTAX: CALL POOLA > F P* > f P* > p PPOOLA EQU * > z & P LD A4,P:MTAB+2 GET U:BTAB-ADDRESS > * P LD A4,2,A4 GET NUMBER OF BLOCK UNITS > P SUK A4,1 > ( P LD A1,4,A13 GET
0x070ef4…071088 Dummy {f00=0x0023, f01=0x0190, f02=»ISP. FOR RPOOL > x P ST A3,38,A1 STORE - " - ? , P ST A4,40,A1 STORE DIMENSION FOR RPOOL ? : * P ST A4,48,A1 - " - BPOOL ? j 2 P ADK A2,188-19 LOAD TYPE AND LENGTH FOR BPOOL ? " P ST A2,44,A1 STORE - " - ? 4 PPOOL10 ADK A3,19 ADD
0x071088…07121c Dummy {f00=0x0023, f01=0x0190, f02=»T A3,46,A1 ST DISPL. FOR BPOOL ? PPOOLUT EQU * @ & P ABL I:RT1 @ : P EJECT @ L P* @ Z , P* PREPARE FOR GETFLD FROM CURRENT FIELD @ d 0 P* IT IS REQUIRED THAT THE FORMAT DOES NOT @ * P* CONTAIN ANY RETURN FROM SUBFORMAT @ P* @ > P* THE
0x07121c…0713b0 Dummy {f00=0x0023, f01=0x018e, f02=» BIN1 = WORK ITEM TO BE USED ALSO IN ROUTINE "ADJUST" @ T P* TYPE = A VALUE TELLING WHATGETFLD FUNTION YOU WANT TO EXECU A L < P* START = ITEM1 IN THE GETFLD FUNTION A > P* SLUT = ITEM2 I
0x0713b0…071544 Dummy {f00=0x0023, f01=0x0190, f02=» A l , P LD A7,FCBLP,A6 GET FORMAT START ADDRESS B " P STR A7,A9 STORE IN SAVE ITEM B 8 P LDR A10,A12 SAVE PP B ^ & P ADKL A12,1 STEP PAST GETFLD-TYPE B z 4 P CALL I:EVA0 GET ADDRESS TO WANTED FIELD NUMBER B P LDR A12,A10 RESTORE PP B & P LD A1,FCBIX
0x071544…0716d8 Dummy {f00=0x0023, f01=0x0190, f02=»NTED IS LOWER B | & P ST A1,FCBNIX,A6 STORE IN WORKAREA C , P LC A1,FCBROW,A6 GET CURRENT ROW NUMBER C @ * P SC A1,FCBNLI+1,A6 STORE IN WORK AREA C p & P LD A1,FCBFMA,A6 GET CURRENT START C $ P ST A1,FCBLP,A6 STORE NEW START C PGETF50 EQU * C P ABL
0x0716d8…07186c Dummy {f00=0x0023, f01=0x4120, f02=»1 C l @ P* BIN1 = OUTPUT ITEM FROM ROUTINE "GETFWD" D P* D N PADJUST EQU * D X $ P CALL I:EVA0 GET ADDRESS TO BIN1 D l & P CALL T:GRFC GET FCB-ADDRESS TO A6 D P LDR* A1,A9 D ( P ST A1,FCBLP,A6 RESTORE FORMAT START D P RB POOLUT
0x07186c…071a00 Dummy {f00=0x0023, f01=0x2008, f02=» E ADDRESS TO DB $ ST A7,2,A1 STORE NEW WB-ADDRESS ABL I:RT1 F END X@ d* h EXTRN I:EVA0,I:RT1 r * * * CALL FORM 16=/F6A1,16 ATTWB EQU * " CALL I:EVA0 ADDRESS TO NE
0x071a00…071b94 (1, 143) Dummy {f00=0x0024, f01=0x0190, f02=» & COPY USERFIL $ 6 $ # F ( V b & r WHOLE FILE ? Y/N: $ & & F $ Q ( ! & "
0x071b94…071d28 Dummy {f00=0x0024, f01=0x018e, f02=» $ $ & % UNIT NO.:O $ % 8 & H & E Z & h & VOLUME-NAME: v $ & & ! & H & H ' OUTPUT $ ' & (
0x071d28…071ebc Dummy {f00=0x0024, f01=0x018e, f02=» & H $ Q ( " * + . & > + CHANGE VOLUME-NAME L $ + n & ~ , INPUT $ , & - UNIT NO.:L $ - & & E
0x071ebc…072050 Dummy {f00=0x0024, f01=0x0190, f02=» & 0 VOLUME-NAME: $ 0 . & > & P $ Q ^ ( n 1 z & 2 CREATE FILE: $ 2 $ 6 ( 3 & 4 DE
0x072050…0721e4 Dummy {f00=0x0024, f01=0x0190, f02=» 7 UNIT: UF $ 7 & ( & E : & H 8 VOLUME-NAME: V $ 8 r & & H & H 9 FILE $ 9 & : : $ : &
0x0721e4…072378 Dummy {f00=0x0024, f01=0x0190, f02=»= & > FILE $ > , & < ? 2 = J $ ? ^ & n @ USER | $ @ & A FILE $ A & B 3 = $ B &
0x072378…07250c Dummy {f00=0x0024, f01=0x0190, f02=» E & F DELETE $ F 0 & @ G USERDEFINED: N $ G j & z H FILE $ H & I FILE $ I & J NAME: $
0x07250c…0726a0 Dummy {f00=0x0024, f01=0x0190, f02=»L & M UNIT: US $ M 0 & @ & E R & ` N VOLUME-NAME: n $ N & & H $ Q ( O & " P PRESS ENT TO CON
0x0726a0…072834 (1, 144) Opaque[0x194]
0x072834…0729c8 # DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0488, f03=0x0000}
0x072834…0729c8 IdxSect {
0x072834…0729c8 f00 = 0x0024 // 0x72834 @0x0
0x072834…0729c8 f01 = 0x0010 // 0x72836 @0x2
0x072834…0729c8 gno = [ // 0x72838 @0x4
0x072834…0729c8 [0x00]: C0x0024.0x1.0
0x072834…0729c8 [0x01]: C0x0024.0x2.0
0x072834…0729c8 [0x02]: C0x0024.0x3.0
0x072834…0729c8 [0x03]: C0x0025.0x0.0
0x072834…0729c8 [0x04]: C0x0025.0x1.0
0x072834…0729c8 [0x05]: C0x0025.0x2.0
0x072834…0729c8 [0x06]: C0x0025.0x3.0
0x072834…0729c8 [0x07]: C0x0026.0x0.0
0x072834…0729c8 ]
0x072834…0729c8 }
0x0729c8…072b5c Dummy {f00=0x0024, f01=0x0190, f02=» $ P IDENT DENTER REL 10.0 80-04-11 P 80-04-14/DALI , . P****************************************** D . P* THIS ROUTINE HANDLE THE KEYBOARD INPUT * v . P* AND IS A MODIFIED VERSION OF THE STAN- * . P* DARD S C R E E N - P A C K A G E. *
0x072b5c…072cf0 Dummy {f00=0x0024, f01=0x018e, f02=»REL 9.1 t . P****************************************** P DDUM DEDDIV B P PDIV V P* d , P ENTRY DECLRA CLEAR ALL VARIABLE FIELDS n , P ENTRY DECLRS CLEAR SOME VARIABLE FIELDS * P ENTRY DECLRN CLEAR NO VARIABLE FIELDS P ENTRY DECLR
0x072cf0…072e84 Dummy {f00=0x0024, f01=0x0190, f02=» z P* $ P EXT DESTAT BUILD THE STATUSLINE $ P EXT DEAPPL STANDARD ROUTINE TO : P HANDLE APPL VALUES b ( P EXT DETCHK USER ROUTINE TO EVALUATE P CONDITIONAL TABULATION P EXT DENVAL P EXT DEEDIT P EXT DENDUP "
0x072e84…073018 Dummy {f00=0x0024, f01=0x0190, f02=» TEST IF DATA ITEM IS EMPTY . P EXT FORCED ASSEMBLY SUBROUTINE FORCED - & $ P TEST IF DATA ITEM IS FORCED X * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPTORBLOCK P EXT ATTPRT RESERVE PRINTER P EXT ATTDEV RESERVE
0x073018…0731ac Dummy {f00=0x0024, f01=0x0190, f02=» t & P EXT GETGEN LOOK FOR GENERARTION- P STRING FOR CURRENT FIELD 2 & P EXT TESTB TEST FOR A BIT IN A BIN V * P EXT CLEARB CLEAR A BIT IN A BIN ITEM P EXT DELOCK TEST KEY-LOCKS , P EXT GETFWD ASSEMBLY SUBROUTINE GETFWD - P EXECU
0x0731ac…073340 Dummy {f00=0x0024, f01=0x0190, f02=» z P INDICATED , P EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - " P ADJUST FORMATPOINTERS AFTER L P EXECUTION OF GETFWD r P EXT DELAST P EJECT P* P INCLUDE DELITT,LIST P EJECT P* > P* CLEAR ALL VARIABLE
0x073340…0734d4 (1, 145) Dummy {f00=0x0024, f01=0x0190, f02=» CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* @ PDECLRS PROC J P PERF DENTER,W2 ^ P RET v P PEND P* > P* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* PDECLRN PROC P PERF DENTER,W
0x0734d4…073668 Dummy {f00=0x0024, f01=0x0190, f02=»FORE HANDLING THE PICTURE r P* " PDECLRD PROC , P* @ P PERF DENTER,W4 J P RET b P PEND n P* | P* ERROR PRINTOUT P* PDERR PROC P MOVE DEBINW1,W0 P PERF DENTER,W0 P RET P PEND P
0x073668…0737fc Dummy {f00=0x0024, f01=0x018e, f02=»P AND IB z $ P CMP DEBINW2,W0 "DEERR" ENTRY ? P BE ERRPRINT YES ! 8 P R . P TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT Z P SHOULD BE DIDELAYED P* P* ONLY VARIABLE FIELDS P* P IB DEBINW2 C P CLEARA C
0x0737fc…073990 Dummy {f00=0x0024, f01=0x0190, f02=» P* PCLEARS , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B CONT P PCLEARD ` P TBT VERIFM,VERIF n * P DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP P B CONT PVERIF P TBF KEYVER,SIGHT P DISPLAY 23,W1,W0 P
0x073990…073b24 Dummy {f00=0x0024, f01=0x0190, f02=» PENTIRE P CLEAR DEPROMPT P IB DEBINW2 JUMP C * P ECLRA ON C D P ECLRS ROUTINE C X P ECLRN INDEX C r P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3,W1,W0 CLEAR ALL FROM 1 AND UP
0x073b24…073cb8 Dummy {f00=0x0024, f01=0x0190, f02=» SOME FIELDS FROM | P 1 AND UP IN MEMORY P* 8 & P* CLEAR NO VARIABLES IN MEMORY B P* l PECLRN v P TBT VERIFM,EVERIF ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P B CONT PEVERIF P TBF KEYVER,ESIGHT P DISPL
0x073cb8…073e4c Dummy {f00=0x0024, f01=0x0190, f02=»Y x PCONT3 & P GETABX DEBINW4 GET CURRENT INDEX ( P BL KTHOME JUMP IF NO CURRENT FIELD B P TBF VERIFM,CONT5 n P B KTHOME PCONT5 6 P GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION P BZ CONT6 JUMP IF FOUND " P BL KT
0x073e4c…073fe0 Dummy {f00=0x0024, f01=0x0190, f02=»T5 SEARCH AGAIN P* PCONT6 " P TSTCTL 5 LOOK IF CTAB 0 P BZ SETCREAD N P TEST DOOLA b " P BZ CONT7 JUMP IF NOT BALANCE v P SET ASDFLAG P MOVE DEBINW2,W9 P B KTHOME PCONT7 P TBF ASDFLAG,SETCREAD " P B
0x073fe0…074174 (1, 146) Dummy {f00=0x0024, f01=0x0190, f02=» SET CURSOR ON CURRENT FIELD P $ P* , * P* READ TO CURRENT FIELD ON DISPLAY 6 P* d PREADIN n P TBF DENOCHAN,READ50 | PREAD10 MOVE DEBINW1,W0 P MOVE DEBINW3,W1 P TBF VERIFM,READ12 6 P NKI .NE,DEDSDYKB,DEINPUT,DEKTAB
0x074174…074308 Dummy {f00=0x0024, f01=0x018e, f02=»DELOCK,W1,DEBINW2 $ P IB DEBINW3,READ30,READ20,READ10 P B READ40 B P* T PREAD20 ERROR ^ P XSTAT DEDSDYKB,DEBINW3 t P CALL MASK,DEBINW3,W64 P BNZ READ10 P EDWRT DEDSSCRN,BELL P B READ10 P* PREAD30 P
0x074308…07449c Dummy {f00=0x0024, f01=0x0190, f02=» h P SUB DEBINW2,W3 * P TBT DOOL3,READ45 JUMP IF NOT WORKING ( P CLEAR DENOCHAN WITTH THE DATA-FILE N PREAD45 z P RET P* PREAD50 4 P TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION P PERF DEVERI * P IB DEBINW4,KTKE
0x07449c…074630 Dummy {f00=0x0024, f01=0x0190, f02=»HK x P CALL TESTB,DEBINW3,W15 P BZ READ60 JUMP IF NOT SIGN * . P DYKI DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C N P DEBINW2,DEBINW4 P B DYKOUT PREAD60 . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C P DEBINW2,DEBINW4 PDY
0x074630…0747c4 Dummy {f00=0x0024, f01=0x0190, f02=» P B ERRCAN PDYK070 * P GETABX DEBINW4 GET CURRENT TAB INDEX $ , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD R P B SETCREAD CONTINUE PDYK100 P CLEAR DOOL5 KEYED INPUT ( P IB DEBINW2,UPDATE,DYK070 JUMP ON C P UPDATE,ERRCAN,
0x0747c4…074958 Dummy {f00=0x0024, f01=0x0190, f02=»L,KEDIT P B UPDATE PDYK150 " " P MOVE DEBINW2,W3 SET PLS = EOI 0 P EJECT V , P*************************************** d , P* VALIDATE ENTERED DATA IN THE ORDER: * , P* STANDARDCHECK * , P* APPLE-VALUE
0x074958…074aec Dummy {f00=0x0024, f01=0x0190, f02=»ES ARE PUT INTO DEBINW3. * , P*************************************** $ PUPDATE T P CBNE DEBINW1,W0,UPD100 b P VALIDATION OF EMPTY FIELD & P IF SOME OF BELOW KEES PRESSED: 8 P* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP
0x074aec…074c80 Dummy {f00=0x0024, f01=0x0190, f02=»UPD010 B UPDR50 & PUPD020 MOVE DEBINW4,W6 FORCED ITEM * P MOVE BIN3,W0 USED FOR SAV ERRORINDEX B P CALL FORCED,:FMTITEM p P BOK UPD030 P PERF DERROR,DEKTABF P B ERRP20 PUPD030 P CALL EMPTYT,:FMTITEM P BZ UPDVAL N
0x074c80…074e14 (1, 147) Dummy {f00=0x0025, f01=0x0190, f02=» r P B UPDVAL P EJECT P* ( P* ENTERED DATA FROM KEYBOARD 2 P* V PUPD100 ` & P GETCTL 3,DEBINW4 GET SCHK-NUMBER n PUPD105 " P IB DEBINW4 JUMP SCHK NUMBER C P UPD110 =1 C P UPD120 =2 C P UPD120 =3 C
0x074e14…074fa8 Dummy {f00=0x0025, f01=0x0190, f02=»2,W12,UPD115 JUMP IF NOT MINUS P MOVE DEBINW2,W0 ( P MOVE DEBINW3,W1 @ P MOVE STR1A,='-' X , P INSERT DEINPUT,DEBINW2,DEBINW3,STR1A,W0 p " P MOVE DEBINW2,W3 SIMULATE EOI PUPD115 P SUB DEBINW4,W1 P B UPD105 PUPD120
0x074fa8…07513c Dummy {f00=0x0025, f01=0x0190, f02=» BZ UPD130 NO! * P MOVE STATSH,=X'20' PUT SPACE IN AREA P B UPD140 D PUPD130 V * P MOVE STATSH,=X'30' PUT ZERO IN ARTEA d ( PUPD140 RIGHT ADJUST CURRENT IPNPUT ( P INSRT DEINPUT,W0,DEBINW3,STATSH,W0 PUPD150 P SUB DEBINW4,W2
0x07513c…0752d0 Dummy {f00=0x0025, f01=0x0190, f02=» $ P GETCTL 0,DEBINW3 GET APPL-VALUE 0 P CBE DEBINW3,W0,UPDR25 JUMP IF NO APPL VALUE 0 P* d ( P* APPL-VALUE DIFFERENT FROM ZERO n P* P PERF DEAPPL ( P IB DEBINW3,UPDR15,SETCREAD,ERRPRINT P B UPDR25 P EJECT P*
0x0752d0…075464 Dummy {f00=0x0025, f01=0x0190, f02=» P CLEAR DOOL4 P CLEAR DOOL6 P CLEAR DOOL7 , * P CLEAR BOOL5 ***F=UNVALID/NO COND TAB @ . P CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH n ( P MOVE BIN14,W0 ***COND.TAB.-FIELD:=0 0 P MOVE STSAVE(W3),HEX00 ***COND FORMAT CH:=0 P MOVE DE
0x075464…0755f8 Dummy {f00=0x0025, f01=0x0190, f02=»F AUTODUP AND r 2 P CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED ( P SETCUR SET CURSOR ON CURRENT FIELD L PUPDV10 x P PERF DENVAL,W0 P EJECT P* P* RETURN FROM VALIDATION P* . P MOVE DEBINW1,WORK(W5) RESTORE INPUTLENG
0x0755f8…07578c Dummy {f00=0x0025, f01=0x0190, f02=» P MOVE BIN9,W15 POINTER TO + ( P MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 ( P BNOK UPDR16 T & P DLETE DEINPUT,W0,W1 DELETE + OR - h PUPDR16 ( P CBE BIN3,W0,UPDR17 JUMP IF NOT MESS ( P CBE BIN11,W0,UPDR17 JUMP IF NO POOL * P XCOPY DEBINW4,W
0x07578c…075920 Dummy {f00=0x0025, f01=0x0190, f02=»DR13 P TSTCTL 5 LOOK IF CTAB P BZ UPDR14 NO! * ( P DUPL STR2A LOOK IF KEYED INPUT = N @ P BOK UPDR18 YES! l P TBF ASDFLAG,UPDR14 PUPDR18 & P PERF DERROR,DEKTABI NO KEY INPUT P B ERRP25 PUPDR14 P PERF DERROR,DEK
0x075920…075ab4 (1, 148) Dummy {f00=0x0025, f01=0x0190, f02=»T UNCONDITIONAL UPD. P B UPDR28 PUPDR20 . & P IB DEBINW3,UPDR25,SETCREAD,UPDR12 < PUPDR25 f ( P CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 t P CBE DEBINW3,W1,UPDR15 2 P UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLAYING PUPDR28 P TSTCT
0x075ab4…075c48 Dummy {f00=0x0025, f01=0x0190, f02=»E INDICATE CHANGED ITEM ~ PUPDR33 ( P TBF DOOL3,UPDR50 JUMP IF NOT ENTRY . PUPDR35 Z & P CBE DEBINW2,W12,UPDR40 ERASE-KEY h $ P CBE DEBINW2,W9,UPDR40 ERASE-KEY P CBE DEBINW2,W1,UPDR40 , P CALL GETGEN,BPOOL(W1),BIN11,BIN12,BIN13 P
0x075c48…075ddc Dummy {f00=0x0025, f01=0x018e, f02=»INPUT = N? ~ P BOK UPDR50 YES! PUPDR45 * P SET DECHANGE 8 PUPDR50 N ( P MOVE DEBINW1,W0 SET INPUTLENGTH = 0 P IB DEBINW2,KTFWD,DUMMY, C P KEOI,DUMMY,DUMMY,KTFWD, C ( P KTBWD,KTHOME,KERASE,KKEEP,KEOI, C * P KEOI,DUMMY
0x075ddc…075f70 Dummy {f00=0x0025, f01=0x0190, f02=» PDUMMY ! PRETUR ! P RET ! P EJECT ! , PKTFWD TAB. FORWARD 1 STEP ! : " P MOVE DEBINW2,W3 SIMULATE EOI ! ^ " PKEOI COMMON END-OF-ITEM KEY ! 0 P TBF DOOL3,KEOI20 ***JUMP IF NOT ENTRY-MODE ! 4 P TBF BOOL7,KEOI10 ***JUMP IF NO IMMIDIATE
0x075f70…076104 Dummy {f00=0x0025, f01=0x0190, f02=» PKEOI10 *** " " P CLEAR BOOL5 ***CLEAR /SET CR " . P BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB " > 0 P CBE BIN14,W0,KEOI20 ***JUMP IF NO COND TAB " p . P MOVE DEBINW4,BIN14 ***SAVE NEXT FIELD NR " & P SUB DEBINW4,W1 ***ADJUST FOR TFWD " PKEOI15 "
0x076104…076298 Dummy {f00=0x0025, f01=0x0190, f02=»X DEBINW4 *** " P ADD DEBINW4,W1 # P B KEOI15 # . PKEOI20 *** # @ P CBL DEBINW2,W11,KEOI30 # T P B KKEEP2 # t PKEOI30 # " P TBT DOOL3,KEOI40 ENTRY SCREEN # P TFWD # P B TSTTAB # PKEOI40 # & P TSTCTL 2 LOOK IF COMPULSORY FIE
0x076298…07642c Dummy {f00=0x0025, f01=0x0190, f02=» # P ADD DEBINW4,W1 $ * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 $ P CALL ADJUST,DKBIN1 $ N P BNE TSTTAB $ j PKEOI50 $ ~ P TSTCTL 5 $ P BNZ TSTT05 $ P B TSTT10 $ P* $ $ PKTBWD TABULATION 1 STEP BACKW. $ P GETABX DEBINW4 $
0x07642c…0765c0 Dummy {f00=0x0025, f01=0x0190, f02=» HOME POSITION $ & P TBT DOOLA,KTHOM4 JUMP IF BALANCE % P TBF VERIFM,KTHOM2 % @ P TBT KEYVER,KTKEY % Z PKTHOM3 % t P MOVE DEBINW1,W0 % P GETFLD 0,DEBINW1,DEBINW3 % P SETCUR % P B READ10 % PKTHOM4 % & P SET ASDFLAG SET ASD WHEN BA
0x0765c0…076754 (1, 149) Dummy {f00=0x0025, f01=0x0190, f02=» EMPTY COMPULSORY FIELD % P* & PTSTT05 & * P* CONDITIONAL TABULATION & 8 P TBT DENOCHAN,TSTT15 & P DUPL STR2A KEYED INPUT = N? & x P BOK TSTT07 YES! & P TBF ASDFLAG,TSTT15 & PTSTT07 & P PERF DETCHK & P CBE DEBINW3,W0,TSTT15
0x076754…0768e8 Dummy {f00=0x0025, f01=0x0190, f02=» & PTSTT10 ' P TBF AUTENT,TSTT15 ' & P TBF DOOL3,TSTT15 NOT ENTRY SCREEN ' 0 $ P TBT DOOLA,TSTT15 BALANCE FORMAT ' Z P GETCTL 1,DEBINW4 GET MAXL ' P CBNE DEBINW4,W0,TSTT15 ' P B KENT06 ' P EJECT ' PKTKEY ' P MOVE BIN11,W0 ' P
0x0768e8…076a7c Dummy {f00=0x0025, f01=0x0190, f02=»AD JUMP IF VERIFYFIELD ' P B KTHOM3 ( PKTEOI ( 0 P TBF DOOL3,KTFWD ( > P MOVE DEBINW2,W3 ( V P EJECT ( n P* ( | P* DUPL KEY ( P* ( PKDUPL ( P PERF DENDUP ( P BNOK KTEOI2 ( " P IB DEBINW2,KTEOI,DUMMY,UPDATE ( PKTEOI2
0x076a7c…076c10 Dummy {f00=0x0025, f01=0x0190, f02=»KTEOI4 ( $ P IB DEBINW2,ERRRET,ERRRET,ERRRET ) P DUPL STR2A ) 6 P BOK KENT20 ) J P TBF ASDFLAG,KTEOI3 ) ^ P B KENT20 ) z P* ) P* STATUS KEY ) P* ) PSTATUS PERF DESTAT ) P MOVE DEBINW1,W0 ) P B ERRP10 ) P* ) P*
0x076c10…076da4 Dummy {f00=0x0025, f01=0x0190, f02=» FORMFEED ) | P MOVE DEBINW3,W1 * P PRINT DEDSPRT,DEBINW3,W0 * * P PERF DETPRT RELEASE PRINTER * L PKCOP10 * p $ P B SETCREAD SET CURSOR AND READ * ~ PKASD ASD-KEY PRESSED * ( P TBF DOOLA,KASD2 JUMP IF NOT BALANCE * P SET ASDFLAG * P B K
0x076da4…076f38 Dummy {f00=0x0025, f01=0x0190, f02=»I50 * P EJECT + P* + P* EDIT FIELD + $ P* + < PKEDITX + F P TSTCTL 5 LOOK IF CTAB + T P BZ KED050 + r & P DUPL STR2A LOOK IF KEYED INPUT =N + P BOK KED025 YES! + P TBF ASDFLAG,KED050 + PKED025 + P MOVE DEBINW2,W5 RBWD +
0x076f38…0770cc Dummy {f00=0x0025, f01=0x0190, f02=»L 1,DEBINW3 GET MAXL + P CBNE DEBINW3,W0,KED100 , ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM , < P B SETCREAD , h PKED100 , | P GETCTL 3,DEBINW3 GET SCHK , " P CALL TESTB,DEBINW3,W15 MINUS , P BZ KED200 , & P EDFLD DEINPUT,DEKTABB,DEBINW1, C ,
0x0770cc…077260 Dummy {f00=0x0025, f01=0x0190, f02=»YKOUT CONTINUE AS FOR DYKI , PKEDITY - " P SETCUR - 0 P B KEDIT - @ P* - P P* ERASE KEY - Z P* - t PKERASE - ~ P GETABX DEBINW4 - P ERASE 10,DEBINW4,W0 - P TBF DOOL3,KENT03 - P MOVE DEBINW2,W12 - P B KKEEP1 - P*
0x077260…0773f4 (1, 150) Dummy {f00=0x0025, f01=0x0190, f02=»TE KKEEP2 - x PKKEEP1 . P GETCTL 1,DEBINW4 GET MAXL . P CBE DEBINW4,W0,KENT07 . B & P TSTCTL 2 LOOK IF COMPULSORY FIELD . ` P BZ KKEEP3 NO! . . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD . P BP KENT15 YES! . PKKEEP3 . P CMP DEBINW2,W12
0x0773f4…077588 Dummy {f00=0x0025, f01=0x0190, f02=»ALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 . P CALL ADJUST,DKBIN1 / , P BE KKEEP5 / H P BL SETCREAD / Z P BOFL KENT10 / n P B KKEEP4 / PKKEEP5 / P TSTCTL 5 LOOK IF CTAB / P BZ KKEEP1 / P DUPL STR2A KEYED INPUT = N? / P BOK KKEEP4 /
0x077588…07771c Dummy {f00=0x0025, f01=0x0190, f02=» CBE DEBINW2,W12,KKEEP1 ERASE / P PERF DENDUP 0 & P BNOK KENT20 0 : $ P MOVE DEBINW2,W11 SIMULATE KEEP 0 N P B KKEEP1 0 v P EJECT 0 P* 0 P* ENTER KEY 0 P* 0 PKENTER 0 P TBF DOOL3,KENT03 0 P TBT AUTENT,KKEEP0 0 P GETCT
0x07771c…0778b0 Dummy {f00=0x0025, f01=0x0190, f02=» SET DECHANGE AT LEAST ONCE 0 PKENT04 1 $ 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED 1 2 P RET 1 h PKENT03 1 t * P MOVE DEBINW1,W0 INDICATE NO CLEARING 1 < P GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS 1 ( P BOFL KENT10 EMPTY COMP.
0x0778b0…077a44 Dummy {f00=0x0025, f01=0x0190, f02=»P KENT10 YES! 1 PKENT05 2 ( P TBT DOOL3,KENT07 JUMP IF ENTRY-MODE 2 $ P CBE DEBINW2,W9,KENT07 2 P P CBNE DEBINW2,W10,KENT06 2 n PKENT07 2 P TBT AUTENT,KENT06 2 P B SETCREAD 2 P* 2 & P* EMPTY COMPULSORY FIELD FOUND 2 P* 2 P
0x077a44…077bd8 Dummy {f00=0x0025, f01=0x0190, f02=» MOVE DEBINW1,W0 2 P TSTCTL 5 LOOK IF CTAB 3 P BZ ERRPRINT NO! 3 6 P DUPL STR2A 3 N P BOK KENT20 YES! 3 b P TBF ASDFLAG,ERRPRINT 3 z PKENT20 YES! 3 P PERF DERROR,DEKTABI 3 P B ERRP25 3 P EJECT 3 P* 3 P* INDICATE FORCED IT
0x077bd8…077d6c Dummy {f00=0x0025, f01=0x0190, f02=»NW2,W3 RESTORE ITEMLENGTH 3 P B UPDR25 4 " P EJECT 4 4 PERRPRT 4 B P CMP DEBINW2,W16 4 P P BE KEDIT JUMP IF EDIT 4 h , P CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 4 , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 4 P XSTAT DEDSDYKB,DEBINW3 4 P C
0x077d6c…077f00 Dummy {f00=0x0025, f01=0x0190, f02=»F NOT BALANCE 4 x P PERF DERROR,DEKTAB6 5 P B ERRP20 5 2 PERRP10 5 D P PERF DERROR,DEKTAB4 5 R PERRP20 5 n $ P CBE DEBINW2,W1,ERRCAN CLEAR-KEY 5 | PERRP25 5 . P IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C 5 P KVALID,KFORCE,KTBWD,KTHOME 5 P
0x077f00…078094 (1, 151) Dummy {f00=0x0026, f01=0x0190, f02=»SDFLAG,ERRET4 5 P DUPL STR2A KEYED INPUT = N 6 P BOK ERRET4 YES! 6 : PERRCA1 6 R ( P IB DEBINW2,SETCREAD,SETCREAD,CONT3 6 ` PERRET0 6 . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 6 PERRET1 6 P TBT DOOL3,ERRET2 6 P CLEAR DENOCHAN 6
0x078094…078228 Dummy {f00=0x0026, f01=0x40c4, f02=» SIMULATE TBWD 6 P B KTBWD 7 P PEND 7 & P* 7 4 PBELL FRMT 7 > P FSL 7 P P FILLR X'07',1 7 P FMEND 7 r PFORMF FRMT 7 P FTEXT ' 1' 7 P FMEND 7 P END 7 @ 7 6 PERRET1 6 P TBT DOOL3,ERRET2 6 P CLEAR DENOCHAN 6
0x078228…0783bc Dummy {f00=0x0026, f01=0x2008, f02=» 8 FCOPY STR1A 2 P FMEND 2 PFORMK FRMT 2 * P FCOPY :FMTITEM 2 < P FMEND 2 T PFDOTS FRMT 2 b P FSL 2 t P FTEXT =X'142E' 2 P FILLR X'2E',1 2 P FMEND 2 P END 2 @ 2 P B SETCREAD CONTINUE 1 P PEND 1 P* 1 PBELL F
0x0783bc…078550 Dummy {f00=0x0026, f01=0x0190, f02=»_f " P T $ $ | , ( W " P Y 0] Y (_r " X % T:EDWF % L , ( _& & X *# P B 1 % ^ T:SCR2 % , ( @ &W " P X X$ C : % T:SCUR % , ( $ X *! P
0x078550…0786e4 Dummy {f00=0x0026, f01=0x4078, f02=»W 5Q 9 = IP Qh P P2 Vh P, T WT P P W % P P 'W /T 3W & B P & b@ & t
0x0786e4…078878 Dummy {f00=0x0026, f01=0x018e, f02=» @ @ IDENT T:ENLI P,PRR=4.1,79-04-09,870136940410 ' T:DNL T:DSL ' H I:EVNO ' ^ I:ECPY ' p I:EPIC ' I:ETXT ' I:ETAB ' I:EBRI ' I:EBRB ' I:EBR ' * &
0x078878…078a0c Dummy {f00=0x0026, f01=0x0190, f02=» * & ( I:ESKI ( 2 T:DSL & ( D T:GRFC ( V T:DNL 2 ( h , ( ! " Y .W " Y ( z , ( 9 . X ( X ." P X 0R T Y *P ( T:WRDY ( , ( Y @ U :H
0x078a0c…078ba0 Dummy {f00=0x0026, f01=0x4144, f02=» * : " P X 0U X *# ( ~ , ( P P T " T : Y ) T:ENIN ) N , ( . , Y ( " Y * ) ` * & P : " T ! 1 W ! ) * : ) H D ! 2 # & 1W GPV MRz OT$ WP ]U yT W QH T2 P$ U P )
0x078ba0…078d34 (1, 152) Opaque[0x194]
0x078d34…078ec8 # DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04c8, f03=0x0000}
0x078d34…078ec8 IdxSect {
0x078d34…078ec8 f00 = 0x0026 // 0x78d34 @0x0
0x078d34…078ec8 f01 = 0x0008 // 0x78d36 @0x2
0x078d34…078ec8 gno = [ // 0x78d38 @0x4
0x078d34…078ec8 [0x00]: C0x0026.0x1.0
0x078d34…078ec8 [0x01]: C0x0026.0x2.0
0x078d34…078ec8 [0x02]: C0x0026.0x3.0
0x078d34…078ec8 [0x03]: C0x0027.0x0.0
0x078d34…078ec8 ]
0x078d34…078ec8 }
0x078ec8…07905c Dummy {f00=0x0026, f01=0x018e, f02=» $ P IDENT DERROR REL 10.0 80-04-11 P 80-04-08/DALI , P* D 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE N 2 P* IT - POSITIONS CURSOR AT THE LAST LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE LAST LINE > P*
0x07905c…0791f0 Dummy {f00=0x0026, f01=0x0190, f02=» DDUM DEDDIV PDIV P ENTRY DERROR & P ENTRY CANC < P EXT MASK P P EXT MSKOUT b P EXT DELOCK TEST KEY-LOCKS v P EXT DELAST P EJECT P* P** ERROR-MESSAGES P* H PDEFTBERR FTABLE ERFM01,ERF
0x0791f0…079384 Dummy {f00=0x0026, f01=0x0190, f02=»RFM18,ERFM19,ERFM20,ERFM21, C x : P ERFM22,ERFM23,ERFM24,ERFM25,ERFM26,ERFM27,ERFM28, C & : P ERFM29,ERFM30,ERFM31,ERFM32,ERFM33,ERFM34,ERFM35, C d : P ERFM36,ERFM37,ERFM38,ERFM39,ERFMDM,ERFMDM,ERFMDM, C : P ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERFMDM,ERF
0x079384…079518 Dummy {f00=0x0026, f01=0x0190, f02=»T CHARACTERS' | P FMEND P* $ PERFM02 FRMT . P FSL B P FTEXT 'UNDEFINED ERROR' N P FMEND n P* | PERFM03 FRMT P FSL P FTEXT 'I/O-ERROR' P FMEND P* PERFM04 FRMT P FSL " P FTEXT 'FUNCTION
0x079518…0796ac Dummy {f00=0x0026, f01=0x0190, f02=» P* PERFM06 FRMT P FSL " P FTEXT 'ILLEGAL VALUE' . P FMEND L P* Z PERFM07 FRMT d P FSL x P FTEXT 'INVALID NUMBER' P FMEND P* PERFM08 FRMT P FSL & P FTEXT 'ALREADY DEFINED/EXECUTED' P F
0x0796ac…079840 Dummy {f00=0x0026, f01=0x0190, f02=» FTEXT 'NO DISC SPACE' P FMEND P* , P EJECT 6 PERFM11 FRMT D P FSL X P FCOPY =' IN USE' d P FMEND ~ PERFM12 FRMT P FSL P FTEXT 'FOUND LOCKED' P FMEND P* PERFM13 FRMT P FSL " P FTEXT
0x079840…0799d4 (1, 153) Dummy {f00=0x0026, f01=0x0190, f02=» FMEND P* PERFM15 FRMT P FSL , P FTEXT 'NO RECORD FOUND' 8 P FMEND X P* f PERFM16 FRMT p P FSL . P FTEXT 'MAXIMUM NUMBER OF FIELDS EXCEEDED' P FMEND P EJECT PERFM17 FRMT P FSL $ P FTEXT 'PR
0x0799d4…079b68 Dummy {f00=0x0026, f01=0x018e, f02=»SYMBOLIC' P FB E18RES PE18FOR $ P FCOPY =C'FORMAT' 2 PE18RES L P FILLR ':',1 Z P FHIGH n P FCOPY DEINPUT | . P FTEXT ' DOES NOT EXIST IN JOB-DEFINITION' P FBT DOOL1,E18OUT P FTEXT ' OR ON SYSTEM-DISC' PE18OUT
0x079b68…079cfc Dummy {f00=0x0026, f01=0x0190, f02=» ~ P FBF SOOL1,E19OUT P FILLR ':',1 " P FCOPY JOBNAME 6 P FILLR ':',1 L P FCOPY BATCH ` P FILLR ':',1 t P FCOPY STR15A P FILLR ':',1 P FMEL 'TTTT9',BCD13A P FBF SOOL2,E19OUT P FILLR ':',1 P FCOPY SYMBO
0x079cfc…079e90 Dummy {f00=0x0026, f01=0x0190, f02=»ILLR ':',1 P FTEXT 'ASD' PE19END FTAB 53 & P FTEXT 'PAGE' < P FILLR ':',1 R P FMEL 'X',BCD2A f P FMEND ~ P* P EJECT PERFM20 FRMT P FSL $ P FTEXT 'SYSTEMFILE ASSIGN-ERROR' P FMEND P* PERFM
0x079e90…07a024 Dummy {f00=0x0026, f01=0x0190, f02=»/O-ERROR' P FTAB 58 P FMEL 'XXXXX-',BCD13A " P FMEND @ P* N PERFM23 FRMT X P FSL l P FTEXT 'DISC NOT OPERABLE' x P FMEND P* PERFM24 FRMT P FSL P FCOPY =C'FORMAT' P FILLR ':',1 P FCOPY S
0x07a024…07a1b8 Dummy {f00=0x0026, f01=0x0190, f02=» FILLR ':',1 P FCOPY TABLE P FCOPY =' IN USE' ( P FMEND B PERFM26 FRMT P P FSL d P FCOPY =C'JOB' p P FILLR ':',1 P FCOPY JOBNAME P FCOPY =' IN USE' P FMEND P* PERFM27 FRMT P FSL P FCOPY
0x07a1b8…07a34c Dummy {f00=0x0026, f01=0x0190, f02=» P FCOPY =' IN USE' P FMEND " P* 0 P EJECT : PERFM28 FRMT H P FSL * P FTEXT 'DEFINED LINE MAXIMUM EXCEEDED' h P FMEND PERFM29 FRMT P FSL . P FTEXT 'MAXIMUM FORMAT-CODE SIZE EXCEEDED' P FMEND P*
0x07a34c…07a4e0 Dummy {f00=0x0026, f01=0x018e, f02=»SL P FCOPY =C'FORMAT' P FILLR ':',1 $ P FCOPY FORMAT 8 P FILLR ':',1 N 6 P FTEXT 'CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT)' b P FMEND P* PERFM32 FRMT P FSL P FTEXT 'ILLEGAL FORMAT NAME' P FMEND PER
0x07a4e0…07a674 (1, 154) Dummy {f00=0x0026, f01=0x0190, f02=» P FMEND PERFM3A FRMT P FTEXT 'TEST ENTERED BATCH' * P FMEND N P* PERFM35 FRMT f P FSL z ( P FTEXT 'OUTPUT DEVICE NOT OPERABLE' P FMEND P EJECT P* PERFM36 FRMT P FSL : P FTEXT 'END OF F
0x07a674…07a808 Dummy {f00=0x0026, f01=0x0190, f02=» FMEND P* PERFM38 FRMT P FSL , : P FTEXT 'OCCUPIED RECORDLENGTH CHANGED WITHIN FORMAT:' 8 P FCOPY FORMAT v P FILLR '.',1 P FTEXT 'SIZE ON DISC:' P FMEL 'TTT9',BCD13A P FILLR '.',1 P FMEND P* PER
0x07a808…07a99c Dummy {f00=0x0026, f01=0x0190, f02=»N' n P FMEND P EJECT P* & PERFM49 FRMT 0 P FSL D 6 P FTEXT 'USERFILE NOT CLOSED IN PREVIOUS SESSION.' P P FMEND P* PERFM50 FRMT P FSL $ P FTEXT '95 % OF FILESPACE USED' P FMEND P* PERFM51
0x07a99c…07ab30 Dummy {f00=0x0026, f01=0x018e, f02=» FMEND P* PERFM53 FRMT P FSL , P FTEXT 'TIME-OUT' 8 P FMEND R P* ` PERFM54 FRMT j P FSL ~ & P FTEXT 'EDIT ERROR IN CONVERSION' P FMEND P* PERFM55 FRMT P FSL P FTEXT 'CHANGE CASSETTE'
0x07ab30…07acc4 Dummy {f00=0x0026, f01=0x0190, f02=» PDERROR PROC KEYTAB P PKTAB KEYTAB " P* 8 P* ERROR HANDLING B P* ^ P MOVE DEBINW2,W1 h ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P CMP DEBINW4,W0 P BZ DERR99 P BP DERR00 P ADD DEBINW4,=W'51' & P BNP
0x07acc4…07ae58 Dummy {f00=0x0026, f01=0x018e, f02=» 2 P XCOPY DEBINW2,W1,W1,BPOOL(BIN11),BIN3 LENGTH P MOVE STATSH,HEX00 > P MOVE DEBINW3,=X'3F' X P CALL MSKOUT,DEBINW3,DEBINW2 t P ADD DEBINW3,W1 . P XCOPY STATSH,W1,DEBINW3,BPOOL(BIN11),BIN3 P MOVE DEBINW3,=X'202B' " P XCOPY S
0x07ae58…07afec Dummy {f00=0x0026, f01=0x0190, f02=» PDERR03 P CBL DEBINW4,=W'56',DERR04 PDERR02 4 P MOVE DEBINW4,W2 B PDERR04 Z & P EDWRT DEDSSCRN,DEFTBERR(DEBINW4) h P* P* READ AFTER ERROR P* PDERR05 ( P SETCUR SET CURSOR AT THE BEGINNING P OF THE
0x07afec…07b180 Dummy {f00=0x0026, f01=0x0190, f02=»DEBINW3,W1 REQUESTED LENGTH 2 P NKI .NE,DEDSDYKB,STR1A,KEYTAB,DEBINW3,DEBINW2 $ P PERF DELOCK,W1,DEBINW2 Z $ P IB DEBINW3,DERR18,DERR17,DERR19 z P B DERR20 P* PDERR17 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64
0x07b180…07b314 (1, 155) Dummy {f00=0x0027, f01=0x0190, f02=» B DERR10 PDERR18 P DISPLAY 0,W1,W0 P B DERR00 8 PDERR19 J 0 P CBNE DEBINW4,W4,DERR15 NO KEY-LOCK-ERROR ? X ( P MOVE DEBINW2,W1 SIMULATE CLEAR-KEY PDERR20 P CBNE DEBINW2,W10,DERR25 P* P* HANDLE ASDFLAG
0x07b314…07b4a8 Dummy {f00=0x0027, f01=0x0190, f02=» ( P MOVE DEBINW3,W24 INDICATE LAST LINE P* 4 P* CLEAR ERROR PRINTOUT > P* ` PDERR30 j , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE x PDERR99 P RET P PEND P EJECT PCANC PROC , P CBE DEBINW1,W0,CANC20 J
0x07b4a8…07b63c Dummy {f00=0x0027, f01=0x0190, f02=»THING IN THE FIELD r & P GETABX DEBINW4 GET CURRENT INDEX * P ERASE 10,DEBINW4,DEBINW4 CLEAR FIELD D PCANC10 r P IB DEBINW2,CLEAR1,CLEAR2 PCANC15 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS PCANC20 P RET PCLEAR1
0x07b63c…07b7d0 Dummy {f00=0x0027, f01=0x40f8, f02=» ` PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD D P RET t P PEND P EJECT P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND END @ ET PCLEAR1
0x07b7d0…07b964 Dummy {f00=0x0027, f01=0x2008, f02=»
0x07b964…07baf8 Dummy {f00=0x0027, f01=0x0190, f02=»E BIN15,W1 STARTINDEX IN POOL PDEPO11 & . P MOVE STR64A,HEX00 DROP TEMPORARY RESERVED 4 PDEPO12 f . P MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE t PDEPO13 0 P CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER P* P* HANDLE OCCUPIED BUFF
0x07baf8…07bc8c Dummy {f00=0x0027, f01=0x0190, f02=»T BUFFER x PDEPO15 . P TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS P . P MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0 P REQUESTED P B DEPO11 ( PDEPO16 LOOK IFTHERE ARE BUFFERS IN . P P
0x07bc8c…07be20 Dummy {f00=0x0027, f01=0x0190, f02=»E BIN15,W1 START FROM BEGINNING P B DEPO12 ( PDEPO17 : . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS H P B DEPO05 z P EJECT P* P* HANDLE FREE BUFFERS P* PDEPO18 P XCOPY STR1A,W0,W1,BIN15,W1 P MOVE DEBI
0x07be20…07bfb4 (1, 156) Opaque[0x194]
0x07bfb4…07c148 # DirEnt {nam=»DEKEYS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04e8, f03=0x0000}
0x07bfb4…07c148 IdxSect {
0x07bfb4…07c148 f00 = 0x0027 // 0x7bfb4 @0x0
0x07bfb4…07c148 f01 = 0x0002 // 0x7bfb6 @0x2
0x07bfb4…07c148 gno = [ // 0x7bfb8 @0x4
0x07bfb4…07c148 [0x00]: C0x0027.0x1.0
0x07bfb4…07c148 ]
0x07bfb4…07c148 }
0x07c148…07c2dc Dummy {f00=0x0027, f01=0x0190, f02=» P* DEKEYS EJECT ENT EQU X'8C' ENTER * CAN EQU X'91' CANCEL F PRET EQU X'92' RETURN b PRG EQU X'94' PROGRAM ~ PTOT EQU X'93' TOTAL PSTS EQU X'96' STATUS PPRT EQU X'98' PRINT $ PKEP EQU X'8D' KEEP FIELD
0x07c2dc…07c470 Dummy {f00=0x0027, f01=0x0190, f02=»NSERT z RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD 2 " RBW EQU X'81' RECORD BACKWARD V EOI EQU X'80' FIELD FORWARD | $ PPLS EQU X'9C' FIELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS PBTB EQU X'8A' BACKTAB
0x07c470…07c604 Dummy {f00=0x0027, f01=0x40b0, f02=»CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD $ PBSP EQU X'8B' BACKSPACE J " PVAL EQU X'97' FORCE VALIDATION j NOK EQU X'FF' NOKEY @ ELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS PBTB EQU X'8A' BACKTAB
0x07c604…07c798 Dummy {f00=0x0027, f01=0x2008, f02=» LR,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C " NOK,NOK,NOK,NOK,PRT, C @ NOK,CBW,ENT b * x ( $SPKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C CLR,KEP,EOI,CAN,RET, C EOI,BTB,HOM,NOK, C NOK,NOK,NOK,NOK,PRT, C
0x07c798…07c92c Dummy {f00=0x0027, f01=0x0190, f02=»0X L * : J Z j z ! " ( / J F " D %% R2
0x07c92c…07cac0 Dummy {f00=0x0027, f01=0x0190, f02=» J F " D @ _W) !$ ! $ W !W R8P )B?R0R (+0R +@eAf ! ! 0X V f v V 7 D * *
0x07cac0…07cc54 (1, 157) Opaque[0x194]
0x07cc54…07cde8 # DirEnt {nam=»DEFDSC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x04f0, f03=0x0000}
0x07cc54…07cde8 IdxSect {
0x07cc54…07cde8 f00 = 0x0027 // 0x7cc54 @0x0
0x07cc54…07cde8 f01 = 0x0010 // 0x7cc56 @0x2
0x07cc54…07cde8 gno = [ // 0x7cc58 @0x4
0x07cc54…07cde8 [0x00]: C0x0027.0x2.0
0x07cc54…07cde8 [0x01]: C0x0027.0x3.0
0x07cc54…07cde8 [0x02]: C0x0028.0x0.0
0x07cc54…07cde8 [0x03]: C0x0028.0x1.0
0x07cc54…07cde8 [0x04]: C0x0028.0x2.0
0x07cc54…07cde8 [0x05]: C0x0028.0x3.0
0x07cc54…07cde8 [0x06]: C0x0029.0x0.0
0x07cc54…07cde8 [0x07]: C0x0029.0x1.0
0x07cc54…07cde8 ]
0x07cc54…07cde8 }
0x07cde8…07cf7c Dummy {f00=0x0027, f01=0x0190, f02=» $ P IDENT DEFDSC REL 10.0 80-04-11 P 80-04-28/JAER , * D @ <* THIS IS THE GENERAL FORMAT DEFINITION SCREEN VERSION N * * -INPUT : @ P* BOOL6 = F = GENERAL FORMAT DEFINITION @ P*
0x07cf7c…07d110 Dummy {f00=0x0027, f01=0x0190, f02=» T = CHANGE FORMAT DEFINITION | 0 P* DOOL3 = F = CORR-MODE 0 H P* T = TEMPORARY MODE CHANGE (FIELD CH.) d 0 P* DOOL4 = F = CORR-MODE N P* T = T
0x07d110…07d2a4 Dummy {f00=0x0027, f01=0x0190, f02=»PORARY MODE CHANGE (CORR CURR.LINE) j L P* DOOL6 = F = NO PASS IN 'MTEXT' THROUGH 'DETCHHK' , . P* = T = PASSED | 0 P* DOOL7 = F = CORR-MODE N P* = T = END
0x07d2a4…07d438 Dummy {f00=0x0027, f01=0x0190, f02=» = T = INHIBIT DISPLAY OF LDISP AND ERASE OF FIELDPA | P* D * N * -OUTPUT: X 4 P* DEBINW2 = 1 = 'CANCEL'-KEY p 4 P* = 2 = 'RETURN'-KEY 4 P* = 3 = 'ENTE
0x07d438…07d5cc Dummy {f00=0x0027, f01=0x0190, f02=»R FORMAT BUFFER d > P* BIN2 = POINTER DESC.BUFFER F P* BIN3 = BUFFERPOOL-INDEX FORMATCODE Z L P* BIN4 = BUFFERPOOL-INDEX FORMAT DESCRIPTOR < P*
0x07d5cc…07d760 Dummy {f00=0x0027, f01=0x0190, f02=» BIN7 = FIELDLENGTH = MAXL t 8 P* BIN8 = TABPOS 'FTAB' $ F P* BIN9 = NUMBER OF FTEXT'-CHARACTERS ` : P* BIN10 = CURRENT FIELD NR H P* BIN
0x07d760…07d8f4 (1, 158) Dummy {f00=0x0027, f01=0x0190, f02=» BIN13 = LAST DISPLACEMENTS OF DESCRIPTOR ~ D P* BIN14 = LAST LENGTH OF DESCRIPTOR < . P* BIN15 = WORK . P* BIN16 = WORK F P* PIN
0x07d8f4…07da88 Dummy {f00=0x0027, f01=0x0190, f02=» = 8 = LAST FIELD IN BALANCE FORMDEF L M************************************************************************ B DDUM DEDDIV PDIV ENTRY DEFDSC PROGRAM-START P* & P EXT DEAPPL USER ROUTINE TO HANDLE
0x07da88…07dc1c Dummy {f00=0x0027, f01=0x0190, f02=» l " P EXT DEUNPF UNPACK NEXT FIELD P EXT DEUNPL UNPACK NEXT LINE . , P EXT DEFGTC FORMAT GENERATION TABULATION R * P EXT VGACNT VAL-GEN-ACC-STRING-CONTROL P EXT CANC -ROUTINES P EXT DESTAT STATUS-LINE P EXT FSL FORMAT START LINE
0x07dc1c…07ddb0 Dummy {f00=0x0027, f01=0x0190, f02=»ERING PROCEDURE P EXT MASK $ P EXT EMPTYT CHECK IF EMPTY ITEM * $ P EXT UPDBOL UPDATE BOOLEAN/WORD R P EXT DELOCK TEST KEY-LOCKS z P EXT ATTPRT RESERVE PRINTER P EXT DETPRT RELEASE PRINTER P* P INCLUDE DEKEYS,LIST
0x07ddb0…07df44 Dummy {f00=0x0027, f01=0x018e, f02=»,RET C p P PLS,BTB,HOM,NOK, C P KEP,NOK,NOK,STS,PRT, C . P DUP,CFW,ENT,NOK P * j , PDEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C t P PLS,BTB,HOM,NOK, C P NOK,NOK,NOK,NOK,PRT, C P NOK,CBW,NOK,NOK * ( P
0x07df44…07e0d8 Dummy {f00=0x0027, f01=0x0190, f02=» t P NOK,NOK,NOK,NOK P* " , PDEKTAB4 KTAB BSP,CLR,NOK,EOI,CAN,RET, C , P PLS,BTB,HOM,NOK, C P KEP,NOK,NOK,STS,PRT, C z P DUP,CFW,NOK,TOT P* , PDEKTAB5 KTAB NOK,NOK,NOK,NOK,CAN,RET, C P NOK,BTB,NOK,NOK, C
0x07e0d8…07e26c Dummy {f00=0x0027, f01=0x0190, f02=»,CAN,RET,NOK,TOT,RIN P* , PDEKTABA KTAB NOK,NOK,NOK,NOK,CAN,RET, C & P NOK,NOK,NOK,NOK, C V P NOK,NOK,NOK,STS,PRT, C t P NOK,NOK,ENT,TOT,RFW, C & P NOK,COR,RDL,RIN NOK,COR,RDL,RIN P* , PDEKTABB KTAB NOK,NOK,NOK,NOK
0x07e26c…07e400 Dummy {f00=0x0027, f01=0x0190, f02=» ~ P* PDEKTABC KTAB CLR,CAN,RET EJECT 2 PDEFDSC PROC @ PIN05 T * P TBT BOOL6,IN10 JUMP IF BALANCE FORMAT ` ( P MOVE BIN4,W2 NUMB OF WANTED BUFFERS P MOVE DEBINW2,W1 P B IN15 PIN10 ( P MOVE BIN4,W1 NUMB OF WANT
0x07e400…07e594 (1, 159) Dummy {f00=0x0028, f01=0x018e, f02=» , P CALL UPDBOL,BIN1 INITIATE RECORDSTATUS * P MOVE BIN3,W0 NUMB OF CONSEC. BUFFERS 8 * P MOVE DEBINW1,BIN4 SAVE NUMB OF WANTED f 2 P PERF DEPOOL,W2,BIN4,BIN3,STRG10A GET BUFFERS P BOK IN20 & P PERF DERROR,DEKTAB6 ERROR-MESSAGE * P C
0x07e594…07e728 Dummy {f00=0x0028, f01=0x0190, f02=» PIN20 & P TBT BOOL7,IN21 JUMP IF CORR-MODE 2 P MOVE PINDFR,BIN4 SAVE ST-INDEX IF NEWREG-MODE : PIN21 p 0 P MOVE PINDDB,BIN4 SAVE START BUFFERPOOLINDEX | * P XCOPY RPOOL(PINDDB),W17,W1,DEBINW1,W1 * P XCOPY RPOOL(PINDDB),W18,W1,DEBINW2,W1
0x07e728…07e8bc Dummy {f00=0x0028, f01=0x0190, f02=»F DEPOOL,W4,PINDDB,BIN16,STRG10A SET BUFFER * P MOVE RNRFMCH,W2 LOAD FORMATLINKINDEX 4 P* b ( P* <RELEASE OLD DESC. BUFFERS> l P* PIN22 * P TBT BOOL6,IN25 JUMP IF BALANCE FORMAT P* 0 P* INITIALIZATION OF USER FO
0x07e8bc…07ea50 Dummy {f00=0x0028, f01=0x0190, f02=»,W8 POINTER DESCBUFF:=8 P MOVE BIN3,W0 : P XCOPY BIN3,W1,W1,RPOOL(PINDDB),W8 FETCH INDEX FCBUFF 6 ( P MOVE BIN13,W0 LAST DISPLACEMENTS:=0 t " P MOVE BIN14,W9 LAST LENGTH:=9 $ P MOVE PRECCUR,W14 LAST FIELD:=14 4 P MOVE FMTWK(W14),RBUFLN FE
0x07ea50…07ebe4 Dummy {f00=0x0028, f01=0x0190, f02=» INITIALIZATION OF BALANCE FORMAT PARTS P* 6 PIN25 @ * P MOVE BIN3,PINDDB 1ST BUFFER=FCBUFFER L * P MOVE PINDND,W0 NUMB OF DESCBUFFERS:=0 z " P MOVE PRECCUR,W8 LAST FIELD:=8 PIN30 * P PERF DEATTF ATTACH DEFINITION FORMAT P
0x07ebe4…07ed78 Dummy {f00=0x0028, f01=0x0190, f02=»5 PIN34 ( P ERASE 3,W1,W0 CLEAR ALL FIELDS FROM P 1 AND UP B PIN35 V P TBF BOOL7,IN36 b , P MOVE FORMAT,STRG10A RESTORE FORMATNAME z , P MOVE FDVBCD(W1),W23 PAGE SIZE:=23 (MAX) PIN36 P* <INITIALIZING PHASE> 0
0x07ed78…07ef0c Dummy {f00=0x0028, f01=0x018e, f02=»POOL NUMB OF POOLS:=1+01 , P MOVE FDVSTR(W1),HEX00 KEYED INPUT EMPTY * P MOVE FDVBCD(W7),HEX00 MINLENGTH EMPTY P P MOVE DUPL,HEX00 DUPL EMPTY ~ . P MOVE WORK(W6),W0 HIGHEST FIELD REF. NO:=0 * P TBT BOOL6,IN40 JUMP IF BALANCE FORMAT 0 P MOVE
0x07ef0c…07f0a0 Dummy {f00=0x0028, f01=0x0190, f02=» ~ P TBT DEPROMPT,POOFF P DISPLAY 3,W1,W0 $ P B CONT1 < PPOOFF L ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM Z P CLEAR DEPROMPT , P CBE DEBINW3,W1,CONT1 JUMP IF POWER OFF ( P TBT BOOL7,COR010 JUMP IF CORR-MODE P EJECT P
0x07f0a0…07f234 (1, 160) Dummy {f00=0x0028, f01=0x0190, f02=»BINW4,DEBINW3 SEARCH CURRENT POSITION P BZ SETCREAD JUMP IF FOUND . " P BL KTHOME POSITION NOT FOUND P P* v P* COMPULSORY FIELD FOUND P* & P MOVE DEBINW4,DEBINW3 CHANGE INDEX P B CONT5 SEARCH AGAIN P* P* ,
0x07f234…07f3c8 Dummy {f00=0x0028, f01=0x0190, f02=»T h $ P MOVE BIN5,W0 'LDES'-POINTER:=0 * P PERF DEUNPL,DEBIN5 UNPACK LINE=>LDES 2 ( P CBE DEBINW2,W1,COR400 END-OF-FORMAT ` ( P DISPLAY 1,W3,W3 DISPLAY LINE DESIGN PCOR015 ( P MOVE DEBINW4,W3 LDES-FIELD CURRENT P B CONT5 P*
0x07f3c8…07f55c Dummy {f00=0x0028, f01=0x0190, f02=» MOVE DEBINW4,=W'36' MESSAGE-NO:=36 6 P PERF DERROR,DEKTAB7 'E-O-F FOUND PRESS 'RINS' ' , P CBE DEBINW2,W1,COR400 f $ P SUB DEBINW2,W1 ADJUST KEY-INEX PCOR450 . P CBNE DEBINW2,W5,RETUR JUMP IF NOT INSERT $ P SET DOOL7 T=NEW LINES INSER
0x07f55c…07f6f0 Dummy {f00=0x0028, f01=0x0190, f02=»URSOR ON CURRENT FIELD P P* & * P* READ TO CURRENT FIELD ON DISPLAY 0 P* ^ PREADIN h 2 P TBT DOOL7,READ00 JUMP IF INSERT OF NEW LINES v 0 P TBT DOOL5,READ00 JUMP IF CORR-MODE CHANGED 0 P TBT DOOL4,READ00 JUMP IF CORR-MODE CHAN
0x07f6f0…07f884 Dummy {f00=0x0028, f01=0x018e, f02=»UMP IF FIELDNR =3 x > P CBE DEBINW4,PRECCUR,READ20 JUMP IF FIELDNR = LAST FIELDNR . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C P DEBINW2,DEBINW4 P B DYKOUT PREAD10 . P DYKI DEINPUT,DEKTAB4,DEKTAB2,DEBINW1, C P DEBINW2,DEBI
0x07f884…07fa18 Dummy {f00=0x0028, f01=0x0190, f02=» PREAD30 P MOVE DEBINW3,W1 P MOVE BIN16,DEBINW4 * P CBE BIN16,W4,READ40 F 4 P NKI .NE,DEDSDYKB,STR1A,DEKTABA,DEBINW3,DEBINW2 b P BNOK BELLY P B DYKOUT PREAD40 4 P NKI .NE,DEDSDYKB,STR1A,DEKTABB,DEBINW3,DEBINW2 P B
0x07fa18…07fbac Dummy {f00=0x0028, f01=0x0190, f02=» MOVE DEBINW2,W2 P B ERRCAN PDYK100 * 2 P TBT DOOL7,DYK101 JUMP IF INSERT OF NEW LINES 8 , P TBT DOOL5,DYK101 JUMP IF TEMP CHH MODE n * P TBT DOOL4,DYK101 JUMP IF TEMP CH MODE * P TBT DOOL3,DYK101 JUMP IF TEMP CH MODE ( P TBT BOOL7,COR
0x07fbac…07fd40 Dummy {f00=0x0028, f01=0x0190, f02=»E,UPDATE,UPDATE CONVERTED C 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C $ P UPDATE,KDUPL,KEDIT P EJECT x P* 4 P* HANDLE THE RESPECTIVE KEY AS EOI-KEY FIRST P* PUPDATE . P CBE DEBINW1,W0,UPD350 JUMP IF LENGTH =
0x07fd40…07fed4 (1, 161) Dummy {f00=0x0028, f01=0x0190, f02=»ONAL DISPLAYING P* $ P GETCTL 0,DEBINW3 GET APPL-VALUE " 0 P CBE DEBINW3,W0,UPD400 JUMP IF NO APPL VALUE J P* ~ ( P* APPL-VALUE DIFFERENT FROM ZERO P* P PERF DEAPPL , P IB DEBINW3,UPD260,UPD300,ERRPRINT,KEDIT P B UPD
0x07fed4…080068 Dummy {f00=0x0028, f01=0x0190, f02=»UPDATE FIELD WITH DISPLAYING ~ . PUPD300 SET DECHANGE INDICATE CHANGED ITEM $ PUPD350 V $ P* JUMP ON FUNCTION KEY INDEX d P IB DEBINW2,KTFWD,DUMMY, C P KEOI,DUMMY,DUMMY,KTFWD, C & P KTBWD,KTHOME,DUMMY,KEEP,DUMMY C & P DUMMY,KS
0x080068…0801fc Dummy {f00=0x0028, f01=0x0190, f02=» ADJUST EOI-KEY INDEX PDUMMY PRETUR , P RET : PCORL30 F P B COR030 LONG BRANCH LABEL T P* x PUPD400 6 P CBE DEBINW4,W2,UPD260 JUMP IF UNCONDITIONAL DIDEL 0 P UPDFLD 0,DEINPUT UPDATE FIELD DIDEL. COND. P B UPD300
0x0801fc…080390 Dummy {f00=0x0028, f01=0x0190, f02=» PKTFWD TAB. FORWARD 1 STEP ! P TFWD ! ( P B TSTTAB ! 6 P* ! H $ PKTBWD TABULATION 1 STEP BACKW. ! R P TBWD ! z P B TSTTAB ! P* ! " PKTHOME TAB. TO HOME POSITION ! P THOME ! P B TSTTAB ! P* ! P ! PTSTTAB TES
0x080390…080524 Dummy {f00=0x0028, f01=0x0190, f02=»NDITIONAL TABULATION ! P* " P PERF DEFGTC " & . P CBNE DEBINW2,W0,RETUR JUMP IF ERROR FOUND " : P CBNE DEBINW3,W0,BELLY " l P TBF DOOL5,BELLA " * P TBT DOOL6,CRL110 JUMP IF MTEXT PASSED " PBELLA " P B SETCREAD " PBELLY " ( P EDWRT D
0x080524…0806b8 Dummy {f00=0x0028, f01=0x0190, f02=»KPRTER " " P EDWRT DEDSPRT,FORMF FORMFEED # P MOVE DEBINW3,W1 # 4 P PRINT DEDSPRT,DEBINW3,W0 # L P PERF DETPRT RELEASE PRINTER # n $ P B SETCREAD SET CURSOR AND READ # PKPRTER # P PERF DERROR,DEKTABC # $ P IB DEBINW2,ERRCAN,ERRCAN,RETUR #
0x0806b8…08084c Dummy {f00=0x0028, f01=0x0190, f02=»E COMMON EOI-KEY # x P DUPL DEINPUT DUPLICATION $ P BNOK KDUPLE $ : 8 P MOVE FMTWK(W5),RECLNTH RESTORE LAST LINE NUMB CHARS $ N P ERASE 2,W5,W5 CLEAR LDISP $ P B UPD260 DUPL ALLOWED $ PKDUPLE $ . P MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY $
0x08084c…0809e0 Dummy {f00=0x0028, f01=0x0190, f02=» PKEDITX % P CBNE DEBINW1,W0,KEDITY % P SETCUR % 2 P B KEDIT % B PKEDITY % R P MOVE DEBINW1,W1 % ` PKEDIT % x P GETCTL 1,DEBINW3 GET MAXL % P CBNE DEBINW3,W0,KED100 % ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM % P B SETCREAD % P
0x0809e0…080b74 (1, 162) Dummy {f00=0x0028, f01=0x0190, f02=» % P* ENTER KEY & P* & PKEEP & ( PKENTER & 4 0 P TBF BOOL6,KENT0A JUMP IF NOT BALANCE-FORMAT & B 0 P TBF BOOL2,KENT0A JUMP IF NO ACC/FIELD FOUND & v * P CALL EMPTYT,FDVBCD(W8) ACC NO EMPTY ? & & P BNOK KEDIT JUMP IF EMPTY (ERROR) & PKENT0A
0x080b74…080d08 Dummy {f00=0x0028, f01=0x0190, f02=»K KEDIT JUMP IF ERROR FOUND & PKENT00 ' $ . P TBT DOOL3,COR060 JUMP IF CORRMODE TEMP CH ' 2 ( P PERF FDIR GENERATE FIELD DIRECTIVE ' d P CBNE DEBINW2,W0,RETUR NOK ' & P CBE EOLINE,W1,KENT03 EOL REACHED ' * P PERF MTEXT MATCH AND SEARCH FOR FIELD '
0x080d08…080e9c Dummy {f00=0x0028, f01=0x0190, f02=»NT03 ' ( P TBT DOOL4,COR058 NEW LINE INSERTED ( " P PERF FNL END-OF-LINE ROUTINE ( 8 & P MOVE DEBINW4,W3 INDICATE FIELD 3 ( ^ P CBNE DEBINW2,W0,RETUR NOK ( PKENT04 ( P GETFLD 0,DEBINW4,DEBINW3 ( P B SETCREAD OK ( P EJECT ( PERRPRT (
0x080e9c…081030 Dummy {f00=0x0028, f01=0x0190, f02=» ( h P XSTAT DEDSDYKB,DEBINW3 ) P CALL MASK,DEBINW3,W64 ) ( P BNZ DYK050 ) F P* ) Z P* ERROR HANDLING ) d P* ) PERRPRINT ) P PERF DERROR,DEKTAB6 ) * P IB DEBINW2,ERRCAN,ERRCAN,RETUR,KEDITX ) P B SETCREAD ) P* ) P*
0x081030…0811c4 Dummy {f00=0x0028, f01=0x0190, f02=»CEL2 ) j P B RETUR * PCLEA20 * * P GETABX DEBINW4 GET CURRENT TAB INDEX * * , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD * X P B SETCREAD CONTINUE * P* * P EJECT * PCOR030 * P CBE BIN16,W4,COR035 * , P IB DEBINW2,DUMMY,DUMMY,DUMMY,DUMM
0x0811c4…081358 Dummy {f00=0x0028, f01=0x0190, f02=»COR040,COR120,COR050, ENT,RFW C * ( P DUMMY,COR100,COR080,COR090 RDL,RIN + ( PCOR035 + T , P IB DEBINW2,DUMMY,DUMMY,DUMMY,DUMMY, C + b $ P CORRET,CORRET,DUMMY,DUMMY, C + " P DUMMY,DUMMY,DUMMY,DUMMY, C + P DUMMY,KSTS,KPRT,DUMMY, C + " P DU
0x081358…0814ec Dummy {f00=0x0028, f01=0x0190, f02=» NEXT FIELD + ~ P* , PCOR040 , P ERASE 2,W5,W5 CLEAR LDISP , , PCOR045 , N P PERF MTEXT LDES-MATCH , * P CBNE DEBINW2,W0,COR499 JUMP IF NOT OK , z PCOR046 , P CLEAR BOOL5 , , P PERF DEUNPF,CURSEC,W1 UNPACK NEXT FIELD , & P TBF BOOL2,COR
0x0814ec…081680 Dummy {f00=0x0028, f01=0x0190, f02=»URRENT , p P B CONT5 - P* - , P* CORRECTION LINE-LEVEL 'RFW'-KEY - ( P* - DISPLAY NEXT LINE - X P* - | PCOR050 - P ERASE 2,W5,W5 ERASE LDISP - PCOR051 - & P SET DOOL8 T=IHIBIT DISPLAY ERASES - P PERF MTEXT 'LDES'-MATCH -
0x081680…081814 (1, 163) Dummy {f00=0x0029, f01=0x0190, f02=»5 JUMP IF NO FIELD - P TBT BOOL5,COR052 . $ P PERF FDIR FIELD DIRECTIVE-PROC . 4 P CBNE DEBINW2,W0,COR499 . 2 P CBNE EOLINE,W1,COR051 JUMP IF NOT END-OF-LINE . | PCOR053 . $ P ADD CURSEC,W1 ADJUST BUFFERPOS . PCOR055 . 0 P DISPLAY 2,W3,W7 D
0x081814…0819a8 Dummy {f00=0x0029, f01=0x0190, f02=»NE . P CBNE DEBINW2,W0,COR499 / P B COR010 / * P* / < . P* CORRECTION FIELD-LEVEL 'ENT'-KEY / F " P* - DISPLAY NEXT FIELD / x P* / PCOR060 / " P CLEAR DOOL3 F= PURE CORRMODE / $ P PERF FDIR FIELD DIRECTIVE PROC / P CBN
0x0819a8…081b3c Dummy {f00=0x0029, f01=0x0190, f02=» LEVEL 'CORR'-KEY CHANGE FIELD PARAMETERS / x P* 0 2 PCOR070 0 < ( P SET DOOL3 T= TEMPORARY MODE CHANGE 0 J PCOR075 0 v P MOVE DEBINW4,W4 0 P B CONT5 0 P* 0 . P* CORRECTION LINE-LEVEL 'RDEL'-KEY 0 $ P* -DELETE CURRENT LINE
0x081b3c…081cd0 Dummy {f00=0x0029, f01=0x0190, f02=»INW2,W1,COR498 END-OF-FORMAT 0 P TBF BOOL5,COR085 1 $ P B COR010 GO ON NEXT LINE 1 > P* 1 ` " P* CORRECTION LINE-LEVEL 1 j P* - INSERT NEW LINE 1 P* 1 PCOR090 1 P ERASE 2,W6,W6 ERASE LDES 1 . P SET DOOL4 T=CHHANGE MODE IN
0x081cd0…081e64 Dummy {f00=0x0029, f01=0x0190, f02=»CONF CURR LINE 1 x ( P CLEAR DOOL2 F=CURR LINE NOT DELETED 2 P MOVE DEBINW4,W3 2 B P B CONT5 2 Z P* 2 j , P* CORRECTION LINE-LEVEL 'COR'-KEY 2 t P* 2 PCOR100 2 ( P SET DOOL5 T=TEMPORARY MODE CHHANGE 2 * P CLEAR DOOL6 F=DEFGTC/MTEXT NOT
0x081e64…081ff8 Dummy {f00=0x0029, f01=0x0190, f02=»LEAR DOOL6 2 P CBE EOLINE,W1,COR058 3 P SET DOOL4 3 0 P B COR075 3 B P* 3 T . P* CORRECTION -LINE-LEVEL 'TOT'-KEY 3 ^ $ P* - KEEP REST OF FORMAT 3 P* 3 PCOR120 3 & P SET DOOL8 T=INHBIT DISPLAY-ERASE 3 P PERF MTEXT LD
0x081ff8…08218c Dummy {f00=0x0029, f01=0x0190, f02=»OOL5 3 , P PERF DEUNPF,CURSEC,W1 UNPACK NEXT FIELD 4 ( P TBT BOOL5,COR125 JUMP IF EOL FOUND 4 < & P PERF FDIR FIELD DIRECTIVE PROCESS 4 h P CBNE DEBINW2,W0,COR499 4 PCOR130 4 0 P CBNE EOLINE,W1,COR120 END OF LINE NOT FOUND 4 , P PERF DEUNPF,CURSEC,
0x08218c…082320 Dummy {f00=0x0029, f01=0x0190, f02=»OINTER:=0 4 z * P PERF DEUNPL,DEBIN5 UNPACK LINE=>LDES 5 ( P CBE DEBINW2,W1,COR498 END-OF-FORMAT 5 @ P B COR120 GO ON 5 l P* 5 & P* CORRECTION END-OF-FORMAT 5 P* 5 PCOR498 5 & P MOVE DEBINW2,W4 SIMULATE TOT-KEY 5 PCOR499 5 P
0x082320…0824b4 (1, 164) Dummy {f00=0x0029, f01=0x4052, f02=»FORMF FRMT 5 P FTEXT ' 1' 6 P FMEND 6 & P PEND 6 4 END 6 B@ 6 N
0x0824b4…082648 Dummy {f00=0x0029, f01=0x2008, f02=» 7 PDIV ENTRY DEFDSC PROGRAM-START * > INCLUDE DEKEYS,LIST H EJECT d DEFDSC PROC r RET PEND END @ * * * * * -OUTPUT: * * *
0x082648…0827dc Dummy {f00=0x0029, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 3? !6 (DTdt_ * ? + ? ,< j ! ! 4 @iW Ai? P ! 5 ? A W @ ! 7 A ? @ ?
0x0827dc…082970 Dummy {f00=0x0029, f01=0x0190, f02=»% <09 ,08 , $ ? r8 ( 2 0< 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 09 {$* p!0
0x082970…082b04 Dummy {f00=0x0029, f01=0x0190, f02=»!* & & & ! 1 0 "}H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x082b04…082c98 Dummy {f00=0x0029, f01=0x0190, f02=» ' 0" (T W $0$ "W 0$ 4 u C o 4 7 ! i 8 G r U 1 ' v *CFNYGETUSERBALANCE P 'g @ U 20 # - , )
0x082c98…082e2c Dummy {f00=0x0029, f01=0x0190, f02=» 0 7 Q ( ` ` H{ Ij 0 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I }I
0x082e2c…082fc0 Dummy {f00=0x0029, f01=0x0190, f02=» > 2 6 :@g0 0} { 1 An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 2 AiW 09 {$* p!0 AnP 0 ! 0$ 1 2 _Q 1W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{ _ 0 0}AjA{ p! u IiL
0x082fc0…083154 (1, 165) Opaque[0x194]
0x083154…0832e8 # DirEnt {nam=»DE24ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0530, f03=0x0000}
0x083154…0832e8 IdxSect {
0x083154…0832e8 f00 = 0x0029 // 0x83154 @0x0
0x083154…0832e8 f01 = 0x0004 // 0x83156 @0x2
0x083154…0832e8 gno = [ // 0x83158 @0x4
0x083154…0832e8 [0x00]: C0x0029.0x2.0
0x083154…0832e8 [0x01]: C0x0029.0x3.0
0x083154…0832e8 ]
0x083154…0832e8 }
0x0832e8…08347c Dummy {f00=0x0029, f01=0x0190, f02=» $ P IDENT DE24ST REL 10.0 80-04-11 P 79-12-14/JAER , P* D 2 P* THIS FORMAT PROCESS FOLLOWING FUNTION N P* - COPY OF FORMAT P* L P************************************************************************ DDUM DE
0x08347c…083610 Dummy {f00=0x0029, f01=0x0190, f02=» EXT DEDISC DISC-ROUTINE P EXT DERROR ERROR-MESSAGES * P EXT RESTOR RESTORE ORIG.-DESC-POINTER B ( P EXT DEPOOL BUFFERRESERVATION-MODUL p P EXT FEDIT ( P EXT ATTDB ATTACH FORMAT-DESCRIPTOR P INCLUDE DEKEYS,LIST EJECT *
0x083610…0837a4 Dummy {f00=0x0029, f01=0x0190, f02=» P* P EJECT PDE24ST PROC PDEST24 0 : P CALL RESTOR,W0,W16,PWBDB4 RESTOR ORIG.-DESC.-POINTER > P MOVE PINDFR,W0 | P ATTFMT F24CF $ P SET DEPROMPT PROMTTEXT-DISPLAY PDE24CA " P PERF DECLRA DATA-ENTRY-SCREEN PDE
0x0837a4…083938 Dummy {f00=0x0029, f01=0x0190, f02=»CANCEL P CLEAR DEPROMPT P B DE24CA & PERROR 8 P PERF DERROR,DEKTAB6 F P IB DEBINW2,CHANGE,DEST24 b P B RELRET P EJECT P* $ P* LOCK FORMAT IN BUFFERS P* & P* DUPL = FORMAT TO BE COPIED
0x083938…083acc Dummy {f00=0x0029, f01=0x0190, f02=»JUMP IF NOT OK P MOVE STRG10A,='F' 6 P XCOPY STRG10A,W1,W6,DUPL,W0 LOAD OLD FORMAT NAME 0 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR j 4 P MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT
0x083acc…083c60 Dummy {f00=0x0029, f01=0x0190, f02=»RSOR ON LAST FIELD p 0 P MOVE DEBINW4,=W'30' PRESS ENTER TO CONFIRM' P PERF DERROR,DEKTAB7 N $ P IB DEBINW2,CHAN20,CHAN20,RELRET j PCHAN10 4 P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LOCK P BNOK CHERR 6 P XCOPY STRG10A,W1,W6,FORMAT,
0x083c60…083df4 (1, 166) Dummy {f00=0x0029, f01=0x018e, f02=» BERR CHERR P PERF DERROR,DEKTAB6 P B RELRET 0 PCHERR B P PERF DERROR,DEKTAB6 P P IB DEBINW2,CHAN10,CHAN20 l P B RELRET PCHAN20 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P B DEST24 P EJECT
0x083df4…083f88 Dummy {f00=0x0029, f01=0x0190, f02=» P RET PEND P EJECT PF24CF FRMT , P FSL > P FTEXT '24 COPY ' J P FCOPY ='FORMAT' d P FNL | P FCOPY ='FORMAT' P FTEXT ' TO BE COPIED:' 6 P FKI 21,APPL=113,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR P FCOPY DUPL
0x083f88…08411c Dummy {f00=0x0029, f01=0x406e, f02=»CLR b P FCOPY FORMAT P FNL " P FKI 1 . P FCOPY HEX00 < P FMEND P END ^@ jORMAT' d P FNL | P FCOPY ='FORMAT' P FTEXT ' TO BE COPIED:' 6 P FKI 21,APPL=113,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR P FCOPY DUPL
0x08411c…0842b0 Dummy {f00=0x0029, f01=0x2008, f02=»
0x0842b0…084444 Dummy {f00=0x0029, f01=0x0190, f02=» a =h% % P ! T ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x084444…0845d8 Dummy {f00=0x0029, f01=0x4026, f02=» R P t @ " ZLABN , BINDEC < ZVALUE N BINHEX ` , ( X( r ZCLASS ZREFER , ( FORMAT '@ b UNUSED , ( _p ! P
0x0845d8…08476c Dummy {f00=0x0029, f01=0x4180, f02=» IDENT MAP3 MAP3Y " MAP3Y 2 CURPRT D BLANK V TRANSF f LISTN x MODLG , ( A @ 0 = # * & D @ bLCV Z
0x08476c…084900 Dummy {f00=0x0029, f01=0x40fe, f02=» IDENT MAP4 MAP4Y " MAP4Y 2 LSTSTA D LSTNN V LSTECB f , ( P W _ _ W : x IOERR H V W W $ @ @
0x084900…084a94 (1, 167) Opaque[0x194]
0x084a94…084c28 # DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0540, f03=0x0000}
0x084a94…084c28 IdxSect {
0x084a94…084c28 f00 = 0x002a // 0x84a94 @0x0
0x084a94…084c28 f01 = 0x0010 // 0x84a96 @0x2
0x084a94…084c28 gno = [ // 0x84a98 @0x4
0x084a94…084c28 [0x00]: C0x002a.0x0.0
0x084a94…084c28 [0x01]: C0x002a.0x1.0
0x084a94…084c28 [0x02]: C0x002a.0x2.0
0x084a94…084c28 [0x03]: C0x002a.0x3.0
0x084a94…084c28 [0x04]: C0x002b.0x0.0
0x084a94…084c28 [0x05]: C0x002b.0x1.0
0x084a94…084c28 [0x06]: C0x002b.0x2.0
0x084a94…084c28 [0x07]: C0x002b.0x3.0
0x084a94…084c28 ]
0x084a94…084c28 }
0x084c28…084dbc Dummy {f00=0x002a, f01=0x0190, f02=» $ P IDENT DEPOOL REL 10.0 80-04-11 P 80-03-26/DALI , DDUM DEDDIV D @ <************************************************************ X @ <* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING * @ <* SEQUENCE AND THE FORMAL PARAMETERS ARE
0x084dbc…084f50 Dummy {f00=0x002a, f01=0x0190, f02=»FF2>,<KEY> * h @ <* * @ <************************************************************ ` P* : P* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES . P* AND ORIGINATE CONTENTS OF
0x084f50…0850e4 Dummy {f00=0x002a, f01=0x0190, f02=» BIN15 P* BIN16 P* DEBINW3 , P* DEBINW4 F P* POOL1 ` P* STR1A x P* STR64A P* @ <************************************************************ P EJECT @ <****
0x0850e4…085278 Dummy {f00=0x002a, f01=0x0190, f02=» THE RETURNED BUFFERS ARE FREE FOR USE : =* BY ANY TASK FOR THE SAME PURPOSES. 6 < 8* THE COUNTER OF THE PASSED BUFFERCHAIN t $ P* IS SET TO 1. * =* PASSED PARAMETERS: 6
0x085278…08540c Dummy {f00=0x002a, f01=0x018e, f02=» RETURNED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ ( P* IF NO BUFFERS = 0 f * @ <************************************************************ * , (* <FC> = 2 GET BUFFERS
0x08540c…0855a0 Dummy {f00=0x002a, f01=0x0190, f02=» X < 8* THE COUNTER OF THE PASSED BUFFERCHAIN $ P* IS SET TO 1. H * =* PASSED PARAMETERS: p 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS < >* <BUFF2> = NUMBER OF WANTED CONSECUTIVE
0x0855a0…085734 (1, 168) Dummy {f00=0x002a, f01=0x0190, f02=» IF NO BUFFERS = 0 * & @ <************************************************************ 0 P EJECT t @ <************************************************************ * $ * <FC> = 3 CHAIN BUFFERS : 6*
0x085734…0858c8 Dummy {f00=0x002a, f01=0x0190, f02=»D BUFFERS f $ P* IS SET TO 1. * 3* PASSED PARAMETERS: : 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS h 8 P* <BUFF2> = POOLINDEX TO THE RESERVED BUFFER B P* IN THE CHAIN AFTER WHIC
0x0858c8…085a5c Dummy {f00=0x002a, f01=0x0190, f02=» = POOLINDEX TO THE ADDED BUFFER. ( P* IF NO BUFFERS = 0 * > P* <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER V $ * IN THE CHAIN * @ <************************************************************
0x085a5c…085bf0 Dummy {f00=0x002a, f01=0x0190, f02=»* THE NAME AND THE TYPE > :* OF THE USER IS PUT INTO THE POOLELEMENT 0 < 8* THE COUNTER OF THE PASSED BUFFERCHAIN r . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS
0x085bf0…085d84 Dummy {f00=0x002a, f01=0x0190, f02=»AME. THE NAME IS STRG7 VARIABEL CONSISTING | < 8* OF A STRG1 TYPE AND STRG6 NAME. 2 0 ,* RETURNED PARAMETERS: NONE r * @ <************************************************************ P EJECT @ <******
0x085d84…085f18 Dummy {f00=0x002a, f01=0x0190, f02=»UFFERPOOL IS SEARCHED FOR A POOL- x : 5* ELEMENT OF THE SAME NAME AND TYPE. * < 8* THE COUNTER OF THE PASSED BUFFERCHAIN h * P* IS INCREASED BY 1. > P* IF THE SEARCHED BUFFER IS FOUND
0x085f18…0860ac Dummy {f00=0x002a, f01=0x0190, f02=»1>,<BUFF2> = USED FOR RETURNVALUES B >* <KEY> = NAME. THE NAME IS STRG7 VARIABEL CONSISTING * < 8* OF A STRG1 TYPE AND STRG6 NAME. p , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFF
0x0860ac…086240 Dummy {f00=0x002a, f01=0x0190, f02=» 4 P* 2 = FOUND LOCKED 0 P* 0 = NOT FOUND < * p @ <************************************************************ z P EJECT @ <************************************************************
0x086240…0863d4 (1, 169) Dummy {f00=0x002a, f01=0x0190, f02=» IF THE COUNTER AFTERWARDS IS 0, THE > P* BUFFER IS PUT ON LRUQUE IF IT WAS FREE. 4 8 P* IF IT WAS LOCKED IT BECOMES FREE v 8 P* IMMEDIATLY AND IS NOT PUT ON THE & P* LRUQUE
0x0863d4…086568 Dummy {f00=0x002a, f01=0x0190, f02=» IN THE CHAIN , '* RETURNED PARAMETERS: P* <BUFF1> = SET TO 0 P * t @ <************************************************************ ~ P EJECT @ <********************************************************
0x086568…0866fc Dummy {f00=0x002a, f01=0x0190, f02=» ELEMENT OF THE SAME NAME AND TYPE. < 8* THE COUNTER OF THE PASSED BUFFERCHAIN 2 . P* WILL NOT BE INCREASED . r * %* PASSED PARAMETERS: 4 0* <BUFF1>,<BUFF2> = USED FOR RETURNVALUES B
0x0866fc…086890 Dummy {f00=0x002a, f01=0x0190, f02=»* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 0 6 P* TYPE AND NAME. IF NOT FOUND = 0 t 2 P* <BUFF2> = RETURNCODE. 1 = FOUND FREE 4 P* 2 = F
0x086890…086a24 Dummy {f00=0x002a, f01=0x0190, f02=»****** Z P EJECT @ <************************************************************ * ` $ P* <FC> = 8 LOCK BUFFERS j : 6* THE RETURNED BUFFERS ARE LOCKED AND > P* RESERVED FOR USE ONLY BY THIS TASK ON
0x086a24…086bb8 Dummy {f00=0x002a, f01=0x018e, f02=»OUNTER OF THE PASSED BUFFERCHAIN x . P* WILL NOT BE INCREASED . ( * %* PASSED PARAMETERS: Z > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN * @ <************
0x086bb8…086d4c Dummy {f00=0x002a, f01=0x0190, f02=» * " P* <FC> = 9 SCAN BUFFER < P* THE BUFFERPOOL IS SCANNED FOR A POOL- 4 , P* ELEMENTCONSISTING OF. t < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCRE
0x086d4c…086ee0 Dummy {f00=0x002a, f01=0x0190, f02=»AME. THE NAME IS STRG7 VARIABEL CONSISTING | < 8* OF A STRG1 TYPE AND STRG6 NAME. 2 , '* RETURNED PARAMETERS: r @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME.
0x086ee0…087074 (1, 170) Dummy {f00=0x002a, f01=0x0190, f02=» 0 = NOT FOUND * 2 @ <************************************************************ < P EJECT @ <************************************************************ * $ P* <FC> = 10 SET BUFFERS 6 P*
0x087074…087208 Dummy {f00=0x002a, f01=0x0190, f02=» THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . 0 * %* PASSED PARAMETERS: b > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN B >* <KEY>
0x087208…08739c Dummy {f00=0x002a, f01=0x0190, f02=» RETURNED PARAMETERS: NONE * $ @ <************************************************************ . P* r & P* <FC> = 11 RELEASE BUFFER | 6 P* THE CHAINLINKS FOR THE BUFFERS 4 P* ON DISK ARE CLEARED
0x08739c…087530 Dummy {f00=0x002a, f01=0x018e, f02=» PASSED PARAMETERS: > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER " $ * IN THE CHAIN d * @ <************************************************************ PDIV ENTRY DEPOOL P EXT SETB
0x087530…0876c4 Dummy {f00=0x002a, f01=0x0190, f02=» P CLEAR POOL1 P IB FC C P DEPO1 C * P DEPO1 C < P DEPO3 C N P DEPO4 C ` P DEPO5 C r P DEPO6 C P DEPO5 C P DEPO8 C P DEPO5 C P DEPO4 C P DEPO6 FC=11 P EJECT PDEPO1
0x0876c4…087858 Dummy {f00=0x002a, f01=0x0190, f02=» FOR CONSECUTIVES z PDEPO3 & P MOVE BIN15,W1 STARTINDEX IN POOL ( PDEPO11 R . P MOVE STR64A,HEX00 DROP TEMPORARY RESERVED ` PDEPO12 . P MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE PDEPO13 0 P CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUF
0x087858…0879ec Dummy {f00=0x002a, f01=0x0190, f02=»15,BPOOL(W1) $ P BNOK DEPO16 JUMP IF LAST BUFFER PDEPO15 < . P TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE J . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS | . P MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0 P REQUESTED P B DEPO11 ( PDE
0x0879ec…087b80 Dummy {f00=0x002a, f01=0x0190, f02=» POOL1,DEPO17 JUMP IF CONSEC REQ ( P MOVE BIN15,W1 START FROM BEGINNING ( P B DEPO12 T PDEPO17 f . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS t P B DEPO05 P EJECT P* P* HANDLE FREE BUFFERS P* PDEPO18 P X
0x087b80…087d14 (1, 171) Dummy {f00=0x002b, f01=0x0190, f02=»L1,DEPO19 JUMP IF NOT CONSECUTVE P ADD BIN16,W1 REQUESTED ( 2 P CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF H $ P REQUESTED CONSECUTVES REACHED ~ P CLEAR POOL1 PDEPO19 & P MOVE DEBINW3,W0 RESERV TEMPORARY * P MATCH STR64A,DEBINW3,
0x087d14…087ea8 Dummy {f00=0x002b, f01=0x0190, f02=» JUMP IF ENOUGH BUFFERS P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) 6 P BNOK DEPO16 Z P B DEPO12 CONTINUE n PDEPO20 P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4
0x087ea8…08803c Dummy {f00=0x002b, f01=0x0190, f02=» IF MORE THAN ONE USER t $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 F 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS j & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE D
0x08803c…0881d0 Dummy {f00=0x002b, f01=0x0190, f02=» RPOOL(BUFF1),W0,W1,DEBINW3,W1 PDEP430 MOVE STR1A,KEY ! & * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! D P B DEPOOK ! r & PDEP440 STORE THE RECORDLENGTH OF ! 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL N
0x0881d0…088364 Dummy {f00=0x002b, f01=0x018e, f02=»OL(BUFF1),W18 DESCRIPTORRECORDS ! z & P MOVE DEBINW4,BUFF1 START OF CHAIN " ( . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " R ( P SUB BIN15,BIN16 JUST FORMATRECORDS " PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO N
0x088364…0884f8 Dummy {f00=0x002b, f01=0x018e, f02=» ( PDEP475 ADD BIN16,W1 SET FLINK INDEX # P MOVE FLIND(BIN16),DEBINW4 # 0 PDEP480 SUB BIN15,W1 # R ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # n P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY #
0x0884f8…08868c Dummy {f00=0x002b, f01=0x0190, f02=» PDEPO52 $ P ADD DEBINW3,W1 $ " P CALL CMPIND,DEBINW3,BPOOL(W1) $ * $ P BNOK DEPON9 JUMP IF LAST INDEX $ P P B DEPO51 $ x PDEPO53 $ 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W
0x08868c…088820 Dummy {f00=0x002b, f01=0x0190, f02=» MOVE BUFF2,W1 $ P B DEPO55 % PDEPO54 % ( P MOVE BIN15,W0 % 6 . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % L P BERR DEPO52 % ~ P MOVE BUFF2,W2 % PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DE
0x088820…0889b4 (1, 172) Dummy {f00=0x002b, f01=0x0190, f02=»8 % l P CBL ELMNO,BIN15,DEP560 & P CBNG ELMNO,BIN16,DEP565 & * PDEP560 & J P MOVE BUFF2,W0 & X P B DEPO52 & n PDEP565 & P MOVE BUFF1,DEBINW3 & P CBE BUFF2,W2,DEP570 & $ P CBE FC,W5,DEPO59 JUMP IF SEARCH & PDEP570 & P B DEPOOK JU
0x0889b4…088b48 Dummy {f00=0x002b, f01=0x0190, f02=»6 JUMP IF START OF CHAIN & P SET POOL1 ALREADY HANDLED. ' , P CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 ' D P XCOPY STR1A,W0,W1,BIN15,W1 ' t & P CALL GETIND,LRUQUE,BIN16,DEBINW3 ' P MOVE DEBINW3,W0 ' < P MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK F
0x088b48…088cdc Dummy {f00=0x002b, f01=0x0190, f02=»0 ' r PDEPO56 ( P ADD DEBINW4,W1 ( 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER ( 0 : P XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT ( j . P CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER ( P B DEPO59 ( P EJECT ( PDEPO6 ( P
0x088cdc…088e70 Dummy {f00=0x002b, f01=0x0190, f02=»6 MAKE AN IDLE-LOOP ( ~ PDEPO61 ) P CBNE FC,W11,DEP610 ) * P MOVE STR64A,HEX00 ) F P B DEP660 ) ` PDEP610 ) r 4 P XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER ) $ P SUB DEBINW4,W1 DECREASE COUNTER ) P BG DEPO62 ) & P MOVE STR1A,RPOOL(BIN1
0x088e70…089004 Dummy {f00=0x002b, f01=0x0190, f02=»SET ) r PDEP620 * P MOVE STR1A,=C'X' * & P COPY RPOOL(BIN15),W0,W1,STR1A,W0 * 4 P B DEPO62 * ^ PDEP630 * p & P CALL GETIND,LRUQUE,BIN16,DEBINW3 * ~ P MOVE DEBINW3,W0 * @ P MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE * P BOK
0x089004…089198 Dummy {f00=0x002b, f01=0x018e, f02=»6),W0,W1,STR1A,W0 * P DLETE LRUQUE,W0,W1 + P SUB DEBINW3,W1 + 6 PDEP640 + N P SET POOL1 ALREADY HANDLED. + P XCOPY STR1A,W0,W1,BIN15,W1 + & P INSRT LRUQUE,DEBINW3,W1,STR1A,W0 + PDEPO62 + 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE C
0x089198…08932c Dummy {f00=0x002b, f01=0x0190, f02=» + j PDEP680 , P MOVE BIN15,BIN16 , P CBNE BIN15,W0,DEPO61 , 0 P MOVE BUFF1,W0 , N PDEP690 , d P B DEPOOK , r P EJECT , PDEPO8 MOVE DEBINW4,W0 , 4 P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER , 2 P CBNE DEBINW4,W1,DEPON11 JUMP IF
0x08932c…0894c0 Dummy {f00=0x002b, f01=0x0190, f02=»BINW4,W1 , t P B DEPOOK - P EJECT - " P* - 0 P* BAD RESULT - : P* - N PDEPON9 MOVE DEBINW4,W9 - X P B DEPONO - v PDEPON11 MOVE DEBINW4,W11 - " P MOVE STR6B,='FTJB' FUNCTIONS - ( P XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC - P MOVE BIN16,W0
0x0894c0…089654 (1, 173) Dummy {f00=0x002b, f01=0x0190, f02=» B DEPON20 - PDEPON13 MOVE DEBINW4,W13 . PDEPONO . 2 P MOVE BUFF1,W0 . @ PDEPON20 . V P CMP W1,W2 . f P RET . x P* . P* BUFFERS FOUND . P* . PDEPOOK . P MOVE DEBINW4,W0 . P CMP W1,W1 . RET . PEND . P EJECT
0x089654…0897e8 Dummy {f00=0x002b, f01=0x0190, f02=»THE CALLING SEQUENCE IS: . P* PERF DELRUF / P* / > > P********************************************************* / H PDELRUF PROC / P MOVE DEBINW4,W0 / : P XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST / P BUFFER IN LRUQUE
0x0897e8…08997c Dummy {f00=0x002b, f01=0x018e, f02=»DEBINW3,W0 / P MOVE STR1A,=C'X' FREE-MARK 0 PDEL11 0 6 ( P XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0 0 D < P XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT 0 p * P CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0 0 2 P XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK
0x08997c…089b10 Dummy {f00=0x002b, f01=0x0190, f02=» 0 b ( P CALL GETIND,LRUQUE,DEBINW3,DEBINW4 1 P SUB DEBINW3,W1 1 4 & P XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 1 L P CMP W1,W1 1 v P RET 1 P PEND 1 P EJECT 1 8 P**************************************************** 1 2 P* THIS PROCEDURE RESERV THE
0x089b10…089ca4 Dummy {f00=0x002b, f01=0x0190, f02=»ORE,<WBIN>,<FC> 1 ~ P* 2 & P* RETURNED PARAMETER: 2 " 6 P* <WBIN> = POOLINDEX TO THE FIRST RESERVED 2 L & P* BUFFER IN RPOOL. 2 8 P**************************************************** 2 PDEPORE PROC WBIN,FC 2 P
0x089ca4…089e38 Dummy {f00=0x002b, f01=0x0190, f02=» DEO1B 2 PDEO1 3 * P MOVE STR1A,HEX00 BUFFER WITHOUT LOCK 3 PDEO1B 3 H P MOVE WBIN,W0 3 V 0 P XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER 3 l P B DEO3B 3 PDEO3 3 P MOVE STR1A,RPOOL(WBIN) 3 & P XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 3 P B
0x089e38…089fcc Dummy {f00=0x002b, f01=0x0190, f02=»,W7,W1,W1,W1 SET COUNTER TO 1 3 ~ * P ADD DEBINW3,W1 POINTER TO NEXT INDEX 4 & PDEO3C 4 T 6 P XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX 4 b 0 P CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4
0x089fcc…08a160 Dummy {f00=0x002b, f01=0x40c4, f02=»COPY RPOOL(WBIN),W8,W1,BIN15,W1 4 PDEPO90 5 ( 8 P XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX 5 6 P RET 5 r P PEND 5 ~ P END 5 PTRA /S 5 EJECT 5 END 5 @ 5 FERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4
0x08a160…08a2f4 (1, 174) Dummy {f00=0x002b, f01=0x2008, f02=» 6 : 6* IF THE COUNTER AFTERWARDS IS 0, THE , '* BUFFER IS MADE FREE. J 0 +* PARAMETERS: SEE <FC> = 3 z * @ ;*********************************************************** EJECT
0x08a2f4…08a488 Dummy {f00=0x002b, f01=0x403a, f02=» $@ 6 ' ; @ > > 8 * & E 2 G f " c P a > 4 " * & y " * & A 8
0x08a488…08a61c Dummy {f00=0x002b, f01=0x4014, f02=» HNOD @ @ . * & E 2 G J " c P a > 4 " x * & y " DELAST * & A 8 *
0x08a61c…08a7b0 Dummy {f00=0x002b, f01=0x0190, f02=» IDENT P:S024 < " * & @h0E ! P # ( + ? 09 < AhW @ * & - %hZ ( !< % (R ! j n * & K !! ! ( $ 2hZ ! !T * & i !j !! W % 2 !X b ! * & U
0x08a7b0…08a944 Dummy {f00=0x002b, f01=0x0190, f02=»T 0* V f 0" * & T(00 P 0* h P W ! * & ! 0+ 0 06 #@hT A !!4 N * & ; ! 4 ! U 6 _l; | * & Y 2*0! !T Wo0 "T j !! !b * & w Wp Wj Wb Sf !W * &
0x08a944…08aad8 Dummy {f00=0x002b, f01=0x0190, f02=» !!4 !"4 80 11 / 6 * & ''' ' y ''' "W% ," " . * & + 0 We0F W "_ '_ !0 * & I F ! 2 W 0 0 (P" * & g &W:6 33 33 333 36 # * & W(11 _ !02 _ 11 W 0
0x08aad8…08ac6c Dummy {f00=0x002b, f01=0x0190, f02=» 0 p * & C P j !!!WP U00 P m ( * & &W 0) = b !Z/h U ! !Q < * & 9 !4 !03@ T 0% j %! !01 j * & W ! 0F ( ! 6 cv6 * & u C & 4 W 1W 2 * & 00 P " "Jh
0x08ac6c…08ae00 Dummy {f00=0x002b, f01=0x018e, f02=» 0* 00 O _U ~ "4 #4 $4 * & 3 : @ r Z < 9 j * & = 8 H = ~ * & [ P+-?T BATCHNUMBERRECORDCON * & y FIRM VALUESETSYMBOLIC: XTTTT9 * &
0x08ae00…08af94 (1, 175) Opaque[0x194]
0x08af94…08b128 # DirEnt {nam=»CDVASM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0580, f03=0x0000}
0x08af94…08b128 IdxSect {
0x08af94…08b128 f00 = 0x002c // 0x8af94 @0x0
0x08af94…08b128 f01 = 0x0004 // 0x8af96 @0x2
0x08af94…08b128 gno = [ // 0x8af98 @0x4
0x08af94…08b128 [0x00]: C0x002c.0x0.0
0x08af94…08b128 [0x01]: C0x002c.0x1.0
0x08af94…08b128 ]
0x08af94…08b128 }
0x08b128…08b2bc Dummy {f00=0x002c, f01=0x0190, f02=» P IDENT CDVASM P* P* $ P* BANKDATA APPLICATION . P* L P* V P* ` " P* CHECK CDV ON ITEM IN INPBUF j P EJECT P* P* USE OF REGISTERS P* REGISTER USE " P* A5 POINTER TO INPBUF (INDEX) P* A2 A
0x08b2bc…08b450 Dummy {f00=0x002c, f01=0x0190, f02=» FOR MULTIPLY & P* A7 LIMIT FOR DIGITSUM IN CDV-10 P* @ P* J P* T P* PARAMETERS FOR CDV ^ : P* AREA USE CONTENT AT CDVEL0 CDVEL1 CDVTEN | 6 P* A1 MAX FOR RESTART OF WEIGHT 10 10 2 6 P* A7 LIMIT FOR DIGIT
0x08b450…08b5e4 Dummy {f00=0x002c, f01=0x0190, f02=»11 11 10 l P* P* " P* CALLING SEQUENSE , P* N . P* CALL CDV0N,PARAM *CDV10 TEST X P* . P* CALL CDV1N,PARAM *CDV11 TEST P* 6 P* CALL CDV1S,PARAM *CDV11 TEST SPECIAL
0x08b5e4…08b778 Dummy {f00=0x002c, f01=0x0190, f02=»RY CDV0N P ENTRY CDV1N P ENTRY CDV1S $ P ENTRY CDVSUB 8 P ENTRY CHANFC N P EXTRN T:FDSP d P EXTRN I:EVA0 z P EXTRN I:RT1 P* 0 P* HERE IS JOINED COMMON PART OF ALL MODULES P* P NLIST P LIST P
0x08b778…08b90c Dummy {f00=0x002c, f01=0x0190, f02=»T CHECK VALUE FOR TOTAL P LDK A1,10 P LDK A7,10 4 P RF CDV20 F P* X P* b " PCDV1S LDK A5,1 FOR GOTABANKEN l * P ST A5,WBASE RESTART VALUE FOR WEIGHT P RB CDV10 P* P* PWBASE DATA 0 PWDIV DATA 0
0x08b90c…08baa0 Dummy {f00=0x002c, f01=0x018e, f02=» p P ST A5,WDIV P LDK A1,2 P LDK A7,4 . P* @ & PCDV20 CF A14,I:EVA0 GET PARAM ADDR J P LDK A2,1 t P SUK A5,1 P LDK A3,0 ZERO TO SUM P* PCDV30 LCR A4,A5 FETCH CHAR P ANK A4,/F MASK " P CWK A4,9 IS A
0x08baa0…08bc34 (1, 176) Dummy {f00=0x002c, f01=0x0190, f02=» x P SRL A4,4 SHIFT P ANK A4,/F MASK P CWK A4,9 ALL DONE ? 8 P RF(G) CDV40 YES T P CF A14,CDVSUB n P* P SUK A5,1 DECREMENT POINTER P RB CDV30 P* * PCDV40 LD A8,WDIV GET DIVIDEND FOR SUM P LDR A3,A3
0x08bc34…08bdc8 Dummy {f00=0x002c, f01=0x0190, f02=» > 0 z P RB(Z) CDV42 P SUKL A12,1 P CF A14,I:EVA0 4 P LCR A1,A9 J P ANK A1,/F P ADK A1,/D0 n P SCR A1,A9 0 P RB CDV42 GO FOR NEW MISSIONS IN CREDIT PART P EJECT P* 6 P* SUBROUTINE TO MULTIPLY AND ACCUMULATE
0x08bdc8…08bf5c Dummy {f00=0x002c, f01=0x0190, f02=»IT TO SUM x P SUK A6,1 DECREMENT COUNTER P RB(G) CDVS10 POS. 6 & P CWR A2,A1 IS MULTIPLY BY 2(10) ? P P RF(NE) CDVS30 NO z 4 P CWR A4,A7 SHALL THERE BE DIGIT SUM FO 10-MODULO P RF(NG) CDVS30 NO * P SUK A3,9 YES - SUBTRACT 9 F
0x08bf5c…08c0f0 Dummy {f00=0x002c, f01=0x4188, f02=»ASE WEIGHT ~ PCDVS40 RTN A14 P EJECT ( P* 6 P* CHANGE FILE CODE IN ECB @ P* CALL: d * P* CALL CHANFC,DATASET,FILECODE v P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BI
0x08c0f0…08c284 Dummy {f00=0x002c, f01=0x2008, f02=» HT ~ PCDVS40 RTN A14 P EJECT ( P* 6 P* CHANGE FILE CODE IN ECB @ P* CALL: d * P* CALL CHANFC,DATASET,FILECODE v P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS & P CF A14,I:EVA0 GET ADDRESS TO BI
0x08c284…08c418 Dummy {f00=0x002c, f01=0x4096, f02=» * F IDENT D:CB10 TRA 3.1 78-11-06 O111 D:CB10 2 D:CB10C D $ P X :C @ & y ( & & & &
0x08c418…08c5ac Dummy {f00=0x002c, f01=0x0190, f02=» * F IDENT C:CB10 TRA 3.1 78-11-06 O111 C:CB10 2 C:CB10C D & X & l & = | & [ & y & & & & & & -
0x08c5ac…08c740 Dummy {f00=0x002c, f01=0x0190, f02=» ; & Y & w & , & < & L & & l & + | & I & g & & & & & &
0x08c740…08c8d4 (1, 177) Opaque[0x194]
0x08c8d4…08ca68 # DirEnt {nam=»DE21ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0590, f03=0x0000}
0x08c8d4…08ca68 IdxSect {
0x08c8d4…08ca68 f00 = 0x002c // 0x8c8d4 @0x0
0x08c8d4…08ca68 f01 = 0x000a // 0x8c8d6 @0x2
0x08c8d4…08ca68 gno = [ // 0x8c8d8 @0x4
0x08c8d4…08ca68 [0x00]: C0x002c.0x2.0
0x08c8d4…08ca68 [0x01]: C0x002c.0x3.0
0x08c8d4…08ca68 [0x02]: C0x002d.0x0.0
0x08c8d4…08ca68 [0x03]: C0x002d.0x1.0
0x08c8d4…08ca68 [0x04]: C0x002d.0x2.0
0x08c8d4…08ca68 ]
0x08c8d4…08ca68 }
0x08ca68…08cbfc Dummy {f00=0x002c, f01=0x0190, f02=» $ P IDENT DE21ST REL 10.0 80-04-11 P 80-05-05/JAER , P* D P* FORMAT DEFINITION N , P* THIS PROGRAM CREATE FORMATS. p F P* USED VARIABLES : BOOL6 = F GENERAL FORMAT DEFINITION F P*
0x08cbfc…08cd90 Dummy {f00=0x002c, f01=0x0190, f02=» PRECCUR= LAST FIELDNR IN 'FORM.DEF.'-FORMAT z P* : P DDUM DEDDIV D P PDIV X P* f P ENTRY DE21ST p P* P ENTRY DEFGTC P* , P EXT PRFGUF PRINT USER FORMAT DEFINITION P EXT DERROR ERROR-MESSAGES & P EXT D
0x08cd90…08cf24 Dummy {f00=0x002c, f01=0x018e, f02=» r P* P EXT FLINK FORMAT LINKING & P EXT FCODE FORMAT CODE GENERATION 4 $ P EXT FMOVE FORMAT MOVE PROCEDURE ^ P EXT FEDIT FORMAT EDITING $ P EXT UPDBOL UPDATE BOOLEAN/WORD $ P EXT UPDBIN UPDATE WORD/BOOLEANS P EXT EMPTYT CHEC
0x08cf24…08d0b8 Dummy {f00=0x002c, f01=0x0190, f02=» d P EXT ATTPRT RESERVE PRINTER P EXT DETPRT RELEASE PRINTER , P* P P INCLUDE DEKEYS,LIST Z EJECT v * * KEYTABLES * P* PDEKTAB6 KTAB CLR,CAN,RET P* , PDEKTAB8 KTAB CLR,CAN,RET,ENT,COR,R
0x08d0b8…08d24c Dummy {f00=0x002c, f01=0x018e, f02=»ING THE PICTURE f P* PDE21ST PROC " P* 6 & P SET DEPROMPT T=PROMPTTEXT DISPLAY @ . P TBT BOOL7,DEFD00 JUMP IF CORRECTION MODE j P CLEAR DOOLA . P CBE BIN2,W2,DE22BF JUMP IF BALANCE FORMAT , P CLEAR BOOL6 INDICATE GENERAL FORMATDE
0x08d24c…08d3e0 Dummy {f00=0x002c, f01=0x0190, f02=» : P* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION 2 P* -ATTACH RESERVED WITH NEW DESCRIPTOR B 2 P* -ATTACH RESERVED BUFFER AS WORK-BLOCK x P* P* DB2 BLK 6 P* <ITEM> BIN X'200200
0x08d3e0…08d574 (1, 178) Dummy {f00=0x002c, f01=0x0190, f02=»* FORTAB STRG (2),80 X'8050001C00020000' 6 P* JOBSPC STRG 160 X'00A0001C' B F P* JOBSPC REDEFINES FORTAB(W2) | P* PDEFD00 , P MOVE BIN16,W0 NUMBER OF CONSEC BUFFERS
0x08d574…08d708 Dummy {f00=0x002c, f01=0x0190, f02=» z P PERF DERROR,DEKTAB6 P IB DEBINW2,DEFD00,DEFD00 $ P B RETEX F PDEFD10 V 4 P MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER d . P MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C P 20020000 C P 20020000 C P A0020004000C
0x08d708…08d89c Dummy {f00=0x002c, f01=0x0190, f02=»12 t " P CALL ATTWB,BPOOL(BIN4),W0,W12 PDEFDST 0 P PERF DEFDSC > ( P CBE DEBINW2,W4,KTOT JUMP IF TOT-KEY R P B RETERR ~ P EJECT PKTOT 4 P CBE RNRFMCH,W24,KTOT05 JUMP IF LAST BUFFER USED P MOVE BIN16,W188 " P SUB BIN16,W8
0x08d89c…08da30 Dummy {f00=0x002c, f01=0x0190, f02=» P CALL FMOVE,STRG10A,FDUM P MOVE BIN15,W7 WORK:=7 $ 6 P MATCH STRG10A,BIN15,W3,FDIR,W0,W1 1- OR 2-BYTE ? B > P XCOPY BPOOL(BIN3),BIN1,BIN15,STRG10A,W0 STORE DUMMY FIELD | * P ADD BIN1,BIN15 ADJUST BUFFERPOSITION PKTOT10 & P PERF FCODE,W1
0x08da30…08dbc4 Dummy {f00=0x002c, f01=0x0190, f02=»S V & P TBT BOOL6,KTOT12 JUMP IF BALANCE D P XCOPY RPOOL(PINDDB),W18,W1,PINDND,W1 STORE NUMB OF DESCBUFFERS 4 * P ADD BIN10,W1 ADJUST NUMB OF FIELDS F0 | : P XCOPY BPOOL(PINDDB),W2,W2,BIN10,W0 STORE DESC-LENGTH P NUMBER OF FIELDS P ADD
0x08dbc4…08dd58 Dummy {f00=0x002c, f01=0x0190, f02=»L7,KTOT18 JUMP IF NOT CORR-MODE PKTOT14 ( " P PERF DEDISC,W13 DELETE FORMAT 6 P BOK KTOT16 P PERF DERROR,DEKTAB6 p $ P SUB DEBINW2,W1 ADJUST KEY-INDEX P IB DEBINW2,RETERR,RETERR P B KTOT14 PKTOT16 8 P PERF DEPOOL,W6,PI
0x08dd58…08deec Dummy {f00=0x002c, f01=0x0190, f02=»T20 & P PERF DERROR,DEKTAB6 DISPLAY ERROR $ P SUB DEBINW2,W1 ADJUST KEY-INDEX 6 P TBT SW95PR,KTOT20 ^ P IB DEBINW2,KTOT19,KTOT19 x * P CBE DEBINW4,W10,KTOT18 NO DISK SPACE PKTOT19 P B RETUR PKTOT20 8 P PERF DEPOOL,W6,PIND
0x08deec…08e080 Dummy {f00=0x002c, f01=0x0190, f02=» GET FORMAT P BOK KTOT30 P PERF DERROR,DEKTAB6 ( $ P SUB DEBINW2,W1 ADJUST KEY-INDEX D P IB DEBINW2,RETERR,RETERR l P B KTOT25 PKTOT30 . P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A LOCK P BOK KTOT35 & P PERF DERROR,DEKTAB6
0x08e080…08e214 (1, 179) Dummy {f00=0x002d, f01=0x0190, f02=»DISC,W13 DELETE FORMAT P BOK KTOT40 P PERF DERROR,DEKTAB6 2 $ P SUB DEBINW2,W1 ADJUST KEY-INDEX N P IB DEBINW2,RETERR,RETERR v P B KTOT35 PKTOT40 P MOVE DEBINW4,PINDFR < P PERF DEPOOL,W11,DEBINW4,BIN16,STRG10A UNLINK FORMCH
0x08e214…08e3a8 Dummy {f00=0x002d, f01=0x0190, f02=»MNO,FLIND(W1) LOAD FORMATBUFFER-POINTER . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT 0 P PERF FEDIT FORMAT EDITING b P DISPLAY 0,W1,W0 & P SET DEPROMPT T=PROMPTTEXT DISPLAY , P TBT BOOL6,KTOT70 JUMP IF BALANCE FORMAT P MOVE DEBINW3,W1
0x08e3a8…08e53c Dummy {f00=0x002d, f01=0x0190, f02=»S z , P SET DBOACC INDICATE ACCFIELDS IN FORMAT PKTOT60 : P MOVE DEBINW3,W1 H P MOVE DEBINW4,W0 ` 4 P GETFLD 4,DEBINW3,DEBINW4 CHECK IF VERIFY-FIELDS x P BP KTOT65 NO VERIFY-FIELDS P BN KTOT65 NO VERIFY-FIELDS ( P SET DBOMVR INDI
0x08e53c…08e6d0 Dummy {f00=0x002d, f01=0x0190, f02=»ATUS ^ PKTOT70 ( P XCOPY FORMAT,W0,W6,RPOOL(PINDFR),W1 < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS F ( P PERF DEDISC,W9 STORE FORMAT ON DISC P BOK KTOT75 JUMP IF OK & P PERF DERROR,DEKTAB6 DISPLAY ERROR $ P SUB DEBINW2,W
0x08e6d0…08e864 Dummy {f00=0x002d, f01=0x0190, f02=»71 P B RETERR PKTOT75 2 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. * P MOVE DEBINW3,W0 ` P GETFLD 0,DEBINW3,DEBINW4 x . P TBT BOOL6,KTOT78 NO WARNING WHEN BALANCE ( P SUB BIN10,W1 ADJUST FOR DUMMY FIELD 8 P CBNG WORK(W6),B
0x08e864…08e9f8 Dummy {f00=0x002d, f01=0x018e, f02=» P MOVE DEBINW4,=W'39' WARNING P PERF DERROR,DEKTAB6 ( PKTOT78 D < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS R . P TBF DOOLA,KTOT79 F=CORR FROM THIS PROGRAM " P TBT BOOL7,RETUR JUMP IF CORR PKTOT79 P MOVE DEBINW4,=W
0x08e9f8…08eb8c Dummy {f00=0x002d, f01=0x0190, f02=» , P RETUR,KTOT95,KTOT90,KTOT80 ENT,COR,RDL P B RETUR JUMP ON CLEAR-KEY 4 PKTOT80 V P* PRT PRESSED d 2 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCR. z . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT P PERF FEDIT FORMAT EDITING P PER
0x08eb8c…08ed20 Dummy {f00=0x002d, f01=0x0190, f02=»T DEFINITION x P PERF DETPRT RELEASE PRINTER < P CALL RESTOR,W0,W2,PWBDB4 RESTOR ORIGINAL DESC.-POINTERS 8 P B KTOT78 x PKTOT90 RDEL-KEY P MOVE DEBINW4,W17 0 P PERF DERROR,DEKTAB9 'PRESS ENT TO CONFIRM' $ P SUB DEBINW2,W1 ADJUST
0x08ed20…08eeb4 (1, 180) Dummy {f00=0x002d, f01=0x0190, f02=»NW2,W0 P BOK RETUR P PERF DERROR,DEKTAB6 $ P SUB DEBINW1,W1 ADJUST KEY-INDEX < P IB DEBINW2,RETUR,RETUR d P B KTOT90 JUMP ON CLEAR-KEY PKTOT95 COR-KEY P SET BOOL7 , P MOVE PINDCB,FLIND(W1) LOAD BUFFERINDEX * P MOVE
0x08eeb4…08f048 Dummy {f00=0x002d, f01=0x0190, f02=»,W1,RPOOL(PINDFR),W17 SAVE NUMB POOLS ~ B P XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS . 0 P SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS t P B DEFDST P EJECT P* D P* ERROR IN FORMAT GENEREATION OR STOPPED BY KEYP
0x08f048…08f1dc Dummy {f00=0x002d, f01=0x0190, f02=» IF NEW FORMAT , P MOVE PINDFR,PINDDB CHANGE BUFFERPOINTER 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS F P B RETCH PRETUR 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P CLEAR BOOL7 P BZ RETEX JUMP IF NEW RE
0x08f1dc…08f370 Dummy {f00=0x002d, f01=0x0190, f02=»,W10 PRETEX 0 P CBG DEBINW2,W1,REXIT JUMP IF NOT CANCEL-KEY " P TBT DOOLA,REXIT JUMP IF CORR N P B DEFDST JUMP ON CANCEL-KEY t PREXIT 0 P MOVE BIN4,WORK(W5) RESTORE WORKBUFFERINDEX : P PERF DEPOOL,W6,BIN4,BIN16,STRG10A RELEASE WOR
0x08f370…08f504 Dummy {f00=0x002d, f01=0x0190, f02=» l ( P FNR5,FPS1,FPS1,FPS1,FPS1,FPS1, C P FPS1,FPS1,FPS1,FPS1 4 P B DETC97 NO TAB R P* j P* FIELD 1 FORMAT NAME t P* PFNR1 & P CBE DEBINW2,W7,F2BTB JUMP IF BTB & P CBE DEBINW2,W8,F1HOM JUMP IF HOM P B DET
0x08f504…08f698 Dummy {f00=0x002d, f01=0x0190, f02=»HOME ALLOWED FIELD NOT CONFIRMED WITHIN LINE P* 4 PF1A > , P TBT DOOL2,F1B JUMP IF ALREADY DEL ONCE J , P MOVE FMTWK(W8),BIN3 SAVE CURR BUFFERIND z 6 P MOVE BIN3,FMTWK(W7) REESTORE LAST LINE'S BUFFIND P SET DOOL2 T=LINE DELETED * P T
0x08f698…08f82c Dummy {f00=0x002d, f01=0x0190, f02=»POINT f & P TBF BOOL1,DETC99 HOME TO FIELD 1 2 P CBE DEBINW4,W3,DETC99 JUMP FIELD ALREADY = 3 8 P MOVE DEBINW4,W3 n P B DETC92 P* ( P* PRE SELECTION FIELD 2,3,6-15 P* PFPS1 & P CBE DEBINW2,W3,DETC99 JUMP IF EOI
0x08f82c…08f9c0 Dummy {f00=0x002d, f01=0x0190, f02=»ETC99,F3Z,DETC99, FIELD 5-8 C 0 P DETC99,DETC99,DETC99,DETC99, FIELD 9-12 C & P F3Z Z P B DETC97 h PF2BTB z & P TBF BOOL1,DETC99 NO FIELDS TAB OK . P MOVE DEBINW4,W3 FIELD 3 NO TAB => 'PEEP' P B DETC90 P* P*
0x08f9c0…08fb54 (1, 181) Dummy {f00=0x002d, f01=0x0190, f02=»4 KEYED INPUT FIELD P* PFNR4 & & P CBE DEBINW2,W3,F4EOI JUMP IF EOI 2 & P CBE DEBINW2,W6,F4PLS JUMP IF PLS & P CBE DEBINW2,W7,DETC99 JUMP IF BTB P B DETC97 TAB NOK PF4EOI PF4PLS P MOVE BIN5,W0 $ P PERF MTEXT
0x08fb54…08fce8 Dummy {f00=0x002d, f01=0x0190, f02=»TBFWD OK FIELD 4 ~ ( P TBT DOOL5,DETC99 JUMP IF CORR LINE & P MOVE DEBINW4,PRECCUR LAST FIELDNR D P B DETC92 TAB NOT ALLOWED n P* : P* CHECK IF ACC-FIELD EMPTY WHEN BALANCE FORMAT P* PFNR5 * P TBF BOOL6,DETC99 JUMP IF
0x08fce8…08fe7c Dummy {f00=0x002d, f01=0x0190, f02=»ETC99 ACCFIELD NOT EMPTY OK & PDETC84 FIELD 4 NO TAB => 'PEEP' $ P MOVE DEBINW4,W4 N PDETC90 f P GETFLD 0,DEBINW4,DEBINW3 t PDETC97 P MOVE DEBINW2,W0 OK PDETC98 $ P MOVE DEBINW3,W2 TAB NOT ALLOWED P B DETCRT P
0x08fe7c…090010 Dummy {f00=0x002d, f01=0x40fe, f02=» P RET ! P PEND ! P EJECT ! P* ! , 8 P* DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD ! 6 & P* IN EVERY GENERATED FORMAT ! r P* ! PFDUM FRMT ! P FKI 1,ALPHA ! P FCOPY HEX00 ! P FMEND ! P END ! @ ! T P
0x090010…0901a4 Dummy {f00=0x002d, f01=0x2008, f02=» " ,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS P TBT BOOL7,RETCH 8 PRETEX P RET ^ P PEND j P EJECT x P* 8 P* DUMMY FORMAT TO BE GENERATED AS DUMMY-FIELD & P* IN EVERY GENERATED FORMAT P* PFDUM FRM
0x0901a4…090338 Dummy {f00=0x002d, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , /hZ !PDj !! 0 (P 00 !_<( 4 !, z 5h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P &
0x090338…0904cc Dummy {f00=0x002d, f01=0x0190, f02=» U j , 1 : ` A g A P n d K : ? - D H + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x0904cc…090660 Dummy {f00=0x002d, f01=0x0190, f02=» V o ~ J N R@ 2 A ! ~U ! 7& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 4 ? jy " $ j !! 1 j !!
0x090660…0907f4 (1, 182) Opaque[0x194]
0x0907f4…090988 # DirEnt {nam=»DE12ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05b8, f03=0x0000}
0x0907f4…090988 IdxSect {
0x0907f4…090988 f00 = 0x002d // 0x907f4 @0x0
0x0907f4…090988 f01 = 0x0004 // 0x907f6 @0x2
0x0907f4…090988 gno = [ // 0x907f8 @0x4
0x0907f4…090988 [0x00]: C0x002d.0x3.0
0x0907f4…090988 [0x01]: C0x002e.0x0.0
0x0907f4…090988 ]
0x0907f4…090988 }
0x090988…090b1c Dummy {f00=0x002d, f01=0x0190, f02=» $ P IDENT DE12ST REL 10.0 80-04-11 P 79-12-14/LABJ , P**************** D P* * P* VALUE SETS * t P* * P**************** 2 P********************************************* 2 P* BOOL1 : T=GET V-S
0x090b1c…090cb0 Dummy {f00=0x002d, f01=0x0190, f02=» 2 P********************************************* * P* BIN1 WORKITEM * : * P* BIN2 NO. OF ELEM.IN THIS RECORD * h * P* BIN3 SIZE OF ELEMENT * * P* BIN4 FIRST EL.NO. IN RECORD * * P* BIN5 LAST - "
0x090cb0…090e44 Dummy {f00=0x002d, f01=0x0190, f02=» * | * P* BIN10 X'8000' / X'B000' ,A/N * * P************************************* H DDUM DEDDIV v PDIV ENTRY DE12ST P ENTRY WRIT12 P ENTRY CANC11 P ENTRY CANC12 P ENTRY A20 P*
0x090e44…090fd8 Dummy {f00=0x002d, f01=0x0190, f02=» EXT DEPOOL EJECT PDE12ST PROC " P MOVE TABLE,=X'5400' 6 P ATTFMT VSET R P SET BOOL1 GET f & P CBE BIN2,W3,A10 JUMP IF PRNUM=13 | P CLEAR BOOL1 ENTER PA10 P MOVE PINDTB,W0 P SET DEPROMPT P CLEAR DECHANG
0x090fd8…09116c Dummy {f00=0x002d, f01=0x018e, f02=» PA20 , P CBE DEBINW2,W0,CANC11 CLR-KEY ON ERROR $ P IB DEBINW2,CANC12,CANC12,ENT12 @ P MOVE DEBINW4,W0 'BELL' h P PERF DERR P B A20 PCANC11 P MOVE DEBINW2,W1 PCANC12 < P CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESC
0x09116c…091300 Dummy {f00=0x002d, f01=0x0190, f02=» PRETUR RET P PEND P EJECT $ PWRIT12 PROC 2 < P XCOPY RPOOL(PINDTB),W17,W1,BIN4,W1 1:ST EL.NO. IN REC. F P MOVE BIN5,ELMNO P SUB BIN5,W1 4 P XCOPY RPOOL(PINDTB),W18,W1,BIN5,W1 LAST - " - P MOVE BIN8,=W'26' & P PER
0x091300…091494 (1, 183) Dummy {f00=0x002e, f01=0x0190, f02=»IN5,BIN2 P SUB BIN5,W1 LAST - " - P CMP W0,W0 2 PWR10 D P RET P P PEND EJECT j * P************************************** x * P* APPL-ROUTINES IN MODULE : DE10ST * * P************************************** $ P******
0x091494…091628 Dummy {f00=0x002e, f01=0x0190, f02=» * x $ P******************************* PVSET FRMT 8 P FSL J P FMEL '99',PRNUM V P FBT BOOL1,F13 n P FCOPY =C' CREATE' P FB F12A PF13 FCOPY =C' GET' PF12A FCOPY =C' VALUE-SETS' P FNL P FCOPY =C'NAME: T'
0x091628…0917bc Dummy {f00=0x002e, f01=0x018e, f02=»LR,NEOI,APPL=101 r P FCOPY STR6A P FB F12UT , PF12C > P FLINK F121 J PF12UT FMEND ^ P* r PF121 FRMT | P FNL P FCOPY =C'TYPE:' P FBT BOOL3,F121A P FBF BOOL1,F124 IF CREATE PF121A P FINP 7
0x0917bc…091950 Dummy {f00=0x002e, f01=0x0190, f02=» P FTAB 10 P FCOPY =C'SIZE OF ' P FCOPY =C'ELEMENT' 4 P FCOPY =C'S:' N P FBT BOOL3,F125A d P FBF BOOL1,F127 IF CREATE | PF125A P FINP 28 P FMEL 'XX',TIME P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NE
0x091950…091ae4 Dummy {f00=0x002e, f01=0x40ba, f02=» FBF BOOL3,FEND IF LINE 1-3 P FINP 13 ENTER $ P FMEL 'XX',ACK(W1) : P FNL T P* FLINK STR64A ` P FCTL X'DE',STR64A v PFEND P FMEND END @ P FMEL 'XX',TIME P FB F128 PF127 : P FKI 28,MINL=1,MAXL=2,NE
0x091ae4…091c78 Dummy {f00=0x002e, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x091c78…091e0c Dummy {f00=0x002e, f01=0x0190, f02=»#4 @ 0C P j !!!WP U00 P m ( &W 0) = b !Z/h U ! !Q !4 !03@ T 0% j %! !01 ! 0F ( ! 6 cv6 C & 4 W 1W 200 P " "Jh !U !TA00 T h ! !T006 _ A 00 T f !0% 0301 _ 0 0 (P h ! !P 11 _ 11 !00 X 0
0x091e0c…091fa0 Dummy {f00=0x002e, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 < . . 9 DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION : FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x091fa0…092134 (1, 184) Opaque[0x194]
0x092134…0922c8 # DirEnt {nam=»DE15ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05c8, f03=0x0000}
0x092134…0922c8 IdxSect {
0x092134…0922c8 f00 = 0x002e // 0x92134 @0x0
0x092134…0922c8 f01 = 0x0004 // 0x92136 @0x2
0x092134…0922c8 gno = [ // 0x92138 @0x4
0x092134…0922c8 [0x00]: C0x002e.0x1.0
0x092134…0922c8 [0x01]: C0x002e.0x2.0
0x092134…0922c8 ]
0x092134…0922c8 }
0x0922c8…09245c Dummy {f00=0x002e, f01=0x0190, f02=» $ P IDENT DE15ST REL 10.0 80-04-11 P 79-12-02/LABJ , P**************** D P* FILE SPACE * P**************** t DDUM DEDDIV PDIV P ENTRY DE15ST P EXT DECLRN P EXT ATTWB P EXT DEPOOL P EXT OPCL
0x09245c…0925f0 Dummy {f00=0x002e, f01=0x0190, f02=» n P BOK C00 PC01 P PERF DERR $ P IB DEBINW2,DE15,RETUR 6 P B C01 T PC00 b $ P CALL ATTWB,BPOOL(PINDTB),W0,W11 n P ATTFMT F15 P ERASE 3,W1,W0 ONLY ITEMS PC05 6 P MOVE FDVBCD(W1),FRINF(W1) NO. OF REC. SYSTEMFIL
0x0925f0…092784 Dummy {f00=0x002e, f01=0x0190, f02=»IV BCDI21(W1),FDVBCD(W1) % P MOVE FDVBCD(W3),BCDI21(W1) " P SET DEPROMPT F PC10 P CLEAR DECHANGE h P PERF DECLRN PC15 P IB DEBINW2,C20,RETUR,E10 P MOVE DEBINW4,W0 P PERF DERR P B C15 PC20 P E
0x092784…092918 Dummy {f00=0x002e, f01=0x0190, f02=» PERR1 P PERF DERR P IB DEBINW2,C10,RETUR,E11 & P MOVE DEBINW2,W0 H P B ERR1 ` PE12 p P THOME | P PERF DERR P IB DEBINW2,E15,RETUR,E40 PE15 P MOVE DEBINW4,W0 P B E12 PE40 : P MOVE FDVBCD
0x092918…092aac Dummy {f00=0x002e, f01=0x0190, f02=»0' z ( P MOVE BCDI21(W2),FNOOFREC(FILINDUS) $ P MUL BCDI21(W1),BCDI21(W2) FREE 6 P DIV BCDI21(W1),FDVBCD(W4) % ^ P MOVE FDVBCD(W6),BCDI21(W1) P MOVE FDVBCD(W5),BIN1 P* PE50 P DISPLAY 3,W6,W0 FINP-FIELDS P PERF OPCL
0x092aac…092c40 Dummy {f00=0x002e, f01=0x0190, f02=»R P * P PERF DEPOOL,W6,PINDTB,PINDTB,STRG10A P PERF OPCL,W4 @ P RET V PEND b P EJECT p PF15 FRMT ~ P FSL P FCOPY =C'15 FILE SPACE' P FNL P FCOPY =C'USERFILE UNIT' P FTEXT ':U' ( P FKI 16,MINL=1
0x092c40…092dd4 (1, 185) Dummy {f00=0x002e, f01=0x0190, f02=» P FNL P FCOPY =C'FILE' P FTAB 19 ( P FCOPY =C'SIZE' 8 P FTAB 29 P P FCOPY =C'FREE %' ` P FNL | P FCOPY =C'SYSTEMFILE' P FINP 18 " P FMEL 'ZZZZ9',FDVBCD(W1) SIZE P FINP 28 2 P FMEL 'ZZZZ9',FDVBCD(W2) FRE
0x092dd4…092f68 Dummy {f00=0x002e, f01=0x40fa, f02=» FMEL 'ZZZZ9',FDVBCD(W4) SIZE P FINP 28 & 0 P FMEL 'ZZZZ9',FDVBCD(W5) FREE REC. USERFILE 6 P FINP 35 j " P FMEL 'ZZ9',FDVBCD(W6) % FREE z P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND END @ FDVBCD(W2) FRE
0x092f68…0930fc Dummy {f00=0x002e, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0930fc…093290 Dummy {f00=0x002e, f01=0x0190, f02=»h _ @ !^A _DA ( ~ * & .He @h u!Kh ( ! u! * & ) du d ! _3 $? $? @l 4 J * & G H KAd6 @d !0. 0/ R40 x * & e ; ! T&Hl 0. 0/ @l0" T W * & 0Al0. 0/ X/ "_B 4 ! * &
0x093290…093424 Dummy {f00=0x002e, f01=0x0190, f02=» A !@( "90! !T2@e@i@k !" ? * & 'hZ 2 !TS &6 * * & 7 " _ Ai_8Ae_<" y 4 X * & U WsAkW !j !! ( ~ * & s !~W)j !! F 10 U !b * & ! ! Hi b ! !P Ie I
0x093424…0935b8 Dummy {f00=0x002e, f01=0x018e, f02=»40 l * & < 4 0<" 4 0=" 4 4 4 4 4 4 4 0 * & ' > 4 0? 4 0@ 4 4 4 4 !Hy 0 8 * & E "Hz 0 34 U f * & c j ! !0 P b ![ ! ! ( 4 j * & " " * &
0x0935b8…09374c Dummy {f00=0x002e, f01=0x4144, f02=» * & & * & 1 I 1 = T * & O ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x09374c…0938e0 Dummy {f00=0x002e, f01=0x4014, f02=» HNOD @ * & t * & 1 I 1 = H DENVAL v * & O @ v ] $ ? * & m FMDA 1 $ 0 0 0 z h
0x0938e0…093a74 (1, 186) Opaque[0x194]
0x093a74…093c08 # DirEnt {nam=»DE23ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05d8, f03=0x0000}
0x093a74…093c08 IdxSect {
0x093a74…093c08 f00 = 0x002e // 0x93a74 @0x0
0x093a74…093c08 f01 = 0x0008 // 0x93a76 @0x2
0x093a74…093c08 gno = [ // 0x93a78 @0x4
0x093a74…093c08 [0x00]: C0x002e.0x3.0
0x093a74…093c08 [0x01]: C0x002f.0x0.0
0x093a74…093c08 [0x02]: C0x002f.0x1.0
0x093a74…093c08 [0x03]: C0x002f.0x2.0
0x093a74…093c08 ]
0x093a74…093c08 }
0x093c08…093d9c Dummy {f00=0x002e, f01=0x018e, f02=» $ P IDENT DE23ST REL 10.0 80-04-11 P 80-05-05/JAER , P* D P* GET FORMAT N 2 P* THIS FORMAT PROCESS FOLLOWING FUNTIONS h 4 P* - SEARCH AND DISPLAY FORMAT 'RFW','RBW' , P* - PRINT HARDCOPY OF FORMAT 'PRT' , P*
0x093d9c…093f30 Dummy {f00=0x002e, f01=0x0190, f02=» f P* L P************************************************************************ DDUM DEDDIV b PDIV v P ENTRY DE23ST P* $ P EXT DEAPPL APPLE VALUE HANDLING P EXT DECLRA P EXT DERR P EXT DEDISC DISC-ROUTI
0x093f30…0940c4 Dummy {f00=0x002e, f01=0x0190, f02=»NPF UNPACK NEXT FIELD P EXT DEUNPL UNPACK NEXT LINE ( P EXT PRFGUF PRINT FORMAT DEFINITION B P EXT FEDIT n ( P EXT ATTDB ATTACH FORMAT-DESCRIPTOR P EXT ATTWB ATTACH WORKBLOCK * P EXT RESTOR RESTORE ORIG.-DESC-POINTER ( P EXT DEPOO
0x0940c4…094258 Dummy {f00=0x002e, f01=0x0190, f02=»JECT * * KEYTABLES * 0 P* : PDEKTAB6 KTAB CLR,CAN,RET D P* d PDEKTAB7 KTAB CLR,CAN,RET,ENT n P* ( PDEKTAB8 KTAB CLR,CAN,RET,RFW,RBW, C P COR,RDL,STS,PRT P* $ PDEKTAB9 KTAB CLR,CAN,RET,RFW
0x094258…0943ec Dummy {f00=0x002e, f01=0x0190, f02=»POINTER b P MOVE PINDFR,W0 P ATTFMT F23GF ( $ P SET DEPROMPT PROMTTEXT-DISPLAY > PDE23CA f P CLEAR DOOL3 t " P PERF DECLRA DATA-ENTRY-SCREEN & P SET DEPROMPT T=PROMPTTEXT DISPLAY PDE23ER . P IB DEBINW2,CANCEL,RETUR,ENTER,FOR
0x0943ec…094580 Dummy {f00=0x002e, f01=0x0190, f02=»BDB4 RESTOR ORIG.-DESC.-POINTER z P CLEAR DEPROMPT ( P B DE23CA @ PERROR R P PERF DERROR,DEKTAB6 ` P IB DEBINW2,ENT20,DEL30 | P B RETUR P EJECT PENTER P SET BOOL4 " P CLEAR BOOL6 F=GENERAL FORMAT P XCOPY S
0x094580…094714 (1, 187) Dummy {f00=0x002f, f01=0x0190, f02=»NCE FORMAT ~ PENT05 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 ATTACH DESCRIPTOR PENT08 Z 4 P MOVE ELMNO,FLIND(W1) STORE FORMATBUFFER-POINTER h . P ATTFMT BPOOL(ELMNO) ATTACH DEFINED FORMAT P PERF FEDIT FORMAT EDITING P SET DEPROMPT
0x094714…0948a8 Dummy {f00=0x002f, f01=0x0190, f02=»N LAST FIELD j PENT20 P MOVE DEBINW4,=W'31' " , P PERF DERROR,DEKTAB8 'MAKE YOUR CHOICE' > , P IB DEBINW2,ENT20,DEL30,RELRET,FORW, C n & P BACKW,DELCOR,DELCOR,STS10,PRT10 P B ERROR P EJECT P* 4 P* GET NEXT/PREVIO
0x0948a8…094a3c Dummy {f00=0x002f, f01=0x018e, f02=»NW1,W32 LOAD FUNC-CODE = 32 PNEPR $ 2 P PERF DEDISC,DEBINW1 GET NEXT/PREVIOUS FORMAT 0 P BOK ENTER f $ P CBE DEBINW4,W24,NEPRIU IN USE ? x PNEPRER P PERF DERROR,DEKTAB6 $ P IB DEBINW2,NEPRCL,DEL30,RELRET PNEPRCL P TBF BOO
0x094a3c…094bd0 Dummy {f00=0x002f, f01=0x018e, f02=» . P IB DEBINW2,NEPRCL,DEL30,RETUR,FORW,BACKW P B ERROR 6 P EJECT F P* T 8 P* DELETION AND CORRECTION PRE-INITIALIZATION ^ $ P* LOCK FORMAT IN BUFFERS P* PDELCOR 4 P PERF DEPOOL,W8,PINDFR,BIN16,STRG10A FORMAT LO
0x094bd0…094d64 Dummy {f00=0x002f, f01=0x0190, f02=» P* P* DELETION P* & P MOVE DEBINW4,W17 LOAD 17 0 2 P PERF DERROR,DEKTAB7 'PRESS ENTER TO CONFIRM' R " P IB DEBINW2,ENT20,ENT20,DEL30 PDEL20 * P PERF DEDISC,W13 DELETE FORMAT ON DISC P BOK DEL30 JUMP IF OK P
0x094d64…094ef8 Dummy {f00=0x002f, f01=0x0190, f02=»0A RELEASE BUFFERS n PDEL40 P B DEST23 ( P EJECT : P* H P* CORRECTION R P* n 4 P* BOOL7 = T INDICATE CORR-MODE x 2 P* DOOLA = T INDICATE CORR-MODE P* PCOR10 : P CALL REST
0x094ef8…09508c Dummy {f00=0x002f, f01=0x018e, f02=» LOAD BUFFERINDEX z & P MOVE CURSEC,W0 LOAD BUFFERPOINTER P* D ( P* RELEASE DESCRIPTOR BUFFERS N P* z P MOVE DEBINW3,W0 WORK:=0 , P MOVE DEBINW2,W0 NUMB OF DESC.BUFFERS:=0 P MOVE WORK(W3),W0 WORK:=0 ( P MOVE WORK(W4),W0
0x09508c…095220 Dummy {f00=0x002f, f01=0x0190, f02=» B P XCOPY WORK(W3),W1,W1,RPOOL(PINDFR),W18 SAVE NUMB DESC BUFFERS 0 P SUB WORK(W4),WORK(W3) ADJUST NUMB OF FPOOLS J PCOR20 ~ < P XCOPY DEBINW3,W1,W1,RPOOL(PINDFR),W8 LOAD LINK TO NEXT : P XCOPY DEINPUT,W0,W7,RPOOL(PINDFR),W0 SAVE TYPE & NAME $
0x095220…0953b4 (1, 188) Dummy {f00=0x002f, f01=0x0190, f02=» 0 P ADD DEBINW2,W1 NUMB OF REL. DESC.BUFFERS+1 4 P CBE WORK(W3),DEBINW2,COR25 JUMP IF ALL RELEASED 8 P B COR20 GO ON p PCOR25 > P XCOPY RPOOL(PINDFR),W0,W7,DEINPUT,W0 RESTORE TYPE & NAME PCOR30 P PERF DE21ST P CLEAR BOOL7 F=N
0x0953b4…095548 Dummy {f00=0x002f, f01=0x0190, f02=»T-KEY p P INV DEPROMPT 2 P CBE PINDFR,W0,DEL40 JUMP IF NO CURRENT FORMAT $ P B ENTER Z P EJECT j P* x P* PRINT STATUS LINE P* PSTS10 " P PERF DESTAT LOAD STATUS-LINE P MOVE DEBINW4,W19 P B ERROR
0x095548…0956dc Dummy {f00=0x002f, f01=0x0190, f02=» P* : P* RESERVE ONE WORK-BUFFER FOR FORMAT GENERATION 2 P* -ATTACH RESERVED WITH NEW DESCRIPTOR L 2 P* -ATTACH RESERVED BUFFER AS WORK-BLOCK P* P* DB2 BLK 6 P* <ITEM> BIN
0x0956dc…095870 Dummy {f00=0x002f, f01=0x0190, f02=»' X > P* FORTAB STRG (2),80 X'8050001C00020000' 6 P* JOBSPC STRG 160 X'00A0001C' L F P* JOBSPC REDEFINES FORTAB(W2) P* P CLEAR DEPROMPT , P MOVE BIN16,W0 NUMBER
0x095870…095a04 Dummy {f00=0x002f, f01=0x0190, f02=»OK PRT20 0 P PERF DERROR,DEKTAB6 ERROR-MESSAGE IF NOT OK P B PRT40 D PPRT20 T 4 P MOVE WORK(W5),BIN4 SAVE POINTER TO WORK BUFFER b . P MOVE BPOOL(BIN4),=X' MOVE IN DESCRIPTOR C P 20020000 C P 20020000 C P A0020004000C00
0x095a04…095b98 Dummy {f00=0x002f, f01=0x0190, f02=» r " P CALL ATTWB,BPOOL(BIN4),W0,W12 P PERF ATTPRT RESERVE PRINTER . P BNOK PRT30 R " P PERF PRFGUF PRINT USER FORMAT f P PERF DETPRT RELEASE PRINTER P B PRT35 PPRT30 0 P PERF DERROR,DEKTAB6 ERROR MESSAGE IF NOT OK PPRT35
0x095b98…095d2c Dummy {f00=0x002f, f01=0x0190, f02=»8,W4,PWBDB4 RESTOR ORIG.-DESC.-POINTER PPRT40 . 8 P IB DEBINW2,ENTER,DEL30,RELRET JUMP DEP ON KEY-INDEX < P B ENTER x P EJECT PRELRET 8 P PERF DEPOOL,W6,PINDFR,BIN16,STRG10A RELEASE BUFFERS PRETUR : P CALL RESTOR,W0,W16,PWBDB4
0x095d2c…095ec0 Dummy {f00=0x002f, f01=0x40b6, f02=» ='FORMAT' P FNL P FCOPY ='FORMAT' P FILLR ':',1 6 4 P FKI 9,APPL=104,MINL=1,MAXL=6,ALPHA,NEOI,ME,NCLR J P FCOPY FORMAT P FMEND END @ NDFR,BIN16,STRG10A RELEASE BUFFERS PRETUR : P CALL RESTOR,W0,W16,PWBDB4
0x095ec0…096054 (1, 189) Dummy {f00=0x002f, f01=0x2008, f02=»
0x096054…0961e8 Dummy {f00=0x002f, f01=0x0190, f02=»T ( * 2 ( )g= " '"( g " #> $T # '#( _ Ub & 5 + *P ( - { &{ 1 !0 ! 04 mU_" m 509 {&* p!0 $ '$( 10 $} | @ 0 2TC 6 ( B? 0 $} / T l $_ " 2 2 2 ' @z 7 ^ &{ &z 0 0} | @ 0 2
0x0961e8…09637c Dummy {f00=0x002f, f01=0x0190, f02=» P)W*1( T !05 T W W W 6 W 1W 4 Z E 5 b F " P " : h " + $ " TOVIAFILENAMEUNITBATCHVOLUMEDEVICE DATA COMMCONVERSIONOTHE
0x09637c…096510 Dummy {f00=0x002f, f01=0x0190, f02=» 6 :U i 8 : 1 * NUMBER: g 70 ; ( h d 9 : e # 4 - 5 : @ $ FETCHING FORMAT: FROM DISC. @ U " ) 2 <0 G0 H & 5 E U g
0x096510…0966a4 Dummy {f00=0x002f, f01=0x0190, f02=» F : > B !1( P Q /U80 88 R*j !! oU 10 !jo! 2jo " 1( W % 0 "1( H 0&W 1( !0' ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o3 o0# 0 6 4 Am4 0# 0 4 3 8 ? +1 BATCH IN U
0x0966a4…096838 Dummy {f00=0x002f, f01=0x0190, f02=»OT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLEGAL VALUE INVALID NUMBER CHANGE CASSETTE NO RECORD FOUND UNDEFINED ERROR TEST ENTERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE 4 : l IN : k 5 DISC I/O-ERROR : ILLEGAL
0x096838…0969cc Dummy {f00=0x002f, f01=0x0190, f02=»OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFILE ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEED
0x0969cc…096b60 Dummy {f00=0x002f, f01=0x0190, f02=»ERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES " : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : : z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION
0x096b60…096cf4 (1, 190) Opaque[0x194]
0x096cf4…096e88 # DirEnt {nam=»DEGENE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x05f8, f03=0x0000}
0x096cf4…096e88 IdxSect {
0x096cf4…096e88 f00 = 0x002f // 0x96cf4 @0x0
0x096cf4…096e88 f01 = 0x000a // 0x96cf6 @0x2
0x096cf4…096e88 gno = [ // 0x96cf8 @0x4
0x096cf4…096e88 [0x00]: C0x002f.0x3.0
0x096cf4…096e88 [0x01]: C0x0030.0x0.0
0x096cf4…096e88 [0x02]: C0x0030.0x1.0
0x096cf4…096e88 [0x03]: C0x0030.0x2.0
0x096cf4…096e88 [0x04]: C0x0030.0x3.0
0x096cf4…096e88 ]
0x096cf4…096e88 }
0x096e88…09701c Dummy {f00=0x002f, f01=0x0190, f02=» $ P IDENT DEGENE REL 10.0 80-04-11 P 80-04-10/DALI , * D L M************************************************************************ N * : 6* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * @ ;* AFTER ENTERING AN
0x09701c…0971b0 Dummy {f00=0x002f, f01=0x018e, f02=»XECUTES THE GENERATION. v * & !* GENERATION CAN BE DONE TO: * * P* - AN ELEMENT IN THE PICTURE T " * - AN USER-VARIABLE * L M************************************************************************ *
0x0971b0…097344 Dummy {f00=0x002f, f01=0x018e, f02=» ***** EXTERNALS ***** * $ EXT GETGEN . EXT MSKOUT B EXT TYPET V P EXT EMPTYT h P EXT DENVAL | P EXT GETFWD P EXT ADJUST P EXT CMPIND COMPARE INDEX P* P INCLUDE DELITT EJECT
0x097344…0974d8 Dummy {f00=0x002f, f01=0x018e, f02=» P FCOPY USEV(BIN10) FMEND * , PWF2 FRMT 6 , P FCTL X'C0',X.PSEU1,X.PSEU2,X.WB10,BIN10 F FMEND v P* PWF3 FRMT . P FMEL '+TTTTTTTTTTTTTTTTTTTT9',BCDI21(W1) P FMEND P* PWF4 FRMT P FCOPY SYSV(BIN1
0x0974d8…09766c Dummy {f00=0x002f, f01=0x0190, f02=» & "* MAIN-ROUTINE FOR GENERATION * . L O************************************************************************ 8 * DEGEN PROC A000 * & MOVE BCD2A,='0' CLEAR ERROR INDICATOR ( $ CLEAR BOOL1 CLEAR CURRENT-INDICATOR &
0x09766c…097800 Dummy {f00=0x002f, f01=0x0190, f02=» & P CBE BIN1,W0,A900 NO DUPL FOUND ? ( # SET BOOL1 INDICATE CHANGED CURRENT 2 . P CALL GETFWD,DEBINW4,0,BIN1,BIN4 MAKE DUPL ^ & P CALL ADJUST,DEBINW4 ITEM CURRENT BERR A800 OUT OF FORMAT ? SET BOOL4 INDICATE DUPL , P CALL GETGEN
0x097800…097994 (1, 191) Dummy {f00=0x0030, f01=0x0190, f02=» * P PERF SETERR,W2 * & * &***** RETURN TO CALLING MODULE ***** 0 * ^ A900 h . ) TBF BOOL1,A910 "CURRENT-FIELD" CURRENT ? t 2 P CALL GETFWD,DEBINW4,0,BIN2,BIN4 MAKE CURRENT & P CALL ADJUST,DEBINW4 FIELD CURRENT A9
0x097994…097b28 Dummy {f00=0x0030, f01=0x0190, f02=»****** N * F A* SUBROUTINE FOR EXAMINATION AND EXECUTION OF THE GEN-STRING * b L N************************************************************************ l * PEXGEN B000 P SUB BIN12,W1 ADJUST DISPL. 2 P ADD
0x097b28…097cbc Dummy {f00=0x0030, f01=0x0190, f02=»***** GET RESULT-FIELD ***** * & PB050 0 " P ADD BIN12,W1 INCREASE DISPL. < * P CBG BIN12,BIN13,A250 END 0F STRING ? b P* PB055 * P MOVE BIN7,W0 CLEAR RESULT-FIELD-NR... * P MOVE BIN6,W0 ...AND RESET TYPE-INDEX P MOVE
0x097cbc…097e50 Dummy {f00=0x0030, f01=0x018e, f02=» $ P* HANDLE CONDITIONAL GENERATION P* 0 PB065 : ( P MOVE DEBINW1,W0 SET INPUTLENGTH = 0 F ( P SUB BIN13,BIN12 PUT DISP INTO BIN13 r P PERF DENVAL,W2 P CLEAR DOOLB P BNZ B120 P XCOPY BIN12,W1,W1,BIN3,W1 P MOVE BIN3
0x097e50…097fe4 Dummy {f00=0x0030, f01=0x0190, f02=» P B B050 PB070 P BNOK B120 FORMAT ERROR ? P* B P* L " P ADD BIN12,W1 INCREASE DISPL. V 6 P XCOPY BIN7,W1,W1,BPOOL(BIN11),BIN12 GET FIELD-NR | , P IB BIN6,B180,B180 JUMP IF USER OR FIELD P B B140 PB075 , ( CLEAR
0x097fe4…098178 Dummy {f00=0x0030, f01=0x018e, f02=»BIN4,W0 NEXT BYTE... P MOVE STR1A,=C'=' & . P MATCH STR1A,BIN4,W1,BPOOL(BIN11),BIN12,W1 @ & P BOK B100 ..."="-SIGN ? r P* P SUB BIN12,W1 ADJUST DISPL. EJECT * * ***** EXAMINE *****
0x098178…09830c Dummy {f00=0x0030, f01=0x018e, f02=» , P MOVE BIN10,W0 CLEAR ACTUAL-FIELD-NR... * P MOVE BIN9,W0 ...AND RESET TYPE-INDEX 8 " P ADD BIN12,W1 INCREASE DISPL. f P CMP BIN12,BIN13 P BG B600 P MOVE STRG10A,=C'!UF+-*:;AS' 2 P MATCH STRG10A,BIN9,W10,BPOOL(BIN11),BIN12,W1
0x09830c…0984a0 Dummy {f00=0x0030, f01=0x0190, f02=» * ( #***** FORMAT-ERROR DETECTED ***** * > PB120 H " PERF SETERR,W2 ERROR-CODE = 2 T * z * * ( #***** END OF STRING REACHED ***** * " P B A250 RETURN TO MAIN-MODULE * * $
0x0984a0…098634 (1, 192) Dummy {f00=0x0030, f01=0x0190, f02=» NOT < "CURRENT" ? t ( P MOVE BIN1,BIN7 UPDATE DUPL-FIELD-NR P B A250 F EJECT V * d * n ***** ABSULUTE VALUE ***** x * PB160 & P SET BOOL6 INDICATE ABSOLUTE VALUE " SET BOOL2 INDICATE ARITHMETIC B B11
0x098634…0987c8 Dummy {f00=0x0030, f01=0x0190, f02=»N3,BIN9 MOVE TO SIGN-INDEX " P SUB BIN3,W3 ADJUST SIGN-INDEX " B B110 H * X * b * P**** OWN FIELD OR USER-VAIABEL **** l * PB180 @ P CALL EMPTYT,X.PSEU1,X.PSEU2,X.WB10,BIN2 CHECK CURRENT FIELD P BZ B075 NOT EMPTY
0x0987c8…09895c Dummy {f00=0x0030, f01=0x0190, f02=» r PB190 , P MOVE BIN4,BIN13 CALCULATE LENGTH OF... . P SUB BIN4,BIN12 ...THE REST OF THE STRING D P MOVE STR1A,=C';' v . P MATCH BPOOL(BIN11),BIN12,BIN4,STR1A,W0,W1 P BNOK A250 NOT FOUND ? P B B050 P EJECT *
0x09895c…098af0 Dummy {f00=0x0030, f01=0x0190, f02=»IN10,W1,W1,BPOOL(BIN11),BIN12 GET LITTERAL-PREFIX P MOVE BIN9,=X'3F' REMOVE... < & P CALL MSKOUT,BIN9,BIN10 ...FLAGGS ` " P ADD BIN12,W1 INCREASE DISPL. < P COPY DEINPUT,W0,BIN9,BPOOL(BIN11),BIN12 GET LITTERAL P SUB BIN9,W1 ADJUST INDE
0x098af0…098c84 Dummy {f00=0x0030, f01=0x0190, f02=» l * B300 & P MOVE DEINPUT,HEX00 CLEAR WORKITEM P MOVE BIN10,W0 " H " P ADD BIN12,W1 INCREASE DISPL. ` 8 P XCOPY BIN10,W1,W1,BPOOL(BIN11),BIN12 GET FIELD-NR * P IB BIN9,B310,B320 . P CBE BIN9,W9,B315 JUMP IF SYSTEM V
0x098c84…098e18 Dummy {f00=0x0030, f01=0x0190, f02=» x P B B500 PB310 HANDLE USERVARIABELS P* < P CALL CMPIND,BIN10,USEV(W1) F P BOK B350 j P B B120 | * " PB315 HANDLE SYSTEM VARIABLE P CALL CMPIND,BIN10,SYSV(W1) P BNOK B120 IF OUT OF RANGE P MOVE
0x098e18…098fac Dummy {f00=0x0030, f01=0x0190, f02=» j . P MOVE BIN10,BIN2 UPDATE INDEX WITH CURRENT P* : PB330 D > P CALL TYPET,BIN4,X.PSEU1,X.PSEU2,X.WB10,BIN10 F-ITEM IS... P & P CBE BIN4,W3,B350 ...A STRG-ITEM ? * * 4 P***** USER- OR FORMAT-VALUE TO WORKITEM *****
0x098fac…099140 Dummy {f00=0x0030, f01=0x0190, f02=»N9) STRG-ITEM z EJECT * $ * . $ ***** EXECUTE ARITHMETIC ***** 8 * ` PB500 j 2 P MOVE BCDI21(W2),DEINPUT VALUE TO BCD-WORKITEM v ( P TBF BOOL6,B510 NO ABSOLUTE VALUE ? 6 P COPY BCDI21(W2),W0,W1,D1,W0 "+-SIGN" TO WORKIT
0x099140…0992d4 (1, 193) Dummy {f00=0x0030, f01=0x0190, f02=»BCDI21(W2) "-" P B B550 PB530 & " P MUL BCDI21(W1),BCDI21(W2) "*" 2 P B B550 X PB540 h " P DIV BCDI21(W1),BCDI21(W2) ":" t * PB550 P BOFL B560 P B B100 * PB560 " PERF SETERR,W3 ERROR-CODE = 3
0x0992d4…099468 Dummy {f00=0x0030, f01=0x018e, f02=»NO ARITHMETIC DONE ? ( P MOVE DEINPUT,HEX00 CLEAR STRG-WORK , P MOVE BIN10,W0 MOVE SUM TO STRG-WORK... H 6 P EDSUB DEINPUT,BIN10,WF3 ...AND GET LENGTH OF SUM x PB610 $ P CBE BIN6,W2,B620 FORMAT-FIELD ? P USER-VARIABEL P CALL CMPI
0x099468…0995fc Dummy {f00=0x0030, f01=0x0190, f02=» B620 ( P CBNE BIN7,W0,B640 CURRENT FIELD ?? . P MOVE BIN7,BIN2 UPDATE WITH CURRENT INDEX < * n B640 x " P CALL GETFWD,BIN4,0,BIN7,BIN9 P CALL ADJUST,BIN4 * P GETCTL 1,BIN9 GET MAXLENGTH P TSTCTL 0 P BNZ
0x0995fc…099790 Dummy {f00=0x0030, f01=0x0190, f02=»H OF SUM v & P CMP BIN10,BIN9 RESULT LEN VS MAXL P BE NUM : P BG B650 J P GETCTL 2,BIN9 GET MINL Z 4 P CBNL BIN10,BIN9,NUM IF RESULT LEN NOT LESS MINL z , P SUB BIN9,BIN10 CALCULATE MISSING ZEROES $ P MOVE STR64A,=X'30' LOAD ZEROES 8
0x099790…099924 Dummy {f00=0x0030, f01=0x0190, f02=»EINPUT,W1,BIN10 PNUM 8 P CBE BCDI21(W1),:FMTITEM,CONT DONT DISPLAY IF EQUAL $ PNUM100 ` * P ERASE 1,BIN7,BIN7 ERASE OLD CONTENTS n P UPDFLD 1,DEINPUT PCONT 0 P CBE BIN7,BIN2,FINISH JUMP IF NOT OWN FIELD . P GETFLD 0,BIN2,BIN
0x099924…099ab8 Dummy {f00=0x0030, f01=0x018e, f02=»IN9 j P BOK CONT IF EQUAL CONTENTS P B NUM100 0 * B PEND L * Z EJECT d * r L M************************************************************************ | * 2 -* SUB-ROUTINE FOR SETTING THE ERROR-CODE
0x099ab8…099c4c Dummy {f00=0x0030, f01=0x4162, f02=» IB ERRIND,X100,X200,X300 * * X100 4 " P MOVE BCD2A,D1 UNDEFINED ERROR @ B X900 f * v X200 " MOVE BCD2A,='-1' FORMAT-ERROR B X900 * X300 MOVE BCD2A,='9' OVERFLOW * *
0x099c4c…099de0 Dummy {f00=0x0030, f01=0x2008, f02=» * PEND * " * , END 6@ BE DISPL. 2 : 6 XCOPY BIN7,W1,W1,BPOOL(BIN2),BIN3 GET DUPL-FIELD-NR V B B900 EJECT * * ( #***** FORMAT-ERROR DETECTED ***** * B800 "
0x099de0…099f74 (1, 194) Dummy {f00=0x0030, f01=0x0190, f02=» & SYSTEMFILE CLOSE-ERROR ( ( 4 & D & USERFILE ASSIGN-ERRORR R ( v & & USERFILE CLOSE-ERROR ( & & DISC READING-ERROR
0x099f74…09a108 Dummy {f00=0x0030, f01=0x0190, f02=»PERABLET ( & , & DISC NOT OPERABLET : ( Z - f & v 4 0 &. *SYSTEMFILE NOT CLOSED IN PREVIOUS SESSION. ( + & * 2 . &, (USERFILE NOT CLOSED IN PREVI
0x09a108…09a29c Dummy {f00=0x0030, f01=0x0190, f02=» 3 , > 2 N ! ` # p & * , 1 > J F " D !1X F PVQ L L0X % L "1X F 0XW 1X F !0X
0x09a29c…09a430 Dummy {f00=0x0030, f01=0x40dc, f02=» _'0X RW 40X 4 [ L 0X 0X 6 ! > ! N ! ^ & * ! n & ! | ( ! , ' % 4 A _ 0X 0X 4 4 X ! ! @ ! F PVQ L L0X % L "1X F 0XW 1X F !0X
0x09a430…09a5c4 Dummy {f00=0x0030, f01=0x0190, f02=» F H IDENT REORGS TRA 4.1 79-11-22 F1 O1111 REL. 1.0 79-11-12/LABJ REORGS N $$$TRAO ` REORGS r B > CHANFCO CHVOL CLOFIL DECLRA2 DECLRN1 DEDISC DEPOOL1 DERRL @ < DISUG DSKERR NOFFRE OPCL REFSP T:ASSI T:ATTF T:DISP
0x09a5c4…09a758 Dummy {f00=0x0030, f01=0x0190, f02=» R!:R h"h! x"x! `"`! z"z! b"b! j!j# f!f#0R f! L j!0X I " > V X N X ^ ` n y ~ J F " D @ P 0X @" 4 d!!?R R ! `! R!!Cjb! "C%jz! "C! ! ! R" 8
0x09a758…09a8ec Dummy {f00=0x0030, f01=0x0190, f02=» b#b!1XFA R2 RR!GL ^ 5 X , 5 < X L l | N T ] 5 J F " D R3":R R4#:R1XF
0x09a8ec…09aa80 Dummy {f00=0x0030, f01=0x0190, f02=» , . 5 8 X & ; Y 6 ? H J F " D :R L R #:Rj " r- 2 U jU!! r2 U!_+ L L R "V )%?R!FL GL Z A B F J E K N NR
0x09aa80…09ac14 (1, 195) Opaque[0x194]
0x09ac14…09ada8 # DirEnt {nam=»DEVGAC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0620, f03=0x0000}
0x09ac14…09ada8 IdxSect {
0x09ac14…09ada8 f00 = 0x0031 // 0x9ac14 @0x0
0x09ac14…09ada8 f01 = 0x000c // 0x9ac16 @0x2
0x09ac14…09ada8 gno = [ // 0x9ac18 @0x4
0x09ac14…09ada8 [0x00]: C0x0031.0x0.0
0x09ac14…09ada8 [0x01]: C0x0031.0x1.0
0x09ac14…09ada8 [0x02]: C0x0031.0x2.0
0x09ac14…09ada8 [0x03]: C0x0031.0x3.0
0x09ac14…09ada8 [0x04]: C0x0032.0x0.0
0x09ac14…09ada8 [0x05]: C0x0032.0x1.0
0x09ac14…09ada8 ]
0x09ac14…09ada8 }
0x09ada8…09af3c Dummy {f00=0x0031, f01=0x0190, f02=» $ P IDENT DEVGAC REL 10.0 80-04-11 P 80-04-14/JAER , * D @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT N < 8* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION * DDUM DEDDIV PDIV P* , P
0x09af3c…09b0d0 Dummy {f00=0x0031, f01=0x018e, f02=»SAGE | P* * P EXT CMPIND COMPARE INDEX (DIMENSION) * D P EXT EMPTYT CHECK EMPTY ITEM N P* r * KEYTABLES | * & P* USAGE: DATA ENTRY SCREEN * CLR EQU X'8F' CLEAR CAN EQU X'91' CANCEL
0x09b0d0…09b264 Dummy {f00=0x0031, f01=0x018e, f02=» P* < P* VALIDATION- GENERATION- AND ACCUMULATION CONTROL P* N L P* THIS MODULE STEERS THE PROCESSING OF THE THREE DIFFERENT FUNCTIO X P* P* INPUT PARAMETERS: H P* FMTWK(W10) = NUMBER OF CHA
0x09b264…09b3f8 Dummy {f00=0x0031, f01=0x0190, f02=» L P* FMTWK(W12) = CALCULATE TOTAL NUMBER OF CHARCTE D P* DEBIN3 = POINTER FUNC,-TEXT-STRING T D P* DEBIN4 = POINTER CHARACTER-STRING : P* DEBINW2
0x09b3f8…09b58c Dummy {f00=0x0031, f01=0x0190, f02=»ATION ` < P* = 3 = ACCUMULATION : P* STRG10A = FUNCTION TEXTS N 0 P* STR1A = WORK 0 P* BIN16 = WORK P* P* OU
0x09b58c…09b720 Dummy {f00=0x0031, f01=0x018e, f02=»* DEBINW1 = ERRORPOSITION IN CHARACTERSTRING D P* DEBINW4 = FIELDNR WHEN ERROR FOUND P PVGACNT PROC 4 P CALL EMPTYT,FORTAB(W1) CHECK IF 1ST LINE EMPTY P AFTER CORRECTION P BOK VGA
0x09b720…09b8b4 (1, 196) Dummy {f00=0x0031, f01=0x0190, f02=» P AFTER CORRECTION P BOK VGAC03 NOT EMPTY * P MOVE FMTWK(W11),W0 EMPTY => NO CHARS > PVGAC03 l 2 P MOVE FMTWK(W12),FMTWK(W10) LOAD NUMB CHARS 1 z 0 P ADD FMTWK(W12),FMTWK(W11) ADD NUMB CHARS 2 4 P CBE FMTWK(W10),=X'50',VGAC10 JUMP I
0x09b8b4…09ba48 Dummy {f00=0x0031, f01=0x0190, f02=»MAX FILLED AND 2ND STRING j P* PARTIAL FILLED. " < P* -ACTION: DELETE EMPTY POSITIONS OF 1ST STRING B > P* WITH HELP OF THE REDEFINED ITEM JOBSPC : P* FINALLY DISPLAY IT IN SEQUENS AGAIN P*
0x09ba48…09bbdc Dummy {f00=0x0031, f01=0x0190, f02=»IN16 DELETE EMPTY CHARACTERS v * P MOVE BIN15,=X'A0' LOAD WITH MAXLENTH $ & P SUB BIN15,BIN16 COMPUTE STARTP]OS R > P XCOPY JOBSPC,BIN15,BIN16,DEINPUT,W0 FILL REST WITH X'00' | " P CBL FMTWK(W12),=X'51',VGAC05 P MOVE FMTWK(W11),FMTWK(W12) P
0x09bbdc…09bd70 Dummy {f00=0x0031, f01=0x0190, f02=»FMTWK(W11),W0 P EJECT PVGAC10 $ & P MOVE DEBIN4,W0 STARTPOS IN JOBSPC 2 . P MOVE STR1A,=C'#' WORK:=FUNCTIONSEPARATOR 0 P MOVE STRG10A,=C'V:G:A:' LOAD FUNCTION-TEXTS ( P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POS 4 P MATCH JOBSPC,DEBIN3,W1,ST
0x09bd70…09bf04 Dummy {f00=0x0031, f01=0x0190, f02=»IONINDEX:=0 z . P MATCH STRG10A,DEBINW2,W6,JOBSPC,DEBIN4,W2 " P BNOK VGAC90 JUMP IF NOT FOUND F . P MOVE FBIN1,DEBINW2 SAVE FUNCTEXT POINTER l P ADD DEBINW2,W2 P DIV DEBINW2,W2 . P TBF BOOL6,VGAC20 JUMP IF ORDINARY FORMAT 6 P CBE DEB
0x09bf04…09c098 Dummy {f00=0x0031, f01=0x0190, f02=»CTUAL POSITION v 4 P MOVE DEBIN2,FMTWK(W12) LOAD TOTAL NUMB OF CHARS . P SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH N D P MATCH JOBSPC,DEBIN3,DEBIN2,STRG10A,FBIN1,W2 JUST ONE FUNC EACH ( P BNOK VGAC35 NO MORE OF SAME FONC OK . P MOVE DEBIN4,DEBIN3
0x09c098…09c22c Dummy {f00=0x0031, f01=0x018e, f02=»L POSITION r P MOVE STR1A,=C'#' 0 P MATCH JOBSPC,DEBIN3,DEBIN2,STR1A,W0,W1 NEXT , P BOK VGAC40 OK NEXT # FOUND ` 4 P MOVE DEBIN3,FMTWK(W12) LOAD WITH LAST POSITION PVGAC40 6 P MOVE FMTWK(DEBINW2),DEBIN3 LOAD ENDPOS OF CONTROL 6 P PER
0x09c22c…09c3c0 Dummy {f00=0x0031, f01=0x0190, f02=» P SET ACKUM PVGAC45 8 P CBE DEBIN4,FMTWK(W12),VGAC99 JUMP IF END OF STRING $ P ADD DEBIN4,W1 NEXT POSITION ` P B VGAC15 P EJECT PVGAC90 . P TBF BOOL6,VGAC92 JUMP IF ORDINARY FORMAT " P ERASE 0,W13,W14 ERASE 2 LINES
0x09c3c0…09c554 (1, 197) Dummy {f00=0x0031, f01=0x0190, f02=»RASE 2LINES ON SCREEN ~ P DISPLAY 1,W12,W13 REDISPLAY 0 P MOVE DEBINW4,W12 FIELD TO MAKE CURRENT =19 B PVGAC94 v $ P MOVE BIN16,W1 1ST LINE CURRENT & P MOVE BIN15,=X'50' LOAD SIZE = 80 . P MOVE DEBINW1,DEBIN4 STORE ACTUAL POSITION & P
0x09c554…09c6e8 Dummy {f00=0x0031, f01=0x0190, f02=» DEBINW4,W1 FIELD TO MAKE CURRENT = +1 " P ADD BIN16,W1 2ND LINE CURRENT . PVGAC95 T P GETFLD 0,DEBINW4,DEBINW3 b " P MOVE DEBINW4,W6 ILLEGAL VALUE P PERF DERROR,DEKTAB4 > P XCOPY DEINPUT,W0,BIN15,FORTAB(BIN16),W0 RELOAD FALSE LINE P
0x09c6e8…09c87c Dummy {f00=0x0031, f01=0x0190, f02=»CHARS STRG2:=0 t P CMP W1,W1 CR = 0 PVGACEX 0 P RET > P PEND J P EJECT X P* f , P* CONTROL VARIABLE NUMBER (INDEX) p P* & P* INPUT PARAMETERS (FORMAL): J P* CHNUM = NUMBER O
0x09c87c…09ca10 Dummy {f00=0x0031, f01=0x0190, f02=» DEBIN4 = STRG TO CONTROL r P* $ P* INPUT PARAMETERS: . L P* VALSTR = VAL/GEN/ACC---CHARACTERSTRIN P H P* DEBIN4 = POINTER CHARACTER-STRING P* H P* WORKITEMS
0x09ca10…09cba4 Dummy {f00=0x0031, f01=0x0190, f02=» BIN15 = LENGTH OF VALSTR J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* P* OUTPUT PARAMETERS : 6 P* 'CR' = 0 , OK : P*
0x09cba4…09cd38 Dummy {f00=0x0031, f01=0x0190, f02=»****************************************************************** " PCNTNUM PROC WSTRG,CHNUM(),WIND J , P MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR p * P CLEAR BOOL8 F=NO TREASPASSING OF DUPL P CLEAR BOOL4 P EJECT PCNT00 P MOVE BIN1
0x09cd38…09cecc Dummy {f00=0x0031, f01=0x0190, f02=» " P CBE BIN16,W0,CNTM JUMP IF 'M' ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C . & P CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C Z ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C * P CNT0,CNT0,CNT0,CNTLL,CNNOKL, 20-24 C
0x09cecc…09d060 Dummy {f00=0x0031, f01=0x018e, f02=» n ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C & P CNT3,CNT2,CNT0,CNT2,CNT2, 5-9 C 4 ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C ^ ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C * P CNT0,CNT0,CNT0,CNTL,CNNOKL, 20-24 C . P CNTCC,CNNOKL,CNNOKL,CNT0,CNTLP, 25
0x09d060…09d1f4 (1, 198) Dummy {f00=0x0031, f01=0x018e, f02=» ( P IB BIN16,CNT0,CNT0,CNT0,CNT0, 1-4 C & P CNT3,CNT2,CNT0,CNTCC,CNT2, 5-9 C 0 ( P CNT1,CNT3,CNT2,CNT2,CNT0, 10-14 C Z ( P CNT0,CNT0,CNT0,CNT0,CNT0, 15-19 C ( P CNT0,CNT0,CNT0,CNTL,CNT0, 20-24 C 0 P CNNOKL,CNNOKL,CNNOKL,CNNOKL,CNTLP 25-29
0x09d1f4…09d388 Dummy {f00=0x0031, f01=0x018e, f02=» P SET BOOL8 DUPL PASSED ONCE & P CBE BIN16,W0,CNNOKL M NOT ALLOWED ( , P IB BIN16,CNNOK,CNNOK,CNNOK,CNNOK 1-4 C R & P CNT0,CNNOK,CNNOK,CNT2,CNT2 5-9 C P CNT1,CNT3,CNT2 10-12 PCNNOKL P B CNNOK PCNTLL P B CNTL P E
0x09d388…09d51c Dummy {f00=0x0031, f01=0x0190, f02=» , P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION 2 P MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' ? 4 P BOK CNTL M'......' j P SUB DEBIN4,W1 ADJUST P B CNT2 M99 P EJECT PCNTCC CONDITIONAL GEN/ACC P ADD DEBIN4,W1 NEXT POD0S
0x09d51c…09d6b0 Dummy {f00=0x0031, f01=0x0190, f02=» CHAR ^ P BOK CNTLP LEFT PARENTESIS 2 P CBE WIND,W2,CNNOKL G OR A NOT ALLOWED IN GEN 0 ( P SUB DEBIN4,W1 ADJUST FOR ORDIN ACC f P B CNT2 P* P* P* PCNTLP LEFT PARENTHESIS $ P SET BOOL4 T=COND GEN/ACC FOUND P
0x09d6b0…09d844 Dummy {f00=0x0031, f01=0x0190, f02=»OUND l P BNZ CNT0 P B CNNOKL P EJECT 0 P* > P* CNT0 NO CONTROL H P* h PCNT0 r P ADD DEBIN4,W1 NEXT POS ~ < P CBE DEBIN4,CHNUM(WIND),CNTOK JUMP IF END OF LINE FOUND P B CNT00 GO ON P* P* CN
0x09d844…09d9d8 Dummy {f00=0x0031, f01=0x018e, f02=»ALL CMPIND,DEBIN2,USEV(W1) P BNZ CNNOK OUT OF RANGE " P B CNT0 GO ON B P EJECT X P* f $ P* CNT2 CONTROL OF 2 BYTES p , P* -M,-L,-A,-S,-T,-C P* PCNT2 0 P PERF DIGCHK,WSTRG,CHNUM,WIND,W2 DIGIT CHE
0x09d9d8…09db6c Dummy {f00=0x0031, f01=0x018e, f02=» t P* P* M,L,C P* ( $ P CBL DEBIN2,W0,CNNOK <00 NOT OK 2 ( P CBG DEBIN2,=W'99',CNNOK >99 NOT OK Z P B CNT2F P* P* A P* PCNT2B P CALL CMPIND,DEBIN2,ACK(W1) P BNZ CNNOK OUT OF RANGE
0x09db6c…09dd00 Dummy {f00=0x0031, f01=0x0190, f02=» v P B CNT2F PCNT2E $ P CBL DEBIN2,W1,CNNOK <01 NOT OK & ( P CBG DEBIN2,=W'94',CNNOK >94 NOT OK N , P MOVE DEBIN3,DEBIN4 LOAD WORKPOSITIONER z ( P ADD DEBIN3,W2 ADJUST WORKPOSITIONER 2 P CBG DEBIN3,CHNUM(WIND),CNT0 JUMP IF OVERFLOW
0x09dd00…09de94 (1, 199) Dummy {f00=0x0032, f01=0x0190, f02=»6,W6 SIMULATE L TO CHECK VS-IND P B CNT2 ( PCNT2F 8 P ADD DEBIN4,W1 NEXT POS F P B CNT0 GO ON f P EJECT | P* , P* CNT3 CONTROL OF 3 BYTES -D,-F P* PCNT3 0 P TBT BOOL6,CNNOK -D,-F,-G NOT OK IN BALANCE
0x09de94…09e028 Dummy {f00=0x0032, f01=0x0190, f02=»',CNNOK > 999 NOT OK ~ $ P CBE BIN16,W5,CNT3A JUMP IF 'D' P B CNT3B JUMP IF 'F' OR 'G' D PCNT3A h . P CBNL BIN10,DEBIN2,CNT3B FXX NOT < DXX OK v P B CNNOK JUMP IF ERROR PCNT3B P ADD DEBIN4,W2 P B CNT0 GO ON P EJECT
0x09e028…09e1bc Dummy {f00=0x0032, f01=0x0190, f02=»OFERFLOW h ( P MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS , P SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH < * P MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH l : P MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT ' P BNOK CNNOK * P SUB DEBIN3,DEBIN4 =NUMB OF
0x09e1bc…09e350 Dummy {f00=0x0032, f01=0x0190, f02=»ORM CHANGE (R) l 6 P CBE BIN16,W27,CNTLFK JUMP IF COND FORM CHANGE (N) ! P B CNTLOK ! P PCNTLFK ! b 0 P CBG DEBIN3,W6,CNNOK FORMAT NAME > 6 NOT OK ! p PCNTLOK ! & P ADD DEBIN4,DEBIN3 ADJUST NEXT POS ! P B CNT0 GO ON ! P EJECT ! P* ! ,
0x09e350…09e4e4 Dummy {f00=0x0032, f01=0x0190, f02=»(WIND),CNNOK JUMP IF OVERFLOW ! ~ P B CNTL JUMP LITERAL CONTROL " & P EJECT " J PCNNOK " X ( P CBNE WIND,W4,CNNCR JUMP IF NOT DUPL " f 0 P MOVE DEBINW1,DEBIN4 RESTORE ERROR-POSITION " . P ADD DEBINW1,W1 ADJUST FOR POINTER IN LDES " P MOVE DEBINW4,W6
0x09e4e4…09e678 Dummy {f00=0x0032, f01=0x0190, f02=»OK NOT OK IF COND GEN/ACC NOT CONCLUDED " P CMP W1,W1 CLEAR CR # 0 PCNRT # L P RET # X P PEND # d P EJECT # r P* # B P* THIS PROCEDURE CHECKS IF RIGHT NUMBER OF REAL DIGITS # @ P* HAVE BEEN KEYED IN FOR THE CORRESPONDING FUNCT
0x09e678…09e80c Dummy {f00=0x0032, f01=0x0190, f02=»IGIT # L L P* CHNUM = ENDPOSITION IN WSTRG FOR $ B P* WIND = INDEX TO CHNUM $ L P* NUMB = NUMBER OF DIGITS TO CHECK $ P* $ L P* IN
0x09e80c…09e9a0 Dummy {f00=0x0032, f01=0x0190, f02=» < P* STR6A = WORKAREA % < P* BCD13A = WORKAREA % D P* % L P* OUTPUT PARAMETERS : DEBIN2 = CHECKED DIGITS BINARY STO % L P* DEBI
0x09e9a0…09eb34 (1, 200) Dummy {f00=0x0032, f01=0x0190, f02=»/= 0 = NOT OK % h L P************************************************************************ & ( PDIGCHK PROC WSTRG,CHNUM(),WIND,NUMB & f * P ADD DEBIN4,W1 ADJUST POINTER POSITION & , P MOVE DEBIN3,DEBIN4 SAVE POINTER ADRESS & , P ADD DEBIN3,NUMB ADD NUM
0x09eb34…09ecc8 Dummy {f00=0x0032, f01=0x4154, f02=»6A,W0,NUMB,WSTRG,DEBIN4 & P MOVE BCD13A,STR6A STR=>BCD ' P MOVE DEBIN3,W0 ' D P EDSUB STR6A,DEBIN3,FSCONV ' ( P CMP DEBIN3,NUMB CHECK IF EQUAL = OK ' ~ P MOVE DEBIN2,BCD13A BCD=>BIN ' PDIGC99 ' P RET ' P PEND ' P EJECT ' PFSCO
0x09ecc8…09ee5c Dummy {f00=0x0032, f01=0x2008, f02=» ( P MOVE BCD13A,STR6A STR=>BCD ' P MOVE DEBIN3,W0 ' . P EDSUB STR6A,DEBIN3,FSCONV ' F ( P CMP DEBIN3,NUMB CHECK IF EQUAL = OK ' h P MOVE DEBIN2,BCD13A BCD=>BIN ' PDIGC99 ' P RET ' P PEND ' P EJECT ' PFSCONV FRMT ' P FMEL
0x09ee5c…09eff0 Dummy {f00=0x0032, f01=0x0190, f02=» ? A _ 0! !< " ? #@ T 0% P4W I /6 0! !W 0! !< 6 h W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A h U ! < h 8 ? " ? < 2h ! !P !W !j !! ! 4f "d "!U d
0x09eff0…09f184 Dummy {f00=0x0032, f01=0x0190, f02=» " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 10 3 h !T= h !U !P ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~ @ P 0
0x09f184…09f318 Dummy {f00=0x0032, f01=0x0190, f02=»6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , 0hZ !PDj !! 0 (P 10 !_<( 4 !, z 6h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P & '
0x09f318…09f4ac Dummy {f00=0x0032, f01=0x0190, f02=» X j , , 5 [ < b < K i d K 5 : ( ? H 8 ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x09f4ac…09f640 Dummy {f00=0x0032, f01=0x0190, f02=» V o ~ J N R@ 2 A ! ~U ! 8& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 5 ? jy " $ j !! 1 j !!
0x09f640…09f7d4 (1, 201) Opaque[0x194]
0x09f7d4…09f968 # DirEnt {nam=»DERECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0650, f03=0x0000}
0x09f7d4…09f968 IdxSect {
0x09f7d4…09f968 f00 = 0x0032 // 0x9f7d4 @0x0
0x09f7d4…09f968 f01 = 0x000e // 0x9f7d6 @0x2
0x09f7d4…09f968 gno = [ // 0x9f7d8 @0x4
0x09f7d4…09f968 [0x00]: C0x0032.0x2.0
0x09f7d4…09f968 [0x01]: C0x0032.0x3.0
0x09f7d4…09f968 [0x02]: C0x0033.0x0.0
0x09f7d4…09f968 [0x03]: C0x0033.0x1.0
0x09f7d4…09f968 [0x04]: C0x0033.0x2.0
0x09f7d4…09f968 [0x05]: C0x0033.0x3.0
0x09f7d4…09f968 [0x06]: C0x0034.0x0.0
0x09f7d4…09f968 ]
0x09f7d4…09f968 }
0x09f968…09fafc Dummy {f00=0x0032, f01=0x0190, f02=» $ P IDENT DERECS REL 10.0 80-04-11 P UPD 80-05-13/DALI , P 80-04-14/DALI H DDUM DEDDIV ` PDIV t P ENTRY DERECS P ENTRY DEREFO EXT ATTDB EXT ATTWB EXT RESTOR EXT SAVE EXT DEPOOL
0x09fafc…09fc90 Dummy {f00=0x0032, f01=0x0190, f02=» P EXT TESTB P EXT MSKOUT EJECT * PDERECS PROC FC 8 * P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF N 6 P XCOPY WORK(W10),W1,W1,RBUF,PRECCUR INITIAL STATUS | P CALL UPDBIN,BIN1 P CLEAR BOOL9 P MOVE BIN11,FC * P IB FC,ENTNEW,
0x09fc90…09fe24 Dummy {f00=0x0032, f01=0x0190, f02=»DATARECORD ********************** PENTNEW FC= 1 0 . P XCOPY RBUF,PRECCUR,W1,BIN1,W1 REC.STATUS F MOVE PRECPR,PRECCUR x ADD PRECCUR,RECLNTH 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE . P CBE NUMBER,=D'0',DROK00 JUMP IF
0x09fe24…09ffb8 Dummy {f00=0x0032, f01=0x0190, f02=»30 JUMP IF NOT SPACE z P CLEAR DOOL4 P BNZ DROK00 0 PENTN20 D * P CBNE FC,W7,ENTN25 JUMP IF NOT GETLST R 0 P CBNE NUMBER,=D'0',ENTN25 JUMP IF NOT FIRST P CLEAR BOOL9 P B NEWR70 PENTN25 , P XCOPY RBUF,PRECCUR,RECLNTH,RBUF
0x09ffb8…0a014c Dummy {f00=0x0032, f01=0x018e, f02=» ENTN40 P MOVE PRECCUR,PRECPR P XCOPY RBUF,W6,W2,PRECPR,W0 , P B DRNO00 P PENTN40 b 8 P XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD p . P TBF DEPROMPT,ENT45 JUMP IF NOT NEW FORMAT $ P CBE FC,W7,ENT45 JUMP IF GETLAST , P M
0x0a014c…0a02e0 Dummy {f00=0x0032, f01=0x0190, f02=» t PENTN50 SUB PRECPR,PRECCUR P DLETE RBUF,PRECCUR,PRECPR * PENTN55 L , P XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 Z PENTN60 P MOVE PRECPR,PRECCUR P EJECT P********************** P* RETURN FROM DERECS * P**********
0x0a02e0…0a0474 (1, 202) Dummy {f00=0x0032, f01=0x0190, f02=»ROK10 PDROK05 P CBNE FC,W7,DROK10 8 P XCOPY BDPOIN(W1),W0,W2,RBUF,W2 LAST ENTERED RECORD 6 PDROK10 r ( P CBE PINDFR,W0,DROK20 NO CURR FORMAT 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR P MOVE BIN14,FLIND(W1) P ATT
0x0a0474…0a0608 Dummy {f00=0x0032, f01=0x0190, f02=»C P DROK45 ENTOLD C P DROK70 ENTLST C $ P DROK70 GETNXT C > P DROK70 GETCUR C X P DROK70 GETPRE C r P DROK65 GETLST C P DROK70 DELREC C P DROK65 INSREC C P DROK70 NEWREC C P DROK70 OPENBC C
0x0a0608…0a079c Dummy {f00=0x0032, f01=0x0190, f02=» TBF DBOMVR,DROK56 JUMP IF NOT MUST VERIFY 2 P CALL TESTB,WORK(W10),W10 LOOK IF OLD VERIFIED 2 P BZ DROK52 NOT! h , P TBT DBOVER,DROK56 JUMP IF NEW VERIFIED & PDROK50 RECORD TO VERIFY ENTERED 0 P ADD BDPOIN(W5),W1 INCREASE NUMBER TO VERIFY
0x0a079c…0a0930 Dummy {f00=0x0032, f01=0x018e, f02=»P IF RECORD VERIFIED NOW z * P CBNE FC,W2,DROK50 JUMP IF NEW RECORD P B DROK56 OLD RECORD N PDROK54 VERIFIED RECORD j 2 P SUB BDPOIN(W5),W1 DECREASE NUMBERS TO VERIFY ( P BNZ DROK56 ALL RECORDS NOT VERIFIED P SET BDAVER VERIFIED BATCH
0x0a0930…0a0ac4 Dummy {f00=0x0032, f01=0x018e, f02=» P BNZ DROK57 YES! , P TBF DBOFOR,DROK60 NEW RECORD NOT FORCED 0 P ADD BDPOIN(W4),W1 INCREASE NUMBER OF FORCED L * P SET BDAFOR BATCH WITH FORCED RECORDS P B DROK60 PDROK57 ( P TBT DBOFOR,DROK60 NEW RECORD FORCED 0 P SUB BDPOIN(W4
0x0a0ac4…0a0c58 Dummy {f00=0x0032, f01=0x0190, f02=» $ P CBE FC,W2,DROK70 JUMP IF ENTOLD PDROK65 0 . P CBNL FC,W12,DROK70 JUMP IF RECORD INSERT > , P ADD NUMBER,=D'1' ADJUST CURRENT REC.NO p PDROK70 P CALL UPDBOL,BIN1 PDROK71 P MOVE BCDI21(W3),NUMBER P CMP W1,W1 CONDITI
0x0a0c58…0a0dec Dummy {f00=0x0032, f01=0x0190, f02=» ^ PDRNO10 . P CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK P CBNE PINDFR,W0,DRNO20 H P CBE FC,W7,DRNO15 GETLST f P CBNE FC,W4,DRNO20 GETNXT PDRNO15 P ADD NUMBER,=D'1' PDRNO20 P CLEAR DOOL1 P CMP W1,W2 CONDITION =
0x0a0dec…0a0f80 Dummy {f00=0x0032, f01=0x0190, f02=»1),CURSEC SAVE LAST SECTOR P PERF OFRSP,CURSEC,FILINDUS " P B DROK10 F P EJECT X * P************************************** f * P* ENTER OLD RECORD AFTER CORRECTION. * * P************************************** PENTOLD FC= 2 P C
0x0a0f80…0a1114 (1, 203) Dummy {f00=0x0033, f01=0x0190, f02=»ERR DRNO00 P B DROK00 P EJECT $ P************************* 2 P* ENTER LAST DATARECORD. T P************************* t PENTLST FC= 3 , P XCOPY BIN14,W0,W2,RBUF,W2 LINK TO PREV PENTL10 , P XCOPY PRECCUR,W0,W2,RBUF,W6 U
0x0a1114…0a12a8 Dummy {f00=0x0033, f01=0x0190, f02=»DEDISC,BIN13 DELETE BATCH P BERR DRNO00 " P B DROK71 6 PENTL15 H " P PERF DEDISC,W17 DELETE SECTOR V P BERR DRNO00 | P MOVE CURSEC,BIN14 P B GETL05 PENTL20 P MOVE BDPOIN(W1),CURSEC P PERF DEDISC,W8 ENTER LAST
0x0a12a8…0a143c Dummy {f00=0x0033, f01=0x0190, f02=»GET LAST RECORD PENTL30 P MOVE BDPOIN(W1),BIN14 & P B DRNO00 D EJECT V *********************** d * GET NEXT RECORD *********************** PGETNXT FC= 4 P XCOPY BIN14,W0,W2,RBUF,W6 P MOVE PRECPR,PRECC
0x0a143c…0a15d0 Dummy {f00=0x0033, f01=0x0190, f02=»,RECLNTH P MOVE BIN13,PRECCUR * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR , 6 P CBL PRECCUR,BIN14,GETN43 JUMP IF MOORE IN SECTOR Z PGETN10 , ( XCOPY BIN13,W0,W2,RBUF,W4 GET NEXT LINK 0 P CBNE BIN13,W0,GETN30 JUMP IF MOORE SECTORS PGE
0x0a15d0…0a1764 Dummy {f00=0x0033, f01=0x0190, f02=»DEDISC,BIN13 P CBNE DEBINW4,W0,DRNO00 PGETN28 4 & P MOVE DEBINW4,W15 NO MOORE RECORDS B P B DRNO00 l PGETN30 ~ & ! PERF DEDISC,W15 READ NEXT SECTOR P BERR DRNO00 . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE , P CBNE BIN13,
0x0a1764…0a18f8 Dummy {f00=0x0033, f01=0x0190, f02=» x P MOVE PRECCUR,W10 P MOVE PRECPR,PRECCUR " P* > P MOVE BIN13,PRECCUR H PGETN43 d * P ADD BIN13,W7 GET RECLNTH IN DATRECORD r $ P XCOPY RECLNTH,W0,W2,RBUF,BIN13 PGETN45 * P ADD NUMBER,=D'1' INCREASE CURR RECNO PGETN
0x0a18f8…0a1a8c Dummy {f00=0x0033, f01=0x0190, f02=»SECTOR x PGETN55 P MOVE BIN15,W0 0 P XCOPY BIN15,W0,W1,RBUF,PRECCUR RECORDSTATUS 2 * P CALL MSKOUT,BIN15,WORK(W12) MSK-WORD f P CBE BIN15,WORK(W11),GETN70 & P CBE FC,W6,GETN60 JUMP IF GETPREV P CBE FC,W3,GETN60 OR ENTLST P C
0x0a1a8c…0a1c20 Dummy {f00=0x0033, f01=0x0190, f02=»BE NUMBER,=D'0',GETN70 BATCHHEAD REACHED P SUB BCDI21(W3),=D'1' 0 " P B GETPRE GET PREVIOUS RECORD N PGETN70 t P MOVE BIN13,PRECCUR P ADD BIN13,W1 P B GETL90 P EJECT " P***************************** P* GET CURRENT
0x0a1c20…0a1db4 (1, 204) Dummy {f00=0x0033, f01=0x0190, f02=»=D'0',GETC60 OR BATCHHEAD , P XCOPY BIN11,W0,W2,RBUF,W4 LINK TO NEXT " 0 P CBNE PRECPR,PRECCUR,GETC10 JUMP IF NOT THE R " P FIRST RECORD WITHIN SECTOR " P B GETP10 GET PREVIOUS RECORD PGETC10 P MOVE BIN13,W1 * P ADD BIN13,PRECPR
0x0a1db4…0a1f48 Dummy {f00=0x0033, f01=0x018e, f02=»MP IF NOT LAST x P ENTERED SECTOR P CBNE STR6A,FORMAT,GETC30 0 P CMP FC,W7 R P BZ ENTN10 JUMP IF GETLST d P B ENTN25 PGETC30 SET DEPROMPT P B DROK00 PGETC40 * P XCOPY RBUF,W2,W2,CURSEC,W0 LINK PREV P MOVE
0x0a1f48…0a20dc Dummy {f00=0x0033, f01=0x0190, f02=» f P CBNE STR6A,FORMAT,GETC50 P B ENTN50 * PGETC50 < P SET DEPROMPT J P B ENTN60 ` PGETC60 r P MOVE BIN13,=W'33' P PERF DEDISC,BIN13 P BERR DRNO00 P B DROK00 P EJECT " P*****************************
0x0a20dc…0a2270 Dummy {f00=0x0033, f01=0x018e, f02=» B GETL40 PGETP10 P CBE PRECCUR,W10,GETP20 P B GETL20 @ PGETP20 R * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR ` PGETP30 ( P XCOPY BIN13,W0,W2,RBUF,W2 LINK PREV P CBNE BIN13,W0,GETP40 P B GETN20 PGETP40 . ) X
0x0a2270…0a2404 Dummy {f00=0x0033, f01=0x0190, f02=» p P B GETP48 PGETP45 ( P MOVE BIN14,W16 GET PREVIOUS SECTOR ( PGETP48 T P PERF DEDISC,BIN14 b P BERR GETN20 | PGETP50 . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE P CBE BIN13,W10,GETP30 ( P CBE BIN14,W17,GETL05 DELE
0x0a2404…0a2598 Dummy {f00=0x0033, f01=0x0190, f02=»*************** PGETLST FC= 7 P MOVE BIN12,CURSEC . 0 P CBE BDPOIN(W1),W0,GETL05 LAST SECTORADRESS H 2 P CBE CURSEC,BDPOIN(W1),GETL15 CURR.SEC IN RBUF | P MOVE CURSEC,BDPOIN(W1) PGETL05 P MOVE BIN14,=W'33' P PERF DEDISC,B
0x0a2598…0a272c Dummy {f00=0x0033, f01=0x0190, f02=»PR,W10 PGETL25 " P XCOPY BIN13,W0,W2,RBUF,BIN14 ( P CBE BIN13,W0,GETL27 ERROR IN SECTOR B P ADD PRECPR,BIN13 n P ADD BIN14,BIN13 P CBL PRECPR,PRECCUR,GETL25 0 P CBE PRECPR,PRECCUR,GETL30 LAST RECORD FOUND PGETL27 SERIOUS E
0x0a272c…0a28c0 Dummy {f00=0x0033, f01=0x0190, f02=» PGETL40 MOVE BIN13,PRECPR P ADD BIN13,W1 $ ( P CBNE FC,W5,GETL50 JUMP BACK IF GET : P B GETC20 CURRENT RECOPRD f PGETL50 $ P CBE FC,W7,GETL60 JUMP IF GETLST P MOVE PRECCUR,PRECPR P SUB NUMBER,=D'1' $ P CBE FC,W3,GETL53 JU
0x0a28c0…0a2a54 (1, 205) Dummy {f00=0x0033, f01=0x0190, f02=» PGETL60 P MOVE NUMBER,BDPOIN(W2) PGETL90 2 " P COPY DEINPUT,W0,W6,RBUF,BIN13 @ P SET BOOL9 f P B NEWREC x P EJECT POTHERS $ P SUB BIN11,W7 ADJUST FOR DEREC2 : P IB BIN11,DELREC,INSREC,NEWREC,OPENBC,ENTINS,FREREC C
0x0a2a54…0a2be8 Dummy {f00=0x0033, f01=0x0190, f02=»BE BIN14,W17,GETP50 P B GETPRE " P* RESERV SPACE FOR INSERTION * . " P* OF A NEW DATARECORD. * T PINSREC FC= 9 z P PERF DEREC2,BIN11 P BERR DRNO00 P B DROK00 P EJECT P******************** P* CHANGE FORMA
0x0a2be8…0a2d7c Dummy {f00=0x0033, f01=0x018e, f02=»F NOT BATCHHEAD p $ P CBE FC,W7,NEWR07 JUMP IF GETLST P MOVE BIN13,W20 @ P B NEWR32 X PNEWR05 j P TBF DOOL8,NEWR10 x PNEWR07 P MOVE BIN13,W1 P B NEWR32 PNEWFRM P SET BOOL9 PNEWR10 P TBF BOOL9,NEWR15
0x0a2d7c…0a2f10 Dummy {f00=0x0033, f01=0x0190, f02=» PNEWR20 ! P MOVE STR6A,DEINPUT ! * PNEWR25 CBE STR6A,FORTAB(BIN13),NEWR30 ! . P ADD BIN13,W1 ! P CBNE BIN13,DEBINW4,NEWR25 ! r P TBF BOOL9,NEWR28 ! P CBG BIN13,W10,NEWR28 ! P MOVE BIN13,W0 ! P B NEWR35 ! PNEWR28 ! P MOVE
0x0a2f10…0a30a4 Dummy {f00=0x0033, f01=0x0190, f02=»13) ! z PNEWR35 " P CBNE FORMAT,STR6A,NEWR37 " P TBF BOOL9,NEWR34 " < P CBE FC,W14,NEWR36 " V P B NEWR74 " p PNEWR34 " , P TBF DOOL8,NEWR36 JUMP IF NOT BATCHHEAD " " P B ENTN10 ENTRY NEW BATCHHEAD " PNEWR36 " P B DROK00 " PNE
0x0a30a4…0a3238 Dummy {f00=0x0033, f01=0x0190, f02=»TLST " t P CBNE NUMBER,=D'0',NEWR40 # P MOVE FRMTPNTR,SYMREC(W10) # . P B NEWR45 # P PNEWR40 # b P CBNE BIN13,W0,NEWR43 # p P MOVE FRMTPNTR,W0 # P B NEWR45 # PNEWR43 # P MOVE FRMTPNTR,SYMREC(BIN13) # PNEWR45 # P PERF DEDISC,W
0x0a3238…0a33cc Dummy {f00=0x0033, f01=0x0190, f02=» CBE DEBINW4,W9,NEWR28 NOT FOUND # P B DRNO00 $ ( PNEWR46 $ : & P ATTFMT FFETCH ATTACH DUMMYFORMAT $ H P DISPLAY 0,W1,W0 $ r P THOME $ * P CBNE PINDFR,W0,NEWR48 ATTACHED FORMAT $ PNEWR47 $ P MOVE BIN13,W7 $ P ADD BIN13,PRECCUR $ " P CBN
0x0a33cc…0a3560 Dummy {f00=0x0033, f01=0x0190, f02=» XCOPY RECLNTH,W0,W2,RBUF,BIN13 $ P B DRNO00 % ( PNEWR48 % : ( P PERF DEPOOL,W6,PINDFR,BIN14,STRG10A % H P MOVE FORMAT,HEX00 % t P B NEWR35 % PNEWR49 % P MOVE FORMAT,DEINPUT % $ P CBE FC,W4,NEWR50 JUMP IF GETNXT % $ P CBE FC,W7,NEWR50 JUMP
0x0a3560…0a36f4 (1, 206) Dummy {f00=0x0033, f01=0x0190, f02=»CHHEAD % l PNEWR50 & 0 P CBNE BIN13,W0,NEWR52 EXIST IN JOBDEFINITION & PNEWR51 & P $ P MOVE SYMBOL,FORMAT NO SYMBOLIC & ^ P B NEWR65 & PNEWR52 & P MOVE SYMREC(BIN13),FRMTPNTR & P ADD BIN13,W10 & P B NEWR60 & PNEWR55 & P MOVE SY
0x0a36f4…0a3888 Dummy {f00=0x0033, f01=0x0190, f02=»PRECCUR & P TBT BOOL9,NEWR77 ' PNEWR75 ' * * P XCOPY RBUF,BIN13,W1,BPOOL(PINDFR),W0 ' 8 P B NEWR80 ' f PNEWR77 ' x P CBE FC,W14,NEWR75 ' PNEWR74 ' P CBNE FC,W7,NEWR78 ' & P CBE NUMBER,=D'0',NEWR76 BATCHHEAD ' & P XCOPY RBUF,PRECCUR,W9
0x0a3888…0a3a1c Dummy {f00=0x0033, f01=0x0190, f02=»30 ' P B DROK00 ( PNEWR80 ( P ADD BIN13,W1 ( * " P XCOPY RBUF,BIN13,W6,FORMAT,W0 ( @ P ADD BIN13,W6 ( f $ P XCOPY RBUF,BIN13,W2,RECLNTH,W0 ( | , P CBNE FC,W11,NEWR90 JUMP IF NOT OPEN BC ( P B DROK00 ( PNEWR90 ( P SET DOOL4 ( P B
0x0a3a1c…0a3bb0 Dummy {f00=0x0033, f01=0x0190, f02=» WANTED BATCH. ( P* ) * P************************************** ) POPENBC FC=11 ) N P PERF DEREC2,BIN11 ) d P BNOK DRNO20 ) ~ 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY ) P BZ OPBC05 JUMP IF NOT ) " P TEST DOOL1 LOOK IF THIS BATCH )
0x0a3bb0…0a3d44 Dummy {f00=0x0033, f01=0x0190, f02=»E BIN11,W5,OPBC10 ) P* SEARCH OR CONVERSION MODE * POPBC07 * > * P IB BIN12,DROK71,DROK71,OPBC20,DROK00 * L POPBC10 * z P TEST DOOL8 * P BZ DROK00 * 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY * P BNZ DROK00 YES * P SUB BDPOIN(W2
0x0a3d44…0a3ed8 Dummy {f00=0x0033, f01=0x0190, f02=»NG GETN50 * P MOVE NUMBER,BDPOIN(W2) + * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A + 2 , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A + ` P MOVE DEBINW4,W9 + P B DRNO20 + PENTINS FC=12 + P PERF DEREC2,BIN11 + P B ENTOLD + P PEND +
0x0a3ed8…0a406c Dummy {f00=0x0033, f01=0x0190, f02=»HE + r " P* FORMAT NOT HAS BEEN CHANGED , $ P* SINCE THE RECORD WAS STORED ON , 0 P* DISC. , X P* BAD RESULT IS OVERFLOW. , h P* , & P********************************* , PDEREFO PROC , P MOVE DEBINW4,W7 , P ADD DEBINW4,PRECCUR , & P X
0x0a406c…0a4200 Dummy {f00=0x0033, f01=0x4136, f02=»OVE BCD13A,DEBINW3 , P MOVE DEBINW4,=W'38' - P DIV W0,W0 CONDITION =3 - 6 P RET - V P PEND - b PFFETCH FRMT - p P FSL - P FTEXT 'FETCHING FORMAT:' - P FCOPY DEINPUT - P FTEXT ' FROM DISC.' - P FNL - P FKI 1,ALPHA - P FCO
0x0a4200…0a4394 (1, 207) Dummy {f00=0x0034, f01=0x2008, f02=» . OIN(W2),W1 P B NEWR70 PENTINS FC=12 , P PERF DEREC2,BIN11 B P B ENTOLD P PEND n P END |@ F DEREC2,BIN11 P BNOK DRNO20 P CBNE BIN11,W5,OPBC10 P* SEARCH MODE " P IB BIN12,DROK71,DROK71,DROK00
0x0a4394…0a4528 Dummy {f00=0x0034, f01=0x0190, f02=»7 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 6 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x0a4528…0a46bc Dummy {f00=0x0034, f01=0x0190, f02=» r @g@i@k@ "0# ( #W H % W % o 6 0) 2 W ? A W o ~7 h~ ) !PO@ < ~6 h~ ' !< A ! & j !! !@ W 2 W 0: #[A __2 !j !! j ! !$ 00 ! ? A _ !A <
0x0a46bc…0a4850 Dummy {f00=0x0034, f01=0x0190, f02=» ? A _ 0! !< " ? #@ T 0% P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A h U ! < h 8 ? " ? < 1h ! !P !W !j !! ! 3f "d
0x0a4850…0a49e4 Dummy {f00=0x0034, f01=0x0190, f02=» 9 _ " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 00 2 h !T= h !U !P ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~ @
0x0a49e4…0a4b78 Dummy {f00=0x0034, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , /hZ !PDj !! 0 (P 00 !_<( 4 !, z 5h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P &
0x0a4b78…0a4d0c Dummy {f00=0x0034, f01=0x0190, f02=» U j , 1 : ` A g A P n d K : ? - D H + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x0a4d0c…0a4ea0 Dummy {f00=0x0034, f01=0x0190, f02=» V o ~ J N R@ 2 A ! ~U ! 7& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 4 ? jy " $ j !! 1 j !!
0x0a4ea0…0a5034 (1, 208) Opaque[0x194]
0x0a5034…0a51c8 # DirEnt {nam=»DECONV«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0688, f03=0x0000}
0x0a5034…0a51c8 IdxSect {
0x0a5034…0a51c8 f00 = 0x0034 // 0xa5034 @0x0
0x0a5034…0a51c8 f01 = 0x0004 // 0xa5036 @0x2
0x0a5034…0a51c8 gno = [ // 0xa5038 @0x4
0x0a5034…0a51c8 [0x00]: C0x0034.0x1.0
0x0a5034…0a51c8 [0x01]: C0x0034.0x2.0
0x0a5034…0a51c8 ]
0x0a5034…0a51c8 }
0x0a51c8…0a535c Dummy {f00=0x0034, f01=0x0190, f02=» $ P IDENT DECONV REL 10.0 80-04-11 P 80-01-22/AST , DDUM DEDDIV D PDIV X P ENTRY DECONV f P EXT ATTDEV ATTACH DEVICE | P EXT DETPRT DETACH DEVICE P EJECT P EJECT P* @ P* THIS MODULE TAKE CARES OF
0x0a535c…0a54f0 Dummy {f00=0x0034, f01=0x0190, f02=»THE OTHER YOU HAVE TO CODE YOURSELVES. P* . D P* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) 8 @ P* = 1 DATACOMMUNICATION OUT > P* = 2 DATACOMMUNICATION IN 8 P*
0x0a54f0…0a5684 Dummy {f00=0x0034, f01=0x0190, f02=» = 5 DISCFILE ~ : P* = 6 FLOPPYDISC FILE $ : P* = 7 DELETE BATCHES ON USERFILE b P* 8 P* TYPE = TYPE OF HANDLING . P*
0x0a5684…0a5818 Dummy {f00=0x0034, f01=0x0190, f02=»* = 4 BALANCE RECORD 0 P* = 5 CLOSE < P* p 4 P* RETCON = RETURN-CODE z , P* = 0 OK > P* /= 0
0x0a5818…0a59ac Dummy {f00=0x0034, f01=0x0190, f02=»***************************************************** v P EJECT > PDECONV PROC FC,TYPE,RETCON L P* n 6 P IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C x " P PRINTA,DISCFL,FLOPPY,DELETE PTRANSM PRECEIV PCASSET PDISCFL
0x0a59ac…0a5b40 Dummy {f00=0x0034, f01=0x018e, f02=»S IS THE PRINTOUT FUNCTION P* " PPRINTA , : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C : P PR200,PR500 x P B ERROR P* * P* OPEN DEVICE = ATTACH PRINTER P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH D
0x0a5b40…0a5cd4 (1, 209) Dummy {f00=0x0034, f01=0x0190, f02=» ^ P* PPR200 P EDWRT DEDSPRT,FCOUNT P BNOK PR298 > P MOVE DEBINW3,W1 R P PRINT DEDSPRT,DEBINW3,W0 j P BNOK PR298 P B DECOOK PPR298 2 P MOVE DEBINW4,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND C
0x0a5cd4…0a5e68 Dummy {f00=0x0034, f01=0x0190, f02=» P EJECT P* 8 P* THIS ROUTINE DELETE BATCHES ON THE USERFILE P* PDELETE f P IB TYPE,DECOOK,DEL100 t P B DECOOK PDEL100 P MOVE RETCON,=W'-5' P B RETURN P EJECT P* P* OK
0x0a5e68…0a5ffc Dummy {f00=0x0034, f01=0x40c0, f02=» NEW PAGE P FILLR ' ',2 P FILLR '*',10 & P FTEXT 'NUMBER: ' < P FMEL '9999',NUMBER V P FEOR r P FILLR ' ',2 P FEOR P FMEND END @ W'-5' P B RETURN P EJECT P* P* OK
0x0a5ffc…0a6190 Dummy {f00=0x0034, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0a6190…0a6324 Dummy {f00=0x0034, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x0a6324…0a64b8 Dummy {f00=0x0034, f01=0x0190, f02=» jS42 0 4 SRz SOjS22 0 _G b * & 1Rnj 82 0 1Rbj :2 0bS < 0 c . * & + <jS62 0 4 SR> _ 0 52 R0b c * & I 0: 19b :L 10 42 R 0 a0 0 c * & g b0 0 `0 Q4 3 _# A_ c * & 3 SZ 4 SZ 0 0 02 3
0x0a64b8…0a664c Dummy {f00=0x0034, f01=0x0190, f02=» j 02 c p * & d _ !T= !T> []1 $A 2 d * & _ 1 %_ 0 ] XP XYP [ 1 d < * & 9 #A 2 _ ZjR71`10 15 d j * & W jR61 0jR88[0bR@6Z0 EjR 111 d * & u FjR 2N0!T=$jR 121jR 2M0!T< h d * & jR 1 1 gjR
0x0a664c…0a67e0 Dummy {f00=0x0034, f01=0x0190, f02=» d n F < e * & g - # e $ * & ! 1 2 4 6 8 NYX BC JC e R * & ? NO.Y/NSIZECOPY JOB:COPY BATCH: e * & ] OF RECORDS:BLOCKING FACTOR:SEC e * & { TOR LENGTH L/H:NO. OF SECTORS e *
0x0a67e0…0a6974 (1, 210) Opaque[0x194]
0x0a6974…0a6b08 # DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0698, f03=0x0000}
0x0a6974…0a6b08 IdxSect {
0x0a6974…0a6b08 f00 = 0x0034 // 0xa6974 @0x0
0x0a6974…0a6b08 f01 = 0x0004 // 0xa6976 @0x2
0x0a6974…0a6b08 gno = [ // 0xa6978 @0x4
0x0a6974…0a6b08 [0x00]: C0x0034.0x3.0
0x0a6974…0a6b08 [0x01]: C0x0035.0x0.0
0x0a6974…0a6b08 ]
0x0a6974…0a6b08 }
0x0a6b08…0a6c9c Dummy {f00=0x0034, f01=0x0190, f02=» $ P IDENT DEDISC REL 10.0 80-04-11 P 80-02-11/CHST , P* D P* N L P************************************************************************ X P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P*
0x0a6c9c…0a6e30 Dummy {f00=0x0034, f01=0x0190, f02=» H P* P* P DDUM DEDDIV P PDIV 0 P ENTRY DEDISC > P ENTRY COND T P ENTRY RELEAS h P ENTRY SCHPOO ~ P ENTRY RETURN P ENTRY WAIT P ENTRY STRT01 P* P EXT DEPOOL P EXT WRFSP P EXT
0x0a6e30…0a6fc4 Dummy {f00=0x0034, f01=0x0190, f02=» EXT DLCURR P EXT WRIACC P EXT WRTCO ( P EXT GETTBL : P EXT DELBTC N P EXT RECURR b P EXT ENTJOB v P EXT GETJOB P EXT SCHJOB P EXT DELJOB P EXT ENTFMT P EXT DELFMT P EXT GETSYS P EXT E
0x0a6fc4…0a7158 Dummy {f00=0x0034, f01=0x0190, f02=»XT OPNEBC P EXT OPNNBC P EXT NXJOB & P EXT NXBTH 8 P* J P* T PATTACH EQU X'0E' ^ PDETACH EQU X'0F' v P EJECT PDEDISC PROC FC P* * P* BRANCH TO PROGRAM INDICATED BY FC P* P PBIN FC P CLE
0x0a7158…0a72ec Dummy {f00=0x0034, f01=0x0190, f02=»W95PR P MOVE DEBINW4,W0 PSTRT01 & P IB FC C0000000000000 4 P ENTJOB ENTER JOBDEF C R P GETJOB GET JOBDEF C r P DUMMY C P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C P OPNNBC OPEN NEW BATCH C " P OP
0x0a72ec…0a7480 Dummy {f00=0x0034, f01=0x0190, f02=» P SCHFMT SEARCH FORMAT C P DELFMT DELETE FORMAT C ( ( P WRICUR WRITE CURRENT DATA-SECTOR C H $ P GTNEXT GET NEXT DATA-SECTOR C t ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C ( P WRIACC WRITE ACCUM
0x0a7480…0a7614 (1, 211) Dummy {f00=0x0035, f01=0x0190, f02=» " P DUMMY GET PREVIOUS JOBNAME C " P WRTCO WRITE SECTOR (CORR) C * P GETTBL GET TABLE C P P DELTBL DELETE TABLE C l P ENTTBL ENTER TABLE C P DELBTC DELETE BATCH C " P DUMMY GET NO OF FREESPACES C & P NEXJOB GET NEXT JOBDEF
0x0a7614…0a77a8 Dummy {f00=0x0035, f01=0x0190, f02=» READ CURRENT SCTR C P NXBTH GET NEXT BATCHNAME C P DUMMY GET PREV BATCHNAME @ P EJECT b P* p PDUMMY z PRETURN P TBF SWITFS,RETUNF P PERF WRFSP,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 P
0x0a77a8…0a793c Dummy {f00=0x0035, f01=0x0190, f02=» P* P* SET CONDITION-REGISTER P* 0 PCOND PROC : P CBL DEBINW4,W0,CON1 L P CBE DEBINW4,W0,CON0 h P CMP W1,W2 P RET PCON1 P CMP W2,W1 P RET PCON0 P CMP W1,W1 P RET P PEND P*
0x0a793c…0a7ad0 Dummy {f00=0x0035, f01=0x0190, f02=»51' P CALL CHANFC,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 , P BNERR WARE2 J P MOVE DEBINW4,W3 ^ PWARE v P PERF COND P RET PWARE2 P SET SWITWT P SWITCH P B WARE P* P* P PEND $ PRELE
0x0a7ad0…0a7c64 Dummy {f00=0x0035, f01=0x417a, f02=» DSC1 DISK,DETACH,W0 PRELRET P RET * P PEND 6 P* D P* N ( P* SUBROUTINE SCHPOO, SEARCH POOL X P* PSCHPOO PROC IND,STRG,WX P PLIT IND P PSTRG STRG P PBIN WX P MOVE STRG10A,IND P COPY STRG
0x0a7c64…0a7df8 Dummy {f00=0x0035, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x0a7df8…0a7f8c Dummy {f00=0x0035, f01=0x0190, f02=» R F J N11 P # W !02 p! u ! " !! w jw!! {1j !! {2 w d ";@h u" ! Kh !@k ~00"oT 2j~ # # - b o -( q0" TF b , ! , " , # 7 h ) b#T" # # ( 0 , b _1Ii !"d &%( _ #$d &% W 11 4
0x0a7f8c…0a8120 Dummy {f00=0x0035, f01=0x0190, f02=»Ak4 + 11 P W !; 11 P # W ! 4 | NO#L:PAGEFIELDLINE LENGTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION Z9XXXZZ9XE+XXZZVZZ9ZZVZZZ 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $
0x0a8120…0a82b4 (1, 212) Opaque[0x194]
0x0a82b4…0a8448 # DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06a8, f03=0x0000}
0x0a82b4…0a8448 IdxSect {
0x0a82b4…0a8448 f00 = 0x0035 // 0xa82b4 @0x0
0x0a82b4…0a8448 f01 = 0x000a // 0xa82b6 @0x2
0x0a82b4…0a8448 gno = [ // 0xa82b8 @0x4
0x0a82b4…0a8448 [0x00]: C0x0035.0x1.0
0x0a82b4…0a8448 [0x01]: C0x0035.0x2.0
0x0a82b4…0a8448 [0x02]: C0x0035.0x3.0
0x0a82b4…0a8448 [0x03]: C0x0036.0x0.0
0x0a82b4…0a8448 [0x04]: C0x0036.0x1.0
0x0a82b4…0a8448 ]
0x0a82b4…0a8448 }
0x0a8448…0a85dc Dummy {f00=0x0035, f01=0x0190, f02=» " P IDENT DKRUT1 REL10.0 80-04-11 P 80-01-18/CHST * * B > :********************************************************** L * 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4
0x0a85dc…0a8770 Dummy {f00=0x0035, f01=0x0190, f02=» 21 = NO DISC IN SPECIFIED UNIT & P* 22 = DISC I/0-ERROR 4 * P* 23 = DISC NOT OPERABLE ^ * @ ;*********************************************************** P DDUM DEDDIV P PDIV P EXT WAIT
0x0a8770…0a8904 Dummy {f00=0x0035, f01=0x0190, f02=» P EXT RETURN P EXT ATTWB P EXT RESTOR . P EXT COND B P EXT READDK T P EXT WRITDK h P ENTRY RDDS | P ENTRY WRDS P ENTRY DISU P ENTRY WRFSP P ENTRY REFSP P ENTRY WRIACC P ENTRY WRICUR
0x0a8904…0a8a98 Dummy {f00=0x0035, f01=0x0190, f02=»SP P ENTRY RDACC P ENTRY OFRSP P ENTRY GTNEXT 2 P ENTRY GTPREV H P ENTRY DLCURR ^ P ENTRY DLRCCH t EJECT PDISU PROC FUZ,RECNO,BUF P PBIN FUZ P PBIN RECNO P PSTRG BUF P IB FUZ C P READ
0x0a8a98…0a8c2c Dummy {f00=0x0035, f01=0x0190, f02=» P BOK READSY01 PERF DKER P TBT NEWVOL,READSY , PREADSY01 F P PERF COND V RET h PWRITSY t 4 P CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01
0x0a8c2c…0a8dc0 Dummy {f00=0x0035, f01=0x0190, f02=»F DKER P TBT NEWVOL,READUS PREADUS01 ( P PERF COND 8 RET J PWRITUS V : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO d P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND R
0x0a8dc0…0a8f54 (1, 213) Dummy {f00=0x0035, f01=0x0190, f02=» DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A H & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P PBIN RNR 8 P CALL READDK,DISK,FI
0x0a8f54…0a90e8 Dummy {f00=0x0035, f01=0x0190, f02=»ALL WRITDK,DISK,FILECODE(FILINDUS),RBUF,USELEN,RNR P PERF COND : P RET L P PEND X EJECT f @ <************************************************************ t * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DIS
0x0a90e8…0a927c Dummy {f00=0x0035, f01=0x018e, f02=»************ ` * DKER PROC P CLEAR NEWVOL 0 P XSTAT DISK,DKBIN1 F P MOVE BCD13A,DKBIN1 ` P MOVE DKBIN2,=X'8022' | P CALL MASK,DKBIN1,DKBIN2 P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10
0x0a927c…0a9410 Dummy {f00=0x0035, f01=0x018e, f02=» P MOVE DKBIN2,W128 P CALL MASK,DKBIN1,DKBIN2 " P BZ DKER30 B " P SET NEWVOL NEW VOLUME LOADED T P RET z PDKER30 P MOVE DKBIN2,W1 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE
0x0a9410…0a95a4 Dummy {f00=0x0035, f01=0x0190, f02=» P MOVE DKBIN1,FINDEXPO(MAX) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 & * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 R P MOVE DKBIN1,FFSNR(MAX) 8 P CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1 P BNERR WRFRET P PERF DKER PWRFR
0x0a95a4…0a9738 Dummy {f00=0x0035, f01=0x0190, f02=»01 8 P CALL READDK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR P BNERR REFCOP F P PERF DKER P TBT NEWVOL,REFS01 n PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) P MOVE FFSNR(FIND),FSRNR ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P C
0x0a9738…0a98cc Dummy {f00=0x0035, f01=0x0190, f02=»N,BUF P TBT SWIT04,US01 P PERF DISU,W1,BIN,BUF & P B DRET D PUS01 T P PERF DISU,W3,BIN,BUF ` PDRET ~ P RET P PEND PWR PROC BIN,BUF P TBT SWIT04,US02 P PERF DISU,W2,BIN,BUF P B DRET PUS02
0x0a98cc…0a9a60 Dummy {f00=0x0035, f01=0x0190, f02=»TORS l P* PRDACC PROC P PERF WAIT ( P PERF DISU,W3,DEBIN1,SYSBUF : P BERR RDARET ^ * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 r ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 PRDARET P PERF COND P RET P PEND P*
0x0a9a60…0a9bf4 (1, 214) Dummy {f00=0x0035, f01=0x0190, f02=» COPY SYSBUF,W10,W188,BPOOL(PINACC),W0 ( P XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 . P PERF DISU,W4,DEBIN1,SYSBUF Z P PERF COND ~ P RET P PEND P* P EJECT P* P* PDUMPROC PROC FC PWRICUR P PERF FREESP
0x0a9bf4…0a9d88 Dummy {f00=0x0035, f01=0x0190, f02=»OPY RBUF,W0,W2,STR2A,W0 P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 D PWRIT05 h & P PERF WRDS,CURSEC WRITE RECORDAREA v P BNERR WRIT02 P* P* WRITING - ERROR P* 0 P PERF FREESP,DEBIN2,FILINDUS GET N
0x0a9d88…0a9f1c Dummy {f00=0x0035, f01=0x0190, f02=» ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? * P PERF RDDS,DEBIN3 READ PREV RECORD(S) 0 P BERR ENDERR ^ $ P SET CONTINUATION IN PREV SCTR r P XCOPY RBUF,W4,W2,CURSEC,W0 * P PERF WRDS,DEBIN3 WRITE PREV RECORD(S) P BNERR WRIT05 P GET
0x0a9f1c…0aa0b0 Dummy {f00=0x0035, f01=0x0190, f02=»OF PREV t P BERR ENDERR " P PREV OF PREV = END OF CHAIN $ P XCOPY RBUF,W4,W2,W0,W0 J ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV j PENDERR * P MOVE DEBINW4,W21 INDICATE DISC-ERROR P B WRIT07 P* P* OKAY P*
0x0aa0b0…0aa244 Dummy {f00=0x0035, f01=0x0190, f02=» NO OF OCC BYTES P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO 8 P TBF SWIT01,WRIT07 f . P MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' PWRIT07 P B RETURN P* P* P* P* PWRIACC P
0x0aa244…0aa3d8 Dummy {f00=0x0035, f01=0x018e, f02=»CTOR(S) v P B RETURN P* " P* , P* 6 PCLSBTH CLOSE BATCH @ P MOVE DEBIN1,W0 P B WRIT01 t P* P* P* PRECURR " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA P MOVE DEBINW
0x0aa3d8…0aa56c Dummy {f00=0x0035, f01=0x0190, f02=» $ P PERF RDDS,DEBIN1 READ SECTOR(S) P BERR RETURN , & P CBE FC,W16,GT003 JUMP IF GETPREV @ P GET LINK PREV FOR CONTROL j P XCOPY DEBIN2,W0,W2,RBUF,W2 P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P IF NOT OK, ZEROISE LINK
0x0aa56c…0aa700 Dummy {f00=0x0035, f01=0x0190, f02=»4,W9 P B RETURN PGT003 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER , P B RETURN P* n P* x P* PGTPREV P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCURR P SET SWIT04
0x0aa700…0aa894 (1, 215) Dummy {f00=0x0036, f01=0x0190, f02=»* P* B P* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE P* Z P* d PFREESP PROC RECN,INDEX n P MOVE DEBINW4,W0 P CLEAR SWIT06 P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) 2 P CALL
0x0aa894…0aaa28 Dummy {f00=0x0036, f01=0x0190, f02=»NDEX),FND r P SET SW95PR P B FND & PNOFN 4 * P XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 @ P CBE DKBIN3,W0,EOFCHN n PFSP02 P PERF SAVESB P PERF WRFSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX P BERR RESSY
0x0aaa28…0aabbc Dummy {f00=0x0036, f01=0x0190, f02=»ET SWIT06 P MOVE DKBIN3,W2 P B FSP02 * PNOFSP : P MOVE DEBINW4,W10 H PFND b P CBG INDEX,W1,NEFE n P SET SWITFS PNEFE P PERF COND P RET P PEND P* P* 4 P* SUBROUTINE RFRSP, FREE RECOR
0x0aabbc…0aad50 Dummy {f00=0x0036, f01=0x0190, f02=»,INDEX GET FSP-REC WITH RECNO IN IT ~ 2 P CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO , P ADD FNOOFREC(INDEX),W1 b & P CBNE INDEX,W1,RFRSP1 JUMP IF NOT P SET SWITFS SYSTEMFILE PRFRSP1 P PERF COND P RET P PEND P*
0x0aad50…0aaee4 Dummy {f00=0x0036, f01=0x0190, f02=»SYNTAX: PERF GFRSPR,RECNO,INDEX 2 P* INDEX = INDEX TO CURRENT FILE , P* b PGFRSPR PROC RECNO,INDEX l PANFANG P MOVE DKBIN1,W1 P CBE INDEX,W1,SYSFLE P MOVE DKBIN1,USELEN * P DIV DKBIN1,SECLEN GET NO OF S
0x0aaee4…0ab078 Dummy {f00=0x0036, f01=0x0190, f02=»ACE d P SUB DKBIN2,W12 P MUL DKBIN2,W8 $ P DIV DKBIN2,DKBIN1 : . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS T < P XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR . P MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR . P ADD DKBIN1,DKBI
0x0ab078…0ab20c Dummy {f00=0x0036, f01=0x0190, f02=»DEBIN4,FINDEXPO(INDEX) P RET " PNEXT GET NEXT FREESP-RECORD * P MOVE DKBIN1,W13 P PREAD h 6 P XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK t P CBE DEBIN4,W0,GFRET P PERF SAVESB P PERF WRFSP,INDEX P BERR GFREST
0x0ab20c…0ab3a0 Dummy {f00=0x0036, f01=0x0190, f02=» PPREV P MOVE DKBIN1,W11 P B READ , P PEND < P* J P* T P* SUBROUTINE OFRSP ^ 0 P* SET RECORD ACCORDING TO RECNO OCCUPIED | P* POFRSP PROC RECNO,INDEX P PERF GFRSPR,RECNO,INDEX 2 P CALL SETOCC,BPO
0x0ab3a0…0ab534 (1, 216) Dummy {f00=0x0036, f01=0x0190, f02=»1),DEBINW4 PSAVPOO P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 8 * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A P P BNERR SAVOK ~ P SWITCH P B SAVPOO PSAVOK P MOVE WORK(W2),DKBIN1 ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0
0x0ab534…0ab6c8 Dummy {f00=0x0036, f01=0x018e, f02=»C RESTORE SYSBUF FROM POOL P MOVE DKBIN1,WORK(W2) $ ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 B * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 n * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A P RET P PEND P EJECT P* H P* SUBROUTI
0x0ab6c8…0ab85c Dummy {f00=0x0036, f01=0x0190, f02=» P XCOPY DEBIN2,W0,W2,BUF,W2 P XCOPY DEBIN1,W0,W2,BUF,W4 & P CBNE DEBIN1,W0,DL001 H P SET BOOL9 f P B RREPRE x PDL001 P PERF RD,DEBIN1,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEBIN2,W0
0x0ab85c…0ab9f0 Dummy {f00=0x0036, f01=0x0190, f02=»F NO MORE IN CHAIN z ( P PERF RD,DEBIN2,BUF READ NEXT RECORD ! P BERR DLRET ! F 0 P XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD ! Z 0 P PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK ! PDL003 ! P MOVE DEBIN5,DEBIN1 ! P B DL006 ! PDL004 !
0x0ab9f0…0abb84 Dummy {f00=0x0036, f01=0x018e, f02=»2 ! PDL008 " P PERF RD,DEBIN2,BUF " P BERR DLRET " 4 P XCOPY DEBIN5,W0,W2,BUF,W4 " H P XCOPY BUF,W4,W2,DEBIN1,W0 " j P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBI
0x0abb84…0abd18 Dummy {f00=0x0036, f01=0x401e, f02=» P* # END # @ # RD,DEBIN2,BUF " P BERR DLRET " 4 P XCOPY DEBIN5,W0,W2,BUF,W4 " H P XCOPY BUF,W4,W2,DEBIN1,W0 " j P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBI
0x0abd18…0abeac Dummy {f00=0x0036, f01=0x2008, f02=» $ NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x0abeac…0ac040 Dummy {f00=0x0036, f01=0x0190, f02=» ] $ ?FMDA 1 0 0 0 z h s s !T}6 )) !@|Tkj !! ! j !! 10 _H !j !! $ !A !@( "90! !T2@e@i@k !" ? 'hZ 2 !TS &6 " _ Ai_8Ae_<" y 4WsAkW !j !! ( ~
0x0ac040…0ac1d4 (1, 217) Opaque[0x194]
0x0ac1d4…0ac368 # DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06d0, f03=0x0000}
0x0ac1d4…0ac368 IdxSect {
0x0ac1d4…0ac368 f00 = 0x0036 // 0xac1d4 @0x0
0x0ac1d4…0ac368 f01 = 0x000a // 0xac1d6 @0x2
0x0ac1d4…0ac368 gno = [ // 0xac1d8 @0x4
0x0ac1d4…0ac368 [0x00]: C0x0036.0x2.0
0x0ac1d4…0ac368 [0x01]: C0x0036.0x3.0
0x0ac1d4…0ac368 [0x02]: C0x0037.0x0.0
0x0ac1d4…0ac368 [0x03]: C0x0037.0x1.0
0x0ac1d4…0ac368 [0x04]: C0x0037.0x2.0
0x0ac1d4…0ac368 ]
0x0ac1d4…0ac368 }
0x0ac368…0ac4fc Dummy {f00=0x0036, f01=0x0190, f02=» $ P IDENT DKRUT2 REL 10.0 80-04-11 P 80-01-21/CHST , > :********************************************************** D * * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS * FOLLOWS: * 0 =
0x0ac4fc…0ac690 Dummy {f00=0x0036, f01=0x0190, f02=» 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE * J @ ;*********************************************************** T P DDUM DEDDIV P PDIV P EXT WAIT ENTRY ENTFMT ENTRY DELFMT ENTRY PREFMT
0x0ac690…0ac824 Dummy {f00=0x0036, f01=0x0190, f02=»H P EXT RFRSP P EXT RD P EXT REFSP , P EXT EMPTYT > P EXT WRFSP R P EXT NOFFRE d P EXT COND x P EXT ALGO P EXT RETURN P EXT EMPTYT P EXT DEPOOL P EXT GETIND P EXT DEDISC P EXT CMP
0x0ac824…0ac9b8 Dummy {f00=0x0036, f01=0x0190, f02=» P MOVE DEBINW4,W0 P IB FUCO C P OPENSY C 4 P CLOSSY C H P OPENUS C P CLOSUS p POPENSY P TBF BOOLA1,GOON P SWITCH P B OPENSY PGOON P SET SWITSY P BNZ OPENSY04 P SET BOOLA
0x0ac9b8…0acb4c Dummy {f00=0x0036, f01=0x018e, f02=»),W1,OPENSY04 P MOVE STRG10A,=C'SYSFIL ' P MOVE JOBNAME,FVOLNAME(W1) 8 8 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,STRG10A,JOBNAME Z P BOK OPENSY02 POPENSY06 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 P CLEAR SWITSY P MOVE
0x0acb4c…0acce0 Dummy {f00=0x0036, f01=0x018e, f02=» ~ PDES1 " P CALL CMPIND,DKBIN1,BPOOL(W1) P BNOK DES2 OUT OF RANGE : P MOVE RPOOL(DKBIN1),=X'5800' Z P ADD DKBIN1,W1 ~ P B DES1 PDES2 P PERF NOFFRE,DEBIN1,W1 P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF
0x0acce0…0ace74 (1, 218) Dummy {f00=0x0036, f01=0x0190, f02=» * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A P BNOK OPENSY06 2 P MOVE FINDEXPO(W1),DKBIN1 H P PERF REFSP,W2,W1 j P BNOK OPENSY06 POPENSY07 P READ SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 P CLEAR BOOLA1 P
0x0ace74…0ad008 Dummy {f00=0x0036, f01=0x018e, f02=» " P CBG FCOUNTER(W1),W0,CLOSSY02 P PERF WRFSP,W1 * P BNOK CLOSSY01 @ P PERF DISU,W1,W1,SYSBUF V P BNOK CLOSSY01 v P PERF DISU,W2,W1,SYSBUF PCLOSSY01 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 PCLOSSY02 P PERF COND
0x0ad008…0ad19c Dummy {f00=0x0036, f01=0x0190, f02=» P BERR OPENUS03 P PERF SETUSE P BERR OPENUS03 . P B OPENUS01 D PGOONN X P SET SWITUS f P BNZ OPENUS0C z P SET BOOLA2 P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E P
0x0ad19c…0ad330 Dummy {f00=0x0036, f01=0x0190, f02=»NOK OPENUS02 P PERF NOFFRE,DEBIN1,FILINDUS P BOK OPENUS0D 8 P SET SWIT01 N POPENUS0D b $ P MOVE FNOOFREC(FILINDUS),DEBIN1 r P PERF DISU,W3,W1,RBUF P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5
0x0ad330…0ad4c4 Dummy {f00=0x0036, f01=0x018e, f02=» FILE CLOSED? P CBE DKBIN1,W0,USCLS P SET SWIT01 2 PUSCLS F P XCOPY RBUF,W0,W1,W7,W1 T P PERF DISU,W4,W1,RBUF t P BOK OPENUS0B P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DKBIN3,W1
0x0ad4c4…0ad658 Dummy {f00=0x0036, f01=0x0190, f02=» P PERF REFSP,W2,FILINDUS P PERF RELEAS $ P BOK OPENUS01 8 $ P MOVE DKBIN1,FINDEXPO(FILINDUS) N * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A v OPENUS02 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 P MOVE DEBINW4,W21 POPEN
0x0ad658…0ad7ec Dummy {f00=0x0036, f01=0x0190, f02=»E DEBINW4,=W'-2' POPENUS0C P CLEAR BOOLA2 ( P PERF COND > RET P PCLOSUS P TBF SWITUS,CLOSUS01 j P CLEAR SWITUS P SUB FCOUNTER(FILINDUS),W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK
0x0ad7ec…0ad980 Dummy {f00=0x0036, f01=0x0190, f02=»K CLOSUS02 P XCOPY RBUF,W0,W1,W0,W1 P PERF DISU,W4,W1,RBUF 2 P BNOK CLOSUS02 P PCLOSUS02 f 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 v CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLE
0x0ad980…0adb14 (1, 219) Dummy {f00=0x0037, f01=0x0190, f02=»E DKBIN1,W0,SETNOZ P MOVE DKBIN1,W1 PSETNOZ 2 P MUL DKBIN1,SECLEN @ $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 Z P CBNG DKBIN1,DKBIN2,SETOKA P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1
0x0adb14…0adca8 Dummy {f00=0x0037, f01=0x0190, f02=»PROC FC P* PENTFMT ENTER FORMAT P PERF WAIT 8 P BERR RETURN J P MOVE STR6A,FORMAT ^ P PERF FREESP,DEBIN1,W1 x P BERR RETURN P MOVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN P MOVE DEBIN5,W4 PRDCHAI
0x0adca8…0ade3c Dummy {f00=0x0037, f01=0x018e, f02=» v P B RETURN PFST3 : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 & : P CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? d PADDENTRY , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME
0x0ade3c…0adfd0 Dummy {f00=0x0037, f01=0x018e, f02=» P ADD DEBIN4,W10 4 P XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF T P B RETURN x PFFIRST P MOVE DEBIN3,W0 P MOVE DEBINW4,W0 P B FFST01 PRENEXT 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GE
0x0adfd0…0ae164 Dummy {f00=0x0037, f01=0x0190, f02=» p P PERF DISU,W2,DEBIN3,SYSBUF PFFST01 , P MOVE DEBIN4,W10 : 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION R 2 P XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY PWR
0x0ae164…0ae2f8 Dummy {f00=0x0037, f01=0x0190, f02=»IN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 4 ( P CBE DEBIN2,W0,NOMOREC LAST RECORD? b P PERF FREESP,DEBIN4,W1 P BNERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK
0x0ae2f8…0ae48c Dummy {f00=0x0037, f01=0x018e, f02=» 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 @ P PERF DISU,W2,DEBIN1,SYSBUF n P BERR RETURN P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,=
0x0ae48c…0ae620 Dummy {f00=0x0037, f01=0x0190, f02=» P SET SWIT01 P B COP P* & P* 0 P* : P* D P* N PNEXFMT GET NEXT FORMAT X P SET SWIT03 x P* P* PPREFMT P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4
0x0ae620…0ae7b4 (1, 220) Dummy {f00=0x0037, f01=0x0190, f02=»A,FORMAT P PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN 2 P MOVE RNRFMCH,DEBIN1 F P MOVE PTRFMCH,DEBIN2 b P SUB PTRFMCH,W8 ~ PRRECNZ P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC0
0x0ae7b4…0ae948 Dummy {f00=0x0037, f01=0x0190, f02=»N PRREC01 0 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 GET USED SPACE P TBF SWIT03,RREC02 L P ADD PTRFMCH,W10 f P CBE PTRFMCH,DEBIN1,RREC03 ~ PRREC07 P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05
0x0ae948…0aeadc Dummy {f00=0x0037, f01=0x018e, f02=» MOVE PTRFMCH,W0 P B RRECNY PRREC02 * P CBL PTRFMCH,W20,RREC06 8 6 P CBNL DEBIN1,PTRFMCH,RREC02A IF WITHIN USED SPACE X . P MOVE PTRFMCH,DEBIN1 UPDATE WITH MAX LIMIT PRREC02A P SUB PTRFMCH,W10 P B RREC07 PRREC06
0x0aeadc…0aec70 Dummy {f00=0x0037, f01=0x0190, f02=» x & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 2 P MOVE STR6A,FORMAT Z P B NXPRFM t P* P* P* PDELFMT DELETE FORMAT P PERF WAIT P BNOK RETURN P MOVE STR6A,FORMAT P CLEAR
0x0aec70…0aee04 Dummy {f00=0x0037, f01=0x018e, f02=»C h 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBUF,DEBIN2,W10 B P SUB DEBIN1,W10 b 0 P XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE z P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P BERR RETU
0x0aee04…0aef98 Dummy {f00=0x0037, f01=0x0190, f02=» r P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 2 PDELF3 F P MOVE DEBINW4,W9 T PDELF31 l * P CBNE FC,W9,DELF32 JUMP IF NOT ENTFMT z 6 P MOVE DEBINW4,WORK(W9) RESTORE ORIGINAL ERROR CODE PDELF32 P B RETURN PDELF2
0x0aef98…0af12c Dummy {f00=0x0037, f01=0x4160, f02=»RD j P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF < P CBE DEBIN1,W0,DELF31 H P PERF DISU,W1,DEBIN1,SYSBUF f P BERR RETURN P COPY STR2A,W0,W2,SYSBUF,W0 P CBNE STR2A,=X'4600',DELF3 P PERF RFRSP,DEBIN1,W1 " P XCOPY
0x0af12c…0af2c0 Dummy {f00=0x0037, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x0af2c0…0af454 (1, 221) Dummy {f00=0x0037, f01=0x0190, f02=» Wp Wj Wb Sf !WAH{ W<0A " m W W 0! !T3m W 0! !T&m W 0h U ! V !!4 !"4 80 11 / 6 ''' ' y ''' "W% ," "0 We0F W "_ '_ !0F ! 2 W 0 0 (P" &W:6 33 33 333 36
0x0af454…0af5e8 Dummy {f00=0x0037, f01=0x0190, f02=»#4 @ 0C P j !!!WP U00 P m ( &W 0) = b !Z/h U ! !Q !4 !03@ T 0% j %! !01 ! 0F ( ! 6 cv6 C & 4 W 1W 200 P " "Jh !U !TA00 T h ! !T006 _ A 00 T f !0% 0301 _ 0 0 (P h ! !P 11 _ 11 !00 X 0
0x0af5e8…0af77c Dummy {f00=0x0037, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 < . . 9 DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION : FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x0af77c…0af910 Dummy {f00=0x0037, f01=0x0190, f02=»8 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 7 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x0af910…0afaa4 Dummy {f00=0x0037, f01=0x0190, f02=» T H L P 6@d@g0+ 03W0 Ad0. 0/ R Ag0D ! P "Hd 0. 0/ 4 ! ! @ 4h $ !6 ++ W) "@|Tyj !! ! j !! 00 _IT[ !j !! 6 nnWO@e !6 ! 3h ! !P !@i ! 9 5h * !TY2 W "_ !
0x0afaa4…0afc38 Dummy {f00=0x0037, f01=0x0190, f02=»! 6 & ) 0! ! W30! !P(_ 0! ! $W ( 0A # W a " Hi b " !P 6 ! "W ! "W ! "W ! "S ? #? He U m " 0! !< ? ( 0. 0/ 0* 00 TJ U m ! P Q 0* , ~1d ! ~ W f ! ! 0 06 0( ?
0x0afc38…0afdcc Dummy {f00=0x0037, f01=0x0190, f02=»TTTTTTTTT9 ! 0 0 0 @ 0 4 4h $ !6 ++ W) "@|Tyj !! ! j !! 00 _IT[ !j !! 6 nnWO@e !6 ! 3h ! !P !@i ! 9 5h * !TY2 W "_ !
0x0afdcc…0aff60 Dummy {f00=0x0037, f01=0x4156, f02=» a& a&4 < o = * & ; m n = 0 DEPOOL = ^ * & 9 . a = p * & W R J BC JC JD = * & u =
0x0aff60…0b00f4 (1, 222) Opaque[0x194]
0x0b00f4…0b0288 # DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x06f8, f03=0x0000}
0x0b00f4…0b0288 IdxSect {
0x0b00f4…0b0288 f00 = 0x0037 // 0xb00f4 @0x0
0x0b00f4…0b0288 f01 = 0x0008 // 0xb00f6 @0x2
0x0b00f4…0b0288 gno = [ // 0xb00f8 @0x4
0x0b00f4…0b0288 [0x00]: C0x0037.0x3.0
0x0b00f4…0b0288 [0x01]: C0x0038.0x0.0
0x0b00f4…0b0288 [0x02]: C0x0038.0x1.0
0x0b00f4…0b0288 [0x03]: C0x0038.0x2.0
0x0b00f4…0b0288 ]
0x0b00f4…0b0288 }
0x0b0288…0b041c Dummy {f00=0x0037, f01=0x0190, f02=» $ P IDENT DKRUT3 REL 10.0 80-04-11 P 80-01-21/CHST , P* D P* N L P************************************************************************ X P* P* : P* ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE P* , P*
0x0b041c…0b05b0 Dummy {f00=0x0037, f01=0x0190, f02=» H P* P* P DDUM DEDDIV P PDIV 0 P ENTRY NXPRFM > P EXT COND T P EXT DISU f P EXT DEPOOL x P EXT WRFSP P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P ENTRY GETSYS P ENTRY
0x0b05b0…0b0744 Dummy {f00=0x0037, f01=0x0190, f02=» P EXT RFRSP P EXT RD P ENTRY ALGO * P ENTRY GETTBL > P ENTRY DELTBL T P ENTRY ENTTBL j P EXT RDDS P EJECT PDUMPROC PROC FC PGETFMT GET FORMAT P MOVE RNRFMCH,W0 P MOVE STR6A,DEINPUT P
0x0b0744…0b08d8 Dummy {f00=0x0037, f01=0x0190, f02=»C PRDDK P MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI . P CLEAR SWIT04 L P PERF SFMTCH,W4,SYSBUF,W10 b P BERR RETURN PRDDK98 P TEST SWIT02 P BNZ RETURN P READ 1ST REC OF FMT P MOVE SYSBUF,HEX00 P P
0x0b08d8…0b0a6c Dummy {f00=0x0037, f01=0x0190, f02=»00 IF GETNEXT | & P CBE FC,=W'32',RDDK100 IF GETPREV P SET SWIT07 @ P BNZ SETER T PRDDK100 f P PERF RELEAS v P B STRT01 PSETER P MOVE DEBINW4,W9 P B RETURN PCHOK & P MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR
0x0b0a6c…0b0c00 Dummy {f00=0x0037, f01=0x0190, f02=»UF,W8 x P MOVE DEBIN1,DEBIN3 P MOVE DEBIN4,W0 * P GET NO OF CONSEC B " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 ^ * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GET21 ( P MOVE DEBINW4,W13 'NO BUFFERS FREE' P P B RETURN
0x0b0c00…0b0d94 (1, 223) Dummy {f00=0x0038, f01=0x0190, f02=»IN3),W0,W188,SYSBUF,W10 * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P SUB DEBIN1,W1 N P CBE DEBIN1,W0,TBFAL d P PERF DISU,W1,DEBIN5,SYSBUF P BNERR GET25 * P PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A P B RDDK99 PGET25 P
0x0b0d94…0b0f28 Dummy {f00=0x0038, f01=0x0190, f02=»OVE DEBIN4,DEBIN3 PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A ( * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A V PSETPFR P MOVE PINDFR,DEBIN4 P B RETURN PFLOCKE P MOVE DEBINW4,W24 'LOCKED' P B RETURN PGOTFFR
0x0b0f28…0b10bc Dummy {f00=0x0038, f01=0x0190, f02=»OT USED | PINDUSE P B FLOCKE PFUT 0 P B RETURN < PFGETUN N $ P PERF SCHPOO,=C'F ',STR6A,W5 SET P B TBFALL PSCHFMT SEARCH FORMAT P SET SWIT02 P B GETFMT P* P* PENTSYS P PERF WAIT
0x0b10bc…0b1250 Dummy {f00=0x0038, f01=0x0190, f02=»1,W17,SYSV(DEBIN2),W0 ~ P ADD DEBIN1,W17 P ADD DEBIN2,W1 6 P CBL DEBIN2,W11,CENT L P PERF DISU,W2,W5,SYSBUF h P B RETURN P* P* PGETSYS P PERF WAIT P BERR RETURN P PERF DISU,W1,W5,SYSBUF P BOK N
0x0b1250…0b13e4 Dummy {f00=0x0038, f01=0x0190, f02=» COPY SYSV(DEBIN2),W0,W17,SYSBUF,DEBIN1 P ADD DEBIN1,W17 0 P ADD DEBIN2,W1 H P CBL DEBIN2,W11,CGET ^ P B RETURN z P* P* P EJECT P* P* ENTTBL SET SWIT01 B GETT01 ENTT01 P MOV
0x0b13e4…0b1578 Dummy {f00=0x0038, f01=0x0190, f02=»DISU,W2,DEBIN4,SYSBUF B RETURN ENTT03 0 PERF FREESP,DEBIN2,W1 > P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 p P PERF DISU,W2,DEBIN4,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN2 B ENTT01 * *
0x0b1578…0b170c Dummy {f00=0x0038, f01=0x0190, f02=»W7,SYSBUF BNOK RETURN DELT02 & PERF DISU,W1,DEBIN1,SYSBUF 4 BNOK RETURN X " XCOPY DEBIN2,W0,W2,SYSBUF,W4 l PERF RFRSP,DEBIN1,W1 BNOK RETURN P CBE DEBIN2,W0,RETUR MOVE DEBIN1,DEBIN2 B DELT02
0x0b170c…0b18a0 Dummy {f00=0x0038, f01=0x0190, f02=»OT IN POOL, READ GETT01 PERF WAIT ( P BERR RETURN : , ' COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO N P MOVE BCD13A,STR2A ~ * P MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL $ MOVE DEBINW4,W1 INDICATE ERROR
0x0b18a0…0b1a34 (1, 224) Dummy {f00=0x0038, f01=0x0190, f02=»' ~ P BNE RETURN P MOVE DEBINW4,W0 P TBF SWIT01,NOINSY 6 P MOVE SYSBUF,=X'544300' P P PERF DISU,W2,W7,SYSBUF p P BERR RETURN PMUL MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 P
0x0b1a34…0b1bc8 Dummy {f00=0x0038, f01=0x0190, f02=»,W0 r P PERF DISU,W2,W7,SYSBUF P BERR RETURN , P MOVE DEBIN4,DEBIN1 @ P B ENTT01 PDT002 n P TEST SWIT02 | P BNZ DELT01 RDN PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN P MOVE DEBIN4,DEBIN1 MOV
0x0b1bc8…0b1d5c Dummy {f00=0x0038, f01=0x0190, f02=»4 GET LINK NEXT t ( # CBG DEBIN1,W0,RDN READ NEXT RECORD ( P TBF SWIT01,NOINSY JUMP IF NOT ENTER D P MOVE DEBIN2,W17 p 0 P MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR
0x0b1d5c…0b1ef0 Dummy {f00=0x0038, f01=0x018e, f02=»DEBIN3,W1 MOVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A * BNOK RETURN X ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 l * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DE
0x0b1ef0…0b2084 Dummy {f00=0x0038, f01=0x0190, f02=» B RETURN * P PEND P* . < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE 8 P* x PSFMTCH PROC WX,BUF,STEG P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1
0x0b2084…0b2218 Dummy {f00=0x0038, f01=0x0190, f02=»R PRID1 P ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 , PMTCH N $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 Z P BNERR FOND P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN
0x0b2218…0b23ac Dummy {f00=0x0038, f01=0x0190, f02=» IN CHAIN' r P B RETR PFOND " P ADD DEBIN2,W6 . " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 D PRETR j P PERF COND v P RET P PEND P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2
0x0b23ac…0b2540 Dummy {f00=0x0038, f01=0x0190, f02=»ERR NOFRET P XCOPY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 6 P ADD CNTR,DEBIN4 Z P CBNE DEBIN5,W0,US002 r P MOVE FNOOFREC(INDFIL),CNTR PNOFRET P PERF COND P RET P PEND P* P* P EJECT
0x0b2540…0b26d4 (1, 225) Dummy {f00=0x0038, f01=0x0190, f02=» FORMAT' h $ P* FC = 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS 8 . P* SET TO 0 IF IDENTIFICATION OKAY 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC
0x0b26d4…0b2868 Dummy {f00=0x0038, f01=0x415e, f02=» DKBIN1,W2 P CBNE DKBIN1,W6,XCALGO P IB FC C 0 P ALTO C B P ALFRO T PALTO d " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 p P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P
0x0b2868…0b29fc Dummy {f00=0x0038, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x0b29fc…0b2b90 Dummy {f00=0x0038, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ 2 . AX Z 8 0 5
0x0b2b90…0b2d24 Dummy {f00=0x0038, f01=0x0190, f02=» !! _ jX 3 0 0}@d "P l_p 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v v" Av v"j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `
0x0b2d24…0b2eb8 Dummy {f00=0x0038, f01=0x0190, f02=» j !!L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b
0x0b2eb8…0b304c Dummy {f00=0x0038, f01=0x0190, f02=» W !4 F B T L0 X % 0 % r2 2 1 3F361 2 1 * V 2B z n (1 1 ,'*%^$~$ n % 4&% 0d2n # %R%V$ d H L P2j % a D o e ) 1 @
0x0b304c…0b31e0 Dummy {f00=0x0038, f01=0x0190, f02=» 0 Q d F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x0b31e0…0b3374 (1, 226) Opaque[0x194]
0x0b3374…0b3508 # DirEnt {nam=»DE20FS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0718, f03=0x0000}
0x0b3374…0b3508 IdxSect {
0x0b3374…0b3508 f00 = 0x0038 // 0xb3374 @0x0
0x0b3374…0b3508 f01 = 0x000e // 0xb3376 @0x2
0x0b3374…0b3508 gno = [ // 0xb3378 @0x4
0x0b3374…0b3508 [0x00]: C0x0038.0x3.0
0x0b3374…0b3508 [0x01]: C0x0039.0x0.0
0x0b3374…0b3508 [0x02]: C0x0039.0x1.0
0x0b3374…0b3508 [0x03]: C0x0039.0x2.0
0x0b3374…0b3508 [0x04]: C0x0039.0x3.0
0x0b3374…0b3508 [0x05]: C0x003a.0x0.0
0x0b3374…0b3508 [0x06]: C0x003a.0x1.0
0x0b3374…0b3508 ]
0x0b3374…0b3508 }
0x0b3508…0b369c Dummy {f00=0x0038, f01=0x0190, f02=» $ P IDENT DE20FS REL 10.0 80-04-11 P 80-03-20/JAER , P* D * P* FORMAT DEFINITION SUBROUTINES N * P* -2-BYTE ADRESSING COMPATIBLE | P* DDUM DEDDIV PDIV P ENTRY FCOPY FORMAT COPYING P ENTRY FMELI F
0x0b369c…0b3830 Dummy {f00=0x0038, f01=0x0190, f02=»SL FORMAT START LINE P ENTRY FNL FORMAT NEW LINE " P ENTRY FKI FORMAT KEYED INPUT > " P ENTRY FVAL FORMAT VALIDATION d * P ENTRY FGEN FORMAT GENERATION (FIELD) $ P ENTRY FACC FORMAT ACCUMULATION . P ENTRY FDUPL FORMAT DUPLICATION REFERENC
0x0b3830…0b39c4 Dummy {f00=0x0038, f01=0x0190, f02=» P EXT DERROR ERROR-MESSAGES & P EXT DEPOOL BUFFERRESERVATIN-MODUL & . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - P * P EXT WCNTRL FORMAT FIELD CONTROL WORDS P EXT FMOVE FORMAT MOVE " P EXT CONNUM CONVERT STRG=>BIN " P EXT LINIT LINE INIT
0x0b39c4…0b3b58 Dummy {f00=0x0038, f01=0x018e, f02=»EAR CAN EQU X'91' CANCEL PRET EQU X'92' RETURN ( PNOK EQU X'FF' NO KEY D PTOT EQU X'93' TOTAL ` P* | $ PDEKTAB6 KTAB CLR,CAN,RET,NOK,TOT P* PDEKTAB7 KTAB CLR,CAN,RET P* EJECT * * FORMA
0x0b3b58…0b3cec Dummy {f00=0x0038, f01=0x0190, f02=» PERF FFIELD RET PEND $ EJECT 2 * @ * FORMAT EDITING J * j H D* FMELI = C2 <NUMB PIC.CHARS> <CH> <CH> ....<CH> 0A <FIELDNR> t * FMELI PROC $ P PERF FCODE,W2 GENERATE FMELI=C2 < 7 XCO
0x0b3cec…0b3e80 Dummy {f00=0x0038, f01=0x018e, f02=»PIC CHARS b ADD BIN1,BIN12 NEXT POS , P TBF BOOL6,FMELI5 JUMP IF GENERAL FORMAT 2 2 P CALL FMOVE,STRG10A,FACK FETCH ACK-ITEM-ADRESS b P PERF FITEM LOAD ITEM-ADRESS , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE 2 P CBE BIN15,W2,FMELI3 JUMP IF
0x0b3e80…0b4014 (1, 227) Dummy {f00=0x0039, f01=0x0190, f02=» < P CALL FMOVE,STRG10A,FIND(BIN16) FETCH INDEX-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS D P B FMELIR h PFMELI5 z PERF FFIELD STORE FIELD NR PFMELIR RET PEND EJECT * * FORMAT TEXT
0x0b4014…0b41a8 Dummy {f00=0x0039, f01=0x0190, f02=»,W6 LOAD LIMIT FOR FLINK 4 P PERF FLINK,BIN16,BIN9 GENERATE FLINK IF NEEDED ( P CBNE DEBINW2,W0,FTEXT9 ERROR-SIGNAL X $ PERF FCODE,W3 GENERATE FTEXT=C3 2 - XCOPY BPOOL(BIN3),BIN1,W1,BIN9,W1 STORE NUMB ADD BIN1,W1 NEXT BUFFER POS : 5 X
0x0b41a8…0b433c Dummy {f00=0x0039, f01=0x0190, f02=» EJECT * * FORMAT TABULATION * > * FTAB = C4 <TABPOS> H * l FTAB PROC v P MOVE BIN16,W188 & P SUB BIN16,W6 LOAD LIMIT FOR FLINK 2 P PERF FLINK,BIN16,W0 GENERATE FLINK IF NEEDED ( P CBNE DE
0x0b433c…0b44d0 Dummy {f00=0x0039, f01=0x0190, f02=» BIN1,W1 NEXT BUFFERPOS PFTAB99 RET . PEND : P EJECT H P* V P* FORMAT VALIDATION ` P* > P* FVAL = C5 <NUMB VAL.-CHARS> <CH> <CH> .......... P* PFVAL PROC P MOVE BIN16,W188 & P SUB B
0x0b44d0…0b4664 Dummy {f00=0x0039, f01=0x0190, f02=»CTEXT t 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED ( P CBNE DEBINW2,W0,FVAL9 ERROR-SIGNAL F & P PERF FCODE,W5 GENERATE FVAL = C5 r 4 P PERF CONNUM,JOBSPC,FMTWK,W1 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,FMTWK(W1),W1 STORE NUMB O
0x0b4664…0b47f8 Dummy {f00=0x0039, f01=0x0190, f02=»IN1,FMTWK(W1) ADJUST BUFFERPOS PFVAL9 & P RET 4 P PEND @ P EJECT N P* * P* FORMAT GENERATION (OF FIELDS) f P* @ P* FGEN = C6 <NUMB OF GEN.-CHARS> <CH> <CH> ......... P* PFGEN PROC P MOVE BIN1
0x0b47f8…0b498c Dummy {f00=0x0039, f01=0x0190, f02=» BIN15,W3 ADJUST FOR FUNCTEXT 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED & ( P CBNE DEBINW2,W0,FGEN9 ERROR-SIGNAL ^ & P PERF FCODE,W6 GENERATE FGEN = C6 4 P PERF CONNUM,JOBSPC,FMTWK,W2 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,F
0x0b498c…0b4b20 Dummy {f00=0x0039, f01=0x0190, f02=»ARSSTRG X P ADD BIN1,FMTWK(W2) PFGEN9 , P RET : P PEND F P EJECT T P* b P* FORMAT ACCUMULATION l P* @ P* FACC = C7 <NUMB OF ACC.-CHARS> <CH> <CH> .......... P* PFACC PROC P MOVE BIN16,W1
0x0b4b20…0b4cb4 (1, 228) Dummy {f00=0x0039, f01=0x0190, f02=»IN15,W3 ADJUST FOR FUNCTEXT 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED $ ( P CBNE DEBINW2,W0,FACC9 ERROR-SIGNAL & P PERF FCODE,W7 GENERATE FACC = C7 4 P PERF CONNUM,JOBSPC,FMTWK,W3 CONVERT VARSTR=>BIN @ P XCOPY BPOOL(BIN3),BIN1,W1,FMT
0x0b4cb4…0b4e48 Dummy {f00=0x0039, f01=0x0190, f02=»SSTRG V . P ADD BIN1,FMTWK(W3) ADJUST BUFFERPOSITION PFACC9 @ P RET N P PEND Z P EJECT h P* v * P* FORMAT DUPLICATION REFERENCES P* < P* FDUPL = CC <NUMB. OF CHARS> <CH> <CH> <CH>...... P* PFDUPL
0x0b4e48…0b4fdc Dummy {f00=0x0039, f01=0x0190, f02=»RATE FLINK t ( P CBNE DEBINW2,W0,FDUPL9 ERROR-SIGNAL & P PERF FCODE,W8 GENERATE FDUPL = CC > 2 P PERF CONNUM,DUPL,FMTWK,W4 CONVERT VARSTR. BIN h > P XCOPY BPOOL(BIN3),BIN1,W1,FMTWK(W4),W1 STORE NUM OF CHARS P ADD BIN1,W1 NEXT BUFFERPOS > P XCO
0x0b4fdc…0b5170 Dummy {f00=0x0039, f01=0x0190, f02=»D P EJECT P* P* FORMAT LINKING " P* @ L P* FLINK = DF <BUFFERPOOLADRESS> <FORMATLINKINDEX> <CONSTANTADRESS> J P* H P* INPUT PARAMETERS : LIMIT = POSITION LIMIT IN CURRENT BUFFER D P*
0x0b5170…0b5304 Dummy {f00=0x0039, f01=0x0190, f02=» CHARS = NUMBER OF CHARACTER-POSITIONS TO H P* COUNT BEFORE COMPARISON IS MADE J P* P* P* OUTPUT PARAMETER : . P* DEBINW2 = 0 OK L P*
0x0b5304…0b5498 Dummy {f00=0x0039, f01=0x018e, f02=»ETUR N P P* = 4 MAXIMUM BUFFERS USED;KTOT SIMULATED P* ` L P*********************************************************************** j P* PFLINK PROC LIMIT,CHARS P MOVE DEBINW2,W0 OK 2 P SUB LIMIT
0x0b5498…0b562c Dummy {f00=0x0039, f01=0x0190, f02=» P MOVE BIN15,W1 WORK:=1 & P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 " 2 P CBE BIN15,W1,FLINKA JUMP IF 1-BYTE ADRESSING L & P SUB LIMIT,W3 ADJUST FOR 2-BYTEADR PFLINKA 4 P CBNG RNRFMCH,W29,FLINKF JUMP IF NOT LAST BUFFER * P SUB LIMIT,W3 ADJUST 3
0x0b562c…0b57c0 Dummy {f00=0x0039, f01=0x0190, f02=» CBNG BIN1,LIMIT,FLINK9 JUMP IF NO FLINKGEN : P CBG RNRFMCH,W29,FLINK7 NO MORE BUFFERS ALLOWED MAX 24 4 & P PERF FCODE,W9 GENRATE FLINK = DF r 6 P CALL FMOVE,STRG10A,FBPOOL FETCH BPOOL-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS , P SUB BIN1,W1 A
0x0b57c0…0b5954 (1, 229) Dummy {f00=0x0039, f01=0x0190, f02=»FLINK1 6 P CALL FMOVE,STRG10A,FFLIND FETCH FLIND-ITEM-ADRESS P PERF FITEM LOAD ITEM-ADRESS H , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE l . P CBE BIN15,W2,FLINK3 JUMP IF 1-BYTE ADRESS , P SUB BIN1,W1 ADJUST FOR INDEX-ADR.STORE PFLINK3
0x0b5954…0b5ae8 Dummy {f00=0x0039, f01=0x0190, f02=»OOL2,FLINK5 6 P MOVE BIN3,FMTWK(W8) RESTORE BUFFERIND ALREADY RES P B FLINK6 N PFLINK5 ` " P MOVE BIN16,W1 WANTED BUFFERS n P MOVE STRG10A,FORMAT < P PERF DEPOOL,W3,BIN16,BIN3,STRG10A CHAIN ANOTHER BUFFER P BNOK FLINK8 JUMP IF ERR
0x0b5ae8…0b5c7c Dummy {f00=0x0039, f01=0x0190, f02=»W2 DISPLAY DITO WHILE CHANGED ( P XCOPY STR1A,W0,W1,FDIR,W0 LOAD 'E9' & 6 P MOVE BPOOL(BIN3),STR1A FILL BUFFER WITH FEXIT E9 R PFLINK6 ( P MOVE BIN1,W0 BPOOLBUFFERPOINTER:=0 P B FLINK9 PFLINK7 P MOVE DEBINW4,W29 P PERF DE
0x0b5c7c…0b5e10 Dummy {f00=0x0039, f01=0x0190, f02=» PERF DERROR,DEKTAB7 $ P CBE DEBINW2,W1,FLINK5 TRY AGAIN PFLINKB D * P SUB DEBINW2,W1 ADJUST FOR CANC RETURN R PFLINK9 . P CLEAR DOOL2 F=LINE NOT DEL LAST BUFF USED P RET P PEND P EJECT P* P* FORMAT START L
0x0b5e10…0b5fa4 Dummy {f00=0x0039, f01=0x0190, f02=»DIR,W0 LOAD 'E9' | 6 P MOVE BPOOL(BIN3),STR1A FILL BUFFER WITH FEXIT E9 $ P PERF FCODE,W10 GENERATE FSL=E0 R 6 P MOVE FMTWK(W6),BIN1 SAVE STARTPOINTER OF LASTLINE z 6 P MOVE FMTWK(W7),BIN3 SAVE BUFFERINDEX OF LASTLINE P MOVE BIN10,W0 FIELDNR:=0
0x0b5fa4…0b6138 Dummy {f00=0x0039, f01=0x0190, f02=»ET P PEND P EJECT P* & * P* FORMAT END-OF-LINE PROCESSING 0 P* ^ 4 P* - PROCESSES FORMAT DIRECTIVE CODE : FNL h : P* AND ADJUSTS WORKITEMS FOR NEW LINE PROCESSING P* P* OUTPUT VARIABLES: 4
0x0b6138…0b62cc Dummy {f00=0x0039, f01=0x0190, f02=» = 2 NO AVAILABLE BUFFERS;RETUR B P* = 4 MAX LIMIT EXCEEDED;KTOT F P* L P*********************************************************************** P* PFNL PROC P MOVE BI
0x0b62cc…0b6460 Dummy {f00=0x0039, f01=0x0190, f02=»RROR SIGNAL x P PERF FCODE,W11 GENERATE FNL $ P ADD FDVBCD(W2),=D'1' NEXT LINE 8 , P DISPLAY 2,W1,W1 DISPLAY LINE NR/PAGE NR ` < P CBG FDVBCD(W2),FDVBCD(W1),FNL96 JUMP IF LINEMAX REACHED & P TBT DOOL8,FNL10 JUMP IF NO ERASE P ERASE 10,W3,W
0x0b6460…0b65f4 (1, 230) Dummy {f00=0x0039, f01=0x0190, f02=» d 0 P MOVE FMTWK(W7),BIN3 SAVE LASTLINE'S BUFFIND P CBE FMTWK(W5),W0,FNL90 < 6 P MOVE RECLNTH,FMTWK(W5) SAVE LAST LINES NUMB CHARS PFNL90 & P SET BOOL1 T=FIRST LINE CONFIRMED $ P PERF LINIT LINE INIT WORKITEMS P MOVE DEBINW2,W0 O
0x0b65f4…0b6788 Dummy {f00=0x0039, f01=0x0190, f02=» IF CLEAR-KEY v ( P SUB DEBINW2,W1 ADJUST FOR CANC RET PFNL99 B P RET P P PEND EJECT j * FORMAT KEYED INPUT x * 4 /* FKI = FO <TABPOS> <CTL1> <CTL2> <CTL3> < 8* = F2 <TABPOS> <APPLE1> <CTL1>
0x0b6788…0b691c Dummy {f00=0x0039, f01=0x0190, f02=» <CTL2> <CTL3> h D P* = FA <TABPOS> <APPLE1> <DUPL> <CTL1> <CTL2> <CTL3> L P* = FB <TABPOS> <APPLE1> <APPLE2> <DUPL> <CTL1> <CTL2> <CTL3> ^ * FKI PROC P MOVE BIN16,W188 & P TBT ALPHA,FKI01 JUMP IF ALPHANUM (
0x0b691c…0b6ab0 Dummy {f00=0x0039, f01=0x018e, f02=»OAD CHRS TO COUNT ( P SUB BIN16,W14 LOAD LIMIT FOR FLINK ! PFKI03 ! F 4 P PERF FLINK,BIN16,BIN15 GENERATE FLINK IF NEEDED ! T ( P CBNE DEBINW2,W0,FKI99 ERROR-SIGNAL ! $ P MOVE BIN15,W13 GENERATE FKI=F0 ! & " MOVE BIN16,SPEC LOAD APPLE BINARY !
0x0b6ab0…0b6c44 Dummy {f00=0x0039, f01=0x018e, f02=» PFKI10 " P CBNE FDVSTR(W1),='N',FKI20 " $ P ADD BIN15,W3 FKI=F8 OR FA OR FB " 6 PFKI20 " ^ ( P PERF FCODE,BIN15 GENERATE FKI-CODE " l P EJECT " * " ( $* TABULATION POSITION SETTING " * " 4 / XCOPY BPOOL(BIN3),BIN1,W1,BIN6,W1
0x0b6c44…0b6dd8 Dummy {f00=0x0039, f01=0x0190, f02=» " r * # ( # CBG BIN16,=X'FF',FKI40 APPLE > 255 # 4 0 XCOPY BPOOL(BIN3),BIN1,W1,BIN16,W1 STORE APPLE1 # > ADD BIN1,W1 NEXT POS # v P B FKI50 # FKI40 # 6 2 XCOPY BPOOL(BIN3),BIN1,W2,BIN16,W0 STORE APPLE1-2 # ADD BIN1,W2 NEXT POS #
0x0b6dd8…0b6f6c Dummy {f00=0x0039, f01=0x018e, f02=»E,STRG10A,IND1 # P PERF FITEM LOAD ITEM W1 $ FKI70 $ 6 * $ D 2 -* CONTROL WORDS SETTING CTL1 CTL2 CTL3 $ N * $ 8 P MOVE BIN16,FDVBCD(W7) LOAD FDVBCD(W7)LENGTH BINARY $ > P CALL WCNTRL,BPOOL(BIN3),BIN1,DEBINW1,BIN16,BIN7 LOAD CTLS $
0x0b6f6c…0b7100 Dummy {f00=0x0039, f01=0x0190, f02=» > :* INPUT PARAMETER : FDIND = FORMAT DIRECTIVE INDEX % * % F : 5***************************************************** % P FCODE PROC FDIND % * % XCOPY BPOOL(BIN3),BIN1,W1,FDIR,FDIND % ( $ ADD BIN1,W1 NEXT POSITION IN BUFFER % RET %
0x0b7100…0b7294 (1, 231) Dummy {f00=0x003a, f01=0x0190, f02=»FFIELD PROC % 6 2 XCOPY BPOOL(BIN3),BIN1,W1,W10,W1 STORE '0A'-FIELD & ADD BIN1,W1 NEXT POS & N 6 1 XCOPY BPOOL(BIN3),BIN1,W1,BIN10,W1 STORE FIELDNR & l P ADD BIN1,W1 NEXT POS & RET & PEND & P EJECT & P* & > P* THIS ROUTI
0x0b7294…0b7428 Dummy {f00=0x003a, f01=0x0190, f02=»DED IN 'STRG10A' & ^ D P* AND STORES IT IN ACTUAL BUFFER AND THE CORRECT POSITION. ' 6 P* IT ALSO ADJUSTES THE BUFFERPOINTER (BIN1). ' ` P* ' PFITEM PROC ' * P MOVE BIN15,W1 START ADRESS FOR MATCH ' : P MATCH STRG10A,BIN15,W9,FDIR,W0,W1 C
0x0b7428…0b75bc Dummy {f00=0x003a, f01=0x0190, f02=» RET ' P PEND ( P EJECT ( P* ( ( P* SET NUMBER OF POOLS ( 2 P P* -LAYOUT: X+YY <X=NUMBER OF DESC-POOLS , YY=NUMBER OF FORMATPOOLS> ( V P* ( 2 P* USED VARIABLES : BIN16 = WORK ( P* ( L P* CHANGED VA
0x0b75bc…0b7750 Dummy {f00=0x003a, f01=0x0190, f02=»********* ( N PNOPOOL PROC ) * P TBF BOOL7,NOPL10 JUMP IF NEWREG-MODE ) & 2 P MOVE BIN16,WORK(W3) FETCH NUMB OF OLD DPOOLS ) T 8 P CBNG PINDND,BIN16,NOPL20 JUMP IF NEW NUMB<OLD NUMB ) PNOPL10 ) 0 P MOVE BIN16,PINDND FETCH NUMB OF DESC POOLS ) P
0x0b7750…0b78e4 Dummy {f00=0x003a, f01=0x0190, f02=»NEWREG.MODE ) v . P ADD BIN16,WORK(W4) ADD NUMB OF OLD FPOOLS * PNOPL30 * F " P MOVE FDVBCD(W3),BIN16 'X+YY' * T P RET * z P PEND * P EJECT * P* * P* FORMAT LIST * P* FIX-ITEM-ADRESSES * P* * PFBPOOL FRMT * P
0x0b78e4…0b7a78 Dummy {f00=0x003a, f01=0x0190, f02=» FMEND * , PFIND FTABLE IND1,IND2,IND3,IND4,IND5, C + $ P IND6,IND7,IND8,IND9,IND10, C + > ( P IND11,IND12,IND13,IND14,IND15, C + f ( P IND16,IND17,IND18,IND19,IND20, C + & P IND21,IND22,IND23,IND24,IND25 C + P IND26,IND27,IND28,IND29 +
0x0b7a78…0b7c0c Dummy {f00=0x003a, f01=0x0190, f02=»W3 + P FMEND , PIND4 FRMT , P FCTL W4 , * P FMEND , : PIND5 FRMT , H P FCTL W5 , Z P FMEND , j PIND6 FRMT , x P FCTL W6 , P FMEND , PIND7 FRMT , P FCTL W7 , P FMEND , PIND8 FRMT , P FCTL W8 , P FMEND , P
0x0b7c0c…0b7da0 Dummy {f00=0x003a, f01=0x0190, f02=»W11 , P FMEND - PIND12 FRMT - P FCTL W12 - , P FMEND - > PIND13 FRMT - L P FCTL W13 - ^ P FMEND - p PIND14 FRMT - ~ P FCTL W14 - P FMEND - PIND15 FRMT - P FCTL W15 - P FMEND - PIND16 FRMT - P FCTL W16 - P F
0x0b7da0…0b7f34 (1, 232) Dummy {f00=0x003a, f01=0x0190, f02=» - P FCTL W19 . P FMEND . PIND20 FRMT . ( P FCTL W20 . : P FMEND . L PIND21 FRMT . Z P FCTL W21 . l P FMEND . ~ PIND22 FRMT . P FCTL W22 . P FMEND . PIND23 FRMT . P FCTL W23 . P FMEND . PIND24 FRMT . P FCTL
0x0b7f34…0b80c8 Dummy {f00=0x003a, f01=0x40a8, f02=» . P FCTL W27 / P FMEND / PIND28 FRMT / ( P FCTL W28 / : P FMEND / L PIND29 FRMT / Z P FCTL W29 / l P FMEND / ~ P END / END / @ / . P FMEND . PIND23 FRMT . P FCTL W23 . P FMEND . PIND24 FRMT . P FCTL
0x0b80c8…0b825c Dummy {f00=0x003a, f01=0x2008, f02=» 0 NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0b825c…0b83f0 Dummy {f00=0x003a, f01=0x0190, f02=»T M -W ,E A n A r > > >M A n_ A z > ;I C X "A _@ A f A j A n A r v "R # X& T X T :EV W X T Y :DV X Qx :EVp W " P Y WD X $ QB R _ P U _ : V #
0x0b83f0…0b8584 Dummy {f00=0x003a, f01=0x0190, f02=» A! W A! @! A.W< A I.9 Z X R C C " 6 X R C C " "R A @! A. Z X V 9 6 X V 9_d @ x t B f U P R U "J ! ! W ! Q ! B Z P C !
0x0b8584…0b8718 Dummy {f00=0x003a, f01=0x0190, f02=»_ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: ! ! " $ P X ( X ]T ! Y h Y _p $ X R X X ' P ! X ( _X
0x0b8718…0b88ac Dummy {f00=0x003a, f01=0x0190, f02=»W0 B W B W B @ T 8 T Y Y Y Y "R Y * ! X *_B B 1 4 X X X X ' 4 B U B $" 4 C 4 p _^ x B U P R U ! ! W ! Y Y 8 X Q^ R ! T8
0x0b88ac…0b8a40 Dummy {f00=0x003a, f01=0x0190, f02=» Y > ! 9EV0 X > y ! + X ! ! T Y > 2 B H ! 9FR D B Xp # v B Z H @^ H @Y B Y ! ~ ! Y 8;eT ! 9FR* Y >WP X >Pn Y > ! 9 R ! 9 R Y Y > W, ! X ! ! T @ X X > < 4 Y H
0x0b8a40…0b8bd4 (1, 233) Opaque[0x194]
0x0b8bd4…0b8d68 # DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0750, f03=0x0000}
0x0b8bd4…0b8d68 IdxSect {
0x0b8bd4…0b8d68 f00 = 0x003a // 0xb8bd4 @0x0
0x0b8bd4…0b8d68 f01 = 0x0006 // 0xb8bd6 @0x2
0x0b8bd4…0b8d68 gno = [ // 0xb8bd8 @0x4
0x0b8bd4…0b8d68 [0x00]: C0x003a.0x2.0
0x0b8bd4…0b8d68 [0x01]: C0x003a.0x3.0
0x0b8bd4…0b8d68 [0x02]: C0x003b.0x0.0
0x0b8bd4…0b8d68 ]
0x0b8bd4…0b8d68 }
0x0b8d68…0b8efc Dummy {f00=0x003a, f01=0x0190, f02=» ( P IDENT DEDICOMM REL 1.0 79-01-16/AST P* 0 B P************************************************************* : P* P* SUBROUTINE DEDISC P* , P* CALLING SEQUENCE: PERF DEDISC,FC P* P* FC ACTION
0x0b8efc…0b9090 Dummy {f00=0x003a, f01=0x0190, f02=»TEN X B P* AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS , P* ARE DONE ON JOBDEFINITION.G R P* @ P* 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED B P* BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CA
0x0b9090…0b9224 Dummy {f00=0x003a, f01=0x0190, f02=» DUMMY-ENTRY P* @ P* 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER > P* THE INDICATED JOBDEFINITION EXISTS IN SYSTEM. d P* D P* 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED D P* BY
0x0b9224…0b93b8 Dummy {f00=0x003a, f01=0x0190, f02=» JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS B P* BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB B F P* AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. B P* THE FIRST DATARECORD AND AN ACCUMULATORRE
0x0b93b8…0b954c Dummy {f00=0x003a, f01=0x0190, f02=»RS IN CORE AND b D P* ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM- @ P* BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS ^ D P* RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE " P* FIRST DATARECORD.
0x0b954c…0b96e0 Dummy {f00=0x003a, f01=0x018e, f02=»RD AND ACCUMU- ` D P* LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- F P* THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT ^ P* AS FC 06. P* < P* 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR
0x0b96e0…0b9874 (1, 234) Dummy {f00=0x003a, f01=0x0190, f02=» L P* A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC P* T > P* 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME ^ : P* IN 'FORMAT' IS GIVEN TO THE CALLING TASK. J P* IF DATAITEM FRMTPNTR NOT ZERO
0x0b9874…0b9a08 Dummy {f00=0x003a, f01=0x0190, f02=»FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- z J P* DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF 8 J P* IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE 6 P* SET TO ZERO BEFORE DEDISC IS CALLED.
0x0b9a08…0b9b9c Dummy {f00=0x003a, f01=0x018e, f02=»ED FORMAT EXISTS IN SYSTEM. RETURNED & P* INFORMATION AS FC 10. , P* V < P* 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS ` @ P* NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. P* * P* 14 WRITE CURRENT
0x0b9b9c…0b9d30 Dummy {f00=0x003a, f01=0x0190, f02=» , P* 17 DELETE CURRENT DATA-SECTOR P* 4 * P* 18 WRITE ACCUMULATOR-RECORD > P* l < P* 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE v " P* READ INTO MEMORY. P* > P* 20 ENTER SYSTEM-VARIABLE
0x0b9d30…0b9ec4 Dummy {f00=0x003a, f01=0x0190, f02=»ITION IN CHAIN X 2 P* IS OUTPUT TO DATA-ITEM 'JOBNAME'. P* L & P* 22 GET PREVIOUS JOBNAME. V P* $ P* 23 WRITE SECTOR (CORR) P* P P* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'ELMNO
0x0b9ec4…0ba058 Dummy {f00=0x003a, f01=0x0190, f02=»WANTED ELEMENT OF THE WANTED TABLE d H P* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. * P* v P* N P* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' IS " P* DELETED ON DISC. P*
0x0ba058…0ba1ec Dummy {f00=0x003a, f01=0x0190, f02=»CONTENTS OF BPOOL(PINDTB) 8 P* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. " P* ^ F P* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO h D P* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE . P* R
0x0ba1ec…0ba380 Dummy {f00=0x003a, f01=0x0190, f02=»INARY DATA-ITEM DEBINW1 IS LOADED WITH NUMBER OF ~ D P* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER 8 > P* OF FREE RECORDS IN USERFILE OF RUNNING TASK. P* @ P* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION
0x0ba380…0ba514 (1, 235) Dummy {f00=0x003b, f01=0x0190, f02=»AIN V P* IS PASSED. P* , > P* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- 6 > P* DEFINITION IN CHAIN IS PASSED TO THE CALLING x @ P* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- , P*
0x0ba514…0ba6a8 Dummy {f00=0x003b, f01=0x0190, f02=»ED TO THE CALLING TASK. IF 'FORMAT' IS | < P* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. . P* n B P* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN x B P* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, 6 P*
0x0ba6a8…0ba83c Dummy {f00=0x003b, f01=0x0190, f02=»BATCHNAME. THE NAME OF NEXT BATCH ON USERFILE IS z . P* OUTPUT TO DATA-ITEM 'BATCH'. 8 P* j ( P* 35 GET PREVIOUS BATCHNAME. t P* * P* RETURNCODE IN DEBINW4: 0 = OK L P* -1 = WARNING. 95
0x0ba83c…0ba9d0 Dummy {f00=0x003b, f01=0x0190, f02=»ACE b , P* 11 = USED . P* 12 = LOCKED < < P* 13 = NO WORKSPACE IN CORE n P* F P* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO L P*
0x0ba9d0…0bab64 Dummy {f00=0x003b, f01=0x4178, f02=». R P* D P* USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P****
0x0bab64…0bacf8 Dummy {f00=0x003b, f01=0x2008, f02=» W'199' = P PERF WRITUS,DEBIN1,SYSBUF > P MOVE USELEN,=W'399' > 8 P PERF COND > T P RET > f P PEND > r P* > * P* SUBR POOL, GET ONE BUFFER, LOCKED > P* > PPOOL PROC > P MOVE DEBIN1,W1 > P MOVE DEBIN2,W1 > * P PER
0x0bacf8…0bae8c Dummy {f00=0x003b, f01=0x40a6, f02=» > F IDENT D:DB30 TRA 3.2 79-02-20 O111 REL 1.0 79-02-09 D:DB30 F D:DB30D X f l :D @ & = & [ & y y @ &
0x0bae8c…0bb020 Dummy {f00=0x003b, f01=0x414c, f02=» > F IDENT Z:DB30 TRA 3.2 79-02-20 O111 REL 1.0 79-02-09 Z:DB30 F Z:DB30D X * & l * & * & = & [
0x0bb020…0bb1b4 (1, 236) Opaque[0x194]
0x0bb1b4…0bb348 # DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0768, f03=0x0000}
0x0bb1b4…0bb348 IdxSect {
0x0bb1b4…0bb348 f00 = 0x003b // 0xbb1b4 @0x0
0x0bb1b4…0bb348 f01 = 0x0008 // 0xbb1b6 @0x2
0x0bb1b4…0bb348 gno = [ // 0xbb1b8 @0x4
0x0bb1b4…0bb348 [0x00]: C0x003b.0x1.0
0x0bb1b4…0bb348 [0x01]: C0x003b.0x2.0
0x0bb1b4…0bb348 [0x02]: C0x003b.0x3.0
0x0bb1b4…0bb348 [0x03]: C0x003c.0x0.0
0x0bb1b4…0bb348 ]
0x0bb1b4…0bb348 }
0x0bb348…0bb4dc Dummy {f00=0x003b, f01=0x0190, f02=» $ P IDENT DKRUT4 REL 10.0 80-04-11 P 80-02-25/CHST , P DDUM DEDDIV D PDIV X P ENTRY ENTJOB f P ENTRY GETJOB | P ENTRY SCHJOB P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P ENTRY OPNEBC P ENTRY O
0x0bb4dc…0bb670 Dummy {f00=0x003b, f01=0x018e, f02=» RFRSP P EXT WRFSP P EXT DEPOOL P EXT RETURN 4 P ENTRY DELBTC H P ENTRY NXJOB ^ P ENTRY NXBTH r P EXT RDACC P EXT SCHPOO P EXT RELEAS P EXT COND P EXT EMPTYT P EXT RDDS P EXT WRDS
0x0bb670…0bb804 Dummy {f00=0x003b, f01=0x0190, f02=» P BERR RETURN PWUSOK P SET SWIT04 & P MOVE STR6A,JOBNAME : , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN V P BNERR OPNN01 FOUND P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWIT05,OPNN02 NEW ENTRY JOBCHAIN
0x0bb804…0bb998 Dummy {f00=0x003b, f01=0x0190, f02=» OPNN03 BATCH FOUND P CBE DEBINW4,W9,OPNN88 P B RETURN : POPNN88 L , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN Z P B RETURN 'NOT IN SYSTEM' POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P MOVE DEBINW4,W8 ALREADY DEFINED
0x0bb998…0bbb2c Dummy {f00=0x003b, f01=0x0190, f02=»OPNN08 FIRST JOBCHAIN-ENTRY 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE $ ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD Z POPNN09 P PERF ENTR,JOBNAME $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2 P XCOPY RBUF,W6,W2,DEBIN2,W0
0x0bbb2c…0bbcc0 Dummy {f00=0x003b, f01=0x0190, f02=» MOVE RBUF,=X'424300' P XCOPY RBUF,W2,W2,DEBIN1,W0 P XCOPY RBUF,W4,W2,W0,W0 B POPNN12 b P PERF ENTR,BATCH p P PERF FREESP,DEBIN1,FILINDUS P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P ADD DEBIN2,W2 P PERF FREE
0x0bbcc0…0bbe54 (1, 237) Dummy {f00=0x003b, f01=0x0190, f02=» t P PERF WRDS,DEBIN4 P BERR RETURN " P MOVE RBUF,HEX00 6 P XCOPY RBUF,W6,W2,W10,W0 N P B OPNN16 n " POPNN08 FIRST SECTOR JOBCHAIN P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,W2,W2,W0,W0 POPNN10
0x0bbe54…0bbfe8 Dummy {f00=0x003b, f01=0x0190, f02=»,W0 x P PERF WRDS,DEBIN1 P BERR RETURN & P MOVE RBUF,=X'4A4300' : P XCOPY RBUF,W2,W2,DEBIN1,W0 X P MOVE DEBIN1,DEBIN4 | P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-CHAIN . P XCOPY DEBIN2,W0,W2,
0x0bbfe8…0bc17c Dummy {f00=0x003b, f01=0x018e, f02=»ERF FREESP,DEBIN4,FILINDUS P BERR RETURN " P XCOPY RBUF,W4,W2,DEBIN4,W0 6 P PERF WRDS,DEBIN1 Z P BERR RETURN t P MOVE DEBIN2,W10 P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W2,RBUF,DEBIN2 P XCOPY DEB
0x0bc17c…0bc310 Dummy {f00=0x003b, f01=0x0190, f02=» z P B OPNN16 POPNNDL P SUB DEBIN2,W10 ( P SUB DEBIN4,W12 @ P XCOPY RBUF,W6,W2,DEBIN4,W0 X P DLETE RBUF,DEBIN2,W12 | P PERF WRDS,DEBIN1 P BERR DL10 P CBG DEBIN4,W10,DL01 P PERF DLRCCH,RBUF PDL01 P
0x0bc310…0bc4a4 Dummy {f00=0x003b, f01=0x0190, f02=»RSEC,RBUF P BNERR DL03 P CBE DEBINW4,=W'30',DL04 & P B DL10 F PDL04 V P MOVE RBUF,HEX00 b P MOVE DEBINW4,W0 z PDL03 P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P MOVE CURSEC,DEBIN5 P CBNE
0x0bc4a4…0bc638 Dummy {f00=0x003b, f01=0x0190, f02=»4,WORK(W9) RESTORE ERRORCODE P B RETURN $ POPNN16 6 $ P XCOPY STATSH,W0,W1,FILINDUS,W0 D " P COPY STATSH,W1,W6,JOBNAME,W0 l P COPY STATSH,W7,W6,BATCH,W0 ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH & P BNERR EXIST IF IKAY, ALREADY OPEN
0x0bc638…0bc7cc Dummy {f00=0x003b, f01=0x0190, f02=»KBIN1,DKBIN2,STATSH ~ P MOVE PINACC,DKBIN1 P MOVE BPOOL(DKBIN1),HEX00 8 ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 Z P TBT SWIT05,EXIBAT P B RETURN PEXIBAT P PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHO
0x0bc7cc…0bc960 Dummy {f00=0x003b, f01=0x0190, f02=»* P* P* P* PENTJOB ENTER JOBDEF ( P PERF WAIT F P BERR RETURN X P PERF READJB l P BNERR FOUNDJ P CBE DEBINW4,=W'30',FIRST P CBE DEBINW4,W9,NOTIN P B RETURN PFIRST * P MOVE DEBIN1,DEBIN
0x0bc960…0bcaf4 (1, 238) Dummy {f00=0x003b, f01=0x0190, f02=» BERR RETURN PFST1 ( P MOVE SYSBUF,=X'4A440000000000C600' " P XCOPY SYSBUF,W2,W2,DEBIN3,W0 L , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 r P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN ( P CBE DEBIN3,W0,ENTRET LAST IN CHAIN $ P P
0x0bcaf4…0bcc88 Dummy {f00=0x003b, f01=0x0190, f02=»ET P B RETURN PFOUNDJ , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 * P PERF DISU,W2,DEBIN3,SYSBUF Z P B RETURN ~ P* P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPUT PGTJ020 * P PERF SCHPOO,=C'J ',
0x0bcc88…0bce1c Dummy {f00=0x003b, f01=0x0190, f02=»,W3 PRDCHJ P PERF WAIT P BERR RETURN , PRDCNW @ P PERF DISU,W1,DEBIN1,SYSBUF N P BNERR DATA r P CBE DEBINW4,=W'30',NOTEX P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NOT EXISTENT' P B RETURN PDATA
0x0bce1c…0bcfb0 Dummy {f00=0x003b, f01=0x0190, f02=»DCHJF ~ P TBF SWIT03,GTJ010 P MOVE STR6A,STR6B ( P PERF RELEAS B P B GTJ020 V PGTJ010 h " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 v P CBE DEBIN1,W0,NOTEX P B RDCNW PRDCHJF P TEST SWIT02 " P BNZ RETURN RETURN, IF SEARCH
0x0bcfb0…0bd144 Dummy {f00=0x003b, f01=0x0190, f02=»N4,W1 * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GTJOK < & P MOVE DEBINW4,W13 'NO BUFFER FREE' P P B RETURN z PGTJOK * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 ( P COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P MOVE DKBIN1,W4
0x0bd144…0bd2d8 Dummy {f00=0x003b, f01=0x0190, f02=»0 * P PERF DEPOOL,W6,PJOBCUR,DEBIN3,STRG10A . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A 8 P MOVE PJOBCUR,DEBIN3 j P B RETURN PLOCKED P MOVE JOBNAME,STR6A P MOVE DEBINW4,=W'26' P B RETURN PGOTFRE P TEST, I
0x0bd2d8…0bd46c Dummy {f00=0x003b, f01=0x018e, f02=» SWIT02 P B GETJOB P* " P* , PDELJOB DELETE JOBDEF 6 P PERF WAIT T P PERF READJB f P BERR RETURN z P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P TBF BOOL9,RETUR P TBF BOOL8,RETUR P MOVE SYSBUF,HEX00
0x0bd46c…0bd600 Dummy {f00=0x003b, f01=0x018e, f02=» ~ P B PRE01 P* P* " PPREJOB GET PREV JOBDEF , P MOVE DEBIN2,W2 L PPRE01 d & P MOVE STR6A,JOBNAME DALI 79-04-24 r P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN
0x0bd600…0bd794 (1, 239) Dummy {f00=0x003c, f01=0x0190, f02=» P B RDCHJ P* P* P* ( P* 2 P* < PNXJOB GET NEXT JOBNAME F P SET SWIT01 f PNXBTH GET NEXT BATCHNAME z P SET SWIT04 P CALL EMPTYT,JOBNAME P BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH
0x0bd794…0bd928 Dummy {f00=0x003c, f01=0x0190, f02=»RECORD ~ P XCOPY DKBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT 2 P PERF RDDS,DKBIN3 L P BERR RETURN f PFIJONA z P XCOPY DEBIN1,W0,W2,RBUF,W6 P CBNG DEBIN1,W10,NOT P MOVE DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 $ P
0x0bd928…0bdabc Dummy {f00=0x003c, f01=0x0190, f02=» P PERF SFMTCH,DEBIN3,RBUF,W12 P BERR NOT ( P ADD DEBIN2,W6 : P CBG DEBIN2,DKBIN1,RENER P PGTNAM1 p " P COPY BATCH,W0,W6,RBUF,DEBIN2 ~ P B RETURN PFIRJOB P PERF RDDS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT
0x0bdabc…0bdc50 Dummy {f00=0x003c, f01=0x0190, f02=»,NOT P MOVE DEBIN2,W12 P B GTNAM1 $ PNOT 6 . P MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' B P B RETURN t P* P* P PEND P EJECT P* P* PREADJB PROC P MOVE DEBIN4,W3 PREDJCH P MOV
0x0bdc50…0bdde4 Dummy {f00=0x003c, f01=0x0190, f02=» DEBIN4,W10,REDJ10 JUMP IF EMPTY 4 P MOVE DEBINW4,=W'30' IDICATE FIRST RECORD EMPTY ( P B RETRED ` PREDJ10 r P MOVE DEBIN5,=W'92' $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 P CBE STR6A,JOBNAME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,
0x0bdde4…0bdf78 Dummy {f00=0x003c, f01=0x40d4, f02=» P P* PENTR PROC ITEM P XCOPY RBUF,DEBIN2,W2,W0,W0 , P ADD DEBIN2,W2 P P COPY RBUF,DEBIN2,W6,ITEM,W0 f P ADD DEBIN2,W6 P RET P PEND P* END @ ME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,
0x0bdf78…0be10c Dummy {f00=0x003c, f01=0x2008, f02=»
0x0be10c…0be2a0 Dummy {f00=0x003c, f01=0x0190, f02=» V W< _ 2 # ;B CP V T 8W V P L , V 2P " 2 P V D ! R T V P V 1 W V P _ 8^t DA2 2 ! 9BP V T W V P D $ V 6 V % V E @ L' T 2 % 7_ 2 # PH L PB 80 2" &
0x0be2a0…0be434 (1, 240) Opaque[0x194]
0x0be434…0be5c8 # DirEnt {nam=»DE16ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0788, f03=0x0000}
0x0be434…0be5c8 IdxSect {
0x0be434…0be5c8 f00 = 0x003c // 0xbe434 @0x0
0x0be434…0be5c8 f01 = 0x0004 // 0xbe436 @0x2
0x0be434…0be5c8 gno = [ // 0xbe438 @0x4
0x0be434…0be5c8 [0x00]: C0x003c.0x1.0
0x0be434…0be5c8 [0x01]: C0x003c.0x2.0
0x0be434…0be5c8 ]
0x0be434…0be5c8 }
0x0be5c8…0be75c Dummy {f00=0x003c, f01=0x0190, f02=» P IDENT DE16ST P************************* P* 16 ERROR-MESSAGES < P************************* X DDUM DEDDIV z PDIV P ENTRY DE16ST P EXT DECLRN P EXT DERR P EXT DEDISC EJECT PDE16ST PROC
0x0be75c…0be8f0 Dummy {f00=0x003c, f01=0x0190, f02=»ERF DERR P B A1 PSETPR SET DEPROMPT P PERF DECLRN 8 " PA1 IB DEBINW2,CANC,RETUR,ENTER L P MOVE DEBINW4,W0 ERROR r P B CANC10 PENTER P MOVE BIN1,=W'22' P PERF DEDISC,BIN1 P BNOK CANC10 PRETUR RET
0x0be8f0…0bea84 Dummy {f00=0x003c, f01=0x0190, f02=» FNL FCOPY STR1A FCOPY =C'01' $ FKI 7,MINL=0,MAXL=20,ALPHA : P FCOPY ERR(W1) ^ P FNL t P FCOPY STR1A FCOPY =C'02' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W2) FNL FCOPY STR1A FCO
0x0bea84…0bec18 Dummy {f00=0x003c, f01=0x018e, f02=» FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W4) $ FNL : FCOPY STR1A F FCOPY =C'05' Z FKI 7,MINL=0,MAXL=20,ALPHA p P FCOPY ERR(W5) FNL P FCOPY STR1A FCOPY =C'06' FKI 7,MINL=0,MAXL=20,ALPHA P FCO
0x0bec18…0bedac Dummy {f00=0x003c, f01=0x0190, f02=» FCOPY STR1A FCOPY =C'08' FKI 7,MINL=0,MAXL=20,ALPHA 2 P FCOPY ERR(W8) V FNL l FCOPY STR1A x FCOPY =C'09' & P FKI 7,MINL=0,MAXL=20,ALPHA,VERIF P FCOPY ERR(W9) FNL FCOPY STR1A FCOPY
0x0bedac…0bef40 Dummy {f00=0x003c, f01=0x0190, f02=»,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W11) FNL 6 FCOPY STR1A B FCOPY =C'12' V FKI 7,MINL=0,MAXL=20,ALPHA l P FCOPY ERR(W12) FNL FCOPY STR1A FCOPY =C'13' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY
0x0bef40…0bf0d4 (1, 241) Dummy {f00=0x003c, f01=0x413a, f02=» FCOPY STR1A FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA 2 P FCOPY ERR(W15) V FNL n FCOPY STR1A z FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA P FCOPY ERR(W16) P FNL P FKI 1,MINL=0,MAXL=0 P
0x0bf0d4…0bf268 Dummy {f00=0x003c, f01=0x2008, f02=» END @ FCOPY =C'15' FKI 7,MINL=0,MAXL=20,ALPHA . FCOPY WTAB(15) R FNL j FCOPY STR1A v FCOPY =C'16' FKI 7,MINL=0,MAXL=20,ALPHA FCOPY WTAB(16) FMEND F131 FRMTR1A FSLPY =C'
0x0bf268…0bf3fc Dummy {f00=0x003c, f01=0x0190, f02=»ED * ~ P* DEAP14 - NOT USED * P*********************** . PDEAP13 N P B DEAER6 PDEAP14 n P B DEAER6 | PDEAP15 P B DEAER6 PDEAER6 P MOVE DEBINW4,W6 P B DEANOK P PEND EJECT *
0x0bf3fc…0bf590 Dummy {f00=0x003c, f01=0x0190, f02=» FCOPY =C'PROGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM H P FBF BOOL1,F10OUT ` P FTAB 20 z P FCOPY =C'11 DATE AND TIME' FNL P FCOPY =C'12 VALUE-SETS' P FTAB 20 " P FCOPY =C'13 SYSTEM-VARIABELS'
0x0bf590…0bf724 Dummy {f00=0x003c, f01=0x400c, f02=» @ OGRAM:' ( P FKI 9,MINL=2,MAXL=2,ME,NEOI,APPL=1 P FMEL 'XX',PRNUM H P FBF BOOL1,F10OUT ` P FTAB 20 z P FCOPY =C'11 DATE AND TIME' FNL P FCOPY =C'12 VALUE-SETS' P FTAB 20 " P FCOPY =C'13 SYSTEM-VARIABELS'
0x0bf724…0bf8b8 Dummy {f00=0x003c, f01=0x2008, f02=» FTEXT '50 SEARCH/CORRECTION' FNL . FTEXT '60 VERIFICATION' : FNL Z FTEXT '70 CONVERTION' f FNL FTEXT '80 FILE HANDLING' F00OUT FMEND END @ '10 SUPERVISORY FUNCTIONS' FNL
0x0bf8b8…0bfa4c Dummy {f00=0x003c, f01=0x018e, f02=» P B PJOBST PUNUSED P TBT SWIT01,GETUNL $ P TBF SWIT02,GETUNL > P MOVE RPOOL(DEBIN3),HEX00 X P B SOND z P* P* PSCHJOB SEARCH JOBDEF P SET SWIT02 P B GETJOB P* P* PDELJOB DELETE JO
0x0bfa4c…0bfbe0 Dummy {f00=0x003c, f01=0x0190, f02=» P* P* PNEXJOB GET NEXT JOBDEF P MOVE DEBIN2,W13 8 P B PRE01 P P* ` P* j PPREJOB GET PREV JOBDEF t P MOVE DEBIN2,W11 PPRE01 P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL . P XCOPY
0x0bfbe0…0bfd74 (1, 242) Opaque[0x194]
0x0bfd74…0bff08 # DirEnt {nam=»DELOCK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0798, f03=0x0000}
0x0bfd74…0bff08 IdxSect {
0x0bfd74…0bff08 f00 = 0x003c // 0xbfd74 @0x0
0x0bfd74…0bff08 f01 = 0x0004 // 0xbfd76 @0x2
0x0bfd74…0bff08 gno = [ // 0xbfd78 @0x4
0x0bfd74…0bff08 [0x00]: C0x003c.0x3.0
0x0bfd74…0bff08 [0x01]: C0x003d.0x0.0
0x0bfd74…0bff08 ]
0x0bfd74…0bff08 }
0x0bff08…0c009c Dummy {f00=0x003c, f01=0x0190, f02=» $ P IDENT DELOCK REL 10.0 80-04-11 P 79-02-28/ANLI , * D L M************************************************************************ N * : 6* SUBMODULE TO THE DATA-ENTRY PACKAGE FOR PTS6800 * : 6* ROUTINE FOR SETTI
0x0c009c…0c0230 Dummy {f00=0x003c, f01=0x0190, f02=» MASK. l * 4 0* THE MODULE IS ENTERED WITH THE STATEMENT: * P , '* * PERF DELOCK,OPTION,KEYIND * Z * * WHERE: 6 2* - KEYIND = ITEM HOLDING THE END-KEY-INDEX 8 4* - OPTION = BIN-ITEM TELLING
0x0c0230…0c03c4 Dummy {f00=0x003c, f01=0x018e, f02=»T ONLY | * 0 ,* IF THE AUTHORITY-TEST IS UNSUCCESSFUL . )* CONDITION IS SET TO ERROR (=2) AND L , P* ERROR-CODE (DEBINW4) IS SET TO 4. ~ * 6 P* IF THE SET-OPTION IS PERFORMED, RETURN-CODE P* IS GIVEN IN DEB
0x0c03c4…0c0558 Dummy {f00=0x003c, f01=0x018e, f02=» P* L M************************************************************************ * ^ DDUM DEDDIV h PDIV | * * ***** ENTRY ***** * ENTRY DELOCK * * ***** EXTERNALS *****
0x0c0558…0c06ec Dummy {f00=0x003c, f01=0x0190, f02=» L M************************************************************************ * T & "* ENTRY-POINT / PROGRAM-START ^ * L M************************************************************************ * DELOCK PROC OPTION,KEYIND
0x0c06ec…0c0880 Dummy {f00=0x003c, f01=0x0190, f02=»E DEBIN3,W1 SET RETURN-CODE $ P CBE KEYIND,W0,A000 POWER-OFF ? $ $ P MOVE DEBIN3,W0 SET RETURN-CODE L A000 t 2 - CALL UPDBIN,DEBIN1 MOVE POSITION-IND. TO BIN CBG OPTION,W1,A200 NO SET ? * P CBL KEYIND,W0,A100 KEY-LOCK TURNED ? " P
0x0c0880…0c0a14 (1, 243) Dummy {f00=0x003d, f01=0x0190, f02=»00 0 + MOVE DEBIN2,KEYIND MOVE KEYIND TO WORKITEM ( # ADD DEBIN2,W16 CALCULATE BIT-INDEX > ( $ CBL DEBIN2,W12,A120 KEY TURNED ON ? j A110 0 + CALL CLEARB,DEBIN1,DEBIN2 INDICATE KEY OFF B A190 A120 $ ADD DEBIN2,W4 ADJUST
0x0c0a14…0c0ba8 Dummy {f00=0x003d, f01=0x0190, f02=»L UPDBOL,DEBIN1 UPDATE POSITION-IND. P EJECT , * : * D ***** TEST AUTHORITY ***** N * r A200 | $ P MOVE DEBIN3,W3 SET RETURN-CODE " CBL OPTION,W1,A900 NO TEST ? * PA210 CALL MSKOUT,DEBIN1,KEYMSK
0x0c0ba8…0c0d3c Dummy {f00=0x003d, f01=0x0190, f02=» MOVE DEBIN3,W2 SET RETURN-CODE & P MOVE DEBIN4,W4 SET ERROR-CODE = 4 ( P EJECT R * ` * j * &***** RETURN TO CALLING MODULE ***** t * A900 * P CBG OPTION,W1,A910 NO SET PERFORMED ? 0 P MOVE DEBINW3,DEBIN3 RESTORE RETUR
0x0c0d3c…0c0ed0 Dummy {f00=0x003d, f01=0x409c, f02=» t P B A990 PA920 P CMP W0,W1 SET CONDITION = 2 $ P* H PA990 R RET ^ * j PEND t * END @ t * A900 * P CBG OPTION,W1,A910 NO SET PERFORMED ? 0 P MOVE DEBINW3,DEBIN3 RESTORE RETUR
0x0c0ed0…0c1064 Dummy {f00=0x003d, f01=0x2008, f02=» CALL MSKOUT,DEBIN1,KEYMSK , ' CBE DEBIN1,KEYMSK,A900 WANTED KEY ON ? 0 * ` * j $ ***** TEST UNSUCCESSFUL ***** t * A800 ( # MOVE DEBINW4,W2 SET ERROR-CODE = 2 " CMP W0,W1 SET CONDITION = 2 *
0x0c1064…0c11f8 Dummy {f00=0x003d, f01=0x0190, f02=» J F " D @ 2 RRRRRRRRRRR A ! [ ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P R J F " D !0R ! N_m R ?R j !! '( !1j !& !j !!
0x0c11f8…0c138c Dummy {f00=0x003d, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! ! ?R ! 0R !h & !&P E l J | J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D ) L U
0x0c138c…0c1520 Dummy {f00=0x003d, f01=0x0190, f02=» J % F ) T * 2 XT < J F " D [WWj !! ' !QD j !! 0R (T I 1! L ) L W Lb ! W h N J F " D @ 0[ !A j ! !d ! j '! !j !! (( + b +$ y W7 j !! J F " D '( ! j
0x0c1520…0c16b4 (1, 244) Opaque[0x194]
0x0c16b4…0c1848 # DirEnt {nam=»DATCHK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07a8, f03=0x0000}
0x0c16b4…0c1848 IdxSect {
0x0c16b4…0c1848 f00 = 0x003d // 0xc16b4 @0x0
0x0c16b4…0c1848 f01 = 0x0004 // 0xc16b6 @0x2
0x0c16b4…0c1848 gno = [ // 0xc16b8 @0x4
0x0c16b4…0c1848 [0x00]: C0x003d.0x1.0
0x0c16b4…0c1848 [0x01]: C0x003d.0x2.0
0x0c16b4…0c1848 ]
0x0c16b4…0c1848 }
0x0c1848…0c19dc Dummy {f00=0x003d, f01=0x0190, f02=» $ P IDENT DATCHK REL 10.0 80-04-11 P 80-03-27/PEEN , P UPD 79-03-16/PEEN D * ` * j 2 -* THIS ROUTINE CHECKS THE DATE PLAUSIBILITY t 2 .* EUROPEAN (AA-MM-DD) OR AMERICAN (MM-DD-AA) P* OR GERMAN (DD-MM-AA) < 8* ST
0x0c19dc…0c1b70 Dummy {f00=0x003d, f01=0x0190, f02=»KIPPED p * ( P* SYNTAX: CALL MMDDCK,SKIP,BUFF * P* CALL DDMMCK,SKIP,BUFF D * r @ <* SKIP = BIN ITEM TELLING HOW MANY DIGITS COUNTED | @ ;* FROM THE RIGHT TO BE SKIPPED BEFORE THE * &*
0x0c1b70…0c1d04 Dummy {f00=0x003d, f01=0x018e, f02=»UTPUT: CR = O OK , '* CR = 1 NOT OK * N EJECT X ENTRY DATCHK f P ENTRY DDMMCK | P ENTRY MMDDCK * EXTRN I:EVA0 EXTRN I:RT1 * * CALL FORM 16=/F6A1,16
0x0c1d04…0c1e98 Dummy {f00=0x003d, f01=0x0190, f02=» P CALL I:EVA0 & P LDR* A10,A9 GET NO. TO BE SKIPPED $ P CALL I:EVA0 GET BUFFER ADDRESS F P LDR A11,A5 SAVE END POINTER n $ P LDR A7,A10 GET NO.TO BE SKIPPED ( P ADR A7,A6 ADJUST FOR PLACE OF 'DD' " P CALL GETTWO GET DAY IN BINARY
0x0c1e98…0c202c Dummy {f00=0x003d, f01=0x0190, f02=»UR A7,A6 ADJUST FOR PLACE OF 'MM' $ P LDR A5,A11 RESTORE END ADDRESS * " P CALL GETTWO GET MONTH BINARY R P LDR A7,A7 x P RF(Z) NOK IF MONTH = 0 P LDK A6,0 INDICATE OK SUK A7,13 RF(NN) NOK IF WRONG MONTH * % LC A1,TAB,A
0x0c202c…0c21c0 Dummy {f00=0x003d, f01=0x018e, f02=»U * LD A1,2,A13 GET STACK BASE SC A6,-2,A1 STORE CR 0 ABL I:RT1 N P* ` P* j PDDMMCK EQU * t P LDK A6,2 INDICATE DDMMCK P RB CHECK P EJECT PGETTWO EQU * CALL GETDIG SUK A7,1 $ P RB(
0x0c21c0…0c2354 (1, 245) Dummy {f00=0x003d, f01=0x0190, f02=» ADR A7,A1 SLL A1,3 TIMES 8 ADR A7,A1 4 P RTN A14 F EJECT V GETDIG EQU * d CWR A5,A9 x " P RF(NE) GETD10 IF NOT FINISHED P ADKL A14,8 ADJUST STACK P RB NOK PGETD10 EQU * SUK A5,1 $ P L
0x0c2354…0c24e8 Dummy {f00=0x003d, f01=0x40fe, f02=» RTN A14 * * TAB EQU *+12 ( BYTE 31,29 JAN,FEB < BYTE 31,30 MAR,APR X BYTE 31,30 MAY,JUN t BYTE 31,31 JUL,AUG BYTE 30,31 SEP,OCT BYTE 30,31 NOV,DEC * END @ $ P L
0x0c24e8…0c267c Dummy {f00=0x003d, f01=0x2008, f02=»
0x0c267c…0c2810 Dummy {f00=0x003d, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x0c2810…0c29a4 Dummy {f00=0x003d, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x0c29a4…0c2b38 Dummy {f00=0x003d, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x0c2b38…0c2ccc Dummy {f00=0x003d, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x0c2ccc…0c2e60 Dummy {f00=0x003d, f01=0x401a, f02=» u @ & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x0c2e60…0c2ff4 (1, 246) Opaque[0x194]
0x0c2ff4…0c3188 # DirEnt {nam=»DENT29«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07b8, f03=0x0000}
0x0c2ff4…0c3188 IdxSect {
0x0c2ff4…0c3188 f00 = 0x003d // 0xc2ff4 @0x0
0x0c2ff4…0c3188 f01 = 0x0008 // 0xc2ff6 @0x2
0x0c2ff4…0c3188 gno = [ // 0xc2ff8 @0x4
0x0c2ff4…0c3188 [0x00]: C0x003d.0x3.0
0x0c2ff4…0c3188 [0x01]: C0x003e.0x0.0
0x0c2ff4…0c3188 [0x02]: C0x003e.0x1.0
0x0c2ff4…0c3188 [0x03]: C0x003e.0x2.0
0x0c2ff4…0c3188 ]
0x0c2ff4…0c3188 }
0x0c3188…0c331c Dummy {f00=0x003d, f01=0x018e, f02=» ( P IDENT DENT29 PRR 1.0 76-10-29/DALI P DDUM DEDDIV 0 P PDIV D P ENTRY DENDUP R P ENTRY DEEDIT h P ENTRY DELAST ~ P EXT DERECS P EXT DEACC P EXT DECLRN P EXT DECLRD P EXT DERR & P EXT TESTB TEST FOR
0x0c331c…0c34b0 Dummy {f00=0x003d, f01=0x0190, f02=» l * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPTORBLOCK 6 * P EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - X P ATTACH WORKBLOCK P EXT EMPTYT * P EXT TYPET ASSEMBLY SUBROUTINE TYPET - P RETURNS ITEM-TYPE. P 1=B
0x0c34b0…0c3644 Dummy {f00=0x003d, f01=0x0190, f02=»ITT P EJECT . P****************************************** & P* THIS ROUTINE HANDLE THE KEY FOR L " P* DUPLICATION AND EXECUTE THE v P* AUTOMATIC DUPLICATION WHEN $ P* THE KEEP KEY HAS BEEN PRESSED . P********************************
0x0c3644…0c37d8 Dummy {f00=0x003d, f01=0x0190, f02=» * P CBE DEBINW2,W3,KDUP35 JUMP IF AUTODUP P DUPL DEINPUT 2 P BNZ KDUP40 H P SET BOOL5 P B KDUP30 n PKDUP05 P MOVE BIN9,W5 0 P MATCH VALSTR,BIN9,W8,BPOOL(BIN11),BIN12,W1 " P LOOK IF DUPL FROM VALUESET P BNOK KDUP
0x0c37d8…0c396c Dummy {f00=0x003d, f01=0x0190, f02=»GET ITEMNUMBER P MOVE BIN8,W0 ( P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 , P ADD BIN12,W1 X P MOVE BCD3A,BIN8 n . P CBNE BIN9,W4,KDUP25 JUMP IF NOT VALUESET ( P MOVE BIN8,W18 LOOK IF ELEMENTNUMBER 0 P MATCH VALSTR,BIN8,W1,BPOOL(BIN11),B
0x0c396c…0c3b00 Dummy {f00=0x003d, f01=0x0190, f02=»1 P BZ KDUP10 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY P MOVE BCD13A,DEINPUT V P MOVE ELMNO,BCD13A r P CBE ELMNO,W0,KDUP10 P B KDUP15 PKDUP20 P ADD BIN12,W1 * P XCOPY ELMNO,W1,W1,BPOOL(BIN11),BIN12
0x0c3b00…0c3c94 (1, 247) Dummy {f00=0x003e, f01=0x0190, f02=»RT TABLE,W0,W1,STR1A,W0 P PERF DEDISC,W24 GET VALUSET P BNOK KDUP50 D $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 X $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 P MOVE BIN10,W0 ( P XCOPY BIN10,W1,W1,RPOOL(PINDTB),W17 P SUB ELMNO,BIN10 P ADD E
0x0c3c94…0c3e28 Dummy {f00=0x003e, f01=0x0190, f02=»TRG10A r P MOVE PINDTB,W0 PKDUP30 & P CALL EMPTYT,:FMTITEM 4 P BNZ KDUP32 JUMP IF EMPTY R P GETABX DEBINW3 t P ERASE 9,DEBINW3,DEBINW3 PKDUP32 2 P UPDFLD 1,DEINPUT UPDATE FIELD WITH DISPLAYING P MOVE DEBINW2,W2 P
0x0c3e28…0c3fbc Dummy {f00=0x003e, f01=0x018e, f02=»OVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY PKDUP50 0 P MOVE DEBINW2,W0 > PKDUP60 V P CMP W1,W0 d P RET v P PEND P EJECT . P***************************************** P* . P*THIS PROCEDURE EDIT ITEMS FOR VALIDATIONS
0x0c3fbc…0c4150 Dummy {f00=0x003e, f01=0x0190, f02=» P* = 2 USERVARIABELS , P* = 3 FIELDS WITHIN CURRENT FORMAT & P* = 4 VALUESETS V P* = 5 DATE t * P* = 6 VALUESETINDEX (ELEMENTNO) P* . P***************************************** PDEEDIT PROC FC
0x0c4150…0c42e4 Dummy {f00=0x003e, f01=0x0190, f02=»D160 d P MOVE DEINPUT,ACK(BIN8) P B DED390 , PDED100 > P CALL TESTB,BPOOL(PINDTB),W2 L P BNZ DED150 JUMP IF BCD p & P XCOPY BIN7,W1,W1,BPOOL(PINDTB),W1 * P COPY DEINPUT,W0,BIN7,FDVBCD(ELMNO),W0 P RET PDED150 P MOVE
0x0c42e4…0c4478 Dummy {f00=0x003e, f01=0x0190, f02=»OVE BCD3A,VSEIND BINCONV=>BCD & P MOVE DEINPUT,BCD3A BCDCONV=>STRG & P RET P PDED170 P MOVE DEINPUT,DATE j P DLETE DEINPUT,W0,W1 P B DED400 PDED200 * P TBF DOOLA,DED210 JUMP IF NOT BALANCE P MOVE DEINPUT,:FMTITEM
0x0c4478…0c460c Dummy {f00=0x003e, f01=0x018e, f02=»7,W2,DED250 JUMP IF BCD P MOVE BIN7,W0 P EDSUB DEINPUT,BIN7,FORMF 6 P B DED390 X PDED250 j , P CON X.MOVE,DEINPUT,X.PSEUDO,X.WB10,BIN8 x P B DED400 PDED300 P EDSUB DEINPUT,BIN7,FORMS P B DED350 PDED330
0x0c460c…0c47a0 Dummy {f00=0x003e, f01=0x0190, f02=» P MOVE DEBINW1,W0 P MOVE BIN7,=W'80' , P MATCH DEINPUT,DEBINW1,BIN7,HEX00,W0,W1 6 PDED450 f P SUB DEBINW1,BIN10 t " P BNN DED470 JUMP IF NOT MINUS P MOVE DEBINW1,W0 PDED470 P RET P PEND P EJECT * P******
0x0c47a0…0c4934 (1, 248) Dummy {f00=0x003e, f01=0x0190, f02=»********************************* PDELAST PROC FC,$KEYT * P MOVE BIN15,FC F PLASTD0 MOVE DEBINW4,W24 P ERASE 0,DEBINW4,DEBINW4 | P EDWRT DEDSSCRN,FLAST(FC) PLAST05 P MOVE DEBINW1,W0 PLASTD1 4 P IB FC,LPROG,LDEL,LDEL
0x0c4934…0c4ac8 Dummy {f00=0x003e, f01=0x0190, f02=»ENGTH h P CBG DEBINW1,W0,LPROG2 $ P MOVE DEBIW2,W2 SIMULATE CANCEL , P ERASE 0,DEBINW4,DEBINW4 T P B LASVER t PLPROG2 . P KI DEDSDYKB,DEINPUT,$KEYT,DEBINW1,DEBINW2 P B LAST50 PLVAL P MOVE DEBINW1,W2 P B LPROG2
0x0c4ac8…0c4c5c Dummy {f00=0x003e, f01=0x0190, f02=» PERF DELOCK,W1,DEBINW2 $ P IB DEBINW3,POWOFF,LASTER,LASTD0 P B LASTD3 H P* Z 0 P* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY d P* PLASTER P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 P BZ LASBEL P MOVE DE
0x0c4c5c…0c4df0 Dummy {f00=0x003e, f01=0x0190, f02=» C l P LASRET,LASRET,LASRET PLAST06 * $ P IB DEBINW2,LASBEL,LASBEL,LASBEL 8 " P SUB DEBINW2,W3 ADJUST EOI0KEY ` P B LASRET PLASBEL ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B LAST05 PLASKOP P MOVE DEBINW3,W1
0x0c4df0…0c4f84 Dummy {f00=0x003e, f01=0x0190, f02=» P* POWER OFF P* PPOWOFF " P DISPLAY 0,W1,W0 0 P B LASTD0 H P* Z PPROEN2 d . P IB FC,LASTUT,LASTD0,LASTD0,LASTD0,LASTUT r PLASTUT P ADD DEBINW1,W1 PLASRET P ERASE 0,DEBINW4,DEBINW4 PLASRET2 P
0x0c4f84…0c5118 Dummy {f00=0x003e, f01=0x018e, f02=»LE FPROG,FDEL1,FDEL2,FLIN1,FLVAL,FLINS,FRECOV C , P FCORR,FVER,FRECO2,FFORCE,FCONV0,FCONV1 8 PFPROG FRMT h P FSL z P FLOW P FCOPY =C'SYMBOLIC:' P FMEND PFDEL1 FRMT P FSL P FLOW $ P FTEXT 'CONFIRM RECORD DELETE:
0x0c5118…0c52ac Dummy {f00=0x003e, f01=0x0190, f02=» P FTEXT 'INSERTED' P FMEND PFDEL3 FRMT , P FSL > P FLOW J P FCOPY =C'RECORD' X P FILLR ' ',1 r P FMEL 'TTTT9',BCD13A P FILLR ' ',1 P FMEND PFLVAL FRMT P FSL P FLOW P FTEXT 'DUPL FROM '
0x0c52ac…0c5440 Dummy {f00=0x003e, f01=0x018e, f02=»ER' P FILLR ':',1 P FMEND PFLIN1 FRMT . P FSL @ P FLOW L " P FTEXT 'CONFIRM RECORD INSERT' Z P FMEND PFRECOV FRMT P FSL P FLOW P FTEXT 'RECOVERY OF ' P FCOPY =C'JOB' P FILLR ':',1 P FCO
0x0c5440…0c55d4 (1, 249) Dummy {f00=0x003e, f01=0x0190, f02=» PFCORR FRMT P FSL P FLOW & P FTEXT 'RECORD CORRECTION' 4 P FMEND V PFVER FRMT d P FSL v P FLOW $ P FTEXT 'RECORD MUST BE VERIFIED' P FMEND PFRECO2 FRMT P FSL P FTEXT 'RECOVERY RUNNING.' P
0x0c55d4…0c5768 Dummy {f00=0x003e, f01=0x0190, f02=» PFCONVA FRMT P FCOPY =C'CONFIRM ' ( P FTEXT 'CONVERSION OF ALL BATCHES ' 8 P FMEND d PFCONV0 FRMT r P FSL P FLINK FCONVA P FTEXT 'ON UNIT:U' P FMEL 'X',USERFILE P FMEND PFONV2 PFCONV1 FRMT
0x0c5768…0c58fc Dummy {f00=0x003e, f01=0x40f6, f02=»EUDO,X.WB10,BIN8 P FMEND PFORMS FRMT & P FCOPY SYSV(BIN8) 8 P FMEND R PFORMU FRMT ` P FCOPY USEV(BIN8) r P FMEND PBELL FRMT P FSL P FILLR X'07',1 P FMEND P* END @ PFCONV1 FRMT
0x0c58fc…0c5a90 Dummy {f00=0x003e, f01=0x2008, f02=» END @
0x0c5a90…0c5c24 Dummy {f00=0x003e, f01=0x0190, f02=»ORMAT | P FTEXT ' 1' P FEOR NEW PAGE " P FILLR ' ',2 : P FCOPY ='FORMAT' N P FILLR ':',1 f P FCOPY FORMAT z P FTAB 100 P FCOPY ='PAGE' P FILLR ':',1 P FMEL 'ZZ9',FDVBCD(W3) P FEOR 1ST HEADLINE P F
0x0c5c24…0c5db8 Dummy {f00=0x003e, f01=0x0190, f02=» ' P FCOPY ='LENGTH' P FTAB 40 " P FTEXT 'SPECIAL ' 2 P FTEXT '#L:<' L P FCOPY ='FIELD' b P FTEXT 'LAYOUT> #V:' z P FCOPY ='VALIDATION ' P FTEXT ' #G:' P FCOPY ='GENERATION ' P FEOR 3RD HEADLINE P FIL
0x0c5db8…0c5f4c Dummy {f00=0x003e, f01=0x0190, f02=»E ~ P FILLR ' ',2 P FEOR 5TH HEADLINE P FMEND : P EJECT H P* V 4 P* PRINT FORMAT , BALANCE FORMAT DEFINITION ` P* " PF22DL FRMT DETAIL-LINEFORMAT P FILLR ' ',2 P FBT BOOL8,F22DA P FTAB 4 " P FME
0x0c5f4c…0c60e0 Dummy {f00=0x003e, f01=0x412a, f02=»TION v P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 @ ( P FMEL 'ZZVZZ9',SPEC SPECIAL HANDLING P PF22DA | P FTAB 48 P FCOPY STR64A P FEOR DETAIL-LINE P FMEND P EJECT PFORMF FRMT P FTEXT ' 1'
0x0c60e0…0c6274 (1, 250) Opaque[0x194]
0x0c6274…0c6408 # DirEnt {nam=»DENT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x07d8, f03=0x0000}
0x0c6274…0c6408 IdxSect {
0x0c6274…0c6408 f00 = 0x003e // 0xc6274 @0x0
0x0c6274…0c6408 f01 = 0x000e // 0xc6276 @0x2
0x0c6274…0c6408 gno = [ // 0xc6278 @0x4
0x0c6274…0c6408 [0x00]: C0x003e.0x3.0
0x0c6274…0c6408 [0x01]: C0x003f.0x0.0
0x0c6274…0c6408 [0x02]: C0x003f.0x1.0
0x0c6274…0c6408 [0x03]: C0x003f.0x2.0
0x0c6274…0c6408 [0x04]: C0x003f.0x3.0
0x0c6274…0c6408 [0x05]: C0x0040.0x0.0
0x0c6274…0c6408 [0x06]: C0x0040.0x1.0
0x0c6274…0c6408 ]
0x0c6274…0c6408 }
0x0c6408…0c659c Dummy {f00=0x003e, f01=0x0190, f02=» $ P IDENT DENT01 REL 10.0 80-04-11 P 80-03-26/DALI , P DDUM DEDDIV D P PDIV X P ENTRY DENT01 f P EXT DERECS | P EXT DEACC P EXT DECLRN P EXT DECLRD P EXT DECLRA P EXT DECLRS P EXT DERROR P E
0x0c659c…0c6730 Dummy {f00=0x003e, f01=0x018e, f02=»A BIT IN A BIN | P EXT SETB SET A BIT IN A BIN & P EXT GETDUP LOOK FOR DUPLICATION- : P STRING FOR CURRENT FIELD d & P EXT DEDISC DISC HANDLING ROUTINE & P EXT DEPOOL POOL HANDLING ROUTINE P EXT MASK P EXT EMPTYT P EXT D
0x0c6730…0c68c4 Dummy {f00=0x003e, f01=0x0190, f02=» d P* P* HANDLE ENTERED DATA P* 0 . P***************************************** : PDATAIN l & P TBT DOOL8,DAT04 JUMP IF OPEN NEW z P* $ P TBF VERIFM,DAT0X VERIFY MODE ? ( P TBF DBOMVR,DAT05 RECORD TO VERIFY ? ( P TBF D
0x0c68c4…0c6a58 Dummy {f00=0x003e, f01=0x0190, f02=»HOME , PDAT01 CLEAR DECHANGE CHANGED INPUTFIELD $ P TBT VERIFM,DAT05 VERIFY MODE ? < & P TBF DEPROMPT,DAT07 ENTIRE DISPLAY d PDAT04 , P CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH . P MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 & P PERF DECL
0x0c6a58…0c6bec Dummy {f00=0x003e, f01=0x0190, f02=»OME INPUTFIELDS(NCLR) | P B DAT03 PDAT05 . ( P TBT KEYVER,DAT06 KEY VERIFICATION ? < PDAT0X h & P SET DENOCHAN NO CHANGES PERMITTED v PDAT06 ( P PERF DECLRD DISPLAY VARIABEL FIELDS : PDAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,R
0x0c6bec…0c6d80 Dummy {f00=0x003e, f01=0x0190, f02=»DATERR MOVE DEBINW4,W0 PDATER2 $ P TBF VERIFM,DATER3 VERIFY MODE ? , * P TBT KEYVER,DATER3 KEY VERIFICATION ? T & P SET DENOCHAN NO CHANGES PERMITTED P* PDATER3 * P CBE PINDFR,W0,DATER4 NO ENTRY FORMAT P ATTACHED. P P
0x0c6d80…0c6f14 (1, 251) Dummy {f00=0x003f, f01=0x018e, f02=»TBAL,CANCBL,SERIOUS P B DATER4 PDATER7 . ( P IB DEBINW2,DATER5,DATER5 CLR,CAN C < ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA h PDATER5 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME P PERF DERECS,W14 GET FORMAT P BNOK DATER4
0x0c6f14…0c70a8 Dummy {f00=0x003f, f01=0x018e, f02=» d P TBT DOOL2,DAT0 INSERT P B DAT0X & PDATER6 6 ( P CBE NUMBER,=D'0',DATER8 BATCHEAD=0 D P B RBWDDA p PDATER8 P MOVE DEBINW4,W15 P B DATER4 P EJECT P***************** P* CANCEL PRESSED. P**********
0x0c70a8…0c723c Dummy {f00=0x003f, f01=0x0190, f02=» P B DAT04 P* PCANC03 ( P TBF DOOL2,CANC10 JUMP IF NOT INSERT , * P MOVE DEBINW2,W5 SIMULATE RBWD PRESSED X P B RBWD10 PCANC10 , P TBT DECHANGE,CANC20 CHANGED INPUTFIELD? $ P TBT VERIFM,CANC13 VERIFY MODE ? & P PERF DEPR
0x0c723c…0c73d0 Dummy {f00=0x003f, f01=0x018e, f02=»BOMVR,CANC15 RECORD TO VERIFY ? ( P TBT DBOVER,CANC15 VERIFIED RECORD ? ( P PERF DEVERS SET VERIFY MODE T PCANC13 x & P CLEAR DENOCHAN CHANGES PERMITTED & P ERASE 1,W1,W0 ERASE ALL ON SCREEN P B DAT05 PCANC15 P PERF DECLRN
0x0c73d0…0c7564 Dummy {f00=0x003f, f01=0x0190, f02=» ( P CLEAR DECHANGE CHANGED INPUTFILED ? " P CLEAR DEPROMPT ENTIRE DISPLAY 0 P BNZ DAT04 V , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP h P B DAT06 P EJECT P***************** P* RETURN PRESSED. P***************** PRETU
0x0c7564…0c76f8 Dummy {f00=0x003f, f01=0x0190, f02=» PERF DERECS,W3 ENTER LAST RECORD P BNERR SERIOUS * PRETU03 @ P PERF DERROR,DEKTAB6 N PRETU05 j P B SERIOUS x P**************** P* ENTER PRESSED. P**************** PDATENT $ P TBF VERIFM,DAEN00 VERIFY MODE ? P
0x0c76f8…0c788c Dummy {f00=0x003f, f01=0x0190, f02=»FWD10 P EJECT PDAEN00 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT * ( P PERF DEACC,W0 INCREASE ACCUMULATORS b & PDAEN10 CLEAR DOOL2 RECORD INSERT ? P BZ DAEN50 P* HANDLE INSERTED RECORD P* P CLEAR BOOL7 CLEAR/S
0x0c788c…0c7a20 Dummy {f00=0x003f, f01=0x0190, f02=»MITTED t * P PERF DERECS,W12 ENTER INSERTED RECORD P BOK DAEN30 < PDAEN20 P ( P PERF DEACC,W1 DECREASE ACCUMULATORS ^ P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER PINSERR P PERF DELAST,W6,DEKTAB5 P IB DEBINW2,INSERR,R
0x0c7a20…0c7bb4 (1, 252) Dummy {f00=0x003f, f01=0x0190, f02=» P* PDAEN50 * P TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? 2 P CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS J PDAEN60 P TBF DECHANGE,DAEN61 P PERF DERECS,W1 ENTER NEW P BNOK DAEN20 PDAEN61 P CLEAR BOOL5 CLEAR/SET CR
0x0c7bb4…0c7d48 Dummy {f00=0x003f, f01=0x0190, f02=»(N) j P B DAEN63 PDAEN62 P CLEAR BOOL3 CLEAR/SET CR , & P BOK DAEN65 NO FORMAT CHANGE FOUND N 2 P MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG x PDAEN63 8 P CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE P BNOK DAEN65
0x0c7d48…0c7edc Dummy {f00=0x003f, f01=0x0190, f02=»K DAEN67 DATAENTER-FORMAT ( P MOVE BIN3,DEBINW4 SAVE FORMATINDEX " & P PERF DERECS,W3 ENTER LAST RECORD N P BOK DAEN66 x 8 P CBNE DEBINW4,W13,DAEN69 IGNORE NO WORKSPACE IN CORE PDAEN66 P MOVE DEINPUT,HEX00 6 P COPY DEINPUT,W0,W6,ST
0x0c7edc…0c8070 Dummy {f00=0x003f, f01=0x0190, f02=» : P COPY DEINPUT,W0,W6,STSAVE(DEBINW4),W0 GET FORMATNAME P CLEAR DOOL8 OPEN NEW BATCH B " P PERF DERECS,W14 CHANGE FORMAT f P BOK DAEN64 P CBNE NUMBER,=D'0',DAEN69 P SET DENOCHAN PDAEN69 P B DATER2 PDAEN64 P S
0x0c8070…0c8204 Dummy {f00=0x003f, f01=0x0190, f02=»OK DAEN68 P CLEAR DOOL8 P B DATER4 & PDAEN68 8 P CLEAR DOOL8 F PDAEN70 Z P CLEAR DECHANGE h P BZ DAT0 P CLEAR SW95PR P BZ DAEN80 P MOVE DEBINW4,=W'-1' P PERF DERROR,DEKTABS $ P IB DEBINW2,DAEN80,DAEN8
0x0c8204…0c8398 Dummy {f00=0x003f, f01=0x0190, f02=»DERECS,W3 ENTER LAST SECTOR P BERR DATER2 $ P PERF DEVERS SET VERIFY MODE 8 P B RFWD02 PDAEN85 n P B DAT0 | P EJECT P****************** P* RECORD FORWARD. P****************** PRFWDDA P TBT DECHANGE,RFWD
0x0c8398…0c852c Dummy {f00=0x003f, f01=0x018e, f02=»BNE DEBINW4,W6,RFWD03 VERIFY MODE ? ( P TBF DBOMVR,RFWD03 RECORD TO VERIFY , P PERF DEVERS SET VERIFY MODE X P TBT DBOVER,RFWD10 | PRFWD02 P PERF DELAST,W9,DEKTAB8 P B CANC13 PRFWD04 ( P TBT DBOVER,RFWD10 VERIFIED RECORD ?
0x0c852c…0c86c0 Dummy {f00=0x003f, f01=0x0190, f02=» j PRFWD06 " P B RBWD10 GET PREVIOUS RECORD PRFWD05 < P TBT DENOCHAN,RFWD10 J PRFWD07 f P B DATERR t PRFWD10 P MOVE DEBINW3,NUMBER $ P CBNE DEBINW3,BDPOIN(W2),RFWD15 P TEST VERIFM & P BNZ TOTBAL JUMP VERIFY TO B
0x0c86c0…0c8854 (1, 253) Dummy {f00=0x003f, f01=0x0190, f02=»ECORDS v P B RFWD33 PRFWD15 $ P TBT VERIFM,RFWD23 VERIFY MODE? . P PERF DELAST,W15,DEKTABR V ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C v P RFWD18,RBWDDA P MOVE DEBINW2,W4 PRFWD22 P MOVE BCDI21(W3),DEINPUT " P CBG BCD
0x0c8854…0c89e8 Dummy {f00=0x003f, f01=0x0190, f02=» DATER2 PRFWD17 P MOVE DEBINW3,BCDI21(W3) 0 P CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH > $ P MOVE BCDI21(W3),NUMBER RESTORE r P B RFWD13 NOT FOUND PRFWD18 P SUB DEBINW1,W1 P BNZ RFWD22 PRFWD23 P MOVE BCDI
0x0c89e8…0c8b7c Dummy {f00=0x003f, f01=0x0190, f02=» $ P PERF DERECS,W4 GET NEXT RECORD PRFWD30 , P BOK RFWD40 : P BOFL RETU03 N P CLEAR DOOLC b & P CBNE PINDFR,W0,RFWD33 CURR FORMAT v * P CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? $ P TBF VERIFM,RFWD31 VERIFY MODE ? * P CBE DEBINW4,W13,R
0x0c8b7c…0c8d10 Dummy {f00=0x003f, f01=0x018e, f02=»LEAR SOOL2 P B DATER4 PRFWD33 $ P TBF VERIFM,RFWD38 2 P TEST BDAVER L P BNZ TOTBAL ` P TBT KEYVER,RFWD35 t P DISPLAY 30,W1,W0 P B RFWD39 PRFWD35 P DISPLAY 20,W1,W0 P B RFWD39 PRFWD38 P CMP D
0x0c8d10…0c8ea4 Dummy {f00=0x003f, f01=0x0190, f02=» P SET SOOL2 NOT BATCHHEAD ( P CBE DEBINW2,W5,RFWD50 RBWD PRESSED ( & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 T & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY ~ P TBF DBOMVR,RFWD10 P PERF DEVERS SET VERIFY MODE P TBT DBOVER,RFWD10 & P CLEAR D
0x0c8ea4…0c9038 Dummy {f00=0x003f, f01=0x0190, f02=»EST VERIFM P BZ DAT06 P B DAT05 $ PRFWD70 4 P CLEAR SOOL2 B P TEST VERIFM V P BZ DAT0X j P B DAT05 | P EJECT P***************** P* RECORD BACKWARD P***************** P* PRBWERR B DATERR
0x0c9038…0c91cc Dummy {f00=0x003f, f01=0x0190, f02=»12 BATCHHEAD z & P PERF DEVERC CLEAR IF VERIFY MODE P BNZ RBWD10 > P TBT DENOCHAN,RBWD15 R & P SET DENOCHAN NO CHANGES PERMITTED n & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 P B RFWD50 PRBWD10 & P SET DENOCHAN NO C
0x0c91cc…0c9360 Dummy {f00=0x003f, f01=0x0190, f02=»DEBINW2,PROCAN,PROCAN,RETUDA C P RFWDDA,RBWD25 ( P MOVE DEBINW2,W5 @ PRBWD20 X P MOVE BCDI21(W3),DEINPUT f " P CBNL BCDI21(W3),NUMBER,RFWD16 P B RBWD30 PRBWD25 P SUB DEBINW1,W1 P BNZ RBWD20 PRBWD28 P M
0x0c9360…0c94f4 (1, 254) Dummy {f00=0x003f, f01=0x018e, f02=»GET PREVIOUS RECORD P B RFWD30 P EJECT . P******************* < P* RECORD CORRECTION X P******************* t PCORDAT P TBT VERIFM,CORD10 P TBF DENOCHAN,RBWERR PCORD10 P TBT DOOL2,RBWERR INSERT P CLEAR
0x0c94f4…0c9688 Dummy {f00=0x003f, f01=0x0190, f02=» P PERF DELAST,W8,DEKTAB7 & P PERF DEVERC CLEAR IF VERIFY MODE $ P BZ CORD20 N P PERF DECLRD ` P B CORD30 t PCORD20 P PERF DECLRN 8 PCORD30 IB DEBINW2,CORCAN,CORC10,CORENT CLR,CAN,ENT C & P CORD35,CORD35,CORD35 NOT VALID C
0x0c9688…0c981c Dummy {f00=0x003f, f01=0x0190, f02=»HANGE,CORE15 NO CHANGES MADE & P ERASE 1,W1,W0 ERASE ALL ON SCREEN $ PCORC10 N P SET DOOL4 & P PERF DERECS,W5 GET CURRENT RECORD n P BNERR CORRET P CLEAR DOOL4 P B CORD40 PCORRET P CLEAR DOOL4 PCORE15 ( P PER
0x0c981c…0c99b0 Dummy {f00=0x003f, f01=0x0190, f02=» & P CORENT,CORENT,CORENT NOT USED C ! P CORDEL DEL ! . PCORENT ! B P PERF DERECS,W2 ENTER OLD ! P P BNOK CORD40 ! r PCORE10 ! P MOVE DEBINW3,W24 ! , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE ! & P CBNE DEBINW2,W1,CORE15 NOT CANCE ! P
0x0c99b0…0c9b44 Dummy {f00=0x003f, f01=0x0190, f02=» P CBNE DEBINW4,W6,CORE60 " PCORE50 " $ P TBF DBOMVR,CORE60 " 2 P TBT DBOVER,CORE60 " L P PERF DEVERS SET VEIFY MODE " f P B RFWD02 " PCORE60 " & P SET DENOCHAN NO CHANGES PERMITTED " . P CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL " P B
0x0c9b44…0c9cd8 Dummy {f00=0x003f, f01=0x0190, f02=»************* " P* RECORD DELETE. # P***************** # . PDLTEDA # H P TBT VERIFM,DLTE05 # V P TEST DENOCHAN # p P BZ DATERR # P TEST DOOL2 INSERT # P BNZ DATERR # PDLTE05 # P TEST SOOL2 # P BZ DATERR JUMP IF BATCHHEAD #
0x0c9cd8…0c9e6c Dummy {f00=0x003f, f01=0x0190, f02=» & P ERASE 1,W1,W0 ERASE ALL ON SCREEN $ ( P PERF DEACC,W1 DECREASE ACCUMULATORS $ . P THOME $ Z PDLTE30 $ h P PERF DERECS,W8 $ v P BNERR DLTE50 $ P PERF DERROR,DEKTAB6 $ P B SERIOUS $ PDLTE50 $ P PERF DELAST,W3,DEKTAB5 $ PDLTE60 $
0x0c9e6c…0ca000 Dummy {f00=0x003f, f01=0x0190, f02=»C ALARM $ t P B DLTE50 % P EJECT % " P******************* % 0 P* CHANGE PROGRAM. * % L P******************* % h PPROGDA % P TEST DENOCHAN % P BNZ DATERR % P TEST DECHANGE % P BNZ DATERR % P TEST SOOL2 % P BZ DATERR %
0x0ca000…0ca194 (1, 255) Dummy {f00=0x0040, f01=0x0190, f02=»,W1 % ~ P BZ PROGD0 JUMP IF NO INPUT & 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY & 0 $ P PERF DERECS,W10 CHANGE PROGRAM & j P BOK DAT0 & P GETFLD 0,BIN4,DEBINW2 & P B DATER2 & P* & PPROCAN & & P PERF DEPRUT,PRNUM,DEBINW4,D
0x0ca194…0ca328 Dummy {f00=0x0040, f01=0x0190, f02=» & P****************** ' P* RECORD INSERT. * ' " P****************** ' < PINSRDA ' V P TEST DOOL2 ' d P BNZ DATERR ' x & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 ' P CBNE DEBINW4,W6,INSR05 ' P TBF DBOMVR,INSR05 ' P TBT DBOVER,INSR05 '
0x0ca328…0ca4bc Dummy {f00=0x0040, f01=0x018e, f02=»ECORD ' j & P CLEAR DENOCHAN CHANGES PERMITTED ( P B CANBL1 ( 8 PINSR10 ( J P PERF DELAST,W4,DEKTAB7 ( X , P IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 ( x " P PERF DERECS,W9 INSERT RECORD ( P BERR DATER2 ( & P CLEAR DENOCHAN CHANGES PERMITTED (
0x0ca4bc…0ca650 Dummy {f00=0x0040, f01=0x0190, f02=» P* TOT-KEY PRESSED. * ) P******************** ) PTOTDA ) < P TEST DOOL8 ) J P BNZ DATERR ) ^ P TBF SOOL2,TOTBAL ) r P CLEAR DOOL2 INSERT ) P BNZ TOTBAL ) P TEST DECHANGE ) P BNZ DATERR ) P TBT DENOCHAN,TOTBAL ) P TBT V
0x0ca650…0ca7e4 Dummy {f00=0x0040, f01=0x018e, f02=» P EJECT * . P***************************************** * P* * D P* HANDLE BALANCE FORMAT * N P* * n . P***************************************** * x PTOTBAL * & P CLEAR DENOCHAN CHANGES PERMITTED * P CLEAR SOOL2 * P MOVE DEINPUT,HEX0
0x0ca7e4…0ca978 Dummy {f00=0x0040, f01=0x018e, f02=» P SET DOOLA + PTOTB10 + P PERF DEDISC,W10 GET FORMAT + $ P BNERR TOTB20 + H * P CBNE DEBINW4,W13,TOTB12 NO WORKSPACE + ^ & P ATTFMT FFETCH ATTACH DUMMYFORMAT + P DISPLAY 0,W1,W0 + P THOME + * P CBE PINDFR,W0,TOTB14 NO CURR. FORMAT + (
0x0ca978…0cab0c Dummy {f00=0x0040, f01=0x0190, f02=» + p & P SET DENOCHAN NO CHANGES PERMITTED , PTOTB14 , 2 P B DATER2 , @ PTOTB20 , R ( P MOVE FORMAT,FORTAB(W21) BLANCE NAME , ` P MOVE SYMREC(W11),FRMTPNTR , P MOVE BIN14,FLIND(W1) , P ATTFMT BPOOL(BIN14) , P SET DEPROMPT , ( P PERF DEDI
0x0cab0c…0caca0 Dummy {f00=0x0040, f01=0x0190, f02=»0 JUMP IF NOT TOT , z * P CBE BDPOIN(W5),W0,TOTB42 ALL VERIFIED - P PERF DELAST,W9,DEKTAB6 - H P B TOTB35 - h PTOTB42 - z , P PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE - * P IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42 - P SET BDAFRO ENTER PRESSED - P
0x0caca0…0cae34 (1, 256) Dummy {f00=0x0040, f01=0x0190, f02=» - P MOVE DEBINW4,W0 . PTOTB60 PERF DERR . P B TOTB40 . 8 PENTBL . J P SET BDABAL IN BALANCE . X PTOTB70 . v P CLEAR DOOLA . 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 . P MOVE DEBINW2,W1 . P RET . P* . PCANCBL . P
0x0cae34…0cafc8 Dummy {f00=0x0040, f01=0x0190, f02=» DEBINW4,W13,TOTB14 . P SET DOOLA / P B TOTB60 / . PCANBL3 / @ & P PERF DEVERC CLEAR IF VERIFY MODE / N * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST / x P CLEAR DECHANGE / P B DAT02 / PCANBL2 / P B DAT01 / PSERIOUS / P CLEAR BDABA
0x0cafc8…0cb15c Dummy {f00=0x0040, f01=0x0190, f02=»K(W12),W0 / P SET VERIFM 0 P RET 0 & P PEND 0 2 PDEVERC PROC 0 @ P CLEAR VERIFM 0 T P BZ DEVERE 0 j P MOVE WORK(W11),W0 0 | P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0 P EJECT 0 PBELL FRMT 0 P FSL 0 P FIL
0x0cb15c…0cb2f0 Dummy {f00=0x0040, f01=0x4068, f02=»SC.' 0 P FNL 1 P FKI 1,ALPHA 1 P FCOPY HEX00 1 , P FMEND 1 @ P* 1 N END 1 X@ 1 d P BZ DEVERE 0 j P MOVE WORK(W11),W0 0 | P MOVE WORK(W12),W0 0 PDEVERE 0 P RET 0 P PEND 0 P EJECT 0 PBELL FRMT 0 P FSL 0 P FIL
0x0cb2f0…0cb484 Dummy {f00=0x0040, f01=0x2008, f02=» 2 ,W7 GET LAST RECORD P BERR TOTB60 $ P CLEAR DOOLA 8 P SET SOOL2 L * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST ^ P CLEAR DECHANGE P B DAT02 PCANBL2 P B DAT01 PSERIOUS P CLEAR BDABAL OUT OF BALANCE P B
0x0cb484…0cb618 Dummy {f00=0x0040, f01=0x0190, f02=»! :d" 5 : 0 E !0 E " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V E + : V & 6 E [ [ [ [ $ [ [ d :p d :p d
0x0cb618…0cb7ac Dummy {f00=0x0040, f01=0x0190, f02=» [ Q@ [ d ^n { R [ _ d ^h d bB Z ! Z $ Z %_N [ Q* d ^h d `L R [ Z { d ^h z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( f
0x0cb7ac…0cb940 Dummy {f00=0x0040, f01=0x0190, f02=» $ 1T Y TfW 5 _( : f $0TH $ R W R # P W ) V E f $0T Wr W W F< f [ f : Z !0 , !0P4 0 > R* 4 R :d" 8 R ! :DW ! 9 R R _. : : : 7 7 #03
0x0cb940…0cbad4 (1, 257) Opaque[0x194]
0x0cbad4…0cbc68 # DirEnt {nam=»DANT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0810, f03=0x0000}
0x0cbad4…0cbc68 IdxSect {
0x0cbad4…0cbc68 f00 = 0x0040 // 0xcbad4 @0x0
0x0cbad4…0cbc68 f01 = 0x000c // 0xcbad6 @0x2
0x0cbad4…0cbc68 gno = [ // 0xcbad8 @0x4
0x0cbad4…0cbc68 [0x00]: C0x0040.0x2.0
0x0cbad4…0cbc68 [0x01]: C0x0040.0x3.0
0x0cbad4…0cbc68 [0x02]: C0x0041.0x0.0
0x0cbad4…0cbc68 [0x03]: C0x0041.0x1.0
0x0cbad4…0cbc68 [0x04]: C0x0041.0x2.0
0x0cbad4…0cbc68 [0x05]: C0x0041.0x3.0
0x0cbad4…0cbc68 ]
0x0cbad4…0cbc68 }
0x0cbc68…0cbdfc Dummy {f00=0x0040, f01=0x0190, f02=» $ P IDENT DANT01 PRR 79-11-12/DALI P DDUM DEDDIV , P PDIV @ P ENTRY DANT01 N P EXT DERECS d P EXT DEACC x P EXT DECLRN P EXT DECLRD P EXT DECLRA P EXT DECLRS P EXT DERROR P EXT DELAST P EXT C
0x0cbdfc…0cbf90 Dummy {f00=0x0040, f01=0x0190, f02=»XT GETDUP LOOK FOR DUPLICATION- P STRING FOR CURRENT FIELD ( & P EXT DEDISC DISC HANDLING ROUTINE L & P EXT DEPOOL POOL HANDLING ROUTINE v P EXT MASK P EXT EMPTYT P EXT DELOCK P EXT DEPRUT P INCLUDE DELITT P E
0x0cbf90…0cc124 Dummy {f00=0x0040, f01=0x0190, f02=»************************************* PDATAIN . & P TBT DOOL8,DAT04 JUMP IF OPEN NEW < P TBF VERIFM,DAT0X f P TBF DBOMVR,DAT05 P TBF DBOVER,DAT05 P CLEAR VERIFM P B DAT0X P* P* P* PDAT0 THOME
0x0cc124…0cc2b8 Dummy {f00=0x0040, f01=0x018e, f02=»H j . P MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 P PERF DECLRA < P B DAT03 P PDAT02 ` P TBT VERIFM,DAT05 n PDAT07 P PERF DECLRS P B DAT03 PDAT05 P TBT KEYVER,DAT06 PDAT0X P SET DENOCHAN PDA
0x0cc2b8…0cc44c Dummy {f00=0x0040, f01=0x0190, f02=» PDATERR MOVE DEBINW4,W0 PDATER2 " P TBF VERIFM,DATER3 0 P TBT KEYVER,DATER3 J P SET DENOCHAN d PDATER3 z * P CBE PINDFR,W0,DATER4 NO ENTRY FORMAT P PERF DERR P ATTACHED. P B DAT03 PDATER4 P PERF DERROR,D
0x0cc44c…0cc5e0 Dummy {f00=0x0040, f01=0x0190, f02=»2,DATER5,DATER5 CLR,CAN C ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA " PDATER5 N 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME P PERF DERECS,W14 GET FORMAT P BNOK DATER4 P TBT VERIFM,DAT05 P MOVE DEBINW3,NUMBER . P CBG DEB
0x0cc5e0…0cc774 (1, 258) Dummy {f00=0x0040, f01=0x0190, f02=» RBWDDA PDATER8 P MOVE DEBINW4,W15 P B DATER4 8 P EJECT J P***************** X P* CANCEL PRESSED. r P***************** PCANCDA P TBT SOOL2,CANC03 P TBF DOOL8,CANC03 OPEN NEW P THOME P B DAT04
0x0cc774…0cc908 Dummy {f00=0x0040, f01=0x0190, f02=»ECHANGE,CANC20 & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 P CBNE DEBINW4,W6,CANC15 @ P MOVE DEBINW3,NUMBER ` " P CBG DEBINW3,BDPOIN(W2),CANC15 | P SET VERIFM VERIFY MODE PCANC13 & P ERASE 1,W1,W0 ERASE ALL ON SCREEN P B DAT06
0x0cc908…0cca9c Dummy {f00=0x0040, f01=0x018e, f02=» t P BERR DATER2 P CLEAR DECHANGE P CLEAR DEPROMPT 4 P BNZ DAT04 L , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP ^ P B DAT06 P***************** P* RETURN PRESSED. P***************** PRETUDA P TBT VERIFM,RE
0x0cca9c…0ccc30 Dummy {f00=0x0040, f01=0x0190, f02=» P MOVE DEBINW2,W1 P RET PERRB40 , P MOVE DEBINW2,W2 : P RET R P EJECT ^ P**************** l P* ENTER PRESSED. P**************** PDATENT P TBF VERIFM,DAEN00 PVERIFY P SET DBOVER P BNZ RFWD1
0x0ccc30…0ccdc4 Dummy {f00=0x0040, f01=0x018e, f02=» RFWD PRESSED | P B RFWD10 PDAEN00 ( 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT 6 ( P PERF DEACC,W0 INCREASE ACCUMULATORS n PDAEN10 CLEAR DOOL2 P BZ DAEN50 P CLEAR BOOL7 CLEAR/SET CR P BZ DAEN14 P SET DOOL2
0x0ccdc4…0ccf58 Dummy {f00=0x0040, f01=0x0190, f02=» v P TBT KEYVER,DAEN18 PDAEN15 " P SET DENOCHAN 0 PDAEN18 F * P PERF DERECS,W12 ENTER INSERTED RECORD T P BOK DAEN30 PDAEN20 ( P PERF DEACC,W1 DECREASE ACCUMULATORS P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER
0x0ccf58…0cd0ec Dummy {f00=0x0040, f01=0x0190, f02=» PDAEN33 P IB DEBINW2,INSERR,RETUDA P CLEAR DECHANGE 4 P TBF VERIFM,DAEN40 L PDAEN35 f P TBF KEYVER,DAEN40 t * P ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP P DISPLAY 23,W1,W0 P B DAT03 PDAEN40 P SET DENOCHAN
0x0cd0ec…0cd280 Dummy {f00=0x0040, f01=0x0190, f02=»RECS,W1 ENTER NEW P BNOK DAEN20 PDAEN61 . P CLEAR BOOL5 CLEAR/SET CR < P CLEAR BOOL7 CLEAR/SET CR ^ & P BOK DAEN62 NO FORMAT CHANGE FOUND PDAEN59 . P MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) P B DAEN63 PDAEN62
0x0cd280…0cd414 (1, 259) Dummy {f00=0x0041, f01=0x0190, f02=»63 8 P CALL EMPTYT,STSAVE(DEBINW4) CHECK IF FORMAT CHANGE P BNOK DAEN65 F 8 P MOVE DEINPUT,STSAVE(DEBINW4) LOAD NEXT FORMAT NAME Z PDAEN66 P PERF DERECS,W14 P BOK DAEN64 ( P TBF SOOL2,ERRB40 JUMP IF FIRST REC P B DATER2
0x0cd414…0cd5a8 Dummy {f00=0x0041, f01=0x0190, f02=»F DERECS,W10 P BOK DAEN68 P CLEAR DOOL8 ( P B DATER4 < PDAEN68 N P CLEAR DOOL8 PDAEN70 p P CLEAR DECHANGE ~ P BZ DAT0 P CLEAR SW95PR P BZ DAEN80 P MOVE DEBINW4,=W'-1' P PERF DERROR,DEKTABS $ P I
0x0cd5a8…0cd73c Dummy {f00=0x0041, f01=0x0190, f02=»R,DAEN85 & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 : P SUB NUMBER,=D'1' N P SET VERIFM VERIFY MODE h P B RFWD02 PDAEN85 P B DAT0 P EJECT P****************** P* RECORD FORWARD. P**************
0x0cd73c…0cd8d0 Dummy {f00=0x0041, f01=0x0190, f02=»DEKTAB8 P B CANC13 PRFWD03 " P TBT DOOL8,RFWD07 0 ( P TBF DOOL2,RFWD05 JUMP IF NOT INSERT J , P SUB NUMBER,=D'1' ADJUST CURRENT REC.NR v P CLEAR DOOL2 P B RFWD10 PRFWD05 P TBT DENOCHAN,RFWD10 PRFWD07 P B D
0x0cd8d0…0cda64 Dummy {f00=0x0041, f01=0x018e, f02=»IFY TO BALANCE | PRFWD13 P CBNE NUMBER,=D'0',RFWD14 $ PRFWD12 F P CLEAR SOOL2 T PRFWD14 h $ P MOVE DEBINW4,W9 NO MORE RECORDS v P B DATER2 PRFWD15 P SET DOOLC P BNZ RFWD20 & P ERASE 1,W1,W0 ERASE ALL ON SCREEN
0x0cda64…0cdbf8 Dummy {f00=0x0041, f01=0x0190, f02=» l & P CBE NUMBER,=D'0',RFWD32 BATCHHEAD P SET SOOL2 2 P B DATER4 D PRFWD32 V P CLEAR SOOL2 d P B DATER4 x PRFWD33 P TBF VERIFM,RFWD38 P TBT KEYVER,RFWD35 P DISPLAY 30,W1,W0 P B RFWD39 PRFWD35 P D
0x0cdbf8…0cdd8c Dummy {f00=0x0041, f01=0x0190, f02=» P SET SOOL2 NOT BATCHHEAD ( P CBE DEBINW2,W5,RFWD50 RBWD PRESSED $ & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 P & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY z P TBF DBOMVR,RFWD10 P TBT DBOVER,RFWD10 P SET VERIFM P CLEAR DENOCHAN P B D
0x0cdd8c…0cdf20 Dummy {f00=0x0041, f01=0x0190, f02=» DAT05 PRFWD70 P CLEAR SOOL2 P TEST VERIFM 0 P BZ DAT0X D P B DAT05 V P EJECT f P***************** t P* RECORD BACKWARD P***************** P* PRBWERR B DATERR P* PRBWDDA TBT DECHANGE,RBWERR
0x0cdf20…0ce0b4 (1, 260) Dummy {f00=0x0041, f01=0x0190, f02=»E DEBINW3,W24 , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE * P ERASE 1,W1,W0 ERASE ALL FROM 1 AND UP F P CLEAR VERIFM t P BNZ RBWD10 P TBT DENOCHAN,RBWD15 & P PERF DERECS,W3 ENTER LAST SECTOR P BERR DATER2 P SET DENOCHAN
0x0ce0b4…0ce248 Dummy {f00=0x0041, f01=0x0190, f02=» EJECT P******************* P* RECORD CORRECTION * P******************* F PCORDAT b P TBT VERIFM,CORD10 p P TBF DENOCHAN,RBWERR PCORD10 P TBT DOOL2,RBWERR INSERT . P MOVE WORK(W10),BIN1 SAVE CURR REC.STATUS P C
0x0ce248…0ce3dc Dummy {f00=0x0041, f01=0x0190, f02=»,W8,DEKTAB7 P CLEAR VERIFM P BZ CORD20 * P TBF KEYVER,CORD20 < P PERF DECLRD V P B CORD30 j PCORD20 | P PERF DECLRN * PCORD30 IB DEBINW2,CORCAN,CORC10,CORENT P MOVE DEBINW4,W0 PCORD40 P PERF DERR P B C
0x0ce3dc…0ce570 Dummy {f00=0x0041, f01=0x0190, f02=»L4 & P PERF DERECS,W5 GET CURRENT RECORD P BNERR CORRET 4 P CLEAR DOOL4 J P B CORD40 ^ PCORRET p P CLEAR DOOL4 ~ PCORE15 ( P PERF DEACC,W2 INCREASE ACCUMULATORS P CLEAR DECHANGE P THOME P MOVE BIN1,WORK(W10)
0x0ce570…0ce704 Dummy {f00=0x0041, f01=0x0190, f02=» MOVE DEBINW3,W24 , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE & P CBNE DEBINW2,W1,CORE15 NOT CANCE J * P CALL UPDBOL,BIN1 ORIGINATE REC.STATUS t P B CORE45 PCORE20 P GETFLD 0,W1,DEBINW1 P CLEAR DECHANGE P CALL TESTB,BIN1,W
0x0ce704…0ce898 Dummy {f00=0x0041, f01=0x018e, f02=»FOR PCORE40 " P CALL TESTB,BIN1,W10 VERIFIED P BZ CORE45 @ P TBF DBOMVR,CORE45 R P CALL CLEARB,BIN1,W10 l ( P ADD BDPOIN(W5),W1 NUMBERS TO VERIFY PCORE45 & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 P CBNE DEBINW4,W6,INSR05
0x0ce898…0cea2c Dummy {f00=0x0041, f01=0x018e, f02=» P SET DENOCHAN . P CBNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL P B DAT06 P PCORE90 ` P PERF DECLRN n P B DAT03 P EJECT P***************** P* RECORD DELETE. P***************** PDLTEDA P TEST DENOCHAN
0x0cea2c…0cebc0 Dummy {f00=0x0041, f01=0x0190, f02=» P PERF DELAST,W2,DEKTAB7 , P IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 ( & P ERASE 1,W1,W0 ERASE ALL ON SCREEN X ( P PERF DEACC,W1 DECREASE ACCUMULATORS P THOME PDLTE30 P PERF DERECS,W8 P BNERR DLTE40 P PERF DERROR,DEK
0x0cebc0…0ced54 (1, 261) Dummy {f00=0x0041, f01=0x018e, f02=» x PDLTE60 > P IB DEBINW2,DELERR,RETUDA,DELERR,RFWD20,RFWD50,DELERR, C P DELERR,TOTDA X PDELERR n ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM | P B DLTE50 P EJECT P******************* P* CHANGE PROGRAM. * P********
0x0ced54…0ceee8 Dummy {f00=0x0041, f01=0x0190, f02=» P BZ DATERR P GETABX BIN4 PPROGD0 * P PERF DELAST,W1,DEKTAB7 8 , P IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 X PPROENT SUB DEBINW1,W1 P BZ PROGD0 JUMP IF NO INPUT 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY $ P PE
0x0ceee8…0cf07c Dummy {f00=0x0041, f01=0x0190, f02=»RN P B DAT03 P* P EJECT $ P****************** 2 P* RECORD INSERT. * L P****************** f PINSRDA P TEST DOOL2 P BNZ DATERR P MOVE DEBINW3,NUMBER 0 P CBNE DEBINW3,BDPOIN(W2),INSR10 LAST RECORD P C
0x0cf07c…0cf210 Dummy {f00=0x0041, f01=0x0190, f02=»ERF DERECS,W9 INSERT RECORD P BERR DATER2 ! $ P CLEAR DENOCHAN ! 8 P SET DOOL2 RECORD INSERT ! P P CLEAR VERIFM ! p P B DAEN65 ! P EJECT ! P******************** ! P* TOT-KEY PRESSED. * ! P******************** ! PTOTDA ! P
0x0cf210…0cf3a4 Dummy {f00=0x0041, f01=0x018e, f02=» TBT DENOCHAN,TOTBAL ! P TBT VERIFM,TOTBAL " P PERF DERECS,W3 ENTER LAST " 6 P BNERR TOTBAL " X P B DATER2 " n P EJECT " . P***************************************** " P* " P* HANDLE BALANCE FORMAT " P* " . P********************
0x0cf3a4…0cf538 Dummy {f00=0x0041, f01=0x0190, f02=» P MOVE FRMTPNTR,SYMREC(W11) # P CLEAR DECHANGE # & P SET DOOLA # > PTOTB10 # P P PERF DEDISC,W10 GET FORMAT # ^ P BNERR TOTB20 # * P CBNE DEBINW4,W13,TOTB12 NO WORKSPACE # * P CBE PINDFR,W0,TOTB12 NO CURR. FORMAT # ( P PERF DEPOOL,W6,PIND
0x0cf538…0cf6cc Dummy {f00=0x0041, f01=0x0190, f02=»B10 # PTOTB12 $ P B DATER2 $ PTOTB20 $ , ( P MOVE FORMAT,FORTAB(W21) BLANCE NAME $ : P MOVE SYMREC(W11),FRMTPNTR $ f P MOVE BIN14,FLIND(W1) $ P ATTFMT BPOOL(BIN14) $ P SET DEPROMPT $ ( P PERF DEDISC,W1 ENTER JOB DEFINITION $ PTOTB
0x0cf6cc…0cf860 Dummy {f00=0x0041, f01=0x0190, f02=»W5),W0,TOTB42 ALL VERIFIED $ P PERF DELAST,W9,DEKTAB6 % " P B TOTB35 % B PTOTB42 % T , P PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE % b * P IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42 % P SET BDAFRO ENTER PRESSED % P MOVE DEBINW2,W3 % P B ENTBL %
0x0cf860…0cf9f4 (1, 262) Dummy {f00=0x0041, f01=0x0190, f02=» PERF DERR % P B TOTB40 & PENTBL & $ P SET BDABAL IN BALANCE & 2 PTOTB70 & P P CLEAR DOOLA & ^ 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 & r P CBE BDPOIN(W4),W0,TOTB76 & P SET BDAFOR & P B TOTB77 & PTOTB76 & P CLEAR BDAFO
0x0cf9f4…0cfb88 Dummy {f00=0x0041, f01=0x018e, f02=» P CLEAR BDAVER ' P B TOTB81 ' PTOTB79 ' , P SET BDAVER ' : PTOTB81 ' N P MOVE DEBINW2,W1 ' P RET ' t P* ' PCANCBL ' PCANBL1 ' P CLEAR DOOLA ' P SET SOOL2 ' $ P PERF DERECS,W7 GET LAST RECORD ' P BNOK DATER2 ' P
0x0cfb88…0cfd1c Dummy {f00=0x0041, f01=0x416a, f02=» PSERIOUS ( P CLEAR BDABAL OUT OF BALANCE ( P B TOTB70 ( 8 P PEND ( J PBELL FRMT ( X P FSL ( j P FILLR X'07',1 ( v P FMEND ( PFFETCH FRMT ( P FSL ( P FTEXT 'FETCHING FORMAT:' ( P FCOPY DEINPUT ( P FTEXT ' FROM DISC.' (
0x0cfd1c…0cfeb0 Dummy {f00=0x0041, f01=0x2008, f02=» ) ,W7 GET LAST RECORD P BERR TOTB60 $ P CLEAR DOOLA 8 P SET SOOL2 L * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST ^ P CLEAR DECHANGE P B DAT02 PCANBL2 P B DAT01 PSERIOUS P CLEAR BDABAL OUT OF BALANCE P B
0x0cfeb0…0d0044 Dummy {f00=0x0041, f01=0x40b0, f02=» @ H IDENT U:BTAB TRA 4.1 79-11-01 F1 O1111 REL 1.0 79-11-01 U:BTAB H U:BTABB Z U:CB10 n @ CB1 :C @ , b! ! @ `bh `!Z2! "_0( % !8 J F " D #_> c;j b!Z7 bc b! c !d b!Z7 !
0x0d0044…0d01d8 Dummy {f00=0x0041, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 4.1 79-11-01 F1 O1111 REL 1.0 79-11-01 S:BTAB H S:BTABB Z n :B @ :C @ , b! ! @ `bh `!Z2! "_0( % !8 J F " D #_> c;j b!Z7 bc b! c !d b!Z7 !
0x0d01d8…0d036c Dummy {f00=0x0041, f01=0x4144, f02=» @ H IDENT U:CB10 TRA 4.1 79-11-01 F1 O1111 REL 1.0 79-11-01 U:CB10 H U:CB10C Z * & n & & = & [ & y & &
0x0d036c…0d0500 Dummy {f00=0x0041, f01=0x0190, f02=» @ H IDENT T:AT10 TRA 4.1 79-11-01 F1 O1111 REL 1.0 79-11-01 T:AT10 H T:AT10A Z > : T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 n > : D:CB40A C:CB40A D:CB509 C:CB50F D:TB20 Z:TB200 D:TB300 > : Z:TB30 D:TB40 Z:T
0x0d0500…0d0694 (1, 263) Opaque[0x194]
0x0d0694…0d0828 # DirEnt {nam=»CONV «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0840, f03=0x0000}
0x0d0694…0d0828 IdxSect {
0x0d0694…0d0828 f00 = 0x0042 // 0xd0694 @0x0
0x0d0694…0d0828 f01 = 0x0004 // 0xd0696 @0x2
0x0d0694…0d0828 gno = [ // 0xd0698 @0x4
0x0d0694…0d0828 [0x00]: C0x0042.0x0.0
0x0d0694…0d0828 [0x01]: C0x0042.0x1.0
0x0d0694…0d0828 ]
0x0d0694…0d0828 }
0x0d0828…0d09bc Dummy {f00=0x0042, f01=0x0190, f02=» P IDENT CONV UPD 80-01-22/AST DDUM DEDDIV ( PDIV < P ENTRY DECONV J P EXT ATTDEV ATTACH DEVICE ` P EXT DETPRT DETACH DEVICE P EJECT P EJECT P* @ P* THIS MODULE TAKE CARES OF THE DIFFERENT CONVERTIONS-
0x0d09bc…0d0b50 Dummy {f00=0x0042, f01=0x0190, f02=»OURSELVES. l P* D P* FORMAL PARAMETERS: FC = FUNCTION-CODE (DEVICE-CLASS) @ P* = 1 DATACOMMUNICATION OUT d > P* = 2 DATACOMMUNICATION IN 8 P*
0x0d0b50…0d0ce4 Dummy {f00=0x0042, f01=0x0190, f02=» b : P* = 6 FLOPPYDISC FILE : P* = 7 DELETE BATCHES ON USERFILE F P* 8 P* TYPE = TYPE OF HANDLING . P* = 1 OPEN : P*
0x0d0ce4…0d0e78 Dummy {f00=0x0042, f01=0x0190, f02=» = 4 BALANCE RECORD t 0 P* = 5 CLOSE P* T 4 P* RETCON = RETURN-CODE ^ , P* = 0 OK > P* /= 0 ERROR MESSAGE-NUMBER P
0x0d0e78…0d100c Dummy {f00=0x0042, f01=0x018e, f02=»************************* Z P EJECT " PDECONV PROC FC,TYPE,RETCON 0 P* R 6 P IB FC,TRANSM,RECEIV,CASSET JUMP ON DEVICE-CLASS C " P PRINTA,DISCFL,FLOPPY,DELETE PTRANSM PRECEIV PCASSET PDISCFL PFLOPPY PERROR
0x0d100c…0d11a0 Dummy {f00=0x0042, f01=0x0190, f02=» h P* PPRINTA : P IB TYPE,PR100,PR200,PR200 JUMP ON TYPE 0F HANDLING C P PR200,PR500 ^ P B ERROR t P* * P* OPEN DEVICE = ATTACH PRINTER P* PPR100 $ P PERF ATTDEV,BIN6 ATTACH DEVICE P BOK DECOOK
0x0d11a0…0d1334 (1, 264) Dummy {f00=0x0042, f01=0x0190, f02=» P EDWRT DEDSPRT,FCOUNT P BNOK PR298 " P MOVE DEBINW3,W1 6 P PRINT DEDSPRT,DEBINW3,W0 N P BNOK PR298 p P B DECOOK PPR298 2 P MOVE DEBINW4,=W'35' OUTPUT DEVICE NOT OP....' P B RETURN GO AND CLOSE P* * P*
0x0d1334…0d14c8 Dummy {f00=0x0042, f01=0x0190, f02=» 8 P* THIS ROUTINE DELETE BATCHES ON THE USERFILE P* @ PDELETE J P IB TYPE,DECOOK,DEL100 X P B DECOOK v PDEL100 P MOVE RETCON,=W'-5' P B RETURN P EJECT P* P* OK P* PDECOOK P M
0x0d14c8…0d165c Dummy {f00=0x0042, f01=0x40a4, f02=»,2 P FILLR '*',10 P FTEXT 'NUMBER: ' P FMEL '9999',NUMBER : P FEOR V P FILLR ' ',2 d P FEOR x P FMEND END @ W'-5' P B RETURN P EJECT P* P* OK P* PDECOOK P M
0x0d165c…0d17f0 Dummy {f00=0x0042, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0d17f0…0d1984 Dummy {f00=0x0042, f01=0x0190, f02=»U:BTAB 800121 U:BTABB U:CB10 :C ,S:BTAB 800121 S:BTABB :B ,Z:TB10 800121 Z:TB10T + . ,D:TB10 800121 D:TB10T :T , :DB10 800121 :DB10D ,D:DB10 800121
0x0d1984…0d1b18 Dummy {f00=0x0042, f01=0x0190, f02=» :DB30D ,D:DB30 800121 D:DB30D ,U:CB10 800121 U:CB10C ,D:CB10 800121 D:CB10C 6 ,C:CB20 800121 C:CB20C $ ,D:CB20 800121 D:CB20C B ,C:CB30
0x0d1b18…0d1cac Dummy {f00=0x0042, f01=0x0190, f02=» 800121 D:CB40C > ,C:CB50 800121 C:CB50C ,D:CB50 800121 D:CB50C : ,Z:TB20 800121 Z:TB20T ,D:TB20 800121 D:TB20T B ,Z:TB30 800121 Z:TB30T
0x0d1cac…0d1e40 Dummy {f00=0x0042, f01=0x0190, f02=» B ,Z:TB50 # 800121 Z:TB50T ,D:TB50 $ 800121 D:TB50T F ,Z:TB60 % 800121 Z:TB60T . ,D:TB60 & 800121 D:TB60T . *DEDDIV ' 800121 $$$TRA DENTER ( 800121 $$$TR
0x0d1e40…0d1fd4 (1, 265) Opaque[0x194]
0x0d1fd4…0d2168 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0878, f03=0x0000}
0x0d1fd4…0d2168 IdxSect {
0x0d1fd4…0d2168 f00 = 0x0043 // 0xd1fd4 @0x0
0x0d1fd4…0d2168 f01 = 0x0008 // 0xd1fd6 @0x2
0x0d1fd4…0d2168 gno = [ // 0xd1fd8 @0x4
0x0d1fd4…0d2168 [0x00]: C0x0043.0x3.0
0x0d1fd4…0d2168 [0x01]: C0x0044.0x0.0
0x0d1fd4…0d2168 [0x02]: C0x0044.0x1.0
0x0d1fd4…0d2168 [0x03]: C0x0044.0x2.0
0x0d1fd4…0d2168 ]
0x0d1fd4…0d2168 }
0x0d2168…0d22fc Dummy {f00=0x0043, f01=0x000c, f02=»800820 READDK ~ CLOSEF OPENF POOLA @ P:MTAB GETFWD ~ T:GRFC T:GETF( ADJUST TCDVRUT 800820 CDV110 CDV111 CDV10 I:EVA0 I:RT1 t VDATCHK 800820 DATCHKK MMDDCK I:EVA0
0x0d22fc…0d2490 Dummy {f00=0x0043, f01=0x0190, f02=» T:AT10 800820 T:AT10A T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB50 C:CB50F D:TB20 Z:TB20. D:TB30- Z:TB30 D:TB40 Z:TB40 D:TB50 Z:TB50 D:TB10 Z:TB10 D:DB10A Z:TB10A D:DB20 Z:TB10F D:DB30 Z:TB10. D:T
0x0d2490…0d2624 Dummy {f00=0x0043, f01=0x0190, f02=»U:BTAB 800820 U:BTABB U:CB10 :C ,S:BTAB 800820 S:BTABB :B ,Z:TB10 800820 Z:TB10T ,D:TB10 800820 D:TB10T :T ,D:DB10 800820 D:DB10D > ,D:DB20 800820
0x0d2624…0d27b8 Dummy {f00=0x0043, f01=0x0190, f02=» D:CB10C 6 ,C:CB20 800820 C:CB20C $ ,D:CB20 800820 D:CB20C B ,C:CB30 800820 C:CB30C 8 ,D:CB30 800820 D:CB30C F ,C:CB40 800820 C:CB40C ,D:CB40
0x0d27b8…0d294c Dummy {f00=0x0043, f01=0x0190, f02=» 800820 Z:TB20T ,D:TB20 800820 D:TB20T B ,Z:TB30 800820 Z:TB30T ,D:TB30 800820 D:TB30T F ,Z:TB40 800820 Z:TB40T $ ,D:TB40 800820 D:TB40T B
0x0d294c…0d2ae0 Dummy {f00=0x0043, f01=0x0190, f02=» 2 ,D:TB60 " 800820 D:TB60T . *DEDDIV # 800820 $$$TRA DEDISC $ 800820 $$$TRAD COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 WAITR d CHANFCM CLSBTHR DELBTCA DELFMTT DELJOBS DELTBL DEPOOL DLCUR
0x0d2ae0…0d2c74 (1, 266) Dummy {f00=0x0044, f01=0x0190, f02=»T PREJOBF RECURR SCHFMT. SCHJOB- T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO <DKRUT1 ( 800820 $$$TRAA CLSBTH DISUD DLCURRR # DLRCCHS ` FREESP - GTNEXTO GTPREVA OFRSP HRDR RDACC RDDSW S RECURRW REFSP RFRSP HWRD WRD
0x0d2c74…0d2e08 Dummy {f00=0x0044, f01=0x0190, f02=» DKRUT2 1 800820 $$$TRAR DELFMT ENTFMTN NEXFMTC OPCLM PREFMT ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLL DISU DLRCCH1 EMPTYT FREESPM GETINDX NOFFREO NXPRFMP OPENF REFSP RELEAS RETURNC RFRSP SFMTCH T:SWITD WAIT1 WRFSP
0x0d2e08…0d2f9c Dummy {f00=0x0044, f01=0x0190, f02=»T SFMTCHG x CONDF DEPOOLB DISUE FREESP HRDT RDDS; RELEAS1 RETURNY RFRSP SCHPOOD STRT01R WAITN 8 DKRUT4 A 800820 $$$TRA DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB. NXBTH 4 NXJOB 2 OPNEBC OPNNBCG PREJOBX READJBH SCHJOBN
0x0d2f9c…0d3130 Dummy {f00=0x0044, f01=0x0190, f02=» PTSDE K 800820 $$$TRA ATTDEVS ATTPRTD DEANOKT DEAOK0R h DEAOK1. m DEAOK21 r DEAOK4 w DEAPPLD DEPMSKA DEPRUTK DETCHK DETPRT $ PTSDE ATTBUF CHANFCP CONDD DE10ST DE20STK DE30STH DE40STT DE50ST DE60ST DE70STR DEAP1AA DEAP2
0x0d3130…0d32c4 Dummy {f00=0x0044, f01=0x0190, f02=»:DSC17 T:ERAS T:TEST T:WAITG T:XSTAG TESTB UPDBOLK + DENTER Z 800820 $$$TRAN DECLRA DECLRDD DECLRNC DECLRS DERR ADJUSTN ATTPRTA CANC DEAPPL DEFORC1 DEGEN DELAST0 DELOCK DENDUP DENVALR DERRORC DESTATD DETCHK DETPRT DEV
0x0d32c4…0d3458 Dummy {f00=0x0044, f01=0x0190, f02=»:PRINE T:SETCW T:TBWDE T:TFWDA T:THOMD T:TSTCD T:UPDF T:XSTA TESTB DENT01 m 800820 $$$TRAN DENT01 CLEARBN DEACC DECLRA DECLRD DECLRN1 DECLRS1 DEDISC0 DELAST DEPOOL DEPRUT DERECS DERR DERROR EMPTYT RESTOR SETB T:ATTFN T
0x0d3458…0d35ec Dummy {f00=0x0044, f01=0x0190, f02=» CMPIND. DEDISC- DELOCK1 DEPOOLL EMPTYT0 GETDUP MASKI T:DISPL T:DUPLD T:EDWR T:ERAS T:GETA T:GETC T:KI T:PRINA T:THOMP T:TSTCD T:UPDFL T:XSTAP TESTB TYPET DENT03 800820 $$$TRAN DEFORC DEVERI : DELOCKN DERRORA DESTAT FMOVE F
0x0d35ec…0d3780 Dummy {f00=0x0044, f01=0x0190, f02=» DENVAL ATTDB ATTWB CLEARB. CMPIND- DEAPPU1 DECOMPL DEDISC0 DEEDIT DEPOOL EMPTYT GETIND GETVAL MSKOUT SETB T:GETA T:GETC T:GETFA T:TSTCE TESTB TYPET NDEPOOL 800820 $$$TRAP DEPOOL CMPINDP GETINDA SETB @ DE10ST
0x0d3780…0d3914 (1, 267) Dummy {f00=0x0044, f01=0x0190, f02=»RUT DERR RESTOR T:ATTF hDE11ST 800820 $$$TRA1 DE11ST DECLRN1 DERRORA T:ATTF T:DISPF T:GETT T:SETT. E DE12ST 800820 $$$TRA1 hA20 CANC11C / CANC121 2 DE12ST1 WRIT12 G DECLRA1 DEDISCA DEPOOL DERR ENT12 R
0x0d3914…0d3aa8 Dummy {f00=0x0044, f01=0x0190, f02=» DERR DERROR FMOVE RESTOR T:DISP T:ERAS T:GETF TESTB WRIT12T VDE14ST 800820 $$$TRA1 DE14ST DECLRN1 DEDISCA DERR T:ATTF $ |DE15ST 800820 $$$TRA1 DE15ST ATTWB DECLRNT DEPOOL DERR- OPCL T:ATTFR T:DISP
0x0d3aa8…0d3c3c Dummy {f00=0x0044, f01=0x0190, f02=»EAOK0- DEAOK4 DECLRA2 DEDISC DEPMSK DEPOOL DEPRUT DERROR RESTOR2 T:ATTFA T:ERAS T:GETCF DE21ST 800820 $$$TRA2 DE21ST DEFGTC ATTDB ATTPRTT ATTWB DEDISC- DEFDSC1 DEPOOLL DERROR0 DETPRT EMPTYT FCODE FEDIT FLINK FMOVE MTE
0x0d3c3c…0d3dd0 Dummy {f00=0x0044, f01=0x0190, f02=» DE23ST 800820 $$$TRA2 DE23ST ATTDB ATTPRTT ATTWB DE21ST- DECLRA1 DEDISCL DEPOOL0 DERR1 DERROR DESTAT DETPRT FEDIT PRFGUF RESTOR T:ATTF T:DISP T:GETFA DE24ST 800820 $$$TRA2 DE24ST ATTDB DECLRAT DEDISC DEP
0x0d3dd0…0d3f64 Dummy {f00=0x0044, f01=0x0190, f02=»MSK DEPRUTF DERR1 RESTOR1 T:ATTF0 M DE31ST 800820 $$$TRA3 DE31ST DEAP3A ATTWB DEANOKT DEAOK0 DECLRA DECLRN1 DEDISC1 DEPOOL0 DERR DERROR EMPTYT3 T:ATTF T:DISP T:ERAS T:GETF TESTB DE40ST 800820 $$$TRA4
0x0d3f64…0d40f8 Dummy {f00=0x0044, f01=0x0190, f02=» 800820 $$$TRAF FACCF FCODE FCOPY FDUPL 1 FGEN1 FITEM .hFKI FLINK d FMELI hFNL 5hFSL FTABF i FTEXT B FVALF NOPOOLI D CONNUM DEPOOL DERROR FMOVE LINIT T:DISPT T:ERASI WCNTRLK e DEUNPF 800820 $$$TRAU DEUNPF DEU
0x0d40f8…0d428c Dummy {f00=0x0044, f01=0x0190, f02=»TRAP PRFGUF DERRORP DEUNPFA EMPTYT NOPOOLF T:EDWR T:PRIN. DEPROC $ 800820 $$$TRAP DESC & FDIRL LINIT MTEXT DEPOOLP DERRORA EMPTYT FACC FCOPY FDUPL FGEN.hFKI FMELI hFNL FTABF FTEXT FVALT NOPOOLT T:DISP T:ERAS T:SWIT UPD
0x0d428c…0d4420 Dummy {f00=0x0044, f01=0x0190, f02=» CMPINDV DERRORA EMPTYT T:DISPF T:ERAS T:GETF. E DE50ST 8 800820 $$$TRA5 DE50ST DEAP5A ATTDB ATTWB DEANOK. DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR DERROR DESTAU EMPTYTA OPCLD RESTO
0x0d4420…0d45b4 (1, 268) Dummy {f00=0x0044, f01=0x0190, f02=»1 DEOPBCF DERR1 DERROR1 OPCL0 T:ATTF T:GETA T:GETF DE70ST R 800820 $$$TRA7 DE70ST DEAP7A ATTDB DEANOKT DEAOK0 DECLRA DECLRS1 DECONV1 DEDISC0 DELAST DEOPBC DEPMSK7 DEPOOL DEPRUT DERECS DERR DERROR EMPTYT GETINDD OPC
0x0d45b4…0d4748 Dummy {f00=0x0044, f01=0x0190, f02=»ECLRA DECONVF DERR1 T:ATTF1 U XDECONV d 800820 $$$TRAC DECONV ATTDEVC DETPRTA T:EDWR T:PRINF L DERROR f 800820 $$$TRAR CANC DERROR DELASTR DELOCKA MASK MSKOUT T:DISP1 T:EDWR1 T:ERAS0 T:GETA T:NKI T:SETCO T
0x0d4748…0d48dc Dummy {f00=0x0044, f01=0x0190, f02=»:ATTF T:DISPF T:THOM TESTB UPDBIN UPDBOL DEREC2 800820 $$$TRAR DEOPBC DEREC2 7 ATTWB CLEARBT CMPIND DEACC DEDISC1 DELASTL DEPOOL0 DEPRUT DERECS DEREFOC DERROR EMPTYT OPCL RESTOR SETB T:GETF TESTB UPDBINT UPDBOL
0x0d48dc…0d4a70 Dummy {f00=0x0044, f01=0x0190, f02=»NPF DEUNPL EMPTYT FDIR hFNLhFSL MASK MTEXT NOPOOLT T:DISP T:DUPL T:DYKI1 T:EDFL1 T:EDWR0 T:ERAS T:GETA T:GETC T:GETF T:NKI T:PRINY T:SETC T:TBWDL T:TFWD T:THOMN T:UPDFT T:XSTAT UPDBOLT VGACNTT 6 xDEACCU 800820 $$$TRAA DEACC
0x0d4a70…0d4c04 Dummy {f00=0x0044, f01=0x0190, f02=»INDA DENVAL EMPTYTF GETFWD GETGEN. MSKOUT- T:ERAS T:GETA T:GETC T:GETF T:SETC T:TSTC T:UPDF TYPET 6DEAPPU 800820 $$$TRAA DEAPPU EA ^DECOMP 800820 $$$TRAC DECOMP CDV10 CDV110T CDV111 DDMMCK MMDDCK1
0x0d4c04…0d4d98 Dummy {f00=0x0044, f01=0x0190, f02=»AS DESTAT DESTAU TESTB UPDBINT J ASSRUT 800820 ATTWB I:EVA0V ATTDB CHANFC` $ T:FDSP SAVEY 6 RESTOR L GETFREA n I:RT1 SETFREA SETOCC UPDBOLN UPDBIN SETBY J CLEARB TESTB GETVOL R
0x0d4d98…0d4f2c Dummy {f00=0x0044, f01=0x4162, f02=» WRITDK x READDK ~ CLOSEF OPENF POOLA @ P:MTAB GETFWD ~ T:GRFC T:GETF( ADJUST TCDVRUT 800820 CDV110 CDV111 CDV10 I:EVA0 I:RT1 t VDATCHK 800820 DATCHKK MMDDCK I:EVA0
0x0d4f2c…0d50c0 Dummy {f00=0x0044, f01=0x0190, f02=»R 9Q 0 Ae :B f _" Ae " f Ae 0R$ 9U AR FQ 0:D Ae f _* 'T f :H_ Ae " Ae Af 4 fR f" T Af Ae " , f "! R _U .WV Af:: fF Af: " 9d fF ! R :W& fx W
0x0d50c0…0d5254 (1, 269) Opaque[0x194]
0x0d5254…0d53e8 # DirEnt {nam=»DENT03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0910, f03=0x0000}
0x0d5254…0d53e8 IdxSect {
0x0d5254…0d53e8 f00 = 0x0048 // 0xd5254 @0x0
0x0d5254…0d53e8 f01 = 0x0004 // 0xd5256 @0x2
0x0d5254…0d53e8 gno = [ // 0xd5258 @0x4
0x0d5254…0d53e8 [0x00]: C0x0048.0x2.0
0x0d5254…0d53e8 [0x01]: C0x0048.0x3.0
0x0d5254…0d53e8 ]
0x0d5254…0d53e8 }
0x0d53e8…0d557c Dummy {f00=0x0048, f01=0x018e, f02=» $ P IDENT DENT03 REL 10.0 80-04-11 P 80-01-21/DALI , DDUM DEDDIV D PDIV X " ENTRY DEFORC HANDLE FORCEKEY f P ENTRY DEVERI P EXT TESTB P EXT FORCED P EXT FMOVE P EXT DESTAT P EXT DERROR P EXT M
0x0d557c…0d5710 Dummy {f00=0x0048, f01=0x0190, f02=» * FORCE KEY AND PUT ???? * INTO THE FORCED ITEM. $ ************************* D DEFORC PROC f * PKFORCE SET DBOFOR HANDLE FORCED FIELD z P TSTCTL 0 LOOK IF ALPHA P BZ KFOR10 JUMP IF BCD P MOVE DEINPUT,='?' P MOVE :F
0x0d5710…0d58a4 Dummy {f00=0x0048, f01=0x0190, f02=»ODD NUMBER p P CHARACTERS KEYED IN P BZ KFOR20 JUMP IF EVEN 0 P MOVE DEINPUT,=X'0AAA' P P B KFOR30 n PKFOR20 MOVE DEINPUT,=X'0FAA' PKFOR30 DIV DEBINW4,W2 * P XCOPY :FMTITEM,W0,DEBINW4,DEINPUT,W0 PKFOR31 P GETABX DE
0x0d58a4…0d5a38 Dummy {f00=0x0048, f01=0x018e, f02=»*************** P*THIS ROUTINE HANDLE P*THE KEYVERIFICATION 4 P********************* P PDEVERI PROC n " P CLEAR DOOL1 VALID PRESSED OFF PKVER00 P MOVE BIN10,W0 P MOVE BIN9,W0 P CALL FORCED,:FMTITEM P BOK KVE
0x0d5a38…0d5bcc Dummy {f00=0x0048, f01=0x0190, f02=» P BZ KVER02 JUMP IF BCD P MOVE BIN9,W0 " P EDSUB DEINPUT,BIN9,FORMK 8 * P CBNE BIN9,W0,KVER10 JUMP IF NOT EMPTY Z P B KTKEY2 GET NEXT FIELD PKVER02 P MOVE DEINPUT,:FMTITEM P MOVE BIN8,=W'80' =W'80' P CBNE :FMTITEM,=D'0'
0x0d5bcc…0d5d60 Dummy {f00=0x0048, f01=0x0190, f02=» P BP KVER05 PKTKEY2 $ P MOVE DEBINW4,W1 GET NEXT FIELD $ P RET L PKVER05 X P ADD BIN10,W1 f PKVER10 | P SETCUR P CLEAR DOOL1 VALID PRESSED ? P BNZ KVER20 YES P CALL FMOVE,STRG10A,FDOTS P ADD BIN9,W128
0x0d5d60…0d5ef4 (1, 270) Dummy {f00=0x0048, f01=0x0190, f02=»N9,BIN10 POS IN BUFFER 2 P KI .NE,DEDSDYKB,STR1A,DEKTABK,DEBINW1,DEBINW2 P PERF DELOCK,W1,DEBINW2 T $ P IB DEBINW3,EVERIF,KVER70,KVER75 t ( P IB DEBINW2,KVER40,KVER40,KVER50 C P KVER65,KVER35,KCOPY P SUB DEBINW2,W6 P MOVE DEBI
0x0d5ef4…0d6088 Dummy {f00=0x0048, f01=0x018e, f02=» P MOVE STR1A,=C'+' P B KVER55 " PKVER50 4 P MOVE STR1A,=C'-' B PKVER55 P TSTCTL 0 LOOK IF ALPHA j P BZ KVER60 JUMP IF BCD P CBG DEBINW2,W2,KVER75 PKVER60 & P MATCH DEINPUT,BIN9,W1,HEX00,W0,W1 P BNOK KVER
0x0d6088…0d621c Dummy {f00=0x0048, f01=0x018e, f02=» j P BNOK KVER75 PKVER63 P UPDFLD 0,DEINPUT * P B KTKEY2 D PKVER65 V P SET DOOL1 VALID PRESSED ON d P TSTCTL 0 LOOK IF ALPHA P BNZ KVER68 YES! P DLETE DEINPUT,W0,W1 PKVER68 P CALL FMOVE,STRG10A,FORMD
0x0d621c…0d63b0 Dummy {f00=0x0048, f01=0x0190, f02=» PKVER70 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 6 P BZ KVER75 T & P MATCH DEINPUT,BIN9,W1,STR1A,W0,W1 f P BOK KVER80 JUMP IF OKAY PKVER75 P EDWRT DEDSSCRN,BELL P B KVER20 PKVER80 P EDWRT DEDSSCR
0x0d63b0…0d6544 Dummy {f00=0x0048, f01=0x0190, f02=»10,BIN9,KVER20 MACL NO REACHED P TSTCTL 0 LOOK IF ALPHA & P BNZ KVER63 JUMP IF ALPHA F P CBE BIN10,BIN9,KVER20 h P B KVER63 FIELD COMPLETE PEVERIF P MOVE DEBINW4,W2 P RET PKCOPY P MOVE DEBINW4,W3 P RET
0x0d6544…0d66d8 Dummy {f00=0x0048, f01=0x412e, f02=»FORMV FRMT P FSL P FCOPY STR1A P FMEND 2 PBELL FRMT @ P FSL R P FILLR X'07',1 ^ P FMEND t PFDOTS FRMT P FSL P FTEXT =X'142E' P FILLR X'2E',1 P FMEND PFORMD FRMT P FSL P FCOPY DEINPUT
0x0d66d8…0d686c Dummy {f00=0x0048, f01=0x2008, f02=» NT DENT03 PRRR 1.0 79-11-21/DALI DDUM DEDDIV 0 PDIV D " ENTRY DEFORC HANDLE FORCEKEY R INCLUDE DELITT x EJECT ************************* * THIS ROUTINE HANDLE THE * FORCE KEY AND PUT ???? * INTO
0x0d686c…0d6a00 Dummy {f00=0x0048, f01=0x0190, f02=»6 - 5 t r * & 2 : ! k 5 2 : " l u * & 4 :U i 7 : 7 u > * & ; h ! 3 : 8 9 u l * & Y 6 40 ! ) h d3 u * & w 41 8 5 42 9 5 43 8 3 - u * & 5 44 9
0x0d6a00…0d6b94 (1, 271) Opaque[0x194]
0x0d6b94…0d6d28 # DirEnt {nam=»DEAPPU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0920, f03=0x0000}
0x0d6b94…0d6d28 IdxSect {
0x0d6b94…0d6d28 f00 = 0x0049 // 0xd6b94 @0x0
0x0d6b94…0d6d28 f01 = 0x0002 // 0xd6b96 @0x2
0x0d6b94…0d6d28 gno = [ // 0xd6b98 @0x4
0x0d6b94…0d6d28 [0x00]: C0x0049.0x0.0
0x0d6b94…0d6d28 ]
0x0d6b94…0d6d28 }
0x0d6d28…0d6ebc Dummy {f00=0x0049, f01=0x40ce, f02=» $ P IDENT DEAPPU REL 10.0 80-04-11 P 80-04-11 , DDUM DEDDIV @ PDIV T ENTRY DEAPPU b DEAPPU PROC x MOVE DEBINW3,W0 RET PEND END @ VERFLOW * * X900 RET
0x0d6ebc…0d7050 Dummy {f00=0x0049, f01=0x2008, f02=» NT DEAPPU USERAPPL-ROUTINE DDUM DEDDIV * PDIV > ENTRY DEAPPU L DEAPPU PROC b MOVE DEBINW3,W0 v RET PEND END @
0x0d7050…0d71e4 Dummy {f00=0x0049, f01=0x0190, f02=» F H IDENT WRIT12 TRA 4.1 79-09-05 F1 O1111 REL. 1.0 79-09-01/LABJ REC1 REC2 N $$$TRAI d REC1 REC2 [ v DSKERRI SETBT T:RWRI I &0 I ? d J F " D L S! Yj ! j !" Y
0x0d71e4…0d7378 Dummy {f00=0x0049, f01=0x0190, f02=»j %" j '" j )" 0X S:R4 L Y L!DL ( !W X 0 " H 0 " Z J F " D " ! ! U _ P ! !DL (W " ! $! l 0 J F " D DL )W ! ( ! S"
0x0d7378…0d750c Dummy {f00=0x0049, f01=0x40a2, f02=» J N { . J E " C @ !# L L_ 0X SR& ! !P S S !( ! _ 4 R#_ > { @ W " ! $! l 0 J F " D DL )W ! ( ! S"
0x0d750c…0d76a0 Dummy {f00=0x0049, f01=0x0190, f02=» > @ IDENT BIDACR PRR 9.1 79-01-12 870136640910 % BIDAC BIDACR % F BIDAC % ^ , ( R _ P 0 - : ; % p , ( ! [ V - - ' % , ( @ A d Z : % BIDAC
0x0d76a0…0d7834 (1, 272) Opaque[0x194]
0x0d7834…0d79c8 # DirEnt {nam=»DEPRFG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0928, f03=0x0000}
0x0d7834…0d79c8 IdxSect {
0x0d7834…0d79c8 f00 = 0x0049 // 0xd7834 @0x0
0x0d7834…0d79c8 f01 = 0x000a // 0xd7836 @0x2
0x0d7834…0d79c8 gno = [ // 0xd7838 @0x4
0x0d7834…0d79c8 [0x00]: C0x0049.0x1.0
0x0d7834…0d79c8 [0x01]: C0x0049.0x2.0
0x0d7834…0d79c8 [0x02]: C0x0049.0x3.0
0x0d7834…0d79c8 [0x03]: C0x004a.0x0.0
0x0d7834…0d79c8 [0x04]: C0x004a.0x1.0
0x0d7834…0d79c8 ]
0x0d7834…0d79c8 }
0x0d79c8…0d7b5c Dummy {f00=0x0049, f01=0x0190, f02=» $ P IDENT DEPRFG REL 10.0 80-04-11 P 80-03-21/JAER , * D D P* THIS ROUTINE TAKES CARE OF PRINTOUT OF THE GENERAL USER N D ?* FORMAT DEFINITION AND OF THE BALANCE FORMAT DEFINITION. * @ P* -USED VARIABLES : PI
0x0d7b5c…0d7cf0 Dummy {f00=0x0049, f01=0x0190, f02=»BIN10 = FIELDNR r > P* BIN16 = POINTER STR64A-ITEM 8 P* DEBIN5 = LINE-COUNTER Z F P* W6 = DETAILLINE STARTLINE NUMBER 0 +* DEBINW2= 0
0x0d7cf0…0d7e84 Dummy {f00=0x0049, f01=0x0190, f02=» = 3 RETURN-KEY * 4 L K************************************************************************ > DDUM DEDDIV PDIV * . ) ENTRY PRFGUF PRINT USERFORMAT DEFINITION * " EXT DEUNPF UNPACK
0x0d7e84…0d8018 Dummy {f00=0x0049, f01=0x018e, f02=»R-MESSAGES P EJECT P* P* KEYTABLE * P* B CLR EQU X'8F' CLEAR L CAN EQU X'91' CANCEL h PRET EQU X'92' RETURN P* PDEKTAB6 KTAB CLR,CAN,RET EJECT * * %* PRINT USER FORMAT DEFINITION
0x0d8018…0d81ac Dummy {f00=0x0049, f01=0x018e, f02=» | . P ADD DEBINW4,W3 LINE-PRINTER NOT OPERABLE ( P PERF DERROR,DEKTAB6 ERRORMESSAGE:35 : P B PR50 CLR-,CAN- OR RET-KEY f PPR03 P MOVE DEBINW3,W1 P PRINT DEDSPRT,DEBINW3,W0 P BNOK PR00 JUMP IF NOT OK , P MOVE PINDCB,FLIND(W1)
0x0d81ac…0d8340 Dummy {f00=0x0049, f01=0x018e, f02=» p " P MOVE FDVBCD(W1),W1 PAGENO:=0 $ P MOVE PINDND,W0 NUMB OF DESC:=0 . $ P MOVE PRECPR,W0 NUMB OF POOLS:=0 V > P XCOPY PRECPR,W1,W1,RPOOL(PINDFR),W17 FETCH NUMB OF POOLS ~ B P XCOPY PINDND,W1,W1,RPOOL(PINDFR),W18 FETCH NUMB OF DESC-POOLS 2 P S
0x0d8340…0d84d4 (1, 273) Dummy {f00=0x0049, f01=0x0190, f02=» d PPR04 , ' ADD FDVBCD(W2),=D'1' INCREMENT 'LINNO' P CLEAR BOOL5 D PR05 X , P PERF DEUNPF,CURSEC,W2 UNPACK NEXT FIELD d , P CBE DEBINW2,W1,PR48 END-OF-FORMAT FOUND ( P TBT BOOL5,PR04 JUMP IF END OF LINE P ADD BIN10,W1 NEXT FIELD
0x0d84d4…0d8668 Dummy {f00=0x0049, f01=0x0190, f02=» CALL EMPTYT,STATSH CHECK IF EMPTY BNOK PR10 JUMP IF EMPTY * " P MOVE STR6A,='#L:' PROMPT-TEXT J 4 P XCOPY STR64A,BIN16,W3,STR6A,W0 COPY PROMPT-TEXT p * P ADD BIN16,W3 ADJUST POINTER FOR TEXT 0 P MOVE FMTWK(W13),BIN12 LOAD NUMB OG PICCHARS (
0x0d8668…0d87fc Dummy {f00=0x0049, f01=0x0190, f02=» PR10 & P CALL EMPTYT,JOBSPC CHECK IF EMPTY P BNOK PR40 JUMP IF EMPTY : & P MOVE DEBIN3,W0 POINTER JOBSPC :=0 Z P MOVE FBIN2,W0 P MOVE FMTWK(W12),FMTWK(W1) P ADD FMTWK(W12),FMTWK(W2) P ADD FMTWK(W12),FMTWK(W3) PR20
0x0d87fc…0d8990 Dummy {f00=0x0049, f01=0x0190, f02=»PR40 NO MORE FUNCTIONS P ADD FBIN1,W3 $ P DIV FBIN1,W3 COMPUTE FUNC-INDEX 4 4 P CBE FMTWK(FBIN1),W0,PR20 JUMP IF NO GENERATION , P ADD FBIN2,FMTWK(FBIN1) SAVE STARTADRESS 0 P PERF EDLINE,JOBSPC,FMTWK,FBIN1 EDIT STR64A ( $ CBNE DEBINW2,W0
0x0d8990…0d8b24 Dummy {f00=0x0049, f01=0x0190, f02=»N v PR40 * P TBT BOOL6,PR45 JUMP IF BALANCE FORMAT * P PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5 D ( $ CBNE DEBINW2,W0,PR50 JUMP IF NOT OK r P B PR05 NEXT FIELD PPR45 * P PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 $ P CBE DEBINW2,W0,PR05 N
0x0d8b24…0d8cb8 Dummy {f00=0x0049, f01=0x0190, f02=» PEND EJECT * L P* THIS ROUTINE EDITS STR64A-ITEM WITH THE VALIDATION-, GENERATION & F A* AND ACCUMULATIO-STRINGS. IF THERE IS NOT ENOUGH SPACE TO v @ <* EDIT ONE OF THE ABOVE MENTIONED, IT WILL BE CUT AND ( P*
0x0d8cb8…0d8e4c Dummy {f00=0x0049, f01=0x018e, f02=» NUMB = NUMBER OF CHARACTERS IN WSTRG L P* WIND = INDEX ITEM CONTAINING NUMB OF C F * L K* -INPUT VARIABLE : STR6A = PROMPT-TEXT TO CORRESPONDING S L P*
0x0d8e4c…0d8fe0 Dummy {f00=0x0049, f01=0x018e, f02=» J E* BIN15 = WORK (TO CHECK IF OVERFLOW) * R L P* -OUTPUT VARIABLES : BIN16 = POINTER OF STR64A-ITEM (ADJUST L P* BOOL8 = T JUST STR64A-PART OF LINE TO 8 3*
0x0d8fe0…0d9174 (1, 274) Dummy {f00=0x0049, f01=0x0190, f02=» " PEDLINE PROC WSTRG,NUMB(),WIND ED05 * & " MOVE BIN15,BIN16 LOAD POINTER POS 6 , P ADD BIN15,NUMB(WIND) ADD NUMB OF CHARS ` , ( CBL BIN15,W64,ED10 JUMP IF ENOUGH SPACE , ' SUB BIN15,W64 NUMBER OF OVERFLOW CHARS 0 P SUB NUMB(WIND),BIN15 NU
0x0d9174…0d9308 Dummy {f00=0x0049, f01=0x0190, f02=»T,W1,W2,DEBIN5,=W'44',W6,W5 P B ED08 $ PED07 4 * P PERF PRINT,W3,W4,DEBIN5,=W'44',W6,W5 @ PED08 n * % CBNE DEBINW2,W0,EDRET JUMP IF NOT OK z 4 P ADD DEBIN3,NUMB(WIND) LOAD NUMB OF COPIED CHARS 2 P MOVE NUMB(WIND),BIN15 NUMB OF OVERFLOW
0x0d9308…0d949c Dummy {f00=0x0049, f01=0x0190, f02=»5 ED10 0 P XCOPY STR64A,BIN16,NUMB(WIND),WSTRG,DEBIN3 P ADD BIN16,NUMB(WIND) J P ADD BIN16,W3 LEAVE 3 SPACES h $ P CBNG BIN16,W64,EDRET JUMP IF OK * P TBT BOOL6,ED20 JUMP IF BALANCE FORMAT * P PERF PRINT,W1,W2,DEBIN5,=W'44',W6,W5
0x0d949c…0d9630 Dummy {f00=0x0049, f01=0x0190, f02=»OVE STR64A,=' ' 'SPACES' & ! SET BOOL8 INDICATE PARTIAL PRINT EDRET J RET X PEND d P EJECT r P* < P* THIS ROUTINE PRINT ONE LINE ON THE LINE PRINTER. 4 P* THE FORMAT OF THE LINE IS DECIDED OF THE 6 P*
0x0d9630…0d97c4 Dummy {f00=0x0049, f01=0x0190, f02=»DED OF THE PARAMETER z P* 'HEADER'. P* 6 B P* INPUT PARAMETERS: HEADER = HEADER FORMAT NUMBER @ > P* LINE = LINE FORMAT NUMBER > P* LINNO = ACTUAL LINE NUMBER L
0x0d97c4…0d9958 Dummy {f00=0x0049, f01=0x0190, f02=»UE Z P* F P* HLINES = NUMBER OF LINES IN HEADER 2 P* OUTPUT VARIABLE : DEBINW2= 0 OK ^ F P* (= 1 CLEAR-KEY, TRY AGAIN) : P* = 2
0x0d9958…0d9aec Dummy {f00=0x0049, f01=0x0190, f02=»NES b P PLIT LINMAX ( P MOVE DEBINW2,W0 CLEAR ERROR-SIGNAL P EJECT L 6 P CBNG LINNO,LINMAX,P30 JUMP IF LINMAX NOT REACHED Z PP10 . P EDWRT DEDSPRT,FRMTAB(HEADER) PRINT HEADER P BOK P20 JUMP IF OK " P B P35 JUMP IF CANC OR RET
0x0d9aec…0d9c80 Dummy {f00=0x0049, f01=0x018e, f02=»ADJUST FOR HEADLINES ~ PP30 2 P EDWRT DEDSPRT,FRMTAB(LINE) PRINT DETAIL-LINE ( P BOK P40 JUMP IF OK ^ PP35 z * P MOVE DEBINW4,W32 PRINTER NOT OPERABLE P ADD DEBINW4,W3 P PERF DERROR,DEKTAB6 " P B P99 JUMP IF CANC OR RET-KEY
0x0d9c80…0d9e14 (1, 275) Dummy {f00=0x004a, f01=0x0190, f02=» * PFRMTAB FTABLE F21HL,F21DL,F22HL,F22DL P* 6 , P* PRINT FORMAT , FORMAT DEFINITION @ P* p PF21HL FRMT HEADER FORMAT z P FTEXT ' 1' P FCOPY ='FORMAT' P FILLR ':',1 P FCOPY FORMAT P FTAB 48 " P FTEXT
0x0d9e14…0d9fa8 Dummy {f00=0x004a, f01=0x018e, f02=»FDVBCD(W1) P FEOR 1ST HEADLINE P FILLR ' ',2 . P FEOR 2ND HEADLINE B P FILLR ' ',2 ^ P FCOPY ='LINE ' r P FCOPY ='FIELD' P FILLR '-',1 P FTEXT ' MAX/MIN ' & P FTEXT 'K M A V I DUPLIC. SPEC. ' P FTEXT '#L:<'
0x0d9fa8…0da13c Dummy {f00=0x004a, f01=0x0190, f02=» x P FTEXT ' #A:' P FCOPY ='ACCUMULATION ' P FEOR 3RD HEADLINE > P FILLR ' ',2 Z P FTEXT ' NO NO/POS -' n P FCOPY ='LENGTH' & P FTEXT ' I E T E C -ITEM HANDL.' P FEOR 4TH HEADLINE P FILLR ' ',2 P FEOR 5TH
0x0da13c…0da2d0 Dummy {f00=0x004a, f01=0x0190, f02=»E FORMAT z P FILLR ' ',2 P FBT BOOL8,F21DA $ P FTAB 4 < " P FMEL 'Z9',FDVBCD(W2) LINE-NR L P FILLR ' ',1 r " P FMEL 'XXX',FDVBCD(W4) FIELDNR P FILLR ' ',2 $ P FMEL 'Z9',FDVBCD(W5) FIELDSTART P FILLR ' ',2 $ P FMEL 'Z9',F
0x0da2d0…0da464 Dummy {f00=0x004a, f01=0x0190, f02=»T t P FILLR ' ',1 P FCOPY FDVSTR(W2) MUST ENTER P FILLR ' ',1 B P FCOPY FDVSTR(W3) AUTO.TAB V P FILLR ' ',1 x P FCOPY FDVSTR(W4) VERIFY P FILLR ' ',1 P FCOPY FDVSTR(W5) INIT CLEAR P FILLR ' ',1 P FCOPY DUPL DUPL
0x0da464…0da5f8 Dummy {f00=0x004a, f01=0x0190, f02=»AIL-LINE P FMEND P EJECT P* , 4 P* PRINT FORMAT , BALANCE FORMAT DEFINITION 6 P* n PF22HL FRMT HEADER FORMAT x P FTEXT ' 1' P FCOPY ='FORMAT' P FILLR ':',1 P FCOPY FORMAT P FTAB 40 " P FTEXT '
0x0da5f8…0da78c Dummy {f00=0x004a, f01=0x0190, f02=»VBCD(W1) P FEOR 1ST HEADLINE P FILLR ' ',2 , P FEOR 2ND HEADLINE @ P FILLR ' ',2 P FCOPY ='LINE ' p P FTEXT 'ACCUMULATOR ' P FTEXT 'POSITION ' P FCOPY ='LENGTH' P FTAB 40 P FTEXT 'SPECIAL ' P FTEXT
0x0da78c…0da920 Dummy {f00=0x004a, f01=0x018e, f02=»ION ' P FEOR 3RD HEADLINE P FILLR ' ',2 * P FCOPY =' NO' > P FTAB 11 T P FCOPY =' NO' d P FTAB 39 z P FTEXT 'HANDLING' P FEOR 4TH HEADLINE P FILLR ' ',2 P FEOR 5TH HEADLINE P FMEND P EJECT
0x0da920…0daab4 (1, 276) Dummy {f00=0x004a, f01=0x0190, f02=» P FBT BOOL8,F22DA P FTAB 4 " P FMEL 'Z9',FDVBCD(W2) LINE NR , P FTAB 12 R ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO b P FTAB 23 " P FMEL 'Z9',FDVBCD(W5) POSITION P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P
0x0daab4…0dac48 Dummy {f00=0x004a, f01=0x4052, f02=» EJECT PFORMF FRMT P FTEXT ' 1' P FMEND 4 END B@ N FTAB 12 R ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO b P FTAB 23 " P FMEL 'Z9',FDVBCD(W5) POSITION P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P
0x0dac48…0daddc Dummy {f00=0x004a, f01=0x2008, f02=» END @ FTAB 12 ( P FMEL 'XX',FDVBCD(W8) ACCUMULATOR NO * P FTAB 23 V " P FMEL 'Z9',FDVBCD(W5) POSITION f P FTAB 31 P FMEL 'Z9',FDVBCD(W6) LENGHT P FTAB 41 ( P FMEL 'ZZVZZ9',SPEC SPECIAL HANDLING PF22DA
0x0daddc…0daf70 Dummy {f00=0x004a, f01=0x2008, f02=» DE12UP LED DE1201 " !!RE 0,$$79-12-14$$80-02-05$$ ( !!IL 239 N MOVE DEINPUT,STR64A ^ !!IL 241 z MOVE STR64A,DEINPUT !!EN TRA /S,NL ASG /E0,TY10 R ASG /E0,TY10 !!EN TRA /S,NL
0x0daf70…0db104 Dummy {f00=0x004a, f01=0x0190, f02=»N2,BIN1 SAVE KEYED INPUT P DIV BIN1,W8 . P XCOPY DEBINW4,W0,W2,PROGNR,BIN1 PROGRAMNR 4 P MUL BIN1,W8 f P SUB BIN2,BIN1 z . P CALL TESTB,DEBINW4,BIN2 LOOK IF EXISTING P BZ DEAPRERR JUMP IF NOT P MOVE BIN1,W0 & P CALL UPDBOL,BIN
0x0db104…0db298 Dummy {f00=0x004a, f01=0x0190, f02=»,BCD13A P PERF DEPMSK PDEAENKEY $ P MOVE DEBINW3,W0 4 P MOVE DEBINW2,W17 L P B DEAOK0 f PDEAPRERR x P MOVE DEBINW4,W7 P B DEANOK P* P* $ P ATTFMT FORMN DUMMY INSTRUCTION P ATTFMT FORMA - " -
0x0db298…0db42c Dummy {f00=0x004a, f01=0x018e, f02=» j & P MOVE DEBINW4,BCD2A UNIT NUMBER IS P CBG DEBINW4,W8,DEAUN2 2 P CBE DEBINW4,W0,DEAUN2 P P MOVE FILINDUS,DEBINW4 n P ADD FILINDUS,W1 P ADD DEBINW4,=X'D0' 2 P MOVE FILECODE(FILINDUS),DEBINW4 SAVE FILECODE P CBG DEBINW4,=X'D4
0x0db42c…0db5c0 Dummy {f00=0x004a, f01=0x0190, f02=» h PDEAUN3 & P CBE FCOUNTER(FILINDUS),W0,DEAUN0 P ERASE 1,W2,W2 @ " P MOVE TABLE,FVOLNAME(FILINDUS) V P B DEAUN5 | PDEAUN0 . P CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE : P CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME
0x0db5c0…0db754 (1, 277) Opaque[0x194]
0x0db754…0db8e8 # DirEnt {nam=»DECVRT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0950, f03=0x0000}
0x0db754…0db8e8 IdxSect {
0x0db754…0db8e8 f00 = 0x004a // 0xdb754 @0x0
0x0db754…0db8e8 f01 = 0x000c // 0xdb756 @0x2
0x0db754…0db8e8 gno = [ // 0xdb758 @0x4
0x0db754…0db8e8 [0x00]: C0x004a.0x2.0
0x0db754…0db8e8 [0x01]: C0x004a.0x3.0
0x0db754…0db8e8 [0x02]: C0x004b.0x0.0
0x0db754…0db8e8 [0x03]: C0x004b.0x1.0
0x0db754…0db8e8 [0x04]: C0x004b.0x2.0
0x0db754…0db8e8 [0x05]: C0x004b.0x3.0
0x0db754…0db8e8 ]
0x0db754…0db8e8 }
0x0db8e8…0dba7c Dummy {f00=0x004a, f01=0x0190, f02=» $ P IDENT DECVRT REL 10.0 80-04-11 P 80-04-10/JAER , * D @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT N < 8* CONVERTIONS THAT OCCURS IN THE FORMAT GENERATION * DDUM DEDDIV PDIV P* $
0x0dba7c…0dbc10 Dummy {f00=0x004a, f01=0x0190, f02=»ERT VARIABLE NUMBER (INDEX) TO BINARY P* . F P* INPUT PARAMETERS (FORMAL): WSTRG = WORKSTRING VAL/GEN/ACC 8 J P* CHNUM = NUMBER OF INPUT CHARACTERS L P* WIND = INDEX TO COR
0x0dbc10…0dbda4 Dummy {f00=0x004a, f01=0x0190, f02=»RSTRIN N J P* DEBIN4 = POINTER INPUTBUFFER WSTRG J P* DEBIN5 = NUMB OF DELETED CHARACTERS P* H P* WORKITEMS : DEBIN2 = LENGTH OF LITERAL STRING J P*
0x0dbda4…0dbf38 Dummy {f00=0x004a, f01=0x0190, f02=» N J P* BIN16 = MATCHING-POINTER 'VALSTR' < P* DEINPUT = WORK BUFFER V @ P* WORK(W5) = SAVED (-POSITION @ P* WORK(W6) = SA
0x0dbf38…0dc0cc Dummy {f00=0x004a, f01=0x0190, f02=»M = EFFEKTIV VAL-/GEN-/ACC-LENTH n L P* WSTRG = VAL-/GEN-/ACC-STRING CONVERT . P* ~ F P* DEBIN4 = POINTER WSTRG ADJUSTED L P* FBIN2 = HIGHEST FI
0x0dc0cc…0dc260 Dummy {f00=0x004a, f01=0x0190, f02=»G,CHNUM(),WIND , P MOVE BIN15,=W'31' LOAD LENGTH OF VALSTR " P CBE WIND,W4,CN00 JUMP IF DUPL F ( P DLETE WSTRG,DEBIN4,W3 DELETE '#X:' l 0 P SUB CHNUM(WIND),W3 ADJUST FOR FUNCTION TEXT 0 P ADD DEBIN5,W3 ADD NUMB OF DLETED CHARACTERS P EJECT
0x0dc260…0dc3f4 (1, 278) Dummy {f00=0x004a, f01=0x0190, f02=»1 h ( P CBE BIN16,W23,CNCL JUMP IF LITERAL P ADD DEBIN4,W1 NEXT POS 6 " P CBE BIN16,W0,CNCM JUMP IF 'M' V ( P IB BIN16,CNC0,CNC0,CNC0,CNC0, 1-4 C | & P CNC3,CNC2,CNC0,CNCA,CNC2, 5-9 C ( P CNC1,CNC3,CNC2,CNC2,CNC0, 10-14 C ( P CNC0,CNC
0x0dc3f4…0dc588 Dummy {f00=0x004a, f01=0x0190, f02=» P B CNC0 * PCNCM M=MESSAGE SPLIT,R/N=CONDFRM CH , P MOVE DEBIN3,DEBIN4 LOAD ACTUAL POSITION B 0 P MATCH WSTRG,DEBIN3,W1,VALSTR,W23,W1 M'...' r P BNOK CNC2 M99 P B CNCL P EJECT P* P* CNC0 NO CONVERTION P*
0x0dc588…0dc71c Dummy {f00=0x004a, f01=0x0190, f02=»C1 CONVERT 1 BYTE TO BINARY P* $ PCNC1 . & P MOVE DEBIN3,W5 STARTPOS WORKITEM : * P PERF CONV,WSTRG,W1 CONVERT TO BINARY d 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION P B CNC0 CHECK END-OF-LINE P EJECT P* 0 P*
0x0dc71c…0dc8b0 Dummy {f00=0x004a, f01=0x0190, f02=»OS WORKITEM z * P PERF CONV,WSTRG,W2 CONVERT TO BINARY 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION B ( P CBNE BIN16,W12,CNC0 JUMP IF NOT 'T' v : P CBE DEBIN4,CHNUM(WIND),CNOK JUMP IF END OF LINE FOUND ( P MOVE DEBIN3,DEBIN4 LOAD WORKPOINTER
0x0dc8b0…0dca44 Dummy {f00=0x004a, f01=0x0190, f02=» WORKITEM x * P PERF CONV,WSTRG,W2 CONVERT TO BINARY 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION @ P B CNC0 CHECK END-OF-LINE t P EJECT P* : P* CNC3 CONVERTION OF 3 BYTES TO BINARY -D,-F,-G P* PCNC3 , P CBNE
0x0dca44…0dcbd8 Dummy {f00=0x004a, f01=0x0190, f02=»M p * P PERF CONV,WSTRG,W3 CONVERT TO BINARY 0 P SUB CHNUM(WIND),DEBIN3 ADJUST END POSITION 8 < P CBNG DEBIN2,WORK(W6),CNC3B JUMP IF L HIGHST FIELD REF. l 6 P MOVE WORK(W6),DEBIN2 SAVE HIGHEST FIELD REF. NO. PCNC3B P B CNC0 CHECK END-OF
0x0dcbd8…0dcd6c Dummy {f00=0x004a, f01=0x0190, f02=» l P ADD DEBIN4,W1 NEXT POS , P SUB DEBIN2,DEBIN4 NUMB OF CHRS TO MATCH ( * P MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH X 8 P MATCH WSTRG,DEBIN3,DEBIN2,VALSTR,W23,W1 MATCH NEXT' * P SUB DEBIN3,DEBIN4 =NUMB OF LIT-CHARS " P MOVE DEBIN2,W128 1ST BI
0x0dcd6c…0dcf00 Dummy {f00=0x004a, f01=0x0190, f02=»EBIN2,W1 'L'='80'+LENGTH x & P ADD DEBIN4,DEBIN3 ADJUST NEXT POS P ADD DEBIN4,W1 NEXT POS J ( P DLETE WSTRG,DEBIN4,W1 DELETE 2ND ' j 6 P SUB CHNUM(WIND),W1 ADJUST LENGTH FOR DELETED CHAR , P ADD DEBIN5,W1 NUMB OF DELETED CHARCTERS P B CNC0
0x0dcf00…0dd094 (1, 279) Dummy {f00=0x004b, f01=0x018e, f02=»SAVE CURR POS | , P MATCH WSTRG,DEBIN3,W1,VALSTR,W29,W1 (-? ( P BNOK CNC2 JUMP IF USUAL ACCUMULATOR F & P B CNCX JUMP IF COND ACCUMULATION r P* 4 P* CNCG CONVERT FOR CONDITIONAL GENERATION P* PCNCG 'G'-FOUND & P CBNE WI
0x0dd094…0dd228 Dummy {f00=0x004b, f01=0x0190, f02=» P ADD DEBIN4,W1 NEXT POS $ P MOVE WORK(W8),DEBIN4 SAVE (-POS $ ( P MOVE DEBIN2,CHNUM(WIND) SAVE ENDPOS L . P SUB DEBIN2,DEBIN4 NUMB OF CHARS TO MATCH x * P MOVE DEBIN3,DEBIN4 STARTPOS IN MATCH P MOVE BIN16,=W'30' . P MATCH WSTRG,DEBIN3,DE
0x0dd228…0dd3bc Dummy {f00=0x004b, f01=0x0190, f02=»S l , P MOVE WORK(W7),DEBIN3 SAVE (...)-LENGTH P B CNC0 GO ON : P EJECT P P* ^ ( P* CNCR RIGHT PARENTHESIS FOUND h P* PCNCR ( P SUB DEBIN4,W1 ADJUST FOR DEL )-CHAR $ P SUB WORK(W9),DEBIN4 =DIFFERENCE ( P SUB WORK(
0x0dd3bc…0dd550 Dummy {f00=0x004b, f01=0x0190, f02=» WSTRG,DEBIN4,W1 DELETE )-CHARS & P SUB CHNUM(WIND),W1 ADJUST ENDPOS ( , P ADD DEBIN5,W1 ADJUST NUMB OF DEL CHARS R P B CNC0 GO ON P EJECT PCNOK . P MOVE BIN15,CHNUM(WIND) STORE ENDPOSITION , P SUB BIN15,DEBIN1 SUBTRACT STARTPOSI
0x0dd550…0dd6e4 Dummy {f00=0x004b, f01=0x0190, f02=»IC STRINGCHARACTERS TO BINARY z P* & J P* INPUT VARIABLES : NUMB(F) = NUMBER OF CHARACTERS TO CONVERT 0 J P* DEBIN3 = STARTPOS IN WORKITEM FOR 'XCOPY' ~ J P* WSTRG = ACTUAL WORKSTRING VAL/G
0x0dd6e4…0dd878 Dummy {f00=0x004b, f01=0x0190, f02=»A = CONVERTED NUMERIC VALUE BCD p < P* STR6A = NUMERIC VALUE STRG ( P* h : P* OUTPUT VARIABLES : DEBIN4 = POINTER ADJUSTED r > P* DEBIN5 = NUMB OF DELETED CHARS L P*
0x0dd878…0dda0c Dummy {f00=0x004b, f01=0x0190, f02=» DEBIN2 = CONVERTED NUMERIC VALUE BINARY P* @ L P************************************************************************ J PCONV PROC WSTRG,NUMB 6 P XCOPY STR6A,DEBIN3,NUMB,WSTRG,DEBIN4 COPY STRGNUM $ P MOVE BCD13A,STR6A LOAD
0x0dda0c…0ddba0 Dummy {f00=0x004b, f01=0x0190, f02=»ORE NUMB CONVRTD CHARACTERS | P SUB DEBIN3,W1 $ P ADD DEBIN4,W1 NEXT POS : 6 P DLETE WSTRG,DEBIN4,DEBIN3 DELETE ALPHA CHARACTERS Z P ADD DEBIN5,DEBIN3 NEXT POS P RET P PEND P EJECT P* 6 P* THIS ROUTINE CONVERTS
0x0ddba0…0ddd34 (1, 280) Dummy {f00=0x004b, f01=0x018e, f02=»TION STRING) D P* = DUPL (DUPLICATION STRING) 6 P* OPT = 1 = VALIDITION 6 P* = 2 = GENERATION 8 P* = 3 = ACCUMULATION
0x0ddd34…0ddec8 Dummy {f00=0x004b, f01=0x0190, f02=» : P* DEBIN3 = POINTER TO WSTRG H P* FBIN1 = NUMBER OF CONVERTED CHARACTERS B P* 8 P* USED VARIABLES : BIN16 = MATCHINGPOINTER . P* DEBIN1 = WORK L P*
0x0ddec8…0de05c Dummy {f00=0x004b, f01=0x0190, f02=» B P* FBIN1 = CHECK END OF OF FUNC-CODE F P* WORK(W7)= LENGTH/ENDPOS COND. GEN/ACC J P* 2 P* OUTPUT VARIABLES : WSTRG = CONVERTED H P* BIN15 = ADJUSTED ACCORDI
0x0de05c…0de1f0 Dummy {f00=0x004b, f01=0x0190, f02=»LUE OF BIN15 V P* L P************************************************************************ P* n P EJECT x PBINCON PROC WSTRG,OPT D P XCOPY WSTRG,DEBIN3,BIN15,BPOOL(PINDCB),CURSEC STORE WORKSTRING . P MOVE DEBIN2,=W'31' LOAD LEN
0x0de1f0…0de384 Dummy {f00=0x004b, f01=0x0190, f02=» n * P CLEAR BOOL4 F=NO CONDITIONAL GEN/ACC PBN00 6 & P MOVE BIN16,W0 MATCHINGPOINTER :=0 B ( P MOVE DEBIN4,W0 BINARY NUMERICALS:=0 l > P MATCH VALSTR,BIN16,DEBIN2,WSTRG,DEBIN3,W1 MATCH CHARACTER & P CBE BIN16,W0,BNME JUMP IF MESSAGE ( P IB
0x0de384…0de518 Dummy {f00=0x004b, f01=0x0190, f02=»0,BNC0,BNC0,BNC0, 15-19 C ( P BNC0,BNC0,BNC0,BNCR,BNC0, 20-24 C " P BNC3,BNME,BNME,BNC0 25-28 N P EJECT r P* P* CHECK IF LITERAL P* . P XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET BYTE * P CBG DEBIN4,W128,BNCL JUMP IF LITE
0x0de518…0de6ac Dummy {f00=0x004b, f01=0x0190, f02=»,BNMG,BNMA PBNMS P ADD DEBIN3,W1 NEXT POS * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED > 6 P XCOPY DEBIN4,W1,W1,WSTRG,DEBIN3 GET MESSAGE TYPE l * P CBG DEBIN4,W128,BNCL JUMP IF M'.....' . P SUB DEBIN3,W1 ADJUST FOR 2CHAR-CONVERTION * P S
0x0de6ac…0de840 Dummy {f00=0x004b, f01=0x0190, f02=»C1 , P PERF CONBIN,WSTRG,W1 CONVERT BIN=>STRG P* : P* CONVERT NO CHARCTER D P* h PBNC0 r P ADD DEBIN3,W1 NEXT POS ~ * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED , P TBF BOOL4,BNCA JUMP IF NO COND GEN/ACC 6 P CBNE WORK(W
0x0de840…0de9d4 (1, 281) Dummy {f00=0x004b, f01=0x0190, f02=»IN3,W1 NEXT POS , P ADD FBIN1,W1 ADJUST NUMBER OF CONVERTED P ADD BIN15,W1 ADJUST LENGTH H " P CLEAR BOOL4 F=NO COND GEN/ACC l PBNCA 0 P CBE BIN15,FBIN1,BNCR JUMP IF END-OF-STRING P B BN00 GO ON P EJECT P* " P*
0x0de9d4…0deb68 Dummy {f00=0x004b, f01=0x0190, f02=» l P ADD DEBIN3,W1 NEXT POS * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED ( 0 P CBE BIN15,FBIN1,BNCR JUMP IF END-OF STRING V P MOVE DEBIN1,DEBIN3 4 P MATCH WSTRG,DEBIN1,W1,VALSTR,W18,W1 NEXT POS : " P BNOK BN00 GO MATCH CHARACTER , P PER
0x0deb68…0decfc Dummy {f00=0x004b, f01=0x0190, f02=»N16,W5,BNC3A JUMP IF NOT (D) , P CBE BIN15,W1,BNC0 JUMP IF 1 CH =D=DATUM $ PBNC3A T , P PERF CONBIN,WSTRG,W3 CONVERT BIN=>STRG b P B BNC0 P EJECT P* , P* CONVERT LITERAL (INSERT '....') P* PBNCL * P SUB DEB
0x0decfc…0dee90 Dummy {f00=0x004b, f01=0x0190, f02=» d P ADD DEBIN3,W1 NEXT POS ! , P ADD FBIN1,DEBIN4 ADJUST CHARC CONVERTED ! ( * P ADD FBIN1,W1 ADJUST NUMB OF CONVERTED ! X 2 P INSRT WSTRG,DEBIN3,W1,VALSTR,W23 INSERT 2ND ' ! P ADD BIN15,W1 ADJUST LENGTH ! , P TBF BOOL4,BNC0 GO ON IF NO COND GEN ACC
0x0dee90…0df024 Dummy {f00=0x004b, f01=0x0190, f02=»,W25 ! P B BNMC " PBNMA COND ACC FOUND " P MOVE DEBIN1,W8 " : PBNMC " R 8 P XCOPY WSTRG,DEBIN3,W1,VALSTR,DEBIN1 CONVERT M=>G/A " ^ P ADD DEBIN3,W1 NEXT POS " & P ADD FBIN1,W1 ADJUST NUMB OF CONV " & P MOVE WORK(W7),W0 (...)-LENGTH:=0 "
0x0df024…0df1b8 Dummy {f00=0x004b, f01=0x0190, f02=»=>(-CHARACTER " n , P ADD WORK(W7),DEBIN3 ENDPOS (...)-STRING # P ADD WORK(W7),W1 ADJUST DITO # F * P SET BOOL4 T=CONDITIONAL GEN/ACC FOUND # j P B BNC0 GO ON # PBNCR # P RET # P PEND # P EJECT # P* # B P* CONVERT BINARY NUMER
0x0df1b8…0df34c Dummy {f00=0x004b, f01=0x0190, f02=»IN BUFFER # v P* $ L P* USED VARIABLES : DEBIN1 = NUMBER OF ALPHANUMERIC STRG-CHARCTERS $ P* $ l L P************************************************************************ $ v PCONBIN PROC WSTRG,FIND $ P ADD DEBIN3,W1 NEXT POS $ 0 P XCO
0x0df34c…0df4e0 Dummy {f00=0x004b, f01=0x0190, f02=»EBIN1,FCONV(FIND) CONV BCD=>STRG $ 2 P DLETE WSTRG,DEBIN3,W1 DELETE BINNUM POSITION % ( > P INSRT WSTRG,DEBIN3,DEBIN1,STR6A,W0 INSERT STRG-CHARACTERS % ^ P SUB DEBIN1,W1 ADJUST % $ P ADD BIN15,DEBIN1 ADJUST LENGTH % $ P ADD DEBIN3,DEBIN1 ADJUST BUFPOS %
0x0df4e0…0df674 (1, 282) Dummy {f00=0x004b, f01=0x415c, f02=» GEN ACC % n 0 P ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) & PCONRET & D P RET & R P PEND & ^ P EJECT & l " PFCONV FTABLE CONV1,CONV2,CONV3 & z PCONV1 FRMT & P FMEL '9',BCD13A & P FMEND & PCONV2 FRMT & P FMEL '99',BCD13A & P FME
0x0df674…0df808 Dummy {f00=0x004b, f01=0x2008, f02=» ' % r . P TBF BOOL4,CONRET GO ON IF NO COND GEN ACC & 0 P ADD WORK(W7),DEBIN1 ADJUST ENDPOS OF (...) & B PCONRET & v P RET & P PEND & P EJECT & " PFCONV FTABLE CONV1,CONV2,CONV3 & PCONV1 FRMT & P FMEL '9',BCD13A & P FMEND &
0x0df808…0df99c Dummy {f00=0x004b, f01=0x018e, f02=»OLUME' ~ P FNL P FCOPY =C'2 =' P FTAB 5 0 P FCOPY =C'CREATE FILE' @ P FNL ^ P FCOPY =C'3 =' j P FTAB 5 P FCOPY =C'DELETE' P FTAB 12 P FCOPY =C'FILE' P FNL P FCOPY =C'4 =' P FTAB 5 P FCO
0x0df99c…0dfb30 Dummy {f00=0x004b, f01=0x018e, f02=» P FTAB 5 $ P FCOPY =C'COPY SYSVOL TO SYSVOL' P FNL @ P FCOPY =C'7 =' L P FTAB 5 b " P FCOPY =C'CHANGE VOLUME-NAME' r P FNL P FCOPY =C'8 =' P FTAB 5 P FCOPY =C'VOLUME SURVEY' P FMEND P* PFCRV F
0x0dfb30…0dfcc4 Dummy {f00=0x004b, f01=0x0190, f02=» P FCOPY UNIT P FTAB 12 P FCOPY =C'VOLUME-NAME:' ( P FINP 25 H P FCOPY VOLNAM X P FNL n P FCOPY =C'VOLUME-NAME:' z 0 P FKI 14,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 P FCOPY VOLNAM VOLUME-NAME P FLINK FHEX P FME
0x0dfcc4…0dfe58 Dummy {f00=0x004b, f01=0x0190, f02=» P FSL P FCOPY =C'COPY USERFIL' P FLINK FIO 0 P FMEND B P* P PCOPYS FRMT Z P FSL l " P FCOPY =C'WHOLE FILE ? Y/N:' x . P FKI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FMEND P*
0x0dfe58…0dffec Dummy {f00=0x004b, f01=0x0190, f02=» FNL P FCOPY =C'INPUT' P FTAB 7 $ P FCOPY =C'UNIT NO.:' 4 ( P FKI 17,MINL=1,MAXL=1,ME,NEOI,APPL=9 P P FCOPY UNIT | P FTAB 20 P FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL P FCOPY =C'OUTPUT'
0x0dffec…0e0180 Dummy {f00=0x004b, f01=0x0190, f02=» =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM * P FLINK FHEX @ P FMEND T P* b PFCHANGE FRMT l P FSL " P FCOPY =C'CHANGE VOLUME-NAME' P FNL P FCOPY =C'INPUT' P FTAB 7 P FCOPY =C'UNIT NO.:' ( P FKI 1
0x0e0180…0e0314 (1, 283) Opaque[0x194]
0x0e0314…0e04a8 # DirEnt {nam=»DENVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0980, f03=0x0000}
0x0e0314…0e04a8 IdxSect {
0x0e0314…0e04a8 f00 = 0x004c // 0xe0314 @0x0
0x0e0314…0e04a8 f01 = 0x000e // 0xe0316 @0x2
0x0e0314…0e04a8 gno = [ // 0xe0318 @0x4
0x0e0314…0e04a8 [0x00]: C0x004c.0x0.0
0x0e0314…0e04a8 [0x01]: C0x004c.0x1.0
0x0e0314…0e04a8 [0x02]: C0x004c.0x2.0
0x0e0314…0e04a8 [0x03]: C0x004c.0x3.0
0x0e0314…0e04a8 [0x04]: C0x004d.0x0.0
0x0e0314…0e04a8 [0x05]: C0x004d.0x1.0
0x0e0314…0e04a8 [0x06]: C0x004d.0x2.0
0x0e0314…0e04a8 ]
0x0e0314…0e04a8 }
0x0e04a8…0e063c Dummy {f00=0x004c, f01=0x0190, f02=» $ P IDENT DENVAL REL 10.0 80-04-11 P UPD 80-04-29/DALI , P 80-04-24/DALI H P DDUM DEDDIV ` P PDIV t P ENTRY DENVAL & P EXT TESTB TEST FOR A BIT IN A BIN P EXT DEEDIT P EXT MSKOUT $ P EXT GETVAL LOOK FOR VALIDATIO
0x0e063c…0e07d0 Dummy {f00=0x004c, f01=0x0190, f02=»T ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY ( * P EXT CLEARB CLEAR A BIT IN A BIN ITEM N & P EXT SETB SET A BIT IN A BIN ITEM | & P EXT DELAST KEY INPUT ON LAST LINE & P EXT DEDISC DISC HANDLING ROUTINE * P EXT ATTDB ASS
0x0e07d0…0e0964 Dummy {f00=0x004c, f01=0x0190, f02=» & P EXT DEPOOL POOL HANDLING ROUTINE ( P EXT DEAPPU USER-CODED APPL-HANDLING . P EXT TYPET Z P EXT GETIND l P EXT CMPIND P INCLUDE DELITT P EJECT P* * P* LOOK IF THERE ARE A VALIDATIONSTRING ( P* WITHIN THE FORMAT AN
0x0e0964…0e0af8 Dummy {f00=0x004c, f01=0x0190, f02=» OF RECORD ` 6 P* DOOL3= ENTRY MODE @ P* DOOL4= GETFLD TO OTHER FIELD L B P* WITHIN FORMAT EXECUTED : P* DOOL5= NO KEYED IN
0x0e0af8…0e0c8c Dummy {f00=0x004c, f01=0x018e, f02=»NPUT R B P* DOOL8= BATCHHEAD FOR NEW BATCH 6 P* BIN11= POOLINDEX R : P* BIN12= STARTPOSITION : P* BIN13= STOPPOSITION F P
0x0e0c8c…0e0e20 Dummy {f00=0x004c, f01=0x0190, f02=» PDENVAL PROC FC P MOVE BIN8,W0 " P MOVE BIN3,W0 USED AS POINTER 0 P TO ERRORMESSAGE V . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) p $ P CLEAR BOOL6 F=NO COND TAB FOUND . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) P CLEAR REWRT
0x0e0e20…0e0fb4 (1, 284) Dummy {f00=0x004c, f01=0x0190, f02=»ERF DEEDIT,W3 PUT FMTITEM INTO DEINPUT P B DENV20 . PDENV10 @ & P TBF DOOL5,DENV30 JUMP IF NOT DUPL N PDENV20 x & P MOVE WORK(W5),W0 INPUTLENGTH = 0 P B DENV40 PDENV30 , P MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH PDENV40
0x0e0fb4…0e1148 Dummy {f00=0x004c, f01=0x0190, f02=»EGENE , P GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER ( P CBE DEBINW3,W0,DENV50 NO APPL-VALUE > ( P PERF DEAPPU USERCODED APPL-HANDLING j $ P IB DEBINW3,DENV45 UPDFLD = 1 C P UPDR40 SET CURSOR C P DENV42 ERROR PRINTOUT P B DENV50 UP
0x0e1148…0e12dc Dummy {f00=0x004c, f01=0x018e, f02=»NV50 & P MOVE DEBINW3,BIN8 SAVE TAB.INDEX P EJECT 6 P* D P* EXECUTE VALIDATION N P* j PUPDV0A t P ADD BIN13,BIN12 P B UPDV01 PUPDV00 , P MOVE DEINPUT,STATSH RESTORE KEYED INPUT * P MOVE DEBINW1,BIN4 RESTOR INPU
0x0e12dc…0e1470 Dummy {f00=0x004c, f01=0x0190, f02=» P BOK UPDV16 P CLEAR DOOL7 P BNZ DECOMT NOT OKEY , P MOVE STR64A,='ASUFFFX' H P MOVE BIN9,W0 h 0 P MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 ~ P BNOK DECOOK , P SET DOOL7 NOT CURRENT FIELD VALIDATION P ADD BIN12,W1
0x0e1470…0e1604 Dummy {f00=0x004c, f01=0x0190, f02=»=ALPHATEST P CBE BIN8,W0,UPDV04 P PERF DEEDIT,BIN9 . P B UPDV06 H PUPDV04 Z ( P MOVE BIN8,DEBINW3 CURRENT TABINDEX h PUPDV06 0 P IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C P UPDV07,UPDV07,UPDV09 6=X P B UPDV09 0=A
0x0e1604…0e1798 Dummy {f00=0x004c, f01=0x0190, f02=» ALPHA T=BCD-NUM P B UPDV01 PUPDV16 * 2 P IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C 8 P UPDGOT,UPDFOR,UPDFON n PUPDE00 HHANDLE ERRORCODE P ADD BIN12,W1 , P XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 , P MOVE BIN3,BIN12 SAV
0x0e1798…0e192c Dummy {f00=0x004c, f01=0x018e, f02=» CALL MSKOUT,BIN9,DEBINW4 P ADD BIN12,BIN9 " PUPDE10 : P ADD BIN12,W1 H P CBL BIN12,BIN13,UPDV01 ^ & P B DECERR JUMP IF END OF VALSTRING ~ PUPDV20 / P SET DOOL1 NOT-FLAG P B UPDE10 P* PUPDV25 D;DUPLICATE
0x0e192c…0e1ac0 Dummy {f00=0x004c, f01=0x0190, f02=» P MOVE WORK(W6),BIN11 P MOVE WORK(W7),BIN12 P MOVE WORK(W8),BIN13 < , P CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 X P BNOK DECERR P B UPDV0A P* $ PUPDV30 =EQUAL;>GREATER;<LESS; P SUB BIN5,W2 P ADD BIN12,W1 "
0x0e1ac0…0e1c54 (1, 285) Dummy {f00=0x004c, f01=0x0190, f02=»12,W1 j P BOK UPDV35 ( P MOVE BIN6,W0 IF ARITHMETIC SIGN IS " " P B UPDV37 OMITTED + IS ASSUMED N PUPDV35 t " P ADD BIN12,W1 INCREASE POINTER PUPDV37 P MOVE BIN9,W0 P MOVE STR64A,='L!ASUFTCXE' 0 P MATCH STR64A,BIN9,W10,BPO
0x0e1c54…0e1de8 Dummy {f00=0x004c, f01=0x0190, f02=»JUST POINTER P CBNL BIN9,W8,UPDV65 PUPDV60 0 2 P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 GET INDEX > P ADD BIN12,W1 ADJUST POINTER t PUPDV65 @ P IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C P UPDVSI,UPDEMP,UPDNUM P
0x0e1de8…0e1f7c Dummy {f00=0x004c, f01=0x0190, f02=» PUPDACC HANDLE ACCUMULATOR P CALL CMPIND,BIN8,ACK(W1) , P BNOK DECERR OUT OF RANGE N P MOVE BCDI21(W2),ACK(BIN8) p P B UPDN50 P EJECT P* " PUPDSYS HANDLE SYSTEMVARIABEL PUPDUSE AND USERVAIABLES P*
0x0e1f7c…0e2110 Dummy {f00=0x004c, f01=0x0190, f02=»CD | P B UPDS03 PUPDS01 & P TBT ALPHA,UPDS30 JUMP IF BCD-NUM * PUPDS03 T P IB BIN9,UPDS05 b & P CALL GETIND,SYSV(W1),BIN15,BIN10 z P B UPDS10 PUPDS05 6 P CALL GETIND,USEV(W1),BIN15,BIN10 ITEM,LENGTH,DIM PUPDS10
0x0e2110…0e22a4 Dummy {f00=0x004c, f01=0x0190, f02=»NPUT,BIN10,BIN15,SYSV(BIN8),W0,BIN15 P B UPDS20 , PUPDS15 > 2 P MATCH DEINPUT,BIN10,BIN15,USEV(BIN8),W0,BIN15 L PUPDS20 P BOK DECEGL P B DECNOT PUPDS30 P IB BIN9,UPDS50 P CALL CMPIND,BIN8,SYSV(W1) P BNOK DECE
0x0e22a4…0e2438 Dummy {f00=0x004c, f01=0x0190, f02=»RR OUT OF RANGE P MOVE BCDI21(W2),USEV(BIN8) P B UPDN50 < P EJECT N P* ( PUPDFLD HANDLE FIELD WITHIN FORMAT f P* & P CBNE BIN8,W0,UPDF10 CURRENT FIELD * P MOVE BIN8,DEBINW3 CURRENT FIELNUMBER PUPDF10 2 P CALL
0x0e2438…0e25cc Dummy {f00=0x004c, f01=0x0190, f02=»L4 P MOVE BIN7,W0 P CON X.MATCH,X.PSEU1,X.PSEU2 P CON X.WB10,BIN8 D P CON BIN7,BIN10,HEX00,W0,W1 P CMP DEBINW1,BIN7 P BNE DECNOT INVALID LENGTH P MOVE BIN10,W0 & P CON X.MATCH,DEINPUT,BIN10,DEBINW1 P CON X.PSEU1
0x0e25cc…0e2760 Dummy {f00=0x004c, f01=0x0190, f02=»,X.PSEU1,X.PSEU2 z P CON X.WB10,BIN8 P B UPDN50 0 P* B P EJECT L PUPDSET HANDLE VALUESET Z P CMP BIN5,W0 z P BNZ DECERR & P MOVE VSEIND,W0 VALUE-SET INDEX:=0 P MOVE BCD3A,BIN8 ( P MOVE BIN9,W0 LOOK IF ELEMENTNUMBER
0x0e2760…0e28f4 (1, 286) Dummy {f00=0x004c, f01=0x0190, f02=»O,W1 P B UPDSET07 PUPDSET05 P ADD BIN12,W1 0 ( P XCOPY BIN9,W1,W1,BPOOL(BIN11),BIN12 F P ADD BIN12,W1 r P MOVE ELMNO,BIN9 PUPDSET07 P MOVE TABLE,BCD3A P MOVE STR1A,=C'T' P DLETE TABLE,W0,W2 P INSRT TAB
0x0e28f4…0e2a88 Dummy {f00=0x004c, f01=0x018e, f02=» CBE PINDTB,W0,UPDSET18 PUPDSET15 ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A 0 PUPDSET18 P CMP W0,W1 l P B DECO05 ~ PUPDSET20 P MOVE BIN15,W0 WORK:=0 $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 $ P CALL ATTDB,BPOOL(PINDTB),W0,W11
0x0e2a88…0e2c1c Dummy {f00=0x004c, f01=0x0190, f02=» ~ P ADD ELMNO,W1 . P TBT DOOL7,UPDSET24 JUMP IF NOT CURR FIELD P TSTCTL 0 LOOK IF ALPHA P P BZ UPDSET30 JUMP IF BCD p P B UPDSET26 PUPDSET24 ( P TBT ALPHA,UPDSET30 JUMP IF BCD-NUM PUPDSET26 & P XCOPY BIN8,W1,W1,BPOOL(
0x0e2c1c…0e2db0 Dummy {f00=0x004c, f01=0x0190, f02=»SET40 P CBNE BIN9,W0,UPDSET15 P ADD ELMNO,W1 NEXT ELEMENT , . P ADD BIN16,W1 INCREMENT STARTINDEX OF POOL N 2 P CMP BIN16,BIN15 JUMP ALL EL. OF POOL COMPARED P BG DECN10 JUMP IF GRAETER P B UPDSET28 PUPDSET30 " P MOVE BCDI21
0x0e2db0…0e2f44 Dummy {f00=0x004c, f01=0x018e, f02=»TRG10A r P CMP W0,W0 CONDITION ZERO P B DECO05 0 P* B PUPDCOD L P PERF DECOMP,BIN8 Z P B DECO05 t P* PUPDEMP P CALL EMPTYT,DEINPUT P BP DECEGL P B DECNOT P* . P* OPERAND IS VALUE-SET ELE
0x0e2f44…0e30d8 Dummy {f00=0x004c, f01=0x0190, f02=» " PUPDGOT GO TO VALIDATION (G) . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) * . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) P ADD BIN12,W1 ADJUST POINTER $ P SET BOOL6 T=COND TAB FOUND (G) . P XCOPY BIN14,W1,W1,BPOOL(BIN11),BIN12 *JE
0x0e30d8…0e326c Dummy {f00=0x004c, f01=0x0190, f02=» . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) ( P SET BOOL4 T=COND FORM CH FOUND (R) : P B UPDFO2 f P* x * PUPDFON CHANGE FORMAT VALIDATION (N) P MOVE DEBINW4,W3 (N) . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) , P SET BOOL8
0x0e326c…0e3400 Dummy {f00=0x004c, f01=0x0190, f02=»OVE BIN16,W0 WORK:=0 < P XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS * P SUB BIN16,W128 ADJUST LIT.-INDICATOR ( P ADD BIN12,W1 ADJUST BUFFER POINTER P MOVE STSAVE(DEBINW4),HEX00 6 P XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),B
0x0e3400…0e3594 (1, 287) Dummy {f00=0x004d, f01=0x0190, f02=»X'3F' P CALL MSKOUT,BIN9,BIN8 P MOVE STR1A,='?' , * P MOVE BIN10,BIN12 SAVE CURRENT POINTER D 2 P MATCH BPOOL(BIN11),BIN10,DEBINW1,STR1A,W0,W1 r " P BNOK UPDN06 JUMP IF NO '?':S * P MOVE BIN8,W0 COUNTER NUMB OF MATCHES . P MOVE BIN10,
0x0e3594…0e3728 Dummy {f00=0x004d, f01=0x0190, f02=»ST FOR SIGN ~ PUPDN01 P ADD BIN9,BIN12 " PUPDN00 : P MOVE BIN10,BIN8 H 2 P MATCH DEINPUT,BIN10,W1,BPOOL(BIN11),BIN12,W1 ` " P BNOK UPDN04 NOT OK MAYBE '?' PUPDN02 " P ADD BIN8,W1 INCREMENT COUNTER . P CBE BIN8,DEBINW1,UPDN30
0x0e3728…0e38bc Dummy {f00=0x004d, f01=0x0190, f02=»OINT r , P MATCH BPOOL(BIN11),BIN10,W1,STR1A,W0,W1 P BOK UPDN02 GO ON '?' FOUND < P B UPDN30 ` PUPDN06 r P CLEAR DOOL7 & P BNZ UPDN10 JUMP IF NOT CURR FIELD P TSTCTL 0 LOOK IF ALPHA P BZ UPDN40 JUMP IF NUMERIC P CBE D
0x0e38bc…0e3a50 Dummy {f00=0x004d, f01=0x0190, f02=»M p PUPDN20 ! P MOVE BIN10,W0 ! P ADD BIN9,BIN12 ! . < P MATCH DEINPUT,BIN10,DEBINW1,BPOOL(BIN11),BIN12,DEBINW1 ! F PUPDN30 ! P MOVE BIN12,BIN9 ! P BOK DECEGL ! P B DECNOT ! PUPDN40 NUMERIC ! P MOVE STR64A,HEX00 ! , P COP
0x0e3a50…0e3be4 Dummy {f00=0x004d, f01=0x0190, f02=»Z UPDN55 ! P CALL CLEARB,BCDI21(W2),W1 " P CALL SETB,BCDI21(W2),W2 " 2 PUPDN55 " R " P IB BIN6,UPDN60,UPDN70,UPDN80 " ` P ADD BCDI21(W1),BCDI21(W2) " P B UPDN90 " $ PUPDN60 SUB BCDI21(W1),BCDI21(W2) " P B UPDN90 " $ PUPDN70 MUL BCDI21(W1
0x0e3be4…0e3d78 Dummy {f00=0x004d, f01=0x0190, f02=»IF END OF " r P VALIDATION STRING # P MOVE STR64A,='+-*:' # . 0 P MATCH STR64A,BIN6,W4,BPOOL(BIN11),BIN12,W1 # J ( P BOK UPDV35 JUMP IF ARITHMETIC SIGN # ~ PUPDN95 # P MOVE BCDI21(W2),DEINPUT # P CMP BCDI21(W2),BCDI21(W1) # PDECO05 # 6 P
0x0e3d78…0e3f0c Dummy {f00=0x004d, f01=0x0190, f02=» DECNOT /> # PDECO20 $ P BERR DECEGL < $ P /< $ 6 PDECNOT CLEAR DOOL1 $ D P BNZ DECOOK VALID $ ^ * P CBE PINDTB,W0,DECONO JUMP IF NOT SET $ x & P CMP BIN9,W0 LOOK IF ALL ELEMENTS $ P BNZ UPDSET15 JUMP IF NOT $ P ADD ELMNO,W1 NEXT ELE
0x0e3f0c…0e40a0 Dummy {f00=0x004d, f01=0x0190, f02=»(W1),FDVBCD(ELMNO) NEXT ELEMENT VALUE $ P B UPDN95 GO ON NEXT COMPARE % . PDECN10 % R < P XCOPY BIN15,W0,W2,RPOOL(PINDTB),W13 FETCH LINK FORWARD % ` 0 P CMP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED % P BE UPDSET15 JUMP IF EQUAL % 4 P MOVE ELMNO,BIN16
0x0e40a0…0e4234 (1, 288) Dummy {f00=0x004d, f01=0x0190, f02=»CEGL CLEAR DOOL1 % P BZ DECOTK VALID & P EJECT & 0 PDECONO & > P MOVE BIN10,W21 V OR & L , P TBT BOOL6,DECOMT JUMP IF COND TAB FOUND & h . P TBT BOOL8,DECOMT JUMP IF RECORD CH FOUND & . P TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND & P SET DOOLB I
0x0e4234…0e43c8 Dummy {f00=0x004d, f01=0x0190, f02=»EIND,BIN16 INDEX OF CURR BUFF & PDECOOK ' & P MOVE BIN10,W20 & ' 4 P CLEAR DOOLB ITEM VALID ' N PDECOMT ' n P CLEAR DOOL7 ' | P CBE PINDTB,W0,DECO33 ' ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A ' " PDECO33 CBNL BIN12,BIN13,DECEND ' P MOVE BI
0x0e43c8…0e455c Dummy {f00=0x004d, f01=0x0190, f02=»IN8,W1,W1,BPOOL(BIN11),BIN12 ' P CALL TESTB,BIN8,W8 ( $ P BZ DECO38 ( @ P MOVE BIN9,=X'3F' ( R P CALL MSKOUT,BIN9,BIN8 ( l P ADD BIN12,BIN9 ( PDECO38 ( P ADD BIN12,W1 ( P B DECOMT ( PDECO39 ';' FOUND ( " P CBNE BIN10,W20,DECO37
0x0e455c…0e46f0 Dummy {f00=0x004d, f01=0x0190, f02=» ( j P MOVE BIN9,W0 ) P MOVE STR6B,=C'DGRN' ) . P MATCH STR6B,BIN9,W4,BPOOL(BIN11),BIN12,W1 ) : P BNOK DECERR ) l P TBT DOOLB,DECEND ) " P IB BIN9,UPDGOT,UPDFOR,UPDFON ) P B UPDV25 ) P EJECT ) PDECO40 ) 2 P IB BIN9,DECO41,DECO41,DEC
0x0e46f0…0e4884 Dummy {f00=0x004d, f01=0x0190, f02=» DECO41,DECO41,DECO41 C ) P DECO41,DECO41 17-18 C * " P DECO39 19=; C * B P DECO43,DECO43, 20-21 C * Z $ P DECO41,DECO41,DECO41, 22-24 C * z $ P DECO42,DECO46,DECO46, 25-27 C * P DECO41 * P ADD BIN12,W1 MESSAGE * P B DECO35 *
0x0e4884…0e4a18 Dummy {f00=0x004d, f01=0x0190, f02=»0 * | PDECO41 + P ADD BIN12,W1 + P B DECOMT + . PDECO42 + @ P ADD BIN12,W2 + N P B DECOMT + d P EJECT + v " PDECO46 CONDITIONAL FORMAT CH + & P ADD BIN12,W1 ADUST BUFFER POINTER + P MOVE BIN16,W0 WORK:=0 + < P XCOPY BIN16,W1,W1,BPO
0x0e4a18…0e4bac Dummy {f00=0x004d, f01=0x018e, f02=» BIN12,BIN16 ADJUST FOR NUMB OF CHARS + P B DECOMT , . PDEC050 , @ * P PERF DENVCO CONDITIONAL BOOL SETTING , N P B DECOMT , | P EJECT , PDECERR , P SET DOOLB , $ P MOVE DEBINW4,W2 UNDEFINED ERROR , P MOVE BIN10,W0 , PDECEND CLEAR D
0x0e4bac…0e4d40 Dummy {f00=0x004d, f01=0x0190, f02=» P MOVE BIN13,WORK(W8) - P ADD BIN12,W1 - * P GETFLD 0,DEBINW3,BIN9 GET INIT. FIELD - 6 PUPDRET - d PDECE10 - r P TBF DOOLB,DECE20 - P CBE DEBINW4,W2,DECE30 - PDECE20 - P CBE BIN10,W20,DEC050 '&' - PDECE30 - 0 P MOVE DEINPUT,STAT
0x0e4d40…0e4ed4 (1, 289) Dummy {f00=0x004d, f01=0x0190, f02=»W3,BDPOIN(W2),UPDR10 JUMP IF - P ENTRY OF NEW RECORD . $ " P CLEAR BOOL3 CHANGE FORMAT (R) . B $ P TBT DOOL2,UPDR10 JUMP IF INSERT . h PUPDR05 . P CLEAR BOOLS FOR FORMAT . & P CLEAR BOOL7 CHANGE IN CORRECTION . P OR IF BATCHEAD=N . PUP
0x0e4ed4…0e5068 Dummy {f00=0x004d, f01=0x0190, f02=»1? . z P BNZ UPDR30 YES! / P MOVE DEBINW3,W0 / " P B UPDR40 / : PUPDR30 / L P MOVE DEBINW3,W1 / Z PUPDR40 / r P RET / P PEND / PDENVCO PROC / P MOVE BIN10,W0 / & P TBT BOOL6,DECOFG JUMP IF COND TAB / . P TBT BOOL8,DECOFN JUMP IF
0x0e5068…0e51fc Dummy {f00=0x004d, f01=0x40ba, f02=» P RET 0 PDECOFN 0 ( P SET BOOL7 T=VALID RECORD CHANGE (N) 0 P RET 0 J PDECOFR 0 V ( P SET BOOL3 T=VALID RECORD CHANGE (R) 0 d P RET 0 P PEND 0 END 0 @ 0 W0 / & P TBT BOOL6,DECOFG JUMP IF COND TAB / . P TBT BOOL8,DECOFN JUMP IF
0x0e51fc…0e5390 Dummy {f00=0x004d, f01=0x2008, f02=» 1
0x0e5390…0e5524 Dummy {f00=0x004d, f01=0x0190, f02=»0 [ V E 7_ Z >: 0 Z 7 Z Z P 0 : V R (Q V : ` ` : < J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K > WJ > W +_ > > K W.
0x0e5524…0e56b8 Dummy {f00=0x004d, f01=0x0190, f02=»T * [ R !FFP !EET W I@ 6 * B Z 9 ! ; *Xt 8 ! D@ 0P Wv 0W@ Wn :T& *W4 FP . :T Z ! XBW *X& FWH :P"# U J E 1 ?d !00T ; > _ 9P F " X># ; W )0_B J R( Z R 4! P ;)0 9U ? E Z
0x0e56b8…0e584c Dummy {f00=0x004d, f01=0x0190, f02=» |`. PT*AXYZ9AfAfAfBBCBA C::j^b^h_ ` bnbnA B B B B C A B B = e etd e e d A CbC^ChCjA A A A 0 W V 7 T V P 0 P W A@ @A R E I* BN pVP 9c D@ 7 76 Q @ W _ :aW, @A YRP E& @A ]^ En @A ]h
0x0e584c…0e59e0 Dummy {f00=0x004d, f01=0x0190, f02=»! R T V P V 0 W V P _ 8^t D@ 2 ! 9BP V T W V P D $ V 6 V % V E @ R' T 2 % 7_ 2 # PH L PB 7 2" &] Y $! 6P Q $ T 9BP A _ _ W A 6 @ R" T 7 $ V
0x0e59e0…0e5b74 (1, 290) Opaque[0x194]
0x0e5b74…0e5d08 # DirEnt {nam=»DEREC2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09b8, f03=0x0000}
0x0e5b74…0e5d08 IdxSect {
0x0e5b74…0e5d08 f00 = 0x004d // 0xe5b74 @0x0
0x0e5b74…0e5d08 f01 = 0x000a // 0xe5b76 @0x2
0x0e5b74…0e5d08 gno = [ // 0xe5b78 @0x4
0x0e5b74…0e5d08 [0x00]: C0x004d.0x3.0
0x0e5b74…0e5d08 [0x01]: C0x004e.0x0.0
0x0e5b74…0e5d08 [0x02]: C0x004e.0x1.0
0x0e5b74…0e5d08 [0x03]: C0x004e.0x2.0
0x0e5b74…0e5d08 [0x04]: C0x004e.0x3.0
0x0e5b74…0e5d08 ]
0x0e5b74…0e5d08 }
0x0e5d08…0e5e9c Dummy {f00=0x004d, f01=0x0190, f02=» $ P IDENT DEREC2 REL 10.0 80-04-11 P 80-04-14/DALI , DDUM DEDDIV D PDIV X P ENTRY DEREC2 f $ ENTRY DEOPBC OPEN BATCH-ROUTINE | * * ** EXTERNAL REFERENCES TO SCREEN * P EXT DECLRA P EXT DECLRD
0x0e5e9c…0e6030 Dummy {f00=0x004d, f01=0x0190, f02=»TOR P EXT DERECS P EXT DEREFO P EXT UPDBOL 4 P EXT UPDBIN H P EXT DEACC P EXT DELAST n EXT ATTWB EXT SAVE EXT DEPOOL P EXT OPCL P EXT OFRSP " P EXT DEPRUT GET PROGRAMNUMBER P EXT
0x0e6030…0e61c4 Dummy {f00=0x004d, f01=0x018e, f02=» PROC FC * P************************************** P* HANDLE BATCHHEAD FORMAT > * P* THESE ROUTINES USE THE DENTER-SCREEN ` * P************************************** P IB FC,RETUBC,ERRBC . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV
0x0e61c4…0e6358 Dummy {f00=0x004d, f01=0x0190, f02=» . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. P BZ REC060 : P EJECT L P* Z & P* START RECOVERY OF THIS USERFILE d P* P SET DOOL3 & P BNZ REC060 AN OTHER TERMINAL HAS $ P ALREADY OPENED THIS USERFILE P FOR RECOV
0x0e6358…0e64ec Dummy {f00=0x004d, f01=0x0190, f02=»T JOBNAME x P BOK REC100 . P MOVE BCDI21(W3),W0 CLOBBERED BY RECOVERY & P MOVE JOBNAME,STSAVE(W1) X P MOVE BATCH,STSAVE(W2) x $ P CBE DEBINW4,W9,REC075 NOT FOUND P CALL CLEARB,RECFIL,FILINDUS PREC060 & P MOVE BIN3,DEBINW4 SAVE
0x0e64ec…0e6680 Dummy {f00=0x004d, f01=0x018e, f02=»,W6,PJOBCUR,DEBINW3,STRG10A * P PERF DEPOOL,W6,PINACC,DEBINW3,STRG10A $ * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A R P CALL CLEARB,RECFIL,FILINDUS P B OPBC00 PREC100 , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A PREC110 * P PERF
0x0e6680…0e6814 (1, 291) Dummy {f00=0x004e, f01=0x0190, f02=» ( P MOVE BIN3,=W'34' GET NEXT BATCHNAME P PERF DEDISC,BIN3 0 P BNOK REC050 J P MOVE BCDI21(W3),W0 ^ P PERF DERECS,W11 z P BNOK REC110 P CLEAR DOOL1 P BZ REC110 P MOVE BIN3,W1 PREC150 P MOVE ACK(BIN3),=D'0'
0x0e6814…0e69a8 Dummy {f00=0x004e, f01=0x0190, f02=» PERF DERECS,W5 GET CURRENT P BOK REC400 $ PREC230 8 P CLEAR BDAACT F P CALL UPDBIN,BDSTAT 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 x P PERF DEDISC,W18 CLOSE BATCH P B REC110 PREC400 , P CBE BIN3,W10,REC230 JUM
0x0e69a8…0e6b3c Dummy {f00=0x004e, f01=0x0190, f02=»CREASE WANTED RECNO x P PERF DERECS,W4 GET NEXT P BNOK REC500 < P PERF DERECS,W13 P P B OPBC05 h PREC500 z & P PERF DERECS,W3 ENTER LAST SECTOR P B REC230 P EJECT P* P* OPEN ROUTINE P* POPBC09
0x0e6b3c…0e6cd0 Dummy {f00=0x004e, f01=0x0190, f02=»=W'27' $ P PERF DEDISC,BIN13 DELETE BATCH P B REBC03 6 POPBC10 H " P SET SOOL1 STATUSLINE DISPLAY V POPBC20 CLEAR DECHANGE | POPBC30 P MOVE DEBINW2,W0 P RET PRETUBC P CLEAR BDAACT P CALL UPDBIN,BDSTAT
0x0e6cd0…0e6e64 Dummy {f00=0x004e, f01=0x0190, f02=»ERRBC P PERF DERROR,DEKTAB6 PREBC10 * P CLEAR SOOL1 8 P CLEAR SOOL2 L P CLEAR DENOCHAN ` P SET DOOL5 x P MOVE DEBINW2,W3 PREBC20 * P PERF DEPOOL,W6,PINDFR,DEBINW3,STRG10A , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A
0x0e6e64…0e6ff8 Dummy {f00=0x004e, f01=0x0190, f02=»TORE ORIGINATE ADRESSES TO r " P WORKBLOCKS AND DESCRIPTORS " P MOVE DEBINW4,BIN3 H P RET b P PEND n P EJECT | PDEREC2 PROC FC . P IB FC,DELREC,INSREC,INSREC,OPENBC,ENTINS PDELREC * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR
0x0e6ff8…0e718c Dummy {f00=0x004e, f01=0x018e, f02=» . P XCOPY RBUF,W6,W2,BIN14,W0 DELETED RECLNTH . P CBE BIN14,W10,DELR20 JUMP IF EMPTY SECTOR 6 PDELR10 h P MOVE BIN14,W23 v " P B DELR40 GET PREVIOUS RECORD PDELR20 " P CBNE CURSEC,BDPOIN(W1),DELR30 $ P XCOPY BDPOIN(W1),W0,W2,RBUF,W2
0x0e718c…0e7320 Dummy {f00=0x004e, f01=0x0190, f02=» t 2 P SUB BDPOIN(W2),W1 DECREASE NUMBER OF RECORDS P TBF DBOFOR,DELR50 > P SUB BDPOIN(W4),W1 X PDELR50 r P MOVE BCD13A,NUMBER P TEST DBOMVR P BZ DROK00 P TEST DBOVER VERIFIED RECORD P BNZ DROK00 YES P SUB BDPOI
0x0e7320…0e74b4 (1, 292) Dummy {f00=0x004e, f01=0x018e, f02=»ATARECORD. * " P****************************** PINSREC FC= 9 @ P XCOPY BIN14,W0,W2,RBUF,W6 V P MOVE PRECPR,PRECCUR x P ADD PRECCUR,RECLNTH , P XCOPY BIN10,W0,W2,RBUF,W4 LINK TO NEXT 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 ADJUST USED
0x0e74b4…0e7648 Dummy {f00=0x004e, f01=0x0190, f02=» * P DLETE RBUF,W10,BIN7 COPY LAST ENTERED * P MOVE BIN8,CURSEC SAVE CURRENT SECTOR 6 4 P CBL PRECCUR,BIN14,INSR10 JUMP IF MORE IN SECTOR d P MOVE BIN9,BIN8 PINSR05 2 P XCOPY RBUF,W4,W2,BIN10,W0 LINK TO NEXT SECTOR P MOVE BIN14,W23
0x0e7648…0e77dc Dummy {f00=0x004e, f01=0x0190, f02=»ECTOR t P BERR DRNO00 P MOVE BIN9,CURSEC " P DLETE RBUF,W10,RECLNTH < P SUB BIN14,PRECCUR P ADD BIN14,W10 v 2 P XCOPY RBUF,W6,W2,BIN14,W0 USED SPACE PART TWO P B INSR05 PINSR20 , P CBE BIN10,W0,INSR30 JUMP IF LAST SECT
0x0e77dc…0e7970 Dummy {f00=0x004e, f01=0x0190, f02=»NK TO PREV t P MOVE BIN14,W23 , P PERF DEDISC,BIN14 WRITE CURRENT SECTOR * P BERR DRNO00 Z P B INSR40 n PINSR30 : P XCOPY BDPOIN(W1),W0,W2,CURSEC,W0 LAST ENTERED RECORD PINSR40 P MOVE CURSEC,BIN8 P MOVE BIN13,=W'33'
0x0e7970…0e7b04 Dummy {f00=0x004e, f01=0x0190, f02=»R),W0 n P B DROK00 P EJECT * P************************************** . P* ( P* READ IN CURRENT JOBDEFINITION AND f P* OPEN WANTED BATCH. P* * P************************************** POPENBC FC=11 P MOVE DEBINW
0x0e7b04…0e7c98 Dummy {f00=0x004e, f01=0x018e, f02=»OPE050 NOT EMPTY P B OPE100 POPE030 * , P CBNE BIN11,W4,OPE035 JUMP IF NOT ENTRY 8 , P CBNE BIN12,W5,OPE050 JUMP IF NOT DELETE h P B OPE040 POPE035 P CBNE BIN11,W5,OPE050 & P CBE BIN12,W3,OPE050 RECORD-LEVEL POPE040
0x0e7c98…0e7e2c Dummy {f00=0x004e, f01=0x0190, f02=» P A JOBDEFINITION IN POOL P MOVE DEINPUT,HEX00 & " P COPY DEINPUT,W0,W6,JOBNAME,W0 B & P PERF DEDISC,W2 GET JOB-DEFINITION h P BNERR OPE100 $ P GETFLD 0,W2,BIN3 FILED JOBNAME P B DRNO00 POPE100 , P TBT DOOL3,OPE250 JUMP I
0x0e7e2c…0e7fc0 Dummy {f00=0x004e, f01=0x0190, f02=»E150 GETFLD 0,W3,BIN3 FIELD BATCHNAME P COPY DEINPUT,W0,W6,BATCH,W0 . POPE170 R P B OPE700 ` $ POPE200 SET DOOL3 USERFILE OPENED r 0 P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOVERY P BZ OPE260 JUMP IF NOT $ P MOVE BIN3,=W'37' ERROR REC.
0x0e7fc0…0e8154 (1, 293) Dummy {f00=0x004e, f01=0x0190, f02=» d P BNZ OPE300 JUMP IF RUNNING " POPE260 LOOK IF BATCHDATA AND , " P BATCHHEADER ARE TO BE USED R ( P CBNE BIN11,W7,OPE265 NOT CONVERSION x . P CBE PJOBCUR,W0,OPE270 OPEN USERFILE ONLY & P MOVE BIN12,W0 ADJUST RETURNPOINT P IN DE
0x0e8154…0e82e8 Dummy {f00=0x004e, f01=0x0190, f02=»70 & P MOVE BIN12,W1 ADJUST RETURNPOINT P IN DERECS. 4 P B DROK00 J POPE280 P MOVE STR6A,HEX00 j P CBE BATCH,STR6A,OPE270 P B OPE300 POPE290 P TBF DOOL8,OPE300 P PERF DEDISC,W6 OPEN NEW P BOK OPE38
0x0e82e8…0e847c Dummy {f00=0x004e, f01=0x0190, f02=» f , P CBNE BIN13,W10,OPE380 NOT EMPTY BATCH! P MOVE DEBINW4,W9 NOT FOUND 8 P B OPE695 DELETE BATCH Z POPE350 x ( P CBNE DEBINW4,=W'27',OPE170 B OPE700 , P CBNE BIN11,W5,OPE170 JUMP IF NOT SEARCH & P CBE BIN12,W3,OPE170 RECORD-LEVEL
0x0e847c…0e8610 Dummy {f00=0x004e, f01=0x0190, f02=» $ P BZ OPE400 JUMP IF NOT RECOVERY * P TBT BDAACT,OPE560 JUMP IF BATCH IS TO , P BE RECOVERED Z & P B DROK00 BATCH WILL NOT BE OPENED r " POPE400 THOS IS A NORMAL OPEN , P CBNE BIN11,W5,OPE410 JUMP IF NOT SEARCH & P CBE BIN12,W3,OPE550 R
0x0e8610…0e87a4 Dummy {f00=0x004e, f01=0x0190, f02=» IF NOT ENTRY v ( P CBNE BIN12,W5,OPE415 AND NOT DELETE P MOVE BIN11,BIN12 B P B OPE270 POPE415 n & P TBF DOOL8,OPE420 JUMP IF OPEN OLD | , P TBF DOOL7,OPE540 JUMP IF NOT TESTBATCH P SET BDATES P B OPE540 POPE420 *
0x0e87a4…0e8938 Dummy {f00=0x004e, f01=0x0190, f02=» v P B OPE710 POPE460 ( P TBT BDATES,OPE540 JUMP IF TESTBATCH ( P MOVE DEBINW4,=W'34' ERROR T P B OPE710 v POPE500 P TBF VERIFM,OPE540 P TBT BDAMVR,OPE540 POPE520 P MOVE DEBINW4,W8 P B OPE710 POPE540
0x0e8938…0e8acc Dummy {f00=0x004e, f01=0x0190, f02=»ERYOPENED BATCH P SET DOOL1 P B OPE680 * POPE580 < . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. J P BNZ DROK00 | & P CBNE BIN11,W7,OPE620 JUMP IF NOT . P MOVE BIN12,W4 RETURN TO DROK00 IN DERECS P B OPE680 POPE600
0x0e8acc…0e8c60 Dummy {f00=0x004e, f01=0x0190, f02=»ROZEN BATCH | POPE640 P CLEAR BDABAL " P CALL UPDBIN,BDSTAT 8 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 T $ P PERF DEDISC,W18 WITE BATCHDATA P BNOK OPE690 & P TBF DOOL8,OPE660 JUMP IF OPEN OLD & P MOVE BIN13,W23 WRITE CURR
0x0e8c60…0e8df4 (1, 294) Dummy {f00=0x004e, f01=0x0190, f02=»EAD CURR.SECTOR | POPE670 P PERF DEDISC,BIN13 & P BNOK OPE690 @ POPE680 T & P CALL ATTWB,BPOOL(PJOBCUR),W0,W12 b P MOVE PINDFR,W0 . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECOV. P BNZ OPE681 YES! , P CBE BIN11,W5,OPE683 SEARC
0x0e8df4…0e8f88 Dummy {f00=0x004e, f01=0x018e, f02=»SC,W10 GET FORMAT P BNOK OPE690 0 P MOVE FORMAT,FORTAB(W20) SAVE BATCHHEADNAME . P B OPE684 b POPE683 t $ P MOVE FORMAT,HEX00 SEARCH STRART POPE684 $ P MOVE PRECCUR,W10 START IN RBUF . P CALL TESTB,RECFIL,FILINDUS LOOK IF RECO
0x0e8f88…0e911c Dummy {f00=0x004e, f01=0x0190, f02=» P BOFL OPE710 POPE685 P MOVE SYMREC(W10),FRMTPNTR * POPE688 L P SET DEPROMPT Z $ P CALL ATTWB,BPOOL(PINACC),W2,W13 p P MOVE PRECPR,PRECCUR P MOVE NUMBER,W0 P CALL UPDBIN,BIN1 P B DROK00 POPE690 & P T
0x0e911c…0e92b0 Dummy {f00=0x004e, f01=0x0190, f02=»T BATCH z POPE695 ! P MOVE BIN3,DEBINW4 ! P MOVE BIN13,=W'27' ! 8 $ P PERF DEDISC,BIN13 DELETE BATCH ! R P MOVE DEBINW4,BIN3 ! z POPE700 ! P MOVE BIN4,W3 ! & P MOVE BIN3,DEBINW4 SAVE ERRORCODE ! P B OPE720 ! POPE710 ! P MOVE
0x0e92b0…0e9444 Dummy {f00=0x004e, f01=0x0190, f02=»INW4 GET LAST FIELD ! ~ P CBE BIN11,W7,OPE760 " * P CALL TESTB,RECFIL,FILINDUS RECOVERY? " 8 P BNZ OPE760 YES! " f , P PERF DEPOOL,W6,PJOBCUR,DEBINW3,STRG10A " ~ P CLEAR DOOL3 " P BZ OPE760 " P PERF OPCL,W4 CLOSE USERFILE " POPE760 " 0 P C
0x0e9444…0e95d8 Dummy {f00=0x004e, f01=0x40e6, f02=» ADD PRECCUR,RECLNTH # 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE # P MOVE PRECCUR,W10 # V PDROK00 # p P CMP W1,W1 # ~ P RET # PDRNO00 # P CMP W1,W0 # P RET # P PEND # END # @ # E USERFILE " POPE760 " 0 P C
0x0e95d8…0e976c Dummy {f00=0x004e, f01=0x2008, f02=» $ PENTINS FC=12 ADD PRECCUR,RECLNTH 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE < P MOVE PRECCUR,W10 r PDROK00 P CMP W1,W1 P RET PDRNO00 P CMP W1,W0 P RET P PEND END @ P MOV
0x0e976c…0e9900 Dummy {f00=0x004e, f01=0x0190, f02=»DV DERRORA EMPTYT0 T:DISPF T:ERAS T:GETF. E DE50ST 8 800414 $$$TRA5 DE50ST DEAP5A ATTDB ATTWB DEANOK0 DEAOK0- DECLRA1 DECLRNL DECLRS0 DEDISC DENT01 DEOPBC5 DEPOOL DEPRUT DERECS DERR DERROR DESTAU EMPTYTA OPCLD RESTORD SETB-
0x0e9900…0e9a94 (1, 295) Opaque[0x194]
0x0e9a94…0e9c28 # DirEnt {nam=»DENT02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x09e0, f03=0x0000}
0x0e9a94…0e9c28 IdxSect {
0x0e9a94…0e9c28 f00 = 0x004f // 0xe9a94 @0x0
0x0e9a94…0e9c28 f01 = 0x000a // 0xe9a96 @0x2
0x0e9a94…0e9c28 gno = [ // 0xe9a98 @0x4
0x0e9a94…0e9c28 [0x00]: C0x004f.0x0.0
0x0e9a94…0e9c28 [0x01]: C0x004f.0x1.0
0x0e9a94…0e9c28 [0x02]: C0x004f.0x2.0
0x0e9a94…0e9c28 [0x03]: C0x004f.0x3.0
0x0e9a94…0e9c28 [0x04]: C0x0050.0x0.0
0x0e9a94…0e9c28 ]
0x0e9a94…0e9c28 }
0x0e9c28…0e9dbc Dummy {f00=0x004f, f01=0x0190, f02=» $ P IDENT DENT02 REL 10.0 80-04-11 P UPD 80-04-23/DALI , P 80-04-08/DALI H P DDUM DEDDIV ` P PDIV t P ENTRY DENDUP P ENTRY DEEDIT P ENTRY DELAST P EXT DERECS P EXT DEACC P EXT DECLRN P EXT DECLR
0x0e9dbc…0e9f50 Dummy {f00=0x004f, f01=0x0190, f02=»ELD x P EXT CMPIND & P EXT DEDISC DISC HANDLING ROUTINE * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - J P ATTACH DESCRIPTORBLOCK x * P EXT ATTWB ASSEMBLY SUBROUTINE ATTWB - P ATTACH WORKBLOCK P EXT EMPTYT * P EXT TYPET ASSEM
0x0e9f50…0ea0e4 Dummy {f00=0x004f, f01=0x0190, f02=» MASK P EXT DELOCK P EXT DEPRUT " P INCLUDE DELITT 6 P EJECT N & P********************************** & P* THIS ROUTINE HANDLE THE KEY FOR " P* DUPLICATION AND EXECUTE THE P* AUTOMATIC DUPLICATION WHEN $ P* THE KEEP KEY
0x0ea0e4…0ea278 Dummy {f00=0x004f, f01=0x0190, f02=»,BIN12,BIN13 t P BOK KDUP05 PKDUP03 ( * P CBE DEBINW2,W3,KDUP02 JUMP IF AUTODUP 6 * P CBNE DEBINW2,W11,KDUP04 JUMP IF KEEP d PKDUP02 P B KDUP35 PKDUP04 P DUPL DEINPUT P BNZ KDUP40 P SET BOOL5 P B KDUP30
0x0ea278…0ea40c Dummy {f00=0x004f, f01=0x0190, f02=»K KDUP40 JUMP IF NOT $ P CBE BIN9,W5,KDUP25 JUMP IF DATE & P SUB BIN9,W8 ADJUST FOR THE OTHER D P BL KDUP40 n P ADD BIN12,W1 GET ITEMNUMBER P MOVE BIN8,W0 ( P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 P ADD BIN12,W1 P MOVE BCD3A,
0x0ea40c…0ea5a0 Dummy {f00=0x004f, f01=0x0190, f02=»N11),BIN12,W1 r P BNOK KDUP10 P ADD BIN12,W1 * * P XCOPY ELMNO,W1,W1,BPOOL(BIN11),BIN12 @ P B KDUP20 n " PKDUP10 PERF DELAST,W5,DEKTAB7 , P IB DEBINW2,KDUP60,KDUP60,KDUP60,KDUP10 P SUB DEBINW1,W1 P BZ KDUP10 6 P COPY DE
0x0ea5a0…0ea734 (1, 296) Dummy {f00=0x004f, f01=0x0190, f02=»P15 ~ P CBE VSEIND,W0,KDUP13 P MOVE ELMNO,VSEIND * P B KDUP15 D PKDUP13 VALUESETINDEX =0 V P MOVE DEBINW4,W9 NOT FOUND x P B KDUP50 PKDUP15 P MOVE TABLE,BCD3A P MOVE STR1A,=C'T' P DLETE TABLE,W0,W2 P
0x0ea734…0ea8c8 Dummy {f00=0x004f, f01=0x0190, f02=»EIND,ELMNO $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 : P MOVE BIN10,W0 b ( P XCOPY BIN10,W1,W1,RPOOL(PINDTB),W17 x P SUB ELMNO,BIN10 P ADD ELMNO,W1 PKDUP25 P PERF DEEDIT,BIN9 ( P PERF DEPOOL,W
0x0ea8c8…0eaa5c Dummy {f00=0x004f, f01=0x0190, f02=»INW1 - LENGTH OF DEINPUT P BNN KDUP30 MAXL NOT LESS P MUL DEBINW4,=W'-1' B P DLETE DEINPUT,W0,DEBINW4 ^ P SUB DEBINW1,DEBINW4 PKDUP30 ( P CALL EMPTYT,:FMTITEM LOOK IF EMPTY P BNZ KDUP32 YES! P TSTCTL 0 LOOK IF ALPHA
0x0eaa5c…0eabf0 Dummy {f00=0x004f, f01=0x018e, f02=»,DEBINW4 f P BOK KDUP33 P B KDUP28 $ PKDUP27 6 P MOVE BCDI21(W1),DEINPUT D $ P CBE BCDI21(W1),:FMTITEM,KDUP33 d PKDUP28 P GETABX DEBINW3 P ERASE 9,DEBINW3,DEBINW3 PKDUP32 2 P UPDFLD 1,DEINPUT UPDATE FIELD WITH DISP
0x0eabf0…0ead84 Dummy {f00=0x004f, f01=0x0190, f02=» P CMP W1,W1 OK P RET PKDUP40 & . P MOVE DEBINW4,W0 INDICATE ILLEGAL EOI-KEY 4 PKDUP50 f P MOVE DEBINW2,W0 t PKDUP60 P MOVE DEBINW1,W0 P CMP W1,W0 P RET P PEND P EJECT . P****************************
0x0ead84…0eaf18 Dummy {f00=0x004f, f01=0x0190, f02=»REX. z P* <FC> = 0 ACCUMULATORS P* = 1 SYSTEMVARIABELS , P* = 2 USERVARIABELS P , P* = 3 FIELDS WITHIN CURRENT FORMAT r P* = 4 VALUESETS P* = 5 DATE * P* = 6 VALUESETINDEX (ELEMENTNO) P*
0x0eaf18…0eb0ac Dummy {f00=0x004f, f01=0x0190, f02=»0 ~ P MOVE BIN7,W0 4 P IB FC,DED300,DED330,DED200,DED100,DED170,DED160 P CALL CMPIND,BIN8,ACK(W1) X P BNOK DED500 OUT OF RANGE z P MOVE DEINPUT,ACK(BIN8) P B DED390 PDED100 P CALL TESTB,BPOOL(PINDTB),W2 P BNZ DED
0x0eb0ac…0eb240 Dummy {f00=0x004f, f01=0x0190, f02=» P MOVE DEINPUT,FDVBCD(ELMNO) P B DED400 , P EJECT > P* L ( P* VALUE SET INDEX (ELEMENTNO) V P* PDED160 $ P MOVE BCD3A,VSEIND BINCONV=>BCD & P MOVE DEINPUT,BCD3A BCDCONV=>STRG P B DED470 PDED170
0x0eb240…0eb3d4 (1, 297) Dummy {f00=0x004f, f01=0x0190, f02=» MOVE DEINPUT,:FMTITEM P B DED400 PDED210 0 * P* LOOK FOR TYPE OF ITEM BY USING TYPET > 0 P CALL TYPET,BIN7,X.PSEU1,X.PSEU2,X.WB10,BIN8 l $ P CBE BIN7,W2,DED250 JUMP IF BCD P MOVE BIN7,W0 P EDSUB DEINPUT,BIN7,FORMF P B DED35
0x0eb3d4…0eb568 Dummy {f00=0x004f, f01=0x0190, f02=»1) x P BNOK DED500 P EDSUB DEINPUT,BIN7,FORMS P* @ P B DED350 J PDED330 P CALL CMPIND,BIN8,USEV(W1) j P BNOK DED500 OUT OF RANGE P EDSUB DEINPUT,BIN7,FORMU PDED350 P MOVE DEBINW1,BIN7 P B DED470
0x0eb568…0eb6fc Dummy {f00=0x004f, f01=0x0190, f02=»W0,W1 n PDED450 P SUB DEBINW1,BIN10 " P BNN DED470 JUMP IF NOT MINUS 6 P MOVE DEBINW1,W0 PDED470 t P CMP W1,W1 EDITING OKEY P RET PDED500 P CMP W1,W2 EDITING FAILED P RET P PEND P EJECT * P**
0x0eb6fc…0eb890 Dummy {f00=0x004f, f01=0x0190, f02=»************************************* PDELAST PROC FC,KEYTAB . P PKTAB KEYTAB L P MOVE BIN15,FC b PLASTD0 MOVE DEBINW4,W24 x P ERASE 0,DEBINW4,DEBINW4 P EDWRT DEDSSCRN,FLAST(FC) PLAST05 P MOVE DEBINW1,W0 PLASTD1
0x0eb890…0eba24 Dummy {f00=0x004f, f01=0x018e, f02=» 4 C P LVAL FLVAL = 5 C P LINS FLINS = 6 C & P LASRET2 FRECOV = 7 C @ P LASRET3 FCORR = 8 C ^ P LASVER FVER = 9 C | P LASRET2 FREC02 =10 C P LINS FFORCE = 11 C P LINS FCONVNO =12 C P LINS FCONV1 =13 C
0x0eba24…0ebbb8 Dummy {f00=0x004f, f01=0x0190, f02=» ` P CBG DEBINW1,W0,LPROG2 $ P MOVE DEBINW2,W2 SIMULATE CANCEL & P ERASE 0,DEBINW4,DEBINW4 N P B LASVER n PLPROG2 0 P KI DEDSDYKB,DEINPUT,KEYTAB,DEBINW1,DEBINW2 P B LAST50 PLVAL P MOVE DEBINW1,W2 P B LPROG2
0x0ebbb8…0ebd4c Dummy {f00=0x004f, f01=0x0190, f02=»,DEINPUT,KEYTAB,DEBINW1,DEBINW2 PLAST50 ( P PERF DELOCK,W1,DEBINW2 6 $ P IB DEBINW3,POWOFF,LASTER,LASTD0 V P B LASTD3 ~ P* 0 P* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY P* PLASTER P XSTAT DEDSDYKB,DEBINW3 P C
0x0ebd4c…0ebee0 Dummy {f00=0x004f, f01=0x0190, f02=»,LAST06,LASRET,LASRET C | ( P LAST06,DUMMY,DUMMY,DUMMY,DUMMY C ( P LASRET,LASRET,LASRET,DUMMY,LASRET L PLAST06 x $ P IB DEBINW2,LASBEL,LASBEL,LASBEL " P SUB DEBINW2,W3 ADJUST EOI0KEY P B LASRET PLASBEL ( P EDWRT DEDSSCRN,BELL
0x0ebee0…0ec074 (1, 298) Dummy {f00=0x004f, f01=0x0190, f02=»Y PLASVER ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B LASRET3 D P* V P* POWER OFF ` P* t PPOWOFF ~ P DISPLAY 0,W1,W0 P B LASTD0 P* PPROEN2 . P IB FC,LASTUT,LASTD0,LASTD0,LASTD0,LASTUT PLASTUT
0x0ec074…0ec208 Dummy {f00=0x004f, f01=0x0190, f02=»ET P PEND EJECT * & * FORMATS 0 * H > PFLAST FTABLE FPROG,FDEL1,FDEL2,FLIN1,FLVAL,FLINS,FRECOV C R 4 P FCORR,FVER,FRECO2,FFORCE,FCONV0,FCONV1,FASD C P FRFBWD PFPROG FRMT P FSL P FLOW P
0x0ec208…0ec39c Dummy {f00=0x004f, f01=0x0190, f02=» PFDEL2 FRMT P FLINK FDEL3 P FTEXT 'DELETED' * P FMEND B PFLINS FRMT P P FLINK FDEL3 b P FTEXT 'INSERTED' v P FMEND PFDEL3 FRMT P FSL P FLOW P FCOPY =C'RECORD' P FILLR ' ',1 P FMEL 'TTTT9',BC
0x0ec39c…0ec530 Dummy {f00=0x004f, f01=0x0190, f02=»' ~ P FTEXT ' T:' P FMEL 'XX',BCD3A P FILLR ' ',1 6 P FCOPY =C'ELEMENT' J P FCOPY =C'NUMBER' d P FILLR ':',1 ~ P FMEND PFLIN1 FRMT P FSL P FLOW " P FTEXT 'CONFIRM RECORD INSERT' P FMEND PFRECOV F
0x0ec530…0ec6c4 Dummy {f00=0x004f, f01=0x0190, f02=»LR ' ',1 P FCOPY =C'BATCH' P FILLR ':',1 ( P FCOPY BATCH < P FTEXT ' RUNNING.' P P FMEND j PFCORR FRMT x P FSL P FLOW P FTEXT 'RECORD CORRECTION' P FMEND PFVER FRMT P FSL P FLOW $ P FTEXT '
0x0ec6c4…0ec858 Dummy {f00=0x004f, f01=0x0190, f02=»T P FSL P FCOPY =C'CONFIRM ' P FTEXT 'FREEZING OF BATCH ' 2 P FCOPY BATCH V P FMEND j PFCONVA FRMT x P FCOPY =C'CONFIRM ' ( P FTEXT 'CONVERSION OF ALL BATCHES ' P FMEND PFCONV0 FRMT P FSL P FLINK
0x0ec858…0ec9ec Dummy {f00=0x004f, f01=0x0190, f02=»CONVA P FTEXT 'WITHIN JOB:' P FCOPY JOBNAME * P FMEND @ PFASD FRMT N P FSL ` " P FTEXT 'AUTOMATIC SKIP/DUP *O' l P FBF ASDFLAG,FASD2 P FTEXT 'N*' P FB FASDEN PFASD2 FTEXT 'FF*' PFASDEN FMEND PFRFBWD F
0x0ec9ec…0ecb80 Dummy {f00=0x004f, f01=0x40f8, f02=»PSEU2,X.WB10,BIN8 z P FMEND PFORMS FRMT ( P FCOPY SYSV(BIN8) : P FMEND T PFORMU FRMT b P FCOPY USEV(BIN8) t P FMEND PBELL FRMT P FSL P FILLR X'07',1 P FMEND P* END @ PFRFBWD F
0x0ecb80…0ecd14 (1, 299) Dummy {f00=0x0050, f01=0x2008, f02=» END @
0x0ecd14…0ecea8 Dummy {f00=0x0050, f01=0x0190, f02=» B y " y $ c 0 C _$ _ " y _6 x X@ X ' X # ' C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x ' " !F x X X # ' _ B " C 'j : + ' X ' ' ( 1 7 ( 1$ 0@ :
0x0ecea8…0ed03c Dummy {f00=0x0050, f01=0x0190, f02=» 7 # " 7 # $ : ! P # P E : 0 2! F Y " 1 7 1$ 7 !0 E :p 0 X "T X 0 ' 0 0 7 !0 E X 0 # 0 1 ' 7 ! Y 0T V 1$ :p : 0 2' F
0x0ed03c…0ed1d0 Dummy {f00=0x0050, f01=0x0190, f02=»0 X " 9b! X :c 2" F H$ 0 @ W W W W W W W 0 Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 (fW U X Q )dW Y 0 (^ ) 4 4 0 9H Y * ' W W ' 4 X 0T F X 2Z X +" X *9h P:
0x0ed1d0…0ed364 Dummy {f00=0x0050, f01=0x0190, f02=» Q P W W Y ( (^ C 0 X *! P V L ! 0 A X 0 Y 8 & P 0 Y 0 X 0 X 2] X 8 Y 0 & : X 0 :H* 0 : X 2T Y 2 : C 1 B ] 46 : ' X +! F X +! U 9K Y ( Y + (^ ) 0 9H Y * 2 Y ( Y > Y + 7 'Z 4
0x0ed364…0ed4f8 Dummy {f00=0x0050, f01=0x0190, f02=»P ' B _N ( 1 X D D : K + Q 2 P. P8 7H > ( 1$ B X # V : 7 >n_0 :$_>C C 7 C C C C C C > = > = ) +Z+ZC ) C > W W X 0Q )d )b Y ( Y *P 4 < (6 X <' X X < 0 X *#
0x0ed4f8…0ed68c Dummy {f00=0x0050, f01=0x0190, f02=» " P" 3 X *# P B 1 3 W F " P X X( C : X *! P P T F P 4 04 C W @ X (T W X y 6 Y ( : X (;n 0 C >n> >n>V* C C C > = > = ) * * > ) C > 0 Y . Y ,W 0 Y . X ( X ." PV X 0RzT$ Y *P U
0x0ed68c…0ed820 Dummy {f00=0x0050, f01=0x0190, f02=» Y . . Y ( = 0 Y *T " T ! 1 W ! ) > : 0 >V C| P & Y *T * : X > T X & V D ! T W > / 0 X >P( R Q" X & V D ! P $ ! P %_ > : 0 V Y " X .9H $ C| P & X ( " Q Y +Q R " P W
0x0ed820…0ed9b4 (1, 300) Opaque[0x194]
0x0ed9b4…0edb48 # DirEnt {nam=»DEPROC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a08, f03=0x0000}
0x0ed9b4…0edb48 IdxSect {
0x0ed9b4…0edb48 f00 = 0x0050 // 0xed9b4 @0x0
0x0ed9b4…0edb48 f01 = 0x000e // 0xed9b6 @0x2
0x0ed9b4…0edb48 gno = [ // 0xed9b8 @0x4
0x0ed9b4…0edb48 [0x00]: C0x0050.0x1.0
0x0ed9b4…0edb48 [0x01]: C0x0050.0x2.0
0x0ed9b4…0edb48 [0x02]: C0x0050.0x3.0
0x0ed9b4…0edb48 [0x03]: C0x0051.0x0.0
0x0ed9b4…0edb48 [0x04]: C0x0051.0x1.0
0x0ed9b4…0edb48 [0x05]: C0x0051.0x2.0
0x0ed9b4…0edb48 [0x06]: C0x0051.0x3.0
0x0ed9b4…0edb48 ]
0x0ed9b4…0edb48 }
0x0edb48…0edcdc Dummy {f00=0x0050, f01=0x0190, f02=» $ P IDENT DEPROC REL 10.0 80-04-11 P 80-01-17/JAER , P* D * N @ <* THIS PROGRAM-MODUL CONTAINS ENTRIES TO THE DIFFERENT X 6 2* STEERING ROUTINES OF THE FORMAT GENERATION * DDUM DEDDIV PDIV " ENTRY
0x0edcdc…0ede70 Dummy {f00=0x0050, f01=0x0190, f02=»DESCRIPTOR STORING P EXT FTEXT FORMAT TEXT EXT FKI FORMAT KEYED INPUT 8 EXT FMELI FORMAT EDITING EXT FCOPY FORMAT COPYING ~ EXT FVAL FORMAT VALIDATION EXT FGEN FORMAT GENERATION " EXT FACC FORMAT ACCUMULATION
0x0ede70…0ee004 Dummy {f00=0x0050, f01=0x0190, f02=»NE z $ P EXT NOPOOL NUMBER OF USED POOLS P EXT DERROR ERRORMESSAGE 2 $ P EXT UPDBOL UPDATE BOOLEAN/WORD R & P EXT DEPOOL BUFFERRESERVATIN-MODUL z . P EXT EMPTYT ASSEMBLY SUBROUTINE EMPTYT - P EJECT P* P* KEYTABLE P*
0x0ee004…0ee198 Dummy {f00=0x0050, f01=0x0190, f02=»TAL P* $ PDEKTAB6 KTAB CLR,CAN,RET,NOK,TOT P* > PDEKTAB7 KTAB CLR,CAN,RET H P* h P EJECT r P* P* MTEXT L P* - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND @ P* - EDIT TEXT PART
0x0ee198…0ee32c Dummy {f00=0x0050, f01=0x0190, f02=»INFO WHEN FOUND IN 'MATCH' n . P* - SIGNALS IN 'DEBINW2' AS FOLLOWS; " P* = 0 OK T . P* = 1 NO AVAILABLE BUFFERS;CANCEL l , P* = 2 NO AVAILABLE BUFFERS;RETUR > P* = 4 NO AVAILABLE BUFFERS/MAX LIMIT EXCEEDED;KTOT
0x0ee32c…0ee4c0 Dummy {f00=0x0050, f01=0x0190, f02=»BINW2,W0 P SWITCH P PERF MROUT MATCHROUTINE " P TBF BOOL3,MT20 F= NO NO FTAB @ P* f P* FTAB-FTEXT p P* P PERF FTAB GENERATE FTAB & P CBNE DEBINW2,W0,MT99 ERROR SIGNAL PMT20 P* P* FTEXT P
0x0ee4c0…0ee654 (1, 301) Dummy {f00=0x0050, f01=0x0190, f02=»BIN5,LDES,W0 COPY TEXT & P TBT DOOL8,MT35 JUMP IF NO DISPLAY " P DISPLAY 2,W3,W3 DISPLAY LDISP H PMT35 n * P TBT BOOL2,MT40 JUMP IF FIELD IS FOUND z $ P CBE EOLINE,W1,MT99 JUMP IF EOL P B MT10 GO ON MATCH PMT40 P ADD BIN10,W1 NE
0x0ee654…0ee7e8 Dummy {f00=0x0050, f01=0x0190, f02=»L6,MT50 JUMP IF BALANCE FORMAT . P* CHECK IF RECORD LENGTH IS EXCEEDED & & P MOVE BIN16,BIN13 LOAD LAST DISPL X * P ADD BIN16,BIN14 ADD LAST FIELD LENGTH , P MOVE BIN15,BIN7 LOAD ACTUAL FIELDLENGTH " P TBT ALPHA,MT45 JUMP IF ALPHA P A
0x0ee7e8…0ee97c Dummy {f00=0x0050, f01=0x0190, f02=»IN16 STORE USED RECORDSPACE ~ PMT50 $ $ P TBT DOOL8,MT55 JUMP IF NO ERASE 0 4 P DISPLAY 2,W4,W7 DISPLAY FIELDNR,-LENGTH,-START X PMT55 * P TBT BOOL6,MT58 JUMP IF BALANCE FORMAT . P CBG BIN10,=X'FF',MT90 FIELDNR MAX REACHED 2 P CBG BIN16,F
0x0ee97c…0eeb10 Dummy {f00=0x0050, f01=0x0190, f02=» f PMT60 $ P PERF FINIT FIELD INIT WORKITEMS P B MT99 OK < PMT80 N 2 P MOVE DEBINW4,W14 'MAX RECORD LENGTH EXCEEDED' Z P B MT95 PMT90 P MOVE DEBINW4,W16 PMT95 P PERF DERROR,DEKTAB6 * P CBE DEBINW2,W1,MT95 JUMP
0x0eeb10…0eeca4 Dummy {f00=0x0050, f01=0x0190, f02=»ATE TOT-KEY z PMT98 . P SUB DEBINW2,W1 ADJUST FOR CAN,RET,---,TOT PMT99 R P RET ^ P PEND j EJECT x MROUT PROC : P****************************************************** * * MATCHING ROUTINE *
0x0eeca4…0eee38 Dummy {f00=0x0050, f01=0x0190, f02=»N7 => 'MAXL' =FIELDLENGTH (FROM SUBROUTINE 'PICMA') | . )* MATCH = BOOL2 T= '#'-MATCHED < L P* BIN12 => FMELI <NUMB OF PICCHARS> (FROM SUBROUTINE 'PI n L P* STATSH => PICTURE STRING 'FMELI' (FROM SUBROUTINE 'PICM
0x0eee38…0eefcc Dummy {f00=0x0050, f01=0x0190, f02=»****** ` * & "* MATCH FOR ' ':S => (FTAB) * B , (* TAB = BIN8 => FTAB <TABPOS> L ( #* NUMB = BIN16 => NOT USED | . P* MATCH = BOOL3 T= ' '-MATCHED * : 6************************************
0x0eefcc…0ef160 Dummy {f00=0x0050, f01=0x0190, f02=»SED p F B* NUMB = BIN9 => FTEXT <NUMBER OF CHARS> <CH> <CH> ..... . ** MATCH = BOOL4 T= TEXT MATCHED V L P* BIN11 => STARTPOSITION OF 'FTEXT' IN ITEM 'LINE DESIGN : 6************************************************
0x0ef160…0ef2f4 (1, 302) Dummy {f00=0x0050, f01=0x0190, f02=»OVE STR1A,=C'<' CHARACTER TO BE SEARCHED & " CLEAR BOOL9 F=ORIGINAL MATCH MODE 0 . P PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 Z P TBT BOOL2,MR60 MATCH FOUND $ P CBNE EOLINE,W0,MR99 END-OF-LINE . * MOVE STR1A,=C' ' CHARACTER TO BE SEARCHED
0x0ef2f4…0ef488 Dummy {f00=0x0050, f01=0x018e, f02=»UND x PMR05 0 P MOVE STR2A,=C'< ' CHARACTERS TO BE SEARCHED SET BOOL9 T=INVERTED MATCH L . ) PERF LININV,STR2A,BOOL9,BIN16,BIN9,BOOL4 p P MOVE BIN8,BIN11 P ADD BIN8,W1 P SET BOOL3 $ P CBNE EOLINE,W0,MR99 END-OF-LINE
0x0ef488…0ef61c Dummy {f00=0x0050, f01=0x0190, f02=» . P MOVE STR1A,=C'<' CHARACTER TO BE SEARCHED & " CLEAR BOOL9 F=ORIGINAL MATCH MODE : . P PERF LININV,STR1A,BOOL9,BIN6,BIN16,BOOL2 d P TBT BOOL2,MR50 MATCH FOUND $ P CBNE EOLINE,W0,MR99 END-OF-LINE P B MR05 * TEXT MATCH FO
0x0ef61c…0ef7b0 Dummy {f00=0x0050, f01=0x0190, f02=»JUST ONE FTEXT r P* , P MOVE DEBIN4,BIN11 SAVE ST.POS FOT TEXT PMR35 P ( P MOVE DEBIN5,BIN5 SAVE LINE POSITION ( P MOVE STR1A,=' ' ' '=MATCH-CHARCTER & P CLEAR BOOL9 F=ORIGINAL MATCH MODE P CLEAR BOOL5 0 P PERF LININV,STR1A,B
0x0ef7b0…0ef944 Dummy {f00=0x0050, f01=0x018e, f02=»IF MORE THAN 4 SPACES x & P MOVE STR2A,='< ' MATCH CHARCTERS $ P SET BOOL9 T=INVERTED MATCH MODE H P CLEAR BOOL5 p 0 P PERF LININV,STR2A,BOOL9,DEBIN1,DEBIN2,BOOL5 * P TBF BOOL5,MR40 JUMP IF NO INV.-MATCH 2 P ADD BIN9,BIN16 ADJUST NUMB CHARS+
0x0ef944…0efad8 Dummy {f00=0x0050, f01=0x0190, f02=» 4 P MOVE BIN5,DEBIN5 RESTORE LINPOS WHEN NO SP+TEXT PMR45 @ . P MOVE BIN11,DEBIN4 RESTORE FTEXT STARTPOS L P B MR99 ~ PMR50 ( # CLEAR BOOL3 NO SP-MATCH INDICATION NEEDED PMR60 , P MOVE DEBIN5,BIN5 SAVE STARTPOIN PIC
0x0efad8…0efc6c Dummy {f00=0x0050, f01=0x0190, f02=»DESIGN INVESTIGATION PROCEDURE * & D ?* INPUT PARAMETERS : CHAR = CHARACTER(S) TO BE SEARCHED 0 < P* MOD = F ORIGINAL MATCHING x < 7* = T INVERTED MATCHING * < 7*
0x0efc6c…0efe00 Dummy {f00=0x0050, f01=0x0190, f02=» MATCH = F NO MATCH FOUND 6 P* = T MATCH FOUND , * f D ?*************************************************************** p ( PLININV PROC CHAR,MOD,TAB,NUMB,MATCH 6 P CBE BIN5,FMTWK(W5),LIN098 JUMP IF E
0x0efe00…0eff94 (1, 303) Dummy {f00=0x0051, f01=0x0190, f02=»00 ( P TBT MOD,LIN010 JUMP IF INVERTED MOD " MATCH LDES,BIN5,W1,CHAR,W0,W1 6 P BNOK LIN040 NO MATCH P B LIN020 NEXT MATCH z PLIN010 & P MOVE BIN15,W0 MATCHINGPOINTER:=0 & P MATCH CHAR,BIN15,W2,LDES,BIN5,W1 P BOK LIN050 MATC
0x0eff94…0f0128 Dummy {f00=0x0051, f01=0x0190, f02=» INVERTED MATCH FOUNF PLIN025 ADD BIN5,W1 NEXT POSITION , ADD TAB,W1 NEXT TABPOS N $ P ADD NUMB,W1 NUMBER OF MATCHES n 6 P CBE BIN5,FMTWK(W5),LIN098 JUMP IF ENDPOS REACHED P B LIN000 NEXT MATCH INV PLIN040 * & MOVE BIN5
0x0f0128…0f02bc Dummy {f00=0x0051, f01=0x018e, f02=» LIN098 P MOVE EOLINE,W1 END-OF-LINE ADD TAB,W1 NEXT TABPOS 6 PLIN099 V RET d PEND p P EJECT ~ P* , P* LINE INITIALIZATION OF WORKITEMS P* PLINIT PROC " P MOVE BIN5,W0 LINEPOSITION:=0 P
0x0f02bc…0f0450 Dummy {f00=0x0051, f01=0x0190, f02=» , P CLEAR DOOL1 F=NO FIELD CONFIRM CURRLINE $ P PERF FINIT FIELD INIT WORKITEMS 4 P RET P PEND h P EJECT v P* . P* FIELD INITIALIZATION OF WORKITEMS P* PFINIT PROC . P MOVE FMTWK(W1),W0 NUMB OF VALID. CHARS:=0
0x0f0450…0f05e4 Dummy {f00=0x0051, f01=0x0190, f02=»OF DUPL. CHARS:=0 x . P MOVE FMTWK(W10),W0 NUMB OF CHARS STRG1:=0 . P MOVE FMTWK(W11),W0 NUMB OF CHARS STRG2:=0 L 0 P MOVE FMTWK(W12),W0 NUMB OF CHARS STRG1+2:=0 ~ P RET P PEND P EJECT P* 0 P* PICTURE STRING MATCH AND CON
0x0f05e4…0f0778 Dummy {f00=0x0051, f01=0x0190, f02=»STPOS LDES Z $ P* 1 R FLENGTH PLENGTH F P* 2 A FLENGTH PLENGTH WORK : BIN16= MATCHININDEX : D P* 3 P FLENGTH PLENGTH BIN15= SAVED DITO $ P* 4 T FLENGTH PLENGTH $ P* 5 X FLE
0x0f0778…0f090c Dummy {f00=0x0051, f01=0x0190, f02=» BIN7 = FIELDLENGTH=MAXL l L P* 8 + PLENGTH BIN12= LENGTH OF PIC.-STR * H P* 9 S - PLENGTH STATSH=PICTURE-STRING z $ P* 10 , PLENGTH $ P* 11 . V P
0x0f090c…0f0aa0 Dummy {f00=0x0051, f01=0x0190, f02=» MATCH E PLENGTH+1 P* $ L P************************************************************************ . PPICMA PROC ~ , P MOVE STATSH,=' ' SPACES PICTURE-STRING * P MOVE BIN12,W0 NUMB OF LAYOUT CHARS:=0 " P MOVE DEBINW1,W0 SET NCLR-
0x0f0aa0…0f0c34 (1, 304) Dummy {f00=0x0051, f01=0x0190, f02=»,DEBINW1 INITIATE FIELDCONTROLBITS DEF P MOVE BIN7,W0 FIELDLENGTH:=0 . P MOVE BIN16,W0 R ( P MATCH PICSTR,BIN16,W15,LDES,BIN5,W1 h P BNOK PICNE INSERT $ P CBE BIN16,W0,PICA0 JUMP IF = 0 , P IB BIN16,PICA1,PICN2,PICN3,PICN3, 1-4 C * P
0x0f0c34…0f0dc8 Dummy {f00=0x0051, f01=0x0190, f02=»PICA1 ALPHANUMERIC RIGHT P SET REWRT INDICATE REWRITE " $ P SET SCHK2 RIGHT ADJUST ALPHANUM F PPICA0 ALPHANUMERIC LEFT n ( P SET ALPHA INICATE ALPANUMERIC FIELD PPICA $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 P ADD BIN12,W1 NEXT PICCH
0x0f0dc8…0f0f5c Dummy {f00=0x0051, f01=0x0190, f02=»CH PICSTR,BIN16,W15,LDES,BIN5,W1 ( P CBE BIN16,W12,PIC99 '>' FOUND READY ( P B PICA T P* NUMERIC FIELDS d PPICN3 P SET REWRT PPICN2 $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 & P ADD BIN7,W1 ADD 1 TO FIELD LENGTH P B PIC
0x0f0f5c…0f10f0 Dummy {f00=0x0051, f01=0x0190, f02=» P SET SCHK1 INDICATE SIGN ! P SET REWRT INDICATE REWRITE ! $ P B PICNM NEXT MATCH ! H PPICN11 ! d P SET REWRT ! r $ P XCOPY STATSH,BIN12,W1,PICCON,W1 ! P B PICNM NEXT MATCH ! PPICN14 ! $ P XCOPY STATSH,BIN12,W1,PICCON,W3 ! & P SET SCHK2
0x0f10f0…0f1284 Dummy {f00=0x0051, f01=0x0190, f02=»PICNE ! $ P XCOPY STATSH,BIN12,W1,PICCON,W2 " P ADD BIN12,W1 NEXT CHARACTER " 6 PPICN10 " Z P SET REWRT INDICATE REWRITE " h $ P XCOPY STATSH,BIN12,W1,LDES,BIN5 " PPICNM " P ADD BIN12,W1 NEXT PICCHARS " $ P ADD BIN5,W1 NEXT LDES POSITION "
0x0f1284…0f1418 Dummy {f00=0x0051, f01=0x0190, f02=»CNE 0=L =>EL " , P IB BIN16,PICNE,PICN2,PICN3,PICN3, 1-4 C # * P PICN3,PICN3,PICN3,PICN8,PICN9, 5-9 C # D , P PICN10,PICN11,PIC99,PICNE,PICN14 10-14 # r PPIC99 # P ADD BIN5,W1 # P RET # P PEND # P EJECT # P* # . P* FORMAT FIE
0x0f1418…0f15ac Dummy {f00=0x0051, f01=0x0190, f02=»* INPUT VARIABLES: DEBIN5 = SAVED RESTARTPOINT OF PICTURESTRING # P* $ N P* $ X P* OUTPUT VARIABLES: $ b 4 P* DEBINW2 = 0 OK GO ON $ F P* = 1 NO AVAILABLE BUFFERS;CANCEL $ F P*
0x0f15ac…0f1740 Dummy {f00=0x0051, f01=0x0190, f02=» $ P P* % L P*********************************************************************** % P* % b PFDIR PROC % l P* % ~ ( P* FORMAT DIREKTIV GENERATION % P* % * P MOVE DEBINW2,W0 ZEROISE OUTPUT PARAM % $ P TBF BOOL2,FDIR99 NO FIELD F
0x0f1740…0f18d4 (1, 305) Dummy {f00=0x0051, f01=0x0190, f02=»ERROR SIGNALS % x , P TBT BOOL6,FDIR10 JUMP IF BALANCE FORMAT & " P PERF DESC GENERATE DESCRIPTOR & F * P CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS & l $ P TBT ALPHA,FDIR34 JUMP IF ALPHA & PFDIR10 & , P MOVE BIN5,DEBIN5 RESTORE PIC.STARTPOINT & P PERF PI
0x0f18d4…0f1a68 Dummy {f00=0x0051, f01=0x0190, f02=»SP,W0,BIN5,LDES,W0 COPY TEXT & ( P TBT DOOL8,FDIR73 JUMP IF NO DISPLAY ' $ " P DISPLAY 2,W3,W3 DISPLAY LDISP ' P P EJECT ' v P* ' " P* FVAL (+) FGEN (+) FACC ' P* ' PFDIR73 ' & P SET BOOL1 T=FIRTS FIELD CONFIRMED ' ( P SET DOOL1 T=FIELD
0x0f1a68…0f1bfc Dummy {f00=0x0051, f01=0x0190, f02=» & P MOVE DEBIN4,W0 STARTPOS IN JOBSPC ( , P MOVE DEBIN5,W0 NUMB OF DELETED CHARS:=0 ( . PFDIR75 ( ^ P MOVE STRG10A,='#V:#G:#A:' ( l ( P MOVE FBIN1,W0 FUNCINDEX POINTER:=0 ( , P MATCH STRG10A,FBIN1,W9,JOBSPC,DEBIN4,W3 ( " P BNOK FDIR85 NO MORE FUNCTIONS
0x0f1bfc…0f1d90 Dummy {f00=0x0051, f01=0x0190, f02=»H ( . P PERFI FBIN1,FVAL,FGEN,FACC FVAL,FGEN,FACC ) * P CBNE DEBINW2,W0,FDIR99 ERROR SIGNALS ) < 2 P MOVE DEBIN1,DEBIN4 STARTPOS'JOBSPC' NEXT FUNC ) j " P B FDIR75 GO ON NEXT FUNCTION ) PFDIR85 ) ( P CALL EMPTYT,DUPL LOOK IF DUPL EMPTY ) P BNOK FD
0x0f1d90…0f1f24 Dummy {f00=0x0051, f01=0x0190, f02=»D CHARS:=0 ) r P PERF FDUPL * PFDIR90 * & P TBF DOOL8,FDIR99 * 4 " P ERASE 11,W4,W0 CLEAR IN CORE * N PFDIR99 * t P RET * P PEND * P EJECT * P* * $ P* DESCRIPTOR-TABLE STORING * P* * & P* EACH FIELD TAKES TW0 WORDS
0x0f1f24…0f20b8 Dummy {f00=0x0051, f01=0x0190, f02=»LE * f P* -LENGTH BITS 4-15 + P* (BYTE 1) + . D P* BITS 0-15= - NUMBER OF MATCHED #:S WHEN STRG + R J P* (BYTE 2) - (NUMBER OF MATCHED #:S + 1)/2 WHEN BCD + P* + P* WORD2 + B P
0x0f20b8…0f224c Dummy {f00=0x0051, f01=0x0190, f02=»******************************************************************** + PDESC PROC , L P MOVE BIN16,W0 WORKITEM:=0 , ^ , P MOVE BIN15,BIN7 LOAD NUMBER OF '#'-POS , $ P TBT ALPHA,DESC10 JUMP IF ALPHA , P* , P* NUMERIC FIELD , P* , &
0x0f224c…0f23e0 Dummy {f00=0x0051, f01=0x0190, f02=»OAD TYPE AND LENGTH , ~ : P XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE TYPE/LENGTH - P ADD BIN2,W2 NEXT POS - Z ( P MOVE BIN16,BIN13 RESTORE LAST DISPL - x ( P ADD BIN16,BIN14 ADJUST DISPLACEMENT - < P XCOPY BPOOL(BIN4),BIN2,W2,BIN16,W0 STORE DISPLACEMENTS
0x0f23e0…0f2574 (1, 306) Dummy {f00=0x0051, f01=0x0190, f02=»,DESC99 JUMP IF NOT END OF BUFFER - PDESC20 . * , P MOVE BIN16,W1 NUMBER OF WANTED BUFFERS . 8 < P PERF DEPOOL,W3,BIN16,BIN4,STRG10A CHAIN ANOTHER BUFFER . h P BNOK DESC30 . P MOVE DEBINW2,W0 . , P MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER . , P ADD
0x0f2574…0f2708 Dummy {f00=0x0051, f01=0x4100, f02=»E BPOOL(BIN4),HEX00 . " P MOVE BIN2,W0 BUFFER PONTER:=0 / P B DESC99 / B PDESC30 / T P PERF DERROR,DEKTAB7 / b P CBE DEBINW2,W1,DESC20 / ~ ( P SUB DEBINW2,W1 ADJUST FOR CANC RET / PDESC99 / P RET / P PEND / END / @ / , P ADD
0x0f2708…0f289c Dummy {f00=0x0051, f01=0x2008, f02=» 0 END , @ , NOK DESC30 + , P MOVE BIN4,BIN16 LOAD NEW BUFFERPOINTER + * P MOVE DEBINW2,W0 + Z , P ADD PINACC,W1 NUMBER OF DESC-BUFFERS+1 + r P MOVE BPOOL(BIN4),HEX00 + " P MOVE BIN2,W0 BUFFER PONTER:=0 + P B DESC99 + PDESC30 + P
0x0f289c…0f2a30 Dummy {f00=0x0051, f01=0x018e, f02=» & ! CBE BIN12,W3,OPE550 RECORD-LEVEL !!IL 373 . OPE550 > 2 P!!RE 383,$$W3$$W4 RETURN TO DROK00 IN DERECS$$ L !!IL 410 , ( CBE BIN11,W5,OPE683 SEARCH RECORD-LEVEL !!IL 415 P B OPE684 OPE683 $ P MOVE FORMAT,HEX00 SEA
0x0f2a30…0f2bc4 Dummy {f00=0x0051, f01=0x0026, f02=» TRA /S,NL ASG /E0,TY10 !!IL 373 . OPE550 > 2 P!!RE 383,$$W3$$W4 RETURN TO DROK00 IN DERECS$$ L !!IL 410 , ( CBE BIN11,W5,OPE683 SEARCH RECORD-LEVEL !!IL 415 P B OPE684 OPE683 $ P MOVE FORMAT,HEX00 SEA
0x0f2bc4…0f2d58 Dummy {f00=0x0051, f01=0x2008, f02=» /S,NL ASG /E0,TY10 !!IL 373 . OPE550 > 2 P!!RE 383,$$W3$$W4 RETURN TO DROK00 IN DERECS$$ L !!IL 410 , ( CBE BIN11,W5,OPE683 SEARCH RECORD-LEVEL !!IL 415 P B OPE684 OPE683 $ P MOVE FORMAT,HEX00 SEA
0x0f2d58…0f2eec Dummy {f00=0x0051, f01=0x2008, f02=» ,
0x0f2eec…0f3080 Dummy {f00=0x0051, f01=0x018e, f02=» IDENT P:S024 * & ! 4 "j ! ! !j o " * & - Hi 0? 4 ! " ! (0? 5 P * & K W 4 < & ( #j ! ! ~ * & i !j 4 < & ( * & $j ! ! !4 < & ! c # * &
0x0f3080…0f3214 (1, 307) Opaque[0x194]
0x0f3214…0f33a8 # DirEnt {nam=»DATUM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a40, f03=0x0000}
0x0f3214…0f33a8 IdxSect {
0x0f3214…0f33a8 f00 = 0x0052 // 0xf3214 @0x0
0x0f3214…0f33a8 f01 = 0x0004 // 0xf3216 @0x2
0x0f3214…0f33a8 gno = [ // 0xf3218 @0x4
0x0f3214…0f33a8 [0x00]: C0x0052.0x0.0
0x0f3214…0f33a8 [0x01]: C0x0052.0x1.0
0x0f3214…0f33a8 ]
0x0f3214…0f33a8 }
0x0f33a8…0f353c Dummy {f00=0x0052, f01=0x0190, f02=» " IDENT DATCHK 79-03-16/PEEN * * * 4 2 -* THIS ROUTINE CHECKS THE DATE PLAUSIBILITY > 2 .* EUROPEAN (AA-MM-DD) OR AMERICAN (MM-DD-AA) t < 8* STANDARD. 'DD' IS CHECKED ACCORDING TO CORRESPONDING * MONTH. FEBRUARI NOT > 29
0x0f353c…0f36d0 Dummy {f00=0x0052, f01=0x0190, f02=» SKIP = BIN ITEM TELLING HOW MANY DIGITS COUNTED @ ;* FROM THE RIGHT TO BE SKIPPED BEFORE THE : * &* CHECK IS PERFORMED ~ B >* BUFF = STRING ITEM HOLDING THE DATA TO BE CHECKED * ( #*
0x0f36d0…0f3864 Dummy {f00=0x0052, f01=0x0190, f02=» EXTRN I:EVA0 EXTRN I:RT1 * * * 4 CALL FORM 16=/F6A1,16 > BYTE FORM 8,8 * r * | DATCHK EQU * LDK A6,2 SET SWITCH " CALL I:EVA0 NO. TO BE SKIPPED LDR* A7,A9 CALL I:EVA0 BUFFER ADDR
0x0f3864…0f39f8 Dummy {f00=0x0052, f01=0x0190, f02=» CALL GETDIG " * MULTIPLY DIGIT BY 10 AND ADD ADR A7,A1 > ADR A7,A1 P SLL A1,3 TIMES 8 b ADR A7,A1 | RF(Z) NOK SUK A6,1 0 + RF(Z) DAT200 JUMP IF DD AND MM ARE FETCHED LDR A8,A7 SAVE DAY LDK A
0x0f39f8…0f3b8c Dummy {f00=0x0052, f01=0x0190, f02=»AB,A7 GET BYTE FOR COMPARISON SUR A1,A8 & RF(NL) OUT IF OK 8 NOK EQU * R LDK A6,1 INDICATE CR = 1 d OUT EQU * LD A1,2,A13 GET STACK BASE SC A6,-2,A1 STORE CR ABL I:RT1 EJECT GETDIG EQU *
0x0f3b8c…0f3d20 Dummy {f00=0x0052, f01=0x414a, f02=»B(L) GETDIG CCK A1,'99' RB(G) GETDIG ( ANK A1,/F > RTN A14 P * ` * j TAB EQU *+12 t BYTE 31,29 JAN,FEB BYTE 31,30 MAR,APR BYTE 31,30 MAY,JUN BYTE 31,31 JUL,AUG BYTE 30,31 SEP,
0x0f3d20…0f3eb4 (1, 308) Dummy {f00=0x0052, f01=0x2008, f02=»
0x0f3eb4…0f4048 Dummy {f00=0x0052, f01=0x002a, f02=» H P p x ( h 8 p x @ H X
0x0f4048…0f41dc Dummy {f00=0x0052, f01=0x0190, f02=»I0 } CRs . D V f D Y D J D _ D b & D g D l D p D t D w D | f D D D D h D R D D 4 D D 8 D F : 6 P
0x0f41dc…0f4370 Dummy {f00=0x0052, f01=0x0190, f02=»T1 * * .
0x0f4370…0f4504 Dummy {f00=0x0052, f01=0x0190, f02=» . P P ` 0 P @ @ N f .
0x0f4504…0f4698 Dummy {f00=0x0052, f01=0x0190, f02=»
[…0x2…]
0x0f49c0…0f4b54 (1, 309) Opaque[0x194]
0x0f4b54…0f4ce8 # DirEnt {nam=»DE1201«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a50, f03=0x0000}
0x0f4b54…0f4ce8 IdxSect {
0x0f4b54…0f4ce8 f00 = 0x0052 // 0xf4b54 @0x0
0x0f4b54…0f4ce8 f01 = 0x0008 // 0xf4b56 @0x2
0x0f4b54…0f4ce8 gno = [ // 0xf4b58 @0x4
0x0f4b54…0f4ce8 [0x00]: C0x0052.0x2.0
0x0f4b54…0f4ce8 [0x01]: C0x0052.0x3.0
0x0f4b54…0f4ce8 [0x02]: C0x0053.0x0.0
0x0f4b54…0f4ce8 [0x03]: C0x0053.0x1.0
0x0f4b54…0f4ce8 ]
0x0f4b54…0f4ce8 }
0x0f4ce8…0f4e7c Dummy {f00=0x0052, f01=0x0190, f02=» $ P IDENT DE1201 REL 10.0 80-04-11 P 80-02-13/DALI , 2 P********************************************* D 2 P* BOOL1 : T=GET V-S F=CREATE V-S * z 2 P* BOOL2 : T=LINE 1-2 F=LINE 1-3 * 2 P* BOOL3 : T=LINE 1-5 F=LINE
0x0f4e7c…0f5010 Dummy {f00=0x0052, f01=0x0190, f02=»ELEM.IN THIS RECORD * * P* BIN3 SIZE OF ELEMENT * * P* BIN4 FIRST EL.NO. IN RECORD * L * P* BIN5 LAST - " - * z * P* BIN6 ELMNO - BIN4 + W1 * * P* BIN7 = 0 * * P* B
0x0f5010…0f51a4 Dummy {f00=0x0052, f01=0x0190, f02=»DUM DEDDIV P PDIV P ENTRY ENT12 P* 4 P EXT FMOVE > P EXT DERR P P EXT CANC11 b P EXT CANC12 v P EXT ATTWB P EXT ATTDB P EXT DECLRN P EXT DEPOOL P EXT DERROR P EXT DEDISC P EXT TESTB
0x0f51a4…0f5338 Dummy {f00=0x0052, f01=0x0190, f02=»LR,CAN,RET P* PDEKTAB9 KTAB CLR,CAN,RET,ENT P* @ P EJECT J PENT12 X P TBF BOOL1,E1 IF CREATE f P B GET PE1 P MOVE ELMNO,W1 & P********************************* & P* MODUL 12 - CREATE VALUE-SET * & P
0x0f5338…0f54cc Dummy {f00=0x0052, f01=0x0190, f02=»LEASE BUFFER j & P MOVE DEBINW4,W8 'ALREADY DEFINED' PE2 > P MOVE DEBINW1,W0 H P PERF DERROR,DEKTAB6 ` P SUB DEBINW2,W1 | < P CALL RESTOR,W3,W4,PWBDB4 RESTORE ORIG. DESCR.-POINTERS P B A20 PE8 " P CBE DEBINW4,W9,E10 NOT FOUN
0x0f54cc…0f5660 Dummy {f00=0x0052, f01=0x0190, f02=»A,=X'545400' T(ABLE) 2 P COPY STRG10A,W2,W2,DEINPUT,W0 VALUE-SET-NAME < P PERF DEPOOL,W2,PINDTB,BIN7,STRG10A GET BUFFER WITH LOCK R P BNOK ERR99 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER P MOVE BPOOL(PINDTB),HEX00 P CLEAR BOO
0x0f5660…0f57f4 (1, 310) Dummy {f00=0x0052, f01=0x0190, f02=»NW2,CANC12,CANC12,E20 P MOVE DEBINW4,W0 'BELL' P PERF DERR > P B E16 P PE20 ^ & P MOVE BIN4,W1 1:ST EL.NO. IN REC. j P MOVE BIN2,=W'180' P MOVE STR1A,STR2A P CBE STR1A,=C'N',E24 & P DIV BIN2,BIN3 NO.OF ELEM. IN REC.
0x0f57f4…0f5988 Dummy {f00=0x0052, f01=0x0190, f02=»OVE BIN10,=X'B000' IF BCD ='1011' " P MOVE BIN1,BIN3 NUMERIC INPUT , P DIV BIN1,W2 R P ADD BIN1,W1 BYTES f P ADD BIN10,BIN1 ( P DIV BIN2,BIN1 NO. OF ELEM. IN REC. PE30 ( P MOVE BIN5,BIN2 LAST EL.NO. IN REC. 6 P XCOPY BPOOL
0x0f5988…0f5b1c Dummy {f00=0x0052, f01=0x0190, f02=»ODIFY FORMAT P CALL FMOVE,STR64A,FORMA P CALL TESTB,BIN10,W2 4 P BZ E32 P P CALL FMOVE,STR64A,FORMN ` PE32 $ P XCOPY STR64A,W3,W1,BIN3,W1 SIZE P MOVE ELMNO,W1 P MOVE BIN6,W1 INDEX P B E36 P* ENTER ELEMENT
0x0f5b1c…0f5cb0 Dummy {f00=0x0052, f01=0x0190, f02=»IT12 RECORD FILLED P BNOK ERR99 PE37 . $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 : $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 b P MOVE ACK(W1),ELMNO P MOVE BIN6,ELMNO INDEX P SUB BIN6,BIN4 P ADD BIN6,W1 P DISPLAY 3,W4,W4 FIELD 4
0x0f5cb0…0f5e44 Dummy {f00=0x0052, f01=0x0190, f02=» PERF DECLRN PE45 6 P IB DEBINW2,CANC12,CANC12,E35,E56,E56,E56,E56,E60 PE56 Z P MOVE DEBINW4,W0 'BELL' f P PERF DERR P IB DEBINW2,E42,CANC12 P B E45 PE60 , P CBE ELMNO,BIN4,E70 =1:ST EL.NO. IN REC. " P PERF WR
0x0f5e44…0f5fd8 Dummy {f00=0x0052, f01=0x018e, f02=»********************* $ P* MODUL 13 - GET VALUE-SETS * $ P******************************* F PGET n P SET BOOL2 z P MOVE ELMNO,W1 $ P PERF READ12,W24 GET VALUE-SETS P BERR ERR99 P SET DEPROMPT P B B40 PFORW
0x0f5fd8…0f616c Dummy {f00=0x0052, f01=0x0190, f02=» P SUB ELMNO,W1 P CBL ELMNO,W1,B10 . P CBL ELMNO,BIN4,B20 < 1:ST EL.NO. IN REC. 8 P B B50 j PB10 x $ P MOVE ELMNO,W1 BACKW NOT LESS 1 P B B50 PB20 " P PERF READ12,W24 GET VALUE-SET P BOK B40 $ P CBE DEBINW4
0x0f616c…0f6300 Dummy {f00=0x0052, f01=0x0190, f02=»0 P CLEAR BOOL2 LINE 1-3 P SET BOOL3 LINE 1-5 ( P MOVE BIN6,ELMNO INDEX D P SUB BIN6,BIN4 b P ADD BIN6,W1 x P MOVE ACK(W1),ELMNO P ERASE 0,W5,W5 LINE 5 P TBT DEPROMPT,B55 P DISPLAY 3,W4,W5 PB55 P SET
0x0f6300…0f6494 (1, 311) Dummy {f00=0x0053, f01=0x0190, f02=» P MOVE DEBINW4,W0 'BELL' P B B84 $ PB80 2 P MOVE DEBINW4,W9 'NOT FOUND' > P SUB ELMNO,W1 b P SET DENOCHAN x PB84 P PERF DERR P B B60 P* P* INSERT NEW ELEMENT PINS P AFTER LAST ELEMEN
0x0f6494…0f6628 Dummy {f00=0x0053, f01=0x0190, f02=» l P ADD ELMNO,W1 P B I10 PI20 , P SUB ELMNO,W1 8 " P PERF READ12,W24 GET VALUE-SET N P MOVE BIN1,BIN4 t P ADD BIN1,BIN2 P SUB BIN1,W1 P CBE ELMNO,BIN1,I30 P MOVE BIN5,BIN1 4 P PERF DEPOOL,W8,PINDTB,BIN7,ST
0x0f6628…0f67bc Dummy {f00=0x0053, f01=0x0190, f02=» BIN4,W1 P ADD BIN5,BIN2 P MOVE BIN1,PINDTB & 6 P PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER @ P MOVE PINDTB,W1 1 BUFFER z ( P MOVE BIN7,W0 NO CONSECUTIVE BUFFERS " P MOVE STRG10A,=X'5400' T(ABLE) P COPY STRG10A,W1,W3,TABLE,W0
0x0f67bc…0f6950 Dummy {f00=0x0053, f01=0x0190, f02=»R99 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER $ P MOVE BPOOL(PINDTB),BPOOL(BIN1) B $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 j P B E35 PERR13 $ P MOVE DEBINW4,W13 'NO WORKSPACE' PERR99 P MOVE DEBINW1,W0 P PERF DERROR
0x0f6950…0f6ae4 Dummy {f00=0x0053, f01=0x018e, f02=»ORRECTION x P* P* DELETION P* 0 2 P PERF DEPOOL,W4,PINDTB,BIN7,STRG10A SET BUFFER : PC40 p . P MOVE DEBINW4,W17 'PRESS ENT FOR DELETION' | P PERF DERROR,DEKTAB9 P SUB DEBINW2,W1 ADJUST * P IB DEBINW2,B50,ERA20,C50 CAN,RE
0x0f6ae4…0f6c78 Dummy {f00=0x0053, f01=0x018e, f02=» P BNOK C75 6 P PERF DEPOOL,W6,PINDTB,BIN7,STRG10A RELEASE BUFFER 6 P PERF DEPOOL,W5,PINDTB,BIN7,STRG10A SEARCH BUFFER P P BOK C55 P MOVE BIN8,=W'25' & P PERF DEDISC,BIN8 DELETE VALUE0SET P BOK CANC12 CANC-KEY PC75 & P S
0x0f6c78…0f6e0c Dummy {f00=0x0053, f01=0x0190, f02=» P* CORR. VALUE-SET * P********************* " 4 P PERF DEPOOL,W8,PINDTB,BIN7,STRG10A LOCK BUFFER @ P BNOK C75 x P PERF DECLRN PC711 " P IB DEBINW2,CANC12,CANC12,C72 P MOVE DEBINW4,W0 P PERF DERR P B C711
0x0f6e0c…0f6fa0 Dummy {f00=0x0053, f01=0x0190, f02=»RB,RPOOL(PINDTB),W0 UNLOCK BUFFER P B B50 * P EJECT 8 PREAD12 PROC FC F P MOVE DEINPUT,STR64A P PERF DEDISC,FC x P MOVE STR64A,DEINPUT P BERR R10 P MOVE BIN3,W0 @ P XCOPY BIN3,W1,W1,BPOOL(PINDTB),W1 SIZE OF ELEMENT I
0x0f6fa0…0f7134 (1, 312) Dummy {f00=0x0053, f01=0x018e, f02=» | P CALL TESTB,BIN10,W2 P BZ R05 $ P MOVE STR2A,=X'4E00' C'N' 4 P CALL FMOVE,STR64A,FORMN V P MUL BIN3,W2 v P SUB BIN3,W1 PR05 $ P XCOPY STR64A,W3,W1,BIN3,W1 SIZE P MOVE TIME,BIN3 > P XCOPY BIN2,W0,W2,BPOOL(PINDTB
0x0f7134…0f72c8 Dummy {f00=0x0053, f01=0x0190, f02=» X : P XCOPY BIN5,W1,W1,RPOOL(PINDTB),W18 LAST ELEM. IN REC. P CMP W1,W1 SET S=0 F PR10 ` P RET l P PEND x P EJECT P* PFORMN FRMT * P FKI 1,NUM,MINL=1,MAXL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6
0x0f72c8…0f745c Dummy {f00=0x0053, f01=0x40c4, f02=»L=1,NEOI,ME x P* FCOPY FDVBCD(BIN6) 6 P FCTL X'F0',1,X'C1',X'01',X'00',X'C0',FDVBCD(BIN6) 0 P FNL j P FKI 1,MINL=0,MAXL=0 v P FCOPY HEX00 P FMEND END @ XL=1,REWRT,SCHK=1 0 P FMEL 'XXXXXXXXXXXXXXXXXXXXX-',FDVBCD(BIN6
0x0f745c…0f75f0 Dummy {f00=0x0053, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0f75f0…0f7784 Dummy {f00=0x0053, f01=0x0190, f02=»99999999999999999999 ~ * & 99999999999999999+ 1 * & ) 73 @ U 72 > 5 ? J * & G 71 > 6 = l 1 x * & e # ! 8 : !A k * & : 8 : "A l # ! * &
0x0f7784…0f7918 Dummy {f00=0x0053, f01=0x4174, f02=» FETCHING FORMAT: FROM DI * & SC. @ UF * * & 7 X * & U $ + 4 > I0 V0 W * & s * & ( 7 F U e
0x0f7918…0f7aac Dummy {f00=0x0053, f01=0x4014, f02=» HNOD @ | 0@ B
0x0f7aac…0f7c40 Dummy {f00=0x0053, f01=0x0190, f02=» IDENT P:S016 F : > B " * & !11 P Q 0U80 88 R*j @ * & - !! oU 20 !jo! 3j n * & K o " 11 W % 1 "11 H 03W 11 * & i !04 ! 6 W"0 0 * & $(
0x0f7c40…0f7dd4 (1, 313) Opaque[0x194]
0x0f7dd4…0f7f68 # DirEnt {nam=»DEATTF«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a70, f03=0x0000}
0x0f7dd4…0f7f68 IdxSect {
0x0f7dd4…0f7f68 f00 = 0x0053 // 0xf7dd4 @0x0
0x0f7dd4…0f7f68 f01 = 0x0006 // 0xf7dd6 @0x2
0x0f7dd4…0f7f68 gno = [ // 0xf7dd8 @0x4
0x0f7dd4…0f7f68 [0x00]: C0x0053.0x2.0
0x0f7dd4…0f7f68 [0x01]: C0x0053.0x3.0
0x0f7dd4…0f7f68 [0x02]: C0x0054.0x0.0
0x0f7dd4…0f7f68 ]
0x0f7dd4…0f7f68 }
0x0f7f68…0f80fc Dummy {f00=0x0053, f01=0x0190, f02=» $ P IDENT DEATTF REL 10.0 80-04-11 P 80-04-14/JAER , P* D B P* THIS ROUTINE ATTACHES ACTUAL FORMAT DEFINITION FORMAT N P* P DDUM DEDDIV P PDIV P ENTRY DEATTF P EJECT PDEATTF PROC , P TBT BOOL6,ATT10
0x0f80fc…0f8290 Dummy {f00=0x0053, f01=0x0190, f02=»ORMAT DEF r PATT99 P RET P PEND , EJECT : F21FD FRMT H FSL Z FTEXT '21 USER ' f FCOPY ='FORMAT' FILLR ' ',1 FCOPY ='DEFINITION' $ P FBF BOOL7,F21A JUMP IF NEW-REG. P FTAB 35 P FHIGH
0x0f8290…0f8424 Dummy {f00=0x0053, f01=0x0190, f02=» ='FIELD' FTEXT =': F' FINP 9 ( P FMEL 'XXX',FDVBCD(W4) 8 P FTAB 15 V P FCOPY ='START:' f P FINP 22 ~ P FMEL 'ZZ',FDVBCD(W5) P FTAB 30 FCOPY ='LENGTH' P FILLR ':',1 P FINP 38 P FMEL 'ZZ',FDVBC
0x0f8424…0f85b8 Dummy {f00=0x0053, f01=0x0190, f02=» P FMEL 'TTTT',FDVBCD(W8) FNL $ P FNL 0 P FTAB 10 < P FTEXT 'KEYED INPUT ' L P FILLR '(',1 j P FUL ~ P FILLR 'Y',1 P FNUL P FTEXT '/N/C):' , P FKI 32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB P FCOPY FDVSTR(W1)
0x0f85b8…0f874c Dummy {f00=0x0053, f01=0x0190, f02=»T,NEOI,CTAB t P FMEL 'XX',FDVBCD(W7) P FNL 2 P FTAB 10 > P FTEXT 'MUST ENTER ' N P FTEXT '(Y/' l P FUL P FILLR 'N',1 P FNUL P FTEXT '/C):' , P FKI 32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W2)
0x0f874c…0f88e0 Dummy {f00=0x0053, f01=0x0190, f02=» '):' , P FKI 64,APPL=115,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W3) > FNL X P FTAB 10 d P FTEXT 'DUPLICATE ' t P FTAB 29 P FILLR ':',1 2 P FKI 32,APPL=106,ALPHA,MAXL=6,MINL=1,NEOI,CTAB FCOPY DUPL P FTAB 46
0x0f88e0…0f8a74 (1, 314) Dummy {f00=0x0053, f01=0x0190, f02=»LR ':',1 , P FKI 64,APPL=116,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVSTR(W4) @ FNL Z P FTAB 10 f P FTEXT 'INITIAL CLEAR ' v P FILLR '(',1 P FUL P FILLR 'Y',1 P FNUL P FTEXT '/N):' , P FKI 32,APPL=117,MAXL=1,AL
0x0f8a74…0f8c08 Dummy {f00=0x0053, f01=0x0190, f02=»B j P FMEL 'ZZVZZZ',SPEC FNL & P FNL 2 P FCOPY ='VALIDATION ' > P FCOPY ='(#V:...)' P FTAB 25 v P FCOPY ='GENERATION ' P FCOPY ='(#G:...)' P FTAB 50 P FCOPY ='ACCUMULATION ' P FCOPY ='(#A:...)' P
0x0f8c08…0f8d9c Dummy {f00=0x0053, f01=0x0190, f02=»XL=80,ALPHA,NEOI,CTAB ~ * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 FNL L P FKI 1,CTAB X P FCOPY HEX00 l FMEND P EJECT PF22FD FRMT P FSL P FTEXT '22 BALANCE ' FCOPY ='FORMAT' FILLR ' ',1 FCOPY
0x0f8d9c…0f8f30 Dummy {f00=0x0053, f01=0x018e, f02=» P FNL FNL P FLINK F20COM FNL 6 P FNL B P FTAB 10 N P FCOPY ='START' ^ P FTAB 27 v P FILLR ':',1 P FINP 30 P FMEL 'ZZ',FDVBCD(W5) P FTAB 46 FCOPY ='LENGTH' P FTAB 62 P FILLR '
0x0f8f30…0f90c4 Dummy {f00=0x0053, f01=0x0190, f02=» v , P FKI 30,APPL=109,MAXL=2,REWRT,NEOI,CTAB P FMEL 'XX',FDVBCD(W8) 8 P FTAB 46 V FTEXT 'SPECIAL HANDLING:' f , P FKI 64,APPL=107,MAXL=5,REWRT,NEOI,CTAB P FMEL 'ZZVZZZ',SPEC FNL P FNL P FCOPY ='VALIDATION '
0x0f90c4…0f9258 Dummy {f00=0x0053, f01=0x0190, f02=»ALPHA,NEOI,CTAB x * P FCOPY FORTAB(W1) VAL-GEN-ACC-STRING1 P FNL F , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB R * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 FNL P FKI 1,CTAB P FCOPY HEX00 FMEND P EJECT PF20COM F
0x0f9258…0f93ec Dummy {f00=0x0053, f01=0x018e, f02=» FTAB 16 FCOPY ='PAGE' FTEXT ' SIZE:' * 4 P FKI 27,APPL=102,NEOI,MINL=1,MAXL=2,ME,NCLR,CTAB B P FMEL 'AA',FDVBCD(W1) z FTAB 30 P FCOPY ='LINE ' FCOPY ='NUMBER' FILLR ':',1 FINP 43 P FMEL 'Z9',F
0x0f93ec…0f9580 Dummy {f00=0x0053, f01=0x018e, f02=» FNL FTAB 10 FILLR '1',1 FTAB 20 4 FILLR '2',1 D FTAB 30 X FILLR '3',1 h FTAB 40 | FILLR '4',1 FTAB 50 FILLR '5',1 FTAB 60 FILLR '6',1 FTAB 70 FILLR '7',1
0x0f9580…0f9714 (1, 315) Dummy {f00=0x0054, f01=0x4152, f02=» z FCOPY ='1234567890' FCOPY ='1234567890' $ FCOPY ='1234567890' @ FCOPY ='1234567890' P FCOPY ='123456789 ' x P FILLR X'80',1 FNL P FINP 1 FCOPY LDISP FNL 6 P FKI 1,APPL=110,ALPHA,MAXL=80,DUPL
0x0f9714…0f98a8 Dummy {f00=0x0054, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x0f98a8…0f9a3c Dummy {f00=0x0054, f01=0x004c, f02=» HTRA DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x0f9a3c…0f9bd0 Dummy {f00=0x0054, f01=0x2008, f02=» DEATTF HKPF /O HXRF DEATTF $ HSKF 2 6 HEND D 4 1234567890 P $ 4# j 5 123456789 z $ 5# & & & & & & n @ &
0x0f9bd0…0f9d64 Dummy {f00=0x0054, f01=0x0190, f02=» A 7 #0 T 7 #0 T V A F< W 4R 3V 2B/ 3Z _ 4 5| 5( P 7 <H : 2jW 4 5( 7 / <H "!@ F : 4 58 C C W 5D C C J2 ' W 781"&$ 39#$;< '()*+,-! 5D 5| 5( 7 P _D 4 B 7
0x0f9d64…0f9ef8 Dummy {f00=0x0054, f01=0x0190, f02=» ' P" 3 P B % P C + 6" A 4 I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : 4 4 = 3 C 3 C B B P C 46 : "!@T F< V I C B : ( ' P 4 I : 4 5( % Y 7V C
0x0f9ef8…0fa08c Dummy {f00=0x0054, f01=0x0190, f02=»T # ' ?D 9 W.' #? 9 V H F0 ;D:B " : _, 7 C : : 4 58 7< P C W $0 P E C 5 : "!@P ") # B C B % C C : 7<#0 T & C C : 5 C C : & T ;d# P V
0x0fa08c…0fa220 Dummy {f00=0x0054, f01=0x0190, f02=» P7 7 PR L6 R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 7 : B > F :l:d:h 7 W W P W 6 2#
0x0fa220…0fa3b4 (1, 316) Opaque[0x194]
0x0fa3b4…0fa548 # DirEnt {nam=»DANVAL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0a88, f03=0x0000}
0x0fa3b4…0fa548 IdxSect {
0x0fa3b4…0fa548 f00 = 0x0054 // 0xfa3b4 @0x0
0x0fa3b4…0fa548 f01 = 0x000e // 0xfa3b6 @0x2
0x0fa3b4…0fa548 gno = [ // 0xfa3b8 @0x4
0x0fa3b4…0fa548 [0x00]: C0x0054.0x1.0
0x0fa3b4…0fa548 [0x01]: C0x0054.0x2.0
0x0fa3b4…0fa548 [0x02]: C0x0054.0x3.0
0x0fa3b4…0fa548 [0x03]: C0x0055.0x0.0
0x0fa3b4…0fa548 [0x04]: C0x0055.0x1.0
0x0fa3b4…0fa548 [0x05]: C0x0055.0x2.0
0x0fa3b4…0fa548 [0x06]: C0x0055.0x3.0
0x0fa3b4…0fa548 ]
0x0fa3b4…0fa548 }
0x0fa548…0fa6dc Dummy {f00=0x0054, f01=0x0190, f02=» & P IDENT DENVAL REL1.0 80-04-10/DALI P DDUM DEDDIV . P PDIV B P ENTRY DENVAL P & P EXT TESTB TEST FOR A BIT IN A BIN f P EXT DEEDIT P EXT MSKOUT $ P EXT GETVAL LOOK FOR VALIDATION- P STRING FOR CURRENT FIELD ( P EXT
0x0fa6dc…0fa870 Dummy {f00=0x0054, f01=0x0190, f02=» DATA ITEM IS EMPTY * P EXT CLEARB CLEAR A BIT IN A BIN ITEM & P EXT SETB SET A BIT IN A BIN ITEM J & P EXT DELAST KEY INPUT ON LAST LINE t & P EXT DEDISC DISC HANDLING ROUTINE * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPT
0x0fa870…0faa04 Dummy {f00=0x0054, f01=0x0190, f02=» DEAPPU USER-CODED APPL-HANDLING P EXT TYPET ( P EXT GETIND : P EXT CMPIND N P INCLUDE DELITT b P EJECT z P* * P* LOOK IF THERE ARE A VALIDATIONSTRING ( P* WITHIN THE FORMAT AND EXECUTE IT. P* 4 P*
0x0faa04…0fab98 Dummy {f00=0x0054, f01=0x0190, f02=»DOOL3= ENTRY MODE p @ P* DOOL4= GETFLD TO OTHER FIELD B P* WITHIN FORMAT EXECUTED ^ : P* DOOL5= NO KEYED INPUT : P* DOOL6=
0x0fab98…0fad2c Dummy {f00=0x0054, f01=0x0190, f02=» BATCHHEAD FOR NEW BATCH j 6 P* BIN11= POOLINDEX : P* BIN12= STARTPOSITION Z : P* BIN13= STOPPOSITION F P* BIN14= CONDIT
0x0fad2c…0faec0 Dummy {f00=0x0054, f01=0x0190, f02=»E BIN3,W0 USED AS POINTER P TO ERRORMESSAGE " . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) < $ P CLEAR BOOL6 F=NO COND TAB FOUND n . P CLEAR BOOL8 F=NO RECORD CHANGE FOUND (N) P CLEAR REWRT UPDFLD=0 P MOVE DEBINW4,W2 * P GETABX DE
0x0faec0…0fb054 (1, 317) Dummy {f00=0x0054, f01=0x0190, f02=»EDIT,W3 PUT FMTITEM INTO DEINPUT P B DENV20 ( PDENV10 : & P TBF DOOL5,DENV30 JUMP IF NOT DUPL H PDENV20 r & P MOVE WORK(W5),W0 INPUTLENGTH = 0 P B DENV40 PDENV30 , P MOVE WORK(W5),DEBINW1 SAVE INPUTLENGTH PDENV40 ( P
0x0fb054…0fb1e8 Dummy {f00=0x0054, f01=0x018e, f02=» , P GETCTL 0,DEBINW3 GET APPL-VALUE;DENTER ( P CBE DEBINW3,W0,DENV50 NO APPL-VALUE 8 ( P PERF DEAPPU USERCODED APPL-HANDLING d $ P IB DEBINW3,DENV45 UPDFLD = 1 C P UPDR40 SET CURSOR C P DENV42 ERROR PRINTOUT P B DENV50 UPDFLD =
0x0fb1e8…0fb37c Dummy {f00=0x0054, f01=0x0190, f02=» P EJECT P* P* EXECUTE VALIDATION P* < PUPDV0A F P ADD BIN13,BIN12 T P B UPDV01 l PUPDV00 ~ , P MOVE DEINPUT,STATSH RESTORE KEYED INPUT * P MOVE DEBINW1,BIN4 RESTOR INPUTLENGTH PUPDV01 P MOVE STR64A,='M
0x0fb37c…0fb510 Dummy {f00=0x0054, f01=0x0190, f02=» DECOMT NOT OKEY P MOVE STR64A,='ASUFFFX' P MOVE BIN9,W0 8 0 P MATCH STR64A,BIN9,W7,BPOOL(BIN11),BIN12,W1 N P BNOK DECOOK , P SET DOOL7 NOT CURRENT FIELD VALIDATION P ADD BIN12,W1 " P CBE BIN9,W6,UPDV05 JUMP IF X ( P XCOPY
0x0fb510…0fb6a4 Dummy {f00=0x0054, f01=0x018e, f02=»ERF DEEDIT,BIN9 P B UPDV06 PUPDV04 * ( P MOVE BIN8,DEBINW3 CURRENT TABINDEX 8 PUPDV06 d 0 P IB BIN9,UPDV01,UPDV01,UPDV07, 1=S,2=U,3=F C r P UPDV07,UPDV07,UPDV09 6=X P B UPDV09 0=A PUPDV07 * P CALL TYPET,BIN7,X.PSEUDO,X.
0x0fb6a4…0fb838 Dummy {f00=0x0054, f01=0x018e, f02=» 2 P IB BIN5,UPDV20,UPDV30,UPDV30,UPDV30,UPDV25 C P UPDGOT,UPDFOR,UPDFON : PUPDE00 HHANDLE ERRORCODE X P ADD BIN12,W1 z , P XCOPY DEBINW4,W1,W1,BPOOL(BIN11),BIN12 , P MOVE BIN3,BIN12 SAVE INDEX TO ERR.MESS P CBL DEBINW4,W128,UPDE10
0x0fb838…0fb9cc Dummy {f00=0x0054, f01=0x0190, f02=» ~ PUPDE10 P ADD BIN12,W1 P CBL BIN12,BIN13,UPDV01 , & P B DECERR JUMP IF END OF VALSTRING L PUPDV20 / v P SET DOOL1 NOT-FLAG P B UPDE10 P* PUPDV25 D;DUPLICATE P ADD BIN12,W1 P SET DOOL4 P BNZ
0x0fb9cc…0fbb60 Dummy {f00=0x0054, f01=0x0190, f02=» | P MOVE WORK(W8),BIN13 , P CALL GETVAL,BPOOL(W1),BIN11,BIN12,BIN13 $ P BNOK DECERR T P B UPDV0A h P* z $ PUPDV30 =EQUAL;>GREATER;<LESS; P SUB BIN5,W2 P ADD BIN12,W1 " P MOVE BIN6,W0 START IN VALSTR P MOVE STR64A
0x0fbb60…0fbcf4 (1, 318) Dummy {f00=0x0054, f01=0x0190, f02=»RITHMETIC SIGN IS ~ " P B UPDV37 OMITTED + IS ASSUMED PUPDV35 @ " P ADD BIN12,W1 INCREASE POINTER N PUPDV37 t P MOVE BIN9,W0 P MOVE STR64A,='L!ASUFTCXE' 0 P MATCH STR64A,BIN9,W10,BPOOL(BIN11),BIN12,W1 P BOK UPDV50 & P MOVE
0x0fbcf4…0fbe88 Dummy {f00=0x0054, f01=0x0190, f02=»60 2 P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN12 GET INDEX P ADD BIN12,W1 ADJUST POINTER @ PUPDV65 d @ P IB BIN9,UPDABS,UPDACC,UPDSYS,UPDUSE,UPDFLD,UPDSET,UPDCOD C r P UPDVSI,UPDEMP,UPDNUM PUPDLEN HANDLE LENGTH P CMP DEBINW1,BIN8
0x0fbe88…0fc01c Dummy {f00=0x0054, f01=0x0190, f02=»PIND,BIN8,ACK(W1) P BNOK DECERR OUT OF RANGE P MOVE BCDI21(W2),ACK(BIN8) < P B UPDN50 ^ P EJECT p P* ~ " PUPDSYS HANDLE SYSTEMVARIABEL PUPDUSE AND USERVAIABLES P* P SUB BIN9,W3 P CLEAR DOOL7 " P BNZ U
0x0fc01c…0fc1b0 Dummy {f00=0x0054, f01=0x0190, f02=»,UPDS30 JUMP IF BCD-NUM PUPDS03 P IB BIN9,UPDS05 . P CALL CMPIND,BIN8,SYSV(W1) F P B UPDS10 h PUPDS05 z P CALL CMPIND,BIN8,USEV(W1) PUPDS10 P BNOK DECERR P MOVE BIN10,W0 P IB BIN9,UPDS15 2 P MATCH DEINPUT
0x0fc1b0…0fc344 Dummy {f00=0x0054, f01=0x018e, f02=» P BOK DECEGL P B DECNOT PUPDS30 * P IB BIN9,UPDS50 8 P CALL CMPIND,BIN8,SYSV(W1) P P BNOK DECERR OUT OF RANGE r P MOVE BCDI21(W2),SYSV(BIN8) P B UPDN50 PUPDS50 P CALL CMPIND,BIN8,USEV(W1) P BNOK DECERR O
0x0fc344…0fc4d8 Dummy {f00=0x0054, f01=0x018e, f02=» j P* & P CBNE BIN8,W0,UPDF10 CURRENT FIELD * P MOVE BIN8,DEBINW3 CURRENT FIELNUMBER < PUPDF10 j * P CALL TYPET,BIN10,X.PSEUDO,X.WB10,BIN8 x , P CBNE BIN10,W3,UPDF40 JUMP IF NOT ALPHA P GETCTL 1,BIN10 GET MAXL P SET DOOL4 P
0x0fc4d8…0fc66c Dummy {f00=0x0054, f01=0x0190, f02=» P BNE DECNOT INVALID LENGTH P MOVE BIN10,W0 & & P CON X.MATCH,DEINPUT,BIN10,DEBINW1 < P CON X.PSEUDO f P CON X.WB10,BIN8,W0,DEBINW1 | P BOK DECEGL P B DECNOT PUPDF40 NUMERIC $ P CON X.MOVE,BCDI21(W2),X.PSEUDO P C
0x0fc66c…0fc800 Dummy {f00=0x0054, f01=0x0190, f02=» MOVE VSEIND,W0 VALUE-SET INDEX:=0 P MOVE BCD3A,BIN8 * ( P MOVE BIN9,W0 LOOK IF ELEMENTNUMBER B P MOVE STR1A,=':' n . P MATCH STR1A,BIN9,W1,BPOOL(BIN11),BIN12,W1 P BOK UPDSET05 P MOVE BIN9,W0 P MOVE ELMNO,W1 P B UPDSET07
0x0fc800…0fc994 (1, 319) Dummy {f00=0x0055, f01=0x0190, f02=»DSET07 P MOVE TABLE,BCD3A P MOVE STR1A,=C'T' ( P DLETE TABLE,W0,W2 B P INSRT TABLE,W2,W1,HEX00,W0 P INSRT TABLE,W0,W1,STR1A,W0 PUPDSET10 P PERF DEDISC,W24 GET VALUSET P BOK UPDSET20 P CBE PINDTB,W0,UPDSET18
0x0fc994…0fcb28 Dummy {f00=0x0055, f01=0x0190, f02=»OVE BIN15,W0 WORK:=0 $ P CALL ATTWB,BPOOL(PINDTB),W8,W11 $ P CALL ATTDB,BPOOL(PINDTB),W0,W11 D ( P XCOPY BIN16,W1,W1,RPOOL(PINDTB),W17 l @ P XCOPY BIN15,W1,W1,RPOOL(PINDTB),W18 STORE ENDINDEX OF POOL P SUB ELMNO,BIN16 P ADD ELMNO,W1 .
0x0fcb28…0fccbc Dummy {f00=0x0055, f01=0x0190, f02=»UPDSET24 ( P TBT ALPHA,UPDSET30 JUMP IF BCD-NUM PUPDSET26 < & P XCOPY BIN8,W1,W1,BPOOL(PINDTB),W1 L PUPDSET28 v P PERF DEEDIT,W4 P MOVE BIN6,W0 , P MATCH DEINPUT,BIN6,BIN8,STATSH,W0,BIN8 P BOK UPDSET40 P CBNE BIN9,W0,
0x0fccbc…0fce50 Dummy {f00=0x0055, f01=0x0190, f02=»L COMPARED l P BG DECN10 JUMP IF GRAETER P B UPDSET28 4 PUPDSET30 H " P MOVE BCDI21(W2),FDVBCD(ELMNO) X P B UPDN50 ~ PUPDSET40 * P MOVE VSEIND,BIN16 INDEX OF CURR BUFF ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A P CMP W0,W0 CON
0x0fce50…0fcfe4 Dummy {f00=0x0055, f01=0x0190, f02=»EMPTYT,DEINPUT P BP DECEGL P B DECNOT ( P* : . P* OPERAND IS VALUE-SET ELEMENT INDEX D P* v PUPDVSI 2 P MOVE BCDI21(W2),VSEIND LOAD VALUE SET ELINDEX P B UPDN50 P EJECT P* " PUPDGOT GO TO VALIDATION
0x0fcfe4…0fd178 Dummy {f00=0x0055, f01=0x0190, f02=»NTER x $ P SET BOOL6 T=COND TAB FOUND (G) . P XCOPY BIN14,W1,W1,BPOOL(BIN11),BIN12 *JE 4 & P ADD BIN12,W1 ADJUST BUFFERPOINTER f P B UPDV00 P* * PUPDFOR CHANGE FORMAT VALIDATION (R) P MOVE DEBINW4,W4 . P CLEAR BOOL8 F=NO RECO
0x0fd178…0fd30c Dummy {f00=0x0055, f01=0x0190, f02=») l P MOVE DEBINW4,W3 (N) . P CLEAR BOOL4 F=NO RECORD CHANGE FOUND (R) & , P SET BOOL8 T=COND FORM CHANGE FOUND (N) X PUPDFO2 $ P CLEAR BOOL6 F=NO COND TAB FOUND & P ADD BIN12,W1 ADUST BUFFER POINTER P MOVE BIN16,W0 WORK:=0 < P X
0x0fd30c…0fd4a0 Dummy {f00=0x0055, f01=0x018e, f02=»POINTER t P MOVE STSAVE(DEBINW4),HEX00 6 P XCOPY STSAVE(DEBINW4),W0,BIN16,BPOOL(BIN11),BIN12 4 . P ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS n P B UPDV00 GO ON P EJECT P* PUPDNUM P MOVE BIN9,=X'3F' P CALL MSKOUT,BIN
0x0fd4a0…0fd634 (1, 320) Dummy {f00=0x0055, f01=0x0190, f02=» " P BNOK UPDN06 JUMP IF NO '?':S * P MOVE BIN8,W0 COUNTER NUMB OF MATCHES * . P MOVE BIN10,DEBINW1 LOAD EFF. INPUT LENGTH X ( P MATCH DEINPUT,BIN10,W1,HEX00,W0,W1 P BOK UPDN01 JUMP IF NO SIGN " P MOVE BIN8,W1 ADJUST FOR SIGN PUPDN01
0x0fd634…0fd7c8 Dummy {f00=0x0055, f01=0x0190, f02=»OT OK MAYBE '?' PUPDN02 " P ADD BIN8,W1 INCREMENT COUNTER & . P CBE BIN8,DEBINW1,UPDN30 ALL CHARS MATCHED L P ADD BIN12,W1 ADJUST POINTER ~ P B UPDN00 GO ON MATCH PUPDN04 & P MOVE BIN10,BIN12 LOAD MATCH POINT , P MATCH BPOOL(BIN
0x0fd7c8…0fd95c Dummy {f00=0x0055, f01=0x0190, f02=»MP IF NOT CURR FIELD P TSTCTL 0 LOOK IF ALPHA P BZ UPDN40 JUMP IF NUMERIC < P CBE DEBINW1,BIN9,UPDN20 ^ * P ADD BIN12,BIN9 ADJUST POINTER IN FVAL ~ P B DECNOT PUPDN10 & P TBT ALPHA,UPDN40 JUMP IF BCD-NUM PUPDN20 P MOV
0x0fd95c…0fdaf0 Dummy {f00=0x0055, f01=0x0190, f02=» P BOK DECEGL ! P B DECNOT ! PUPDN40 NUMERIC ! . P MOVE STR64A,HEX00 ! F , P COPY STR64A,W0,BIN9,BPOOL(BIN11),BIN12 ! ` P MOVE BCDI21(W2),STR64A ! P ADD BIN12,BIN9 ! PUPDN50 ! P CLEAR DOOL6 ! P BZ UPDN55 ! P CALL CLEARB
0x0fdaf0…0fdc84 Dummy {f00=0x0055, f01=0x018e, f02=» P B UPDN90 " $ PUPDN60 SUB BCDI21(W1),BCDI21(W2) " P B UPDN90 " > $ PUPDN70 MUL BCDI21(W1),BCDI21(W2) " P P B UPDN90 " x $ PUPDN80 DIV BCDI21(W1),BCDI21(W2) " PUPDN90 MOVE BIN6,W0 " , P CBNL BIN12,BIN13,UPDN95 JUMP IF END OF " P VALIDAT
0x0fdc84…0fde18 Dummy {f00=0x0055, f01=0x0190, f02=» " j PUPDN95 # P MOVE BCDI21(W2),DEINPUT # P CMP BCDI21(W2),BCDI21(W1) # 6 PDECO05 # X 6 P IB BIN5,DECO10,DECO20 JUMP ON COMPARE-SIGN-INDEX # f P BZ DECEGL = # P B DECNOT /= # PDECO10 # P BEOF DECEGL > # P B DECNOT /> # PDECO20 #
0x0fde18…0fdfac Dummy {f00=0x0055, f01=0x0190, f02=» & P CMP BIN9,W0 LOOK IF ALL ELEMENTS $ P BNZ UPDSET15 JUMP IF NOT $ . P ADD ELMNO,W1 NEXT ELEMENT $ P . P ADD BIN16,W1 INCREMENT STARTINDEX OF POOL $ r : P CBG BIN16,BIN15,DECN10 JUMP ALL EL. OF POOL COMPARED $ 6 P MOVE BCDI21(W1),FDVBCD(ELMNO) NEXT EL
0x0fdfac…0fe140 Dummy {f00=0x0055, f01=0x0190, f02=»MP BIN15,W0 JUMP IF WHOLE TABLE VALIDATED $ P BE UPDSET15 JUMP IF EQUAL % 2 4 P MOVE ELMNO,BIN16 LOAD SAERCH ELEMENT NEXT SEGM. % T 0 P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A RELEASE % ( P B UPDSET10 GO ON READ NEXT SEGMENT % PDECEGL CLEAR DOOL1 % P B
0x0fe140…0fe2d4 (1, 321) Dummy {f00=0x0055, f01=0x0190, f02=»,DECOMT JUMP IF RECORD CH FOUND % . P TBT BOOL4,DECOMT JUMP IF RECORD CH FOUND & ( P SET DOOLB ITEM NOT VALID & Z P B DECOMT & | P EJECT & PDECOTK & 8 P CBE PINDTB,W0,DECOOK JUMP IF EOF VALUE-SET/NO VSET & * P MOVE VSEIND,BIN16 INDEX OF CURR B
0x0fe2d4…0fe468 Dummy {f00=0x0055, f01=0x0190, f02=»O33 & ~ ( P PERF DEPOOL,W6,PINDTB,BIN10,STRG10A ' " PDECO33 CBNL BIN12,BIN13,DECEND ' 8 P MOVE BIN9,W0 ' ^ P MOVE BIN16,=W'29' ' t 2 P MATCH VALSTR,BIN9,BIN16,BPOOL(BIN11),BIN12,W1 ' P BOK DECO40 ' PDECO35 ' ( P XCOPY BIN8,W1,W1,BPOOL(BIN11),BIN
0x0fe468…0fe5fc Dummy {f00=0x0055, f01=0x0190, f02=»DECO38 ' P ADD BIN12,W1 ( P B DECOMT ( $ PDECO39 ';' FOUND ( 6 * P PERF DENVCO CONDITIONAL BOOL SETTING ( P P ADD BIN12,W1 ( ~ * P CBNL BIN12,BIN13,DECEND END OF STRING ( P MOVE BIN9,W0 ( P MOVE STR6B,=C'DGRN' ( . P MATCH STR6B,BIN9,W4
0x0fe5fc…0fe790 Dummy {f00=0x0055, f01=0x0190, f02=»CT ( PDECO40 ) 2 P IB BIN9,DECO41,DECO41,DECO41,DECO41,DECO41 C ) P DECO42 C ) N P DECO41 C ) b P DECO42,DECO42,DECO42 C ) v P DECO42,DECO42,DECO42 C ) P DECO41,DECO41,DECO41 C ) P DECO41,DECO41 17-18 C ) P DECO39 19=
0x0fe790…0fe924 Dummy {f00=0x0055, f01=0x0190, f02=» P ADD BIN12,W1 MESSAGE * P B DECO35 * " PDECO43 * 4 P CBNE BIN9,BIN10,DECO44 * B P ADD BIN12,W1 ADJUST POINTER * b P B UPDV00 * PDECO44 * P CBE BIN10,W20,DEC050 * PDECO41 * P ADD BIN12,W1 * P B DECOMT * PDECO42 * P
0x0fe924…0feab8 Dummy {f00=0x0055, f01=0x0190, f02=»OVE BIN16,W0 WORK:=0 * < P XCOPY BIN16,W1,W1,BPOOL(BIN11),BIN12 LOAD NUMB OF CHARS + * P SUB BIN16,W128 ADJUST LIT.-INDICATOR + ( P ADD BIN12,W1 ADJUST BUFFER POINTER + . P ADD BIN12,BIN16 ADJUST FOR NUMB OF CHARS + P B DECOMT + PDEC050 + * P
0x0feab8…0fec4c Dummy {f00=0x0055, f01=0x0190, f02=» ERROR + v P MOVE BIN10,W0 , PDECEND CLEAR DOOL4 , $ P BZ DECE10 , > 0 P* RESTORE POINTERS TO VAL-STRING , P P MOVE BIN11,WORK(W6) , P MOVE BIN12,WORK(W7) , P MOVE BIN13,WORK(W8) , P ADD BIN12,W1 , * P GETFLD 0,DEBINW3,BIN9 GET
0x0fec4c…0fede0 Dummy {f00=0x0055, f01=0x0190, f02=»050 '&' , ~ PDECE30 - 0 P MOVE DEINPUT,STATSH RESTORE KEYED IN VALUE - , P MOVE DEBINW3,NUMBER CURRENT REC.NUMBER - R ( P CBE DEBINW3,W0,UPDR05 NOT BATCHHEAD - * P CBG DEBINW3,BDPOIN(W2),UPDR10 JUMP IF - P ENTRY OF NEW RECORD - " P CLEAR BOOL3 C
0x0fede0…0fef74 (1, 322) Dummy {f00=0x0055, f01=0x0190, f02=»ORRECTION - x P OR IF BATCHEAD=N . PUPDR10 . . P MOVE BIN11,W0 . < P XCOPY BIN11,W1,W1,BIN3,W0 . R P XCOPY BIN3,W0,W1,W0,W0 . t PUPDR20 . P CLEAR REWRT UPDFLD = 1? . P BNZ UPDR30 YES! . P MOVE DEBINW3,W0 . P B UPDR40 . PUPDR
0x0fef74…0ff108 Dummy {f00=0x0055, f01=0x0190, f02=» . P MOVE BIN10,W0 / & P TBT BOOL6,DECOFG JUMP IF COND TAB / . P TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND / H 2 P TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND / z P RET / PDECOFG / P SET BOOL5 T=VALID COND TAB / P RET / PDECOFN / ( P
0x0ff108…0ff29c Dummy {f00=0x0055, f01=0x4014, f02=» END 0 @ 0 W0 / & P TBT BOOL6,DECOFG JUMP IF COND TAB / . P TBT BOOL8,DECOFN JUMP IF RECORD CH FOUND / H 2 P TBT BOOL4,DECOFR JUMP IF RECORD CHANGE FOUND / z P RET / PDECOFG / P SET BOOL5 T=VALID COND TAB / P RET / PDECOFN / ( P
0x0ff29c…0ff430 Dummy {f00=0x0055, f01=0x2008, f02=» 1
0x0ff430…0ff5c4 Dummy {f00=0x0055, f01=0x0190, f02=» $*0240< 4 0<" 4 0=" 4 4 4 4 4 4 4 0> 4 0? 4 0@ 4 4 4 4 !Hy 0 "Hz 0 34 U j ! !0 P b ![ ! ! ( 4 j ! Y v B s & U A @ a
0x0ff5c4…0ff758 Dummy {f00=0x0055, f01=0x0190, f02=» 1 0 0 0 ` N | Y | Y # !T}6 )) !@|Tkj !! ! j !! 10 _H !j !! $ !A !@( "90! !T2@e@i@k !" ? 'hZ 2 !TS &6 " _ Ai_8Ae_<" y 4WsAkW !j !! ( ~ !~W)j !! F 10
0x0ff758…0ff8ec Dummy {f00=0x0055, f01=0x0190, f02=» X @g@i@k@ "0+ ( #W H % W % o 6 0* 6 W 4 A W o ~8 h~ ) !PO@ < ~7 h~ ' !< A ! & j !! !@ W 2 W 0A #[A __2 !j !! $ j ! ! 10 ! ? A _ !A <
0x0ff8ec…0ffa80 Dummy {f00=0x0055, f01=0x0190, f02=» ? A _ 0! !< " ? #@ T 00 P4W I /6 0! !W 0! !< 6 h W h 8 ? 6 0! !< " ? 0! !< " ? ( 0A ( #)0* A h U ! < h 8 ? " ? < 2h ! !P !W !j !! ! 4f "d "!U d
0x0ffa80…0ffc14 (1, 323) Opaque[0x194]
0x0ffc14…0ffda8 # DirEnt {nam=»DESTAT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ac0, f03=0x0000}
0x0ffc14…0ffda8 IdxSect {
0x0ffc14…0ffda8 f00 = 0x0056 // 0xffc14 @0x0
0x0ffc14…0ffda8 f01 = 0x0002 // 0xffc16 @0x2
0x0ffc14…0ffda8 gno = [ // 0xffc18 @0x4
0x0ffc14…0ffda8 [0x00]: C0x0056.0x0.0
0x0ffc14…0ffda8 ]
0x0ffc14…0ffda8 }
0x0ffda8…0fff3c Dummy {f00=0x0056, f01=0x0190, f02=» $ P IDENT DESTAT REL 10.0 80-04-11 P 79-05-28/DALI , DDUM DEDDIV D PDIV X P ENTRY DESTAT f ENTRY DESTAU | EXT TESTB P EXT UPDBIN INCLUDE DELITT P EJECT P*********************** P* P
0x0fff3c…1000d0 Dummy {f00=0x0056, f01=0x0190, f02=» P* FIX BATCHSTATUS P CALL UPDBIN,BDSTAT P PERF DESTAU,BDSTAT,STR15A : P MOVE BCD13A,BDPOIN(W2) P TBF SOOL2,DESTUT | P* P* FIX RECORDSTATUS P* P CALL UPDBIN,BIN1 P PERF DESTAU,BIN1,STRG10A PDESTUT
0x1000d0…100264 Dummy {f00=0x0056, f01=0x4162, f02=»DEBINW2,W0 MOVE DEBINW3,W0 MOVE DEBINW4,W0 * " XCOPY DEBINW3,W0,W1,STBIN,W1 B DES100 h CALL TESTB,DEBINW3,DEBINW4 v BZ DES200 * & COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEB
0x100264…1003f8 Dummy {f00=0x0056, f01=0x2008, f02=» NW3,W0 MOVE DEBINW4,W0 " XCOPY DEBINW3,W0,W1,STBIN,W1 . DES100 T CALL TESTB,DEBINW3,DEBINW4 b BZ DES200 * & COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEBINW4,W1 CBN
0x1003f8…10058c Dummy {f00=0x0056, f01=0x0190, f02=»b * !)b 5 R G 6 N 6 R 6 0 V 6 @ Z 6 P ^ 6 ` b 6 p l 6 v 6 } 6 J F " D @ *< ! R$" R 0R Q0X 0R R0X 0R P0R A4 # R _# 1_ R# CZ R$ 6 6
0x10058c…100720 Dummy {f00=0x0056, f01=0x0190, f02=» 6 COPY JOB: 7 $ 7 $ & 7 4 & 7 B $ 7 P ( 7 ` 7 l & 7 | COPY BATCH: 7 $ 7 & 7 & @ 7 $ 7 ( 7 7 & 7
0x100720…1008b4 (1, 324) Opaque[0x194]
0x1008b4…100a48 # DirEnt {nam=»CONFNY«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0ac8, f03=0x0000}
0x1008b4…100a48 IdxSect {
0x1008b4…100a48 f00 = 0x0056 // 0x1008b4 @0x0
0x1008b4…100a48 f01 = 0x0002 // 0x1008b6 @0x2
0x1008b4…100a48 gno = [ // 0x1008b8 @0x4
0x1008b4…100a48 [0x00]: C0x0056.0x1.0
0x1008b4…100a48 ]
0x1008b4…100a48 }
0x100a48…100bdc Dummy {f00=0x0056, f01=0x0190, f02=» T; 01; TID=TB; TCL=TB; * LEV=55; : P00; J P00; V T; b P02; l TID=T1; x TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P02; PTDC=T02; PLC
0x100bdc…100d70 Dummy {f00=0x0056, f01=0x000c, f02=» P032; 01; TID=TB; TCL=TB; * LEV=55; : P00; J P00; V T; b P02; l TID=T1; x TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P02; PTDC=T02; PLC
0x100d70…100f04 Dummy {f00=0x0056, f01=0x2008, f02=» 01; TID=TB; TCL=TB; * LEV=55; : P00; J P00; V T; b P02; l TID=T1; x TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P02; PTDC=T02; PLC
0x100f04…101098 Dummy {f00=0x0056, f01=0x0190, f02=» _ : V # P W Y P X ' P Y _ Y " " Z T 8Tt 9Wb B 7P P 5, A5 W A5 @5 A.W< A I.9 N X R C C * X R C C 54 A @5 A. N X V 9 * X V 9_d
0x101098…10122c Dummy {f00=0x0056, f01=0x0190, f02=»P C ! Z B P $$ R % C ! _, Y &X Y $P. Y %P( $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: !
0x10122c…1013c0 Dummy {f00=0x0056, f01=0x0190, f02=» X ( _X 50 A X RJ 8 J P X ' Q 8 J " W C U X Y ( Y B 9a C 50 8 J P4 8 B W* B W B W B 8 T Y Y Y Y 54 Y * ! X *_< B 1 4 X X X X ' 4 B U B $" 4 C 4 d
0x1013c0…101554 (1, 325) Opaque[0x194]
0x101554…1016e8 # DirEnt {nam=»DE90ST«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad0, f03=0x0000}
0x101554…1016e8 IdxSect {
0x101554…1016e8 f00 = 0x0056 // 0x101554 @0x0
0x101554…1016e8 f01 = 0x0002 // 0x101556 @0x2
0x101554…1016e8 gno = [ // 0x101558 @0x4
0x101554…1016e8 [0x00]: C0x0056.0x2.0
0x101554…1016e8 ]
0x101554…1016e8 }
0x1016e8…10187c Dummy {f00=0x0056, f01=0x40bc, f02=» P IDENT DE90ST DDUM DEDDIV PDIV . P ENTRY DE90ST < PDE90ST PROC R P MOVE BIN1,W0 f P MOVE BIN2,W1 | RET PEND END @ NS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x10187c…101a10 Dummy {f00=0x0056, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x101a10…101ba4 Dummy {f00=0x0056, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l HMES ILLEGAL PARAMETER COMBINATION !!! v * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x101ba4…101d38 Dummy {f00=0x0056, f01=0x0190, f02=» > ( !Ad1 EAn@m 6 3 W)@n_ ( #/( _! @d0 0} # * h h _: _9 ! 4 1 DAd!hT @d z An@mAe 6 ? " &z 2 4 ?W @Jd P Ao W 0( z ,AnAo@e 2 _C _% (z T &PR 1 7 00_ # %XdAo _8 z! X#b !& "z < $z
0x101d38…101ecc Dummy {f00=0x0056, f01=0x0190, f02=» W !" (60 X !" )&0 * * A A_=0 !P #_R * , !" 3 h &T !T , , _ ,& !8 W 1? W %W ( ? i d t ^ P 1:2:3:4:5:6:7:8:9:GET G
0x101ecc…102060 Dummy {f00=0x0056, f01=0x0190, f02=» ( - 8 5 3 h d 31 M ( - 8 32 K ( - 8 R 4 O & 5 0 B A ! Q &A + 0 C A " Q &A , 0 D A # Q &A - 0 E A $ Q &A . 0 F A % Q &A / 0 G A & Q &A 0 0 H A ' Q &A
0x102060…1021f4 (1, 326) Opaque[0x194]
0x1021f4…102388 # DirEnt {nam=»DANTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ad8, f03=0x0000}
0x1021f4…102388 IdxSect {
0x1021f4…102388 f00 = 0x0056 // 0x1021f4 @0x0
0x1021f4…102388 f01 = 0x000e // 0x1021f6 @0x2
0x1021f4…102388 gno = [ // 0x1021f8 @0x4
0x1021f4…102388 [0x00]: C0x0056.0x3.0
0x1021f4…102388 [0x01]: C0x0057.0x0.0
0x1021f4…102388 [0x02]: C0x0057.0x1.0
0x1021f4…102388 [0x03]: C0x0057.0x2.0
0x1021f4…102388 [0x04]: C0x0057.0x3.0
0x1021f4…102388 [0x05]: C0x0058.0x0.0
0x1021f4…102388 [0x06]: C0x0058.0x1.0
0x1021f4…102388 ]
0x1021f4…102388 }
0x102388…10251c Dummy {f00=0x0056, f01=0x0190, f02=» ( P IDENT DANTER PRR 1.0 80-01-07/DALI . P****************************************** 0 . P* THIS ROUTINE HANDLE THE KEYBOARD INPUT * b . P* AND IS A MODIFIED VERSION OF THE STAN- * . P* DARD S C R E E N - P A C K A G E. * . P****************
0x10251c…1026b0 Dummy {f00=0x0056, f01=0x0190, f02=»************************************** P DDUM DEDDIV . P PDIV B P* P , P ENTRY DECLRA CLEAR ALL VARIABLE FIELDS Z , P ENTRY DECLRS CLEAR SOME VARIABLE FIELDS * P ENTRY DECLRN CLEAR NO VARIABLE FIELDS P ENTRY DECLRD P ENTRY DER
0x1026b0…102844 Dummy {f00=0x0056, f01=0x0190, f02=» DESTAT BUILD THE STATUSLINE $ P EXT DEAPPL STANDARD ROUTINE TO $ & P EXT DEAPPU USER ROUTINE TO HANDLE L P HANDLE APPL VALUES v P APPL VALUES ( P EXT DETCHK USER ROUTINE TO EVALUATE P CONDITIONAL TABULATION P EXT DENVAL
0x102844…1029d8 Dummy {f00=0x0056, f01=0x0190, f02=»TYT ASSEMBLY SUBROUTINE EMPTYT - " P TEST IF DATA ITEM IS EMPTY * . P EXT FORCED ASSEMBLY SUBROUTINE FORCED - P $ P TEST IF DATA ITEM IS FORCED * P EXT ATTDB ASSEMBLY SUBROUTINE ATTDB - P ATTACH DESCRIPTORBLOCK P EXT ATTPRT RE
0x1029d8…102b6c Dummy {f00=0x0056, f01=0x0190, f02=»ATION- v P STRING FOR CURRENT FIELD & P EXT GETGEN LOOK FOR GENERARTION- 2 P STRING FOR CURRENT FIELD & P EXT TESTB TEST FOR A BIT IN A BIN * P EXT CLEARB CLEAR A BIT IN A BIN ITEM P EXT DELOCK TEST KEY-LOCKS , P EXT GETFWD AS
0x102b6c…102d00 Dummy {f00=0x0056, f01=0x0190, f02=»Y FIELDS IS P FOUND,WILL "NOT" BE P INDICATED 2 , P EXT ADJUST ASSEMBLY SUBROUTINE ADJUST - F " P ADJUST FORMATPOINTERS AFTER v P EXECUTION OF GETFWD P EJECT P* P INCLUDE DELITT,LIST P EJECT P* > P*
0x102d00…102e94 (1, 327) Dummy {f00=0x0057, f01=0x0190, f02=» P* @ P* CLEAR SOME VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* V PDECLRS PROC ` P PERF DENTER,W2 t P RET P PEND P* > P* CLEAR NO VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* PDECLRN PROC
0x102e94…103028 Dummy {f00=0x0057, f01=0x0190, f02=»THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P* 8 PDECLRD PROC B P* V P PERF DENTER,W4 ` P RET x P PEND P* P* ERROR PRINTOUT P* PDERR PROC P MOVE DEBINW1,W0 P PERF DENTER,W0 P RET
0x103028…1031bc Dummy {f00=0x0057, f01=0x0190, f02=» TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? & P BE ERRPRINT YES ! N P h . P TBT DEPROMPT,ENTIRE JUMP IF ENTIRE FORMAT p P SHOULD BE DIDELAYED P* P* ONLY VARIABLE FIELDS P* P IB DEBINW2 C
0x1031bc…103350 Dummy {f00=0x0057, f01=0x0190, f02=»D UP n P B CONT P* PCLEARS & , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP 4 P B CONT d PCLEARD t P TBT VERIFM,VERIF * P DISPLAY 3,W1,W0 DISPLAY FROM 1 AND UP P B CONT PVERIF P TBF KEYVER,SIGHT P DISPL
0x103350…1034e4 Dummy {f00=0x0057, f01=0x0190, f02=»FORMAT | P* PENTIRE P CLEAR DEPROMPT & P IB DEBINW2 JUMP C > P ECLRA ON C X P ECLRS ROUTINE C l P ECLRN INDEX C P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3,W1,W0 CLEAR ALL
0x1034e4…103678 Dummy {f00=0x0057, f01=0x0190, f02=» ERASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN MEMORY . P* L & P* CLEAR NO VARIABLES IN MEMORY V P* PECLRN P TBT VERIFM,EVERIF ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P B CONT PEVERIF P TBF KEYVER,
0x103678…10380c Dummy {f00=0x0057, f01=0x0190, f02=»E DEBINW2,W8 HOME-KEY PCONT3 & P GETABX DEBINW4 GET CURRENT INDEX , ( P BL KTHOME JUMP IF NO CURRENT FIELD V P TBF VERIFM,CONT5 P B KTHOME PCONT5 6 P GETFLD 0,DEBINW4,DEBINW3 SEARCH CURRENT POSITION P BZ CONT6 JUMP IF
0x10380c…1039a0 Dummy {f00=0x0057, f01=0x0190, f02=» INDEX t P B CONT5 SEARCH AGAIN P* , PCONT6 6 P TSTCTL 5 LOOK IF CTAB D P BZ SETCREAD b P TEST DOOLA v " P BZ KTHOME JUMP IF NOT BALANCE P MOVE DEBINW2,W9 P B KTHOME P EJECT P* & P* SET CURSOR AND RE
0x1039a0…103b34 (1, 328) Dummy {f00=0x0057, f01=0x018e, f02=»N DISPLAY t P* PREADIN P TBF DENOCHAN,READ50 * PREAD10 MOVE DEBINW1,W0 F P MOVE DEBINW3,W1 d P TBF VERIFM,READ12 | 6 P NKI .NE,DEDSDYKB,DEINPUT,DEKTABV,DEBINW3,DEBINW2 P B READ14 PREAD12 6 P NKI .NE,DEDSDYKB,DEINPU
0x103b34…103cc8 Dummy {f00=0x0057, f01=0x0190, f02=» P* PREAD20 ERROR P XSTAT DEDSDYKB,DEBINW3 $ P CALL MASK,DEBINW3,W64 D P BNZ READ10 b P EDWRT DEDSSCRN,BELL v P B READ10 P* PREAD30 POWER OFF P TBT VERIFM,EVERIF P DISPLAY 0,W1,W0 P B SETCREAD
0x103cc8…103e5c Dummy {f00=0x0057, f01=0x0190, f02=»AR DENOCHAN WITTH THE DATA-FILE PREAD45 ( P RET 6 P* B PREAD50 L 4 P TBF VERIFM,READ55 JUMP IF NOT KEY-VERIFICATION Z P PERF DEVERI * P IB DEBINW4,KTKEY2,EVERIF,KCOPY,ERRP20 4 P* RETURN FROM DENTER DEPENDING ON FUNCTION-KEYT
0x103e5c…103ff0 Dummy {f00=0x0057, f01=0x0190, f02=»I DEINPUT,DEKTAB1,DEKTABA,DEBINW1, C P DEBINW2,DEBINW4 . P B DYKOUT H PREAD60 Z . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C h P DEBINW2,DEBINW4 PDYKOUT P PERF DELOCK,W1,DEBINW2 $ P IB DEBINW3,ECLRN,ERRPRT,DYK050
0x103ff0…104184 Dummy {f00=0x0057, f01=0x0190, f02=» DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD P B SETCREAD CONTINUE 0 PDYK100 L P CLEAR DOOL5 KEYED INPUT Z ( P IB DEBINW2,UPDATE,DYK070 JUMP ON C z P UPDATE,ERRCAN,ERRCAN, C . P DYK150,UPDATE,UPDATE,UPDATE CONVERTED C 4 P UPDATE,UPDAT
0x104184…104318 Dummy {f00=0x0057, f01=0x018e, f02=» P EJECT , P*************************************** , P* VALIDATE ENTERED DATA IN THE ORDER: * B , P* STANDARDCHECK * r , P* APPLE-VALUE * , P* VALIDATION-STRING * , P*
0x104318…1044ac Dummy {f00=0x0057, f01=0x0190, f02=» PUPDATE P CBNE DEBINW1,W0,UPD100 P VALIDATION OF EMPTY FIELD 2 & P IF SOME OF BELOW KEES PRESSED: V 8 P* 1=CLR,3=EOI,9=ERASE,10=KEEP,11=KEEP P CBG DEBINW2,W11,UPD010 P CBG DEBINW2,W8,UPD005 P CBG DEBINW2,W
0x1044ac…104640 Dummy {f00=0x0057, f01=0x0190, f02=»USED FOR SAV ERRORINDEX P CALL FORCED,:FMTITEM P BOK UPD030 > P PERF DERROR,DEKTABF R P B ERRP20 n PUPD030 P CALL EMPTYT,:FMTITEM P BZ UPD050 NO! PUPD040 P GETCTL 3,DEBINW4 GET SCHK , P CALL TESTB,DEBINW4,W1
0x104640…1047d4 (1, 329) Dummy {f00=0x0057, f01=0x0190, f02=»N8 P PERF DEEDIT,W3 P B UPD250 " PUPD100 4 & P GETCTL 3,DEBINW4 GET SCHK-NUMBER B PUPD105 l 2 P IB DEBINW4,UPD110,UPD120,UPD110,UPD200,UPD110 z P B UPD200 PUPD110 0 P CBNE DEBINW2,W12,UPD115 JUMP IF NOT MINUS P MOV
0x1047d4…104968 Dummy {f00=0x0057, f01=0x0190, f02=»ULATE EOI | PUPD115 P SUB DEBINW4,W1 P B UPD105 8 PUPD120 J P SUB DEBINW4,W2 X P B UPD105 p PUPD200 $ P GETCTL 0,DEBINW3 GET APPL-VALUE 0 P CBE DEBINW3,W0,UPD230 JUMP IF NO APPL VALUE P* ( P* APPL-VALUE DI
0x104968…104afc Dummy {f00=0x0057, f01=0x0190, f02=»D220 ( P IB DEBINW3,UPD230,SETCREAD,ERRPRINT PUPD230 8 P TEST DOOL3 F P BZ UPDR22 JUMP IF NOT ENTRY Z & P TBF DOOL5,UPD240 JUMP IF NOT DUPL ~ & P MOVE WORK(W5),W0 INPUTLENGTH = 0 P B UPD250 PUPD240 , P MOVE WORK(W5),DEBINW1
0x104afc…104c90 Dummy {f00=0x0057, f01=0x0190, f02=» ( P* WITHIN THE FORMAT AND EXECUTE IT. P* 0 PUPDVAL : P CLEAR DOOL1 H P CLEAR DOOL4 P CLEAR DOOL6 p P CLEAR DOOL7 * P CLEAR BOOL5 ***F=UNVALID/NO COND TAB . P CLEAR BOOL7 ***F=UNVALID/NO COND REC. CH ( P MOVE BIN14,W0 *
0x104c90…104e24 Dummy {f00=0x0057, f01=0x0190, f02=»DR20 JUMP IF NO VALSTRING 0 P CBL DEBINW2,W11,UPDV10 LOOK IF AUTODUP AND " 2 P CBG DEBINW2,W12,UPDV10 ERASE OR KEEP PRESSED V ( P SETCUR SET CURSOR ON CURRENT FIELD PUPDV10 P PERF DENVAL P* P* RETURN FROM VALIDATION P*
0x104e24…104fb8 Dummy {f00=0x0057, f01=0x0190, f02=»F ALPHA P BNZ UPDR16 JUMP IF ALPHA P MOVE BIN9,W15 POINTER TO + 2 ( P MATCH VALSTR,BIN9,W2,DEINPUT,W0,W1 V P BNOK UPDR16 & P DLETE DEINPUT,W0,W1 DELETE + OR - PUPDR16 ( P CBE BIN3,W0,UPDR17 JUMP IF NOT MESS * P XCOPY DEBINW4
0x104fb8…10514c Dummy {f00=0x0057, f01=0x0190, f02=»UPDR13 P TSTCTL 5 LOOK IF CTAB P BZ UPDR14 NO! , & P PERF DERROR,DEKTABI NO KEY INPUT B P B ERRP25 l PUPDR14 ~ P PERF DERROR,DEKTABD P B ERRP20 PUPDR20 . P MOVE DEBINW1,WORK(W5) RESTORE INPUTLENGTH PUPDR22 & P
0x10514c…1052e0 Dummy {f00=0x0057, f01=0x0190, f02=»GET MAXL ~ P SUB DEBINW3,DEBINW1 P BZ UPDR25 , * P MOVE STATSH,=X'20' PUT SPACE IN AREA > 4 P INSRT DEINPUT,W0,DEBINW3,STATSH,W0 RIGHTADJUST l PUPDR25 ( P CBE DEBINW1,W0,UPDR33 INPUTLENGT=0 2 P UPDFLD 0,DEINPUT UPDATE FIELD WITH DISPLA
0x1052e0…105474 (1, 330) Dummy {f00=0x0057, f01=0x0190, f02=»BE DEBINW2,W12,UPDR40 ERASE-KEY $ P CBE DEBINW2,W9,UPDR40 ERASE-KEY ( P CBE DEBINW2,W1,UPDR40 P * P CALL GETGEN,BPOOL(W1),BIN3,BIN4,BIN5 n P BNOK UPDR40 P PERF DEGEN PUPDR40 P TSTCTL 5 P BNZ UPDR50 JUMP IF CTAB P SET
0x105474…105608 Dummy {f00=0x0057, f01=0x018e, f02=» * P KEOI,DUMMY,DUMMY,DUMMY,DUMMY,KENTER * P SUB DEBINW2,W14 ADJUST EOI-KEY INDEX 2 PDUMMY ` PRETUR n P RET | P EJECT PKTFWD TAB. FORWARD 1 STEP " P MOVE DEBINW2,W3 SIMULATE EOI " PKEOI COMMON END-OF-ITEM KEY 0 P T
0x105608…10579c Dummy {f00=0x0057, f01=0x0190, f02=» r , P BNZ KEOI10 ***JUMP IF NO FORMAT-CHANGE P CLEAR DECHANGE 8 * P MOVE DEBINW2,W3 ***ENT-KEY SIMULATED P P B RETUR *** ~ PKEOI10 *** " P CLEAR BOOL5 ***CLEAR /SET CR . P BOK KEOI20 ***JUMP IF UNVALID/NO COND TAB 0 P CBE BIN14
0x10579c…105930 Dummy {f00=0x0057, f01=0x0190, f02=»ALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 P CALL ADJUST,DKBIN1 ! , . P BNN KEOI20 ***JUMP IF NO FORMAT OVERFLOW ! H P GETABX DEBINW4 *** ! z P B SETCREAD *** ! PKEOI20 *** ! P CBL DEBINW2,W11,KEOI30 ! P B KKEEP2 ! PKEOI30 ! P TFWD
0x105930…105ac4 Dummy {f00=0x0057, f01=0x0190, f02=» ! P B TSTTAB " PKTBWD2 " P MOVE DEBINW2,W3 EOI " ( P* " D " PKTHOME TAB. TO HOME POSITION " N & P TBT DOOLA,KTHOM2 JUMP IF BALANCE " t P TBF VERIFM,KTHOM2 " P TBT KEYVER,KTKEY " PKTHOM3 " P MOVE DEBINW1,W0 " P GETFLD 0,DEBINW
0x105ac4…105c58 Dummy {f00=0x0057, f01=0x0190, f02=»L READIN NOT FOUND " ( P BOFL KENT15 EMPTY COMPULSORY FIELD # P* # F P* # P P* CONDITIONAL TABULATION # Z P TBT DENOCHAN,KCOP10 # ~ P PERF DETCHK # P CBE DEBINW3,W0,KCOP10 # P IB DEBINW2,DUMMY,DUMMY, C # " P KTEOI,DUMMY,DUMMY,KTEO
0x105c58…105dec Dummy {f00=0x0057, f01=0x0190, f02=»KEY # P MOVE BIN11,W0 $ PKTKEY2 $ " P ADD BIN11,W1 $ 0 : P CALL GETFWD,DEBINW4,4,BIN11,DEBINW3 SEARCH FOR KEYVER $ F P CALL ADJUST,DEBINW4 $ $ P BZ SETCREAD JUMP IF VERIFYFIELD $ P B KTHOM3 $ PKTEOI $ P TBF DOOL3,KTFWD $ P MOVE DE
0x105dec…105f80 Dummy {f00=0x0057, f01=0x0190, f02=»2,KTEOI,DUMMY,UPDATE $ PKTEOI2 % P TSTCTL 5 LOOK IF CTAB % * P BNZ KENT20 YES! % H $ P IB DEBINW2,KCOP10,ERRRET,ERRRET % ` P B ERRPRINT % P* % P* STATUS KEY % P* % PSTATUS PERF DESTAT % P MOVE DEBINW1,W0 % P B ERRPRINT %
0x105f80…106114 (1, 331) Dummy {f00=0x0058, f01=0x0190, f02=»DWRT DEDSPRT,FORMF FORMFEED % P MOVE DEBINW3,W1 & $ P PRINT DEDSPRT,DEBINW3,W0 & < P PERF DETPRT RELEASE PRINTER & ^ PKCOP10 & $ P B SETCREAD SET CURSOR AND READ & P EJECT & P* & P* EDIT FIELD & P* & PKEDITX & P TSTCTL
0x106114…1062a8 Dummy {f00=0x0058, f01=0x0190, f02=»W1,W0,KEDITY & P MOVE DEBINW1,W1 ' PKEDIT ' , P GETCTL 1,DEBINW3 GET MAXL ' : P CBNE DEBINW3,W0,KED100 ' ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM ' | P B SETCREAD ' PKED100 ' P GETCTL 3,DEBINW3 GET SCHK ' " P CALL TESTB,DEBINW3,W15 MINU
0x1062a8…10643c Dummy {f00=0x0058, f01=0x0190, f02=»EINPUT,DEKTAB3,DEBINW1, C ' P DEBINW2,DEBINW4 ( " " P B DYKOUT CONTINUE AS FOR DYKI ( < PKEDITY ( b P SETCUR ( p P B KEDIT ( P* ( P* ERASE KEY ( P* ( PKERASE ( P GETABX DEBINW4 ( P ERASE 10,DEBINW4,W0 ( P TBF DOO
0x10643c…1065d0 Dummy {f00=0x0058, f01=0x0190, f02=»JUMP IF NOT ENTRY ( ~ & P MOVE DEBINW2,W11 SIMULATE KKEEP2 ) PKKEEP1 ) D P GETCTL 1,DEBINW4 GET MAXL ) R P CBE DEBINW4,W0,KENT07 ) t & P TSTCTL 2 LOOK IF COMPULSORY FIELD ) P BZ KKEEP3 NO! ) . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD ) P BP
0x1065d0…106764 Dummy {f00=0x0058, f01=0x0190, f02=» GETABX DEBINW4 ) P ADD DEBINW4,W1 * * P CALL GETFWD,DKBIN1,0,DEBINW4,DEBINW3 * 0 P CALL ADJUST,DKBIN1 * ^ P BE KKEEP5 * z P BL SETCREAD * P BOFL KENT10 * P B KKEEP4 * PKKEEP5 * P TSTCTL 5 LOOK IF CTAB * P BZ KKEEP1 * PKKEE
0x106764…1068f8 Dummy {f00=0x0058, f01=0x018e, f02=» P PERF DENDUP + P BNOK KENT20 + $ P MOVE DEBINW2,W11 SIMULATE KEEP + , P B KKEEP1 + T P EJECT + f P* + t P* ENTER KEY + ~ P* + PKENTER + P TBF DOOL3,KENT03 + P GETCTL 1,DEBINW4 GET MAXL + P CBE DEBINW4,W0,KENT06 + ( P E
0x1068f8…106a8c Dummy {f00=0x0058, f01=0x018e, f02=» + PKENT03 , * P MOVE DEBINW1,W0 INDICATE NO CLEARING , < P GETFLD 0,DEBINW1,DEBINW3 SEARCH FOR EMPTY COMP. FIELDS , D ( P BOFL KENT10 EMPTY COMP. FIELD FOUND , & P TSTCTL 2 LOOK IF COMPULSORY FIELD , P BZ KENT05 NO! , . P CALL EMPTYT,:FMTITEM LO
0x106a8c…106c20 Dummy {f00=0x0058, f01=0x0190, f02=» P CBE DEBINW2,W10,KENT07 - 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED - $ P RET - Z PKENT07 B SETCREAD - f P* - & P* EMPTY COMPULSORY FIELD FOUND - P* - PKENT10 - 6 P GETFLD 0,DEBINW3,DEBINW2 GET THE COMPULSORY FIELD - PKE
0x106c20…106db4 (1, 332) Dummy {f00=0x0058, f01=0x0190, f02=» PKENT20 YES! . P PERF DERROR,DEKTABI . P B ERRP25 . 6 P EJECT . H P* . V P* INDICATE FORCED ITEM . ` P* . ~ PKFORCE . P PERF DEFORC . P B UPDR30 . P* . P* VALID ITEM . P* . PKVALID . ( P MOVE DEBINW2,W3 RESTO
0x106db4…106f48 Dummy {f00=0x0058, f01=0x0190, f02=»4,ERRCAN JUMP IF ERRCANEL1 . , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 / " P XSTAT DEDSDYKB,DEBINW3 / R P CALL MASK,DEBINW3,W64 / r P BNZ DYK050 / P* / P* ERROR HANDLING / P* / PERRPRINT / * P TBF DOOLA,ERRP10 JUMP IF NOT BALANC
0x106f48…1070dc Dummy {f00=0x0058, f01=0x0190, f02=»LEAR-KEY / x PERRP25 0 . P IB DEBINW2,ERRRET,ERRRET,ERRRET,KEDITX C 0 P KVALID,KFORCE,KTBWD,KTHOME 0 P PERRRET 0 t P ADD DEBINW2,W2 0 PERRCAN PERF CANC 0 P CLEAR DOOL5 0 P TSTCTL 5 LOOK IF CTAB 0 P BNZ ERRET4 0 ( P IB DEBINW2,SETC
0x1070dc…107270 Dummy {f00=0x0058, f01=0x415c, f02=»AR DENOCHAN 0 PERRET2 1 P RET 1 " PERRET4 1 . ( P IB DEBINW2,SETCREAD,SETCREAD,ERRET5 1 < P B ERRET0 1 h PERRET5 1 z " P MOVE DEBINW2,W8 SIMULATE TBWD 1 P B KTBWD 1 P PEND 1 P* 1 PBELL FRMT 1 P FSL 1 P FILLR X'07',1 1
0x107270…107404 Dummy {f00=0x0058, f01=0x2008, f02=» 2 FCOPY STR1A 2 P FMEND 2 PFORMK FRMT 2 * P FCOPY :FMTITEM 2 < P FMEND 2 T PFDOTS FRMT 2 b P FSL 2 t P FTEXT =X'142E' 2 P FILLR X'2E',1 2 P FMEND 2 P END 2 @ 2 P B SETCREAD CONTINUE 1 P PEND 1 P* 1 PBELL F
0x107404…107598 Dummy {f00=0x0058, f01=0x0190, f02=» 1 R FLENGTH PLENGTH F P* 2 A FLENGTH PLENGTH WORK : BIN16= MATCHININDEX $ D P* 3 P FLENGTH PLENGTH BIN15= SAVED DITO n $ P* 4 T FLENGTH PLENGTH $ P* 5 X FLENGTH PLENGTH L P*
0x107598…10772c Dummy {f00=0x0058, f01=0x0190, f02=»DLENGTH=MAXL V L P* 8 + PLENGTH BIN12= LENGTH OF PIC.-STR H P* 9 S - PLENGTH STATSH=PICTURE-STRING d $ P* 10 , PLENGTH $ P* 11 . V PLENGTH 4 P* 1
0x10772c…1078c0 Dummy {f00=0x0058, f01=0x0190, f02=»NGTH+1 t P* L P************************************************************************ PPICMA PROC h , P MOVE STATSH,=' ' SPACES PICTURE-STRING z * P MOVE BIN12,W0 NUMB OF LAYOUT CHARS:=0 " P MOVE DEBINW1,W0 SET NCLR-BIT * P TBF BOOL6
0x1078c0…107a54 (1, 333) Opaque[0x194]
0x107a54…107be8 # DirEnt {nam=»DLRECS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b10, f03=0x0000}
0x107a54…107be8 IdxSect {
0x107a54…107be8 f00 = 0x0058 // 0x107a54 @0x0
0x107a54…107be8 f01 = 0x000c // 0x107a56 @0x2
0x107a54…107be8 gno = [ // 0x107a58 @0x4
0x107a54…107be8 [0x00]: C0x0058.0x2.0
0x107a54…107be8 [0x01]: C0x0058.0x3.0
0x107a54…107be8 [0x02]: C0x0059.0x0.0
0x107a54…107be8 [0x03]: C0x0059.0x1.0
0x107a54…107be8 [0x04]: C0x0059.0x2.0
0x107a54…107be8 [0x05]: C0x0059.0x3.0
0x107a54…107be8 ]
0x107a54…107be8 }
0x107be8…107d7c Dummy {f00=0x0058, f01=0x0190, f02=» ( P IDENT DLRECS PRR 1.0 80-02-21/DALI DDUM DEDDIV 0 PDIV D P ENTRY DERECS R P ENTRY DEREFO h EXT ATTDB ~ EXT ATTWB EXT RESTOR EXT SAVE EXT DEPOOL P EXT DEDISC P EXT OPCL P EXT U
0x107d7c…107f10 Dummy {f00=0x0058, f01=0x0190, f02=» PDERECS PROC FC * P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF P CALL UPDBIN,BIN1 L P CLEAR BOOL9 f P MOVE BIN11,FC z * P IB FC,ENTNEW,ENTOLD,ENTLST,GETNXT C P GETCUR,GETPRE,GETLST P B OTHERS EJECT ************
0x107f10…1080a4 Dummy {f00=0x0058, f01=0x0190, f02=»TATUS l MOVE PRECPR,PRECCUR ADD PRECCUR,RECLNTH , 2 P XCOPY RBUF,W6,W2,PRECCUR,W0 STORE USED SPACE H . P CBE NUMBER,=D'0',DROK00 JUMP IF BATCHHEAD ~ PENTN10 P MOVE BIN14,PRECCUR 2 . ADD BIN14,RECLNTH LOOK IF SPACE FOR ONE MOORE
0x1080a4…108238 Dummy {f00=0x0058, f01=0x0190, f02=»IF NOT GETLST x 0 P CBNE NUMBER,=D'0',ENTN25 JUMP IF NOT FIRST P B NEWR75 J PENTN25 , P XCOPY RBUF,PRECCUR,RECLNTH,RBUF,PRECPR j , P XCOPY RBUF,PRECCUR,W1,BPOOL(PINDFR),W0 P B DROK00 , PENTN30 PERF DEDISC,W14 ENTER NEW SECTOR
0x108238…1083cc Dummy {f00=0x0058, f01=0x0190, f02=»W1),W0,W2,RBUF,W2 LAST ENTERED RECORD . P TBF DEPROMPT,ENT45 JUMP IF NOT NEW FORMAT . $ P CBE FC,W7,ENT45 JUMP IF GETLAST ` , P MOVE PRECPR,PRECCUR DELETE WHOLE SECTOR PENT45 , P XCOPY PRECCUR,W0,W2,RBUF,W6 USED SPACE P CBE PRECPR,PRECCU
0x1083cc…108560 Dummy {f00=0x0058, f01=0x0190, f02=»0 j PENTN60 P MOVE PRECPR,PRECCUR P EJECT 4 P********************** B P* RETURN FROM DERECS * ` P********************** ~ PDROK00 " P XCOPY BIN1,W1,W1,RBUF,PRECCUR P CBNE FC,W5,DROK05 P XCOPY BIN3,W0,W2,RBUF,W6
0x108560…1086f4 (1, 334) Dummy {f00=0x0058, f01=0x0190, f02=» CBE PINDFR,W0,DROK20 NO CURR FORMAT 6 P CALL ATTDB,BPOOL(PINDFR),W4,W10 FORMAT DESCRIPTOR , P MOVE BIN14,FLIND(W1) f P ATTFMT BPOOL(BIN14) PDROK20 . P CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK PDROK30 P IB FC C P DROK40
0x1086f4…108888 Dummy {f00=0x0058, f01=0x0190, f02=»E C P DROK60 GETLST C P DROK70 DELREC C & P DROK60 INSREC C @ P DROK70 NEWREC C Z P DROK70 OPENBC C t P DROK40 ENTINS C P DROK40 FREREC C P DROK70 NEWFRM PDROK40 P ADD BDPOIN(W2),W1 & P TBF D
0x108888…108a1c Dummy {f00=0x0058, f01=0x0190, f02=» ( P ADD BDPOIN(W4),W1 NUMBER OF FORCED P SET BDAFOR 0 PDROK60 D . P CBNL FC,W12,DROK70 JUMP IF RECORD INSERT R , P ADD NUMBER,=D'1' ADJUST CURRENT REC.NO PDROK70 P CALL UPDBOL,BIN1 PDROK71 P MOVE BCDI21(W3),NUMBER
0x108a1c…108bb0 Dummy {f00=0x0058, f01=0x018e, f02=»10 FORMAT DESCRIPTOR r PDRNO10 . P CALL ATTWB,RBUF,PRECCUR,W10 FIX WORKBLOCK * P CBNE PINDFR,W0,DRNO20 P CBE FC,W7,DRNO15 GETLST z P CBNE FC,W4,DRNO20 GETNXT PDRNO15 P ADD NUMBER,=D'1' PDRNO20 P CLEAR DOOL1 P C
0x108bb0…108d44 Dummy {f00=0x0058, f01=0x0190, f02=» v , P MOVE BDPOIN(W1),CURSEC SAVE LAST SECTOR P PERF OFRSP,CURSEC,FILINDUS 8 P B DROK10 P EJECT n * P************************************** | * P* ENTER OLD RECORD AFTER CORRECTION. * * P************************************** PEN
0x108d44…108ed8 Dummy {f00=0x0058, f01=0x0190, f02=»RENT SECTOR t P BERR DRNO00 P B DROK00 ( P EJECT : P************************* H P* ENTER LAST DATARECORD. j P************************* PENTLST FC= 3 , P XCOPY BIN14,W0,W2,RBUF,W2 LINK TO PREV PENTL10 , P XCOPY P
0x108ed8…10906c Dummy {f00=0x0058, f01=0x0190, f02=»3,=W'27' $ P PERF DEDISC,BIN13 DELETE BATCH P BERR DRNO00 8 P B DROK71 L PENTL15 ^ " P PERF DEDISC,W17 DELETE SECTOR l P BERR DRNO00 P MOVE CURSEC,BIN14 P B GETL05 PENTL20 P MOVE BDPOIN(W1),CURSEC P PERF DE
0x10906c…109200 Dummy {f00=0x0058, f01=0x0190, f02=»W1) | P B GETL20 GET LAST RECORD PENTL30 . P MOVE BDPOIN(W1),BIN14 < P B DRNO00 Z EJECT l *********************** z * GET NEXT RECORD *********************** PGETNXT FC= 4 P XCOPY BIN14,W0,W2,RBUF,W6
0x109200…109394 (1, 335) Dummy {f00=0x0059, f01=0x0190, f02=»3 r P ADD PRECCUR,RECLNTH P MOVE BIN13,PRECCUR & * P MOVE BIN12,CURSEC SAVE CURRENT SECTOR B 6 P CBL PRECCUR,BIN14,GETN45 JUMP IF MOORE IN SECTOR p PGETN10 , ( XCOPY BIN13,W0,W2,RBUF,W4 GET NEXT LINK 0 P CBNE BIN13,W0,GETN30 JUMP IF MO
0x109394…109528 Dummy {f00=0x0059, f01=0x0190, f02=»3,=W'33' P PERF DEDISC,BIN13 P CBNE DEBINW4,W0,DRNO00 * PGETN28 J & P MOVE DEBINW4,W15 NO MOORE RECORDS X P B DRNO00 PGETN30 & ! PERF DEDISC,W15 READ NEXT SECTOR P BERR DRNO00 . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPAC
0x109528…1096bc Dummy {f00=0x0059, f01=0x0190, f02=»TN40 MOVE BIN14,BIN13 P MOVE PRECCUR,W10 P MOVE PRECPR,PRECCUR 8 PGETN45 T * P ADD NUMBER,=D'1' INCREASE CURR RECNO b PGETN50 P CMP BCDI21(W3),NUMBER $ P BG GETNXT READ NEXT DATARECORD P BE GETN55 RECORD FOUND " P B G
0x1096bc…109850 Dummy {f00=0x0059, f01=0x018e, f02=»IN15,WORK(W12) MSK-WORD P CBE BIN15,WORK(W11),GETN70 & P CBE FC,W6,GETN60 JUMP IF GETPREV D P CBE FC,W3,GETN60 OR ENTLST n 0 P ADD BCDI21(W3),=D'1' INCREASE SEARCHNUMBER P B GETNXT READ NEXT RECORD PGETN60 . P CBE NUMBER,=D'0',
0x109850…1099e4 Dummy {f00=0x0059, f01=0x0190, f02=» z P ADD BIN13,W1 P B GETL90 P EJECT 0 " P***************************** > P* GET CURRENT DATARECORD. d " P***************************** PGETCUR FC= 5 ( P TBT DOOL4,GETC60 JUMP IF CORRECTION * P CBE NUMBER,=D'0',GETC60 O
0x1099e4…109b78 Dummy {f00=0x0059, f01=0x018e, f02=»WITHIN SECTOR " P B GETP10 GET PREVIOUS RECORD PGETC10 < P MOVE BIN13,W1 J * P ADD BIN13,PRECPR LOOK FOR FORMATNAME ` PGETC20 P COPY STR6A,W0,W6,RBUF,BIN13 P XCOPY BIN13,W0,W2,RBUF,W4 * P CBNE BIN13,W0,GETC40 JUMP IF NOT LAST
0x109b78…109d0c Dummy {f00=0x0059, f01=0x0190, f02=» PGETC30 SET DEPROMPT P B DROK00 PGETC40 2 * P XCOPY RBUF,W2,W2,CURSEC,W0 LINK PREV @ P MOVE CURSEC,BIN13 n , P XCOPY RBUF,W4,W2,BIN11,W0 LINK TO NEXT P MOVE PRECCUR,W10 , P XCOPY RBUF,W6,W2,PRECCUR,W0 USED SPACE P CBNE
0x109d0c…109ea0 Dummy {f00=0x0059, f01=0x018e, f02=» P PERF DEDISC,BIN13 P BERR DRNO00 P B DROK00 2 P EJECT D " P***************************** R P* GET PREVIOUS DATARECORD. x " P***************************** PGETPRE FC= 6 P CBNL PRECPR,PRECCUR,GETP10 P B GETL40
0x109ea0…10a034 (1, 336) Dummy {f00=0x0059, f01=0x0190, f02=» ( P XCOPY BIN13,W0,W2,RBUF,W2 LINK PREV P CBNE BIN13,W0,GETP40 4 P B GETN20 R PGETP40 d . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE r P CBNE BIN13,W10,GETP45 P CBE FC,W5,GETP45 " P MOVE BIN14,W17 DELETE SECTOR P B GET
0x10a034…10a1c8 Dummy {f00=0x0059, f01=0x0190, f02=» . ) XCOPY BIN13,W0,W2,RBUF,W6 GET USED SPACE P CBE BIN13,W10,GETP30 : ( P CBE BIN14,W17,GETL05 DELETED SECTOR X P B GETL15 P EJECT " P***************************** P* GET THE LAST DATARECORD. " P****************************
0x10a1c8…10a35c Dummy {f00=0x0059, f01=0x0190, f02=»L15 CURR.SEC IN RBUF v P MOVE CURSEC,BDPOIN(W1) PGETL05 < P MOVE BIN14,=W'33' J P PERF DEDISC,BIN14 d PGETL10 ~ P BERR GETN25 & PGETL15 XCOPY PRECCUR,W0,W2,RBUF,W6 PGETL20 P MOVE BIN14,W17 P MOVE PRECPR,W10 P
0x10a35c…10a4f0 Dummy {f00=0x0059, f01=0x0190, f02=»13 P CBL PRECPR,PRECCUR,GETL25 0 P CBE PRECPR,PRECCUR,GETL30 LAST RECORD FOUND , PGETL27 SERIOUS ERROR ` . P XCOPY RBUF,W6,W2,PRECPR,W0 OCCUPIED SPACE ~ P MOVE PRECCUR,PRECPR P B GETN28 PGETL30 SUB PRECPR,BIN13 PGETL40 MOV
0x10a4f0…10a684 Dummy {f00=0x0059, f01=0x018e, f02=» CBE FC,W7,GETL60 JUMP IF GETLST P MOVE PRECCUR,PRECPR ( P SUB NUMBER,=D'1' D P CBNE FC,W3,GETL55 ^ , P MOVE BCDI21(W3),NUMBER ENT LAST RECORD x PGETL55 P B GETN50 PGETL60 P MOVE NUMBER,BDPOIN(W2) PGETL90 " P COP
0x10a684…10a818 Dummy {f00=0x0059, f01=0x018e, f02=» : P IB BIN11,DELREC,INSREC,NEWREC,OPENBC,ENTINS,FREREC C P NEWFRM B P* DELETE CURRENT RECORD. * R PDELREC t P PERF DEREC2,BIN11 P BERR GETN25 HANDLE ERROR PDELR60 CBE BIN14,W17,GETP50 P B GETPRE " P* RESERV SPACE FOR I
0x10a818…10a9ac Dummy {f00=0x0059, f01=0x0190, f02=» P EJECT P******************** P* CHANGE FORMAT PROG 2 P******************** N PNEWREC FC=10 j $ P CBE FC,W4,NEWR05 JUMP IF GETNXT 4 P CBNE NUMBER,=D'0',NEWR05 JUMP IF NOT BATCHHEAD $ P CBE FC,W7,NEWR07 JUMP IF GETLST P
0x10a9ac…10ab40 Dummy {f00=0x0059, f01=0x018e, f02=»NEWFRM P SET BOOL9 PNEWR10 P TBF BOOL9,NEWR15 . P MOVE BIN13,W1 H P MOVE DEBINW4,W10 ^ P B NEWR20 x PNEWR15 P MOVE BIN13,W11 P MOVE DEBINW4,W20 PNEWR20 P MOVE STR6A,DEINPUT * PNEWR25 CBE STR6A,FOR
0x10ab40…10acd4 (1, 337) Dummy {f00=0x0059, f01=0x0190, f02=» P MOVE BIN13,W0 P B NEWR35 PNEWR28 , P MOVE DEBINW4,W18 : P B DRNO00 T PNEWR30 f P TBT BOOL9,NEWR35 t P SUB BIN13,W10 PNEWR32 P MOVE STR6A,FORTAB(BIN13) PNEWR35 P CBNE FORMAT,STR6A,NEWR37 P TBF
0x10acd4…10ae68 Dummy {f00=0x0059, f01=0x0190, f02=»0 ENTRY NEW BATCHHEAD PNEWR36 P B DROK00 , PNEWR37 MOVE DEINPUT,HEX00 > P COPY DEINPUT,W0,W6,STR6A,W0 ` $ P CBE FC,W4,NEWR40 JUMP IF GETNXT $ P CBE FC,W7,NEWR40 JUMP IF GETLST P CBNE NUMBER,=D'0',NEWR40 P MOVE FRMTPNTR,SYM
0x10ae68…10affc Dummy {f00=0x0059, f01=0x0190, f02=» MOVE FRMTPNTR,SYMREC(BIN13) PNEWR45 $ P PERF DEDISC,W10 GET FORMAT 2 P BOK NEWR49 V * P CBE DEBINW4,W13,NEWR46 NO BUFFERSPACE j , P CBE PINDFR,W0,NEWR47 NO CURRENT FORMAT $ P CBE DEBINW4,W9,NEWR28 NOT FOUND P B DRNO00 PNEWR46
0x10affc…10b190 Dummy {f00=0x0059, f01=0x018e, f02=»WR47 P MOVE BIN13,W7 ! P ADD BIN13,PRECCUR ! " " P CBNE FC,W7,NEWR44 NOT GETLST ! < P MOVE BIN14,W7 ! b P ADD BIN14,PRECPR ! x $ P XCOPY RBUF,BIN13,W2,RBUF,BIN14 ! PNEWR44 ! $ P XCOPY RECLNTH,W0,W2,RBUF,BIN13 ! P B DRNO00 ! PNEWR48
0x10b190…10b324 Dummy {f00=0x0059, f01=0x0190, f02=» $ P CBE FC,W4,NEWR50 JUMP IF GETNXT " $ P CBE FC,W7,NEWR50 JUMP IF GETLST " , P CBNE BIN13,W0,NEWR53 " T P CLEAR BOOL9 " r P B NEWR51 " PNEWR53 " . P CBE NUMBER,=D'0',NEWR55 JUMP IF BATCHHEAD " PNEWR50 " 0 P CBNE BIN13,W0,NEWR52 EXIST IN JOB
0x10b324…10b4b8 Dummy {f00=0x0059, f01=0x018e, f02=» P ADD BIN13,W10 # P B NEWR60 # PNEWR55 # , P MOVE SYMREC(W10),FRMTPNTR # : PNEWR60 # P MOVE SYMBOL,FORTAB(BIN13) # j PNEWR65 # P SET DEPROMPT # PNEWR70 # P MOVE BIN13,PRECCUR # P TBT BOOL9,NEWR77 # PNEWR75 # * P XCOPY
0x10b4b8…10b64c Dummy {f00=0x0059, f01=0x0190, f02=» & P CBE NUMBER,=D'0',NEWR76 BATCHHEAD $ & P XCOPY RBUF,PRECCUR,W9,RBUF,PRECPR $ . P PERF DEREFO $ X P BNOK DRNO30 $ l PNEWR76 $ P B ENTN10 $ PNEWR78 $ P PERF DEREFO $ P BNOK DRNO30 $ P B DROK00 $ PNEWR80 $ P ADD BIN13,W1 $
0x10b64c…10b7e0 Dummy {f00=0x0059, f01=0x018e, f02=»OPEN BC $ p P B DROK00 % PNEWR90 % " P SET DOOL4 % 0 P B ENTN10 % B P EJECT % T * P************************************** % b P* % ( P* READ IN CURRENT JOBDEFINITION AND % P* OPEN WANTED BATCH. % P* % * P****************************
0x10b7e0…10b974 (1, 338) Dummy {f00=0x0059, f01=0x0190, f02=» P BZ OPBC05 JUMP IF NOT & " P TEST DOOL1 LOOK IF THIS BATCH & " P IS TO BE RECOVERED & H P BZ DROK71 NOT RECOVERY & f P B DROK00 RECOVERY & POPBC05 & P CBE BIN11,W7,OPBC07 & P CBNE BIN11,W5,OPBC10 & P* SEARCH OR CONVERSION MODE &
0x10b974…10bb08 Dummy {f00=0x0059, f01=0x0190, f02=»ILINDUS LOOK IF RECOVERY & | P BNZ DROK00 YES ' P SUB BDPOIN(W2),W1 ' 8 P B NEWR70 ' R $ POPBC20 PROGRAM 53 SEARCRECORD ' d P MOVE DEBINW3,BCDI21(W3) ' P CMP DEBINW3,BDPOIN(W2) ' P BNG GETN50 ' P MOVE NUMBER,BDPOIN(W2) ' * P PERF DE
0x10bb08…10bc9c Dummy {f00=0x0059, f01=0x0190, f02=» FC=12 ' P PERF DEREC2,BIN11 ( P B ENTOLD ( ( P PEND ( : P EJECT ( H & P********************************* ( V P* ( " P* THIS ROUTINE CHECKS THAT THE ( $ P* OCCUPIED RECORDSIZE WITHIN THE ( " P* FORMAT NOT HAS BEEN CHANGED ( $ P* SINCE TH
0x10bc9c…10be30 Dummy {f00=0x0059, f01=0x018e, f02=»FO PROC ( P MOVE DEBINW4,W7 ) P ADD DEBINW4,PRECCUR ) ( & P XCOPY DEBINW3,W0,W2,RBUF,DEBINW4 ) D P CBNE DEBINW3,RECLNTH,DEREF1 ) n P CMP W1,W1 CONDITION = 0 ) RET ) PDEREF1 ) P MOVE BCD13A,DEBINW3 ) P MOVE DEBINW4,=W'38' ) P DIV
0x10be30…10bfc4 Dummy {f00=0x0059, f01=0x4076, f02=» ) P FTEXT ' FROM DISC.' * P FNL * $ P FKI 1,ALPHA * 0 P FCOPY HEX00 * D P FMEND * X P END * f@ * rBINW3,RECLNTH,DEREF1 ) n P CMP W1,W1 CONDITION = 0 ) RET ) PDEREF1 ) P MOVE BCD13A,DEBINW3 ) P MOVE DEBINW4,=W'38' ) P DIV
0x10bfc4…10c158 Dummy {f00=0x0059, f01=0x2008, f02=» + OIN(W2),W1 P B NEWR70 PENTINS FC=12 , P PERF DEREC2,BIN11 B P B ENTOLD P PEND n P END |@ F DEREC2,BIN11 P BNOK DRNO20 P CBNE BIN11,W5,OPBC10 P* SEARCH MODE " P IB BIN12,DROK71,DROK71,DROK00
0x10c158…10c2ec Dummy {f00=0x0059, f01=0x0190, f02=» 800221 D:CB40C > ,C:CB50 800221 C:CB50C & ,D:CB50 800221 D:CB50C : ,Z:TB20 800221 Z:TB20T ,D:TB20 800221 D:TB20T B ,Z:TB30 800221 Z:TB30T
0x10c2ec…10c480 Dummy {f00=0x0059, f01=0x0190, f02=» B ,Z:TB50 # 800221 Z:TB50T ,D:TB50 $ 800221 D:TB50T F ,Z:TB60 % 800221 Z:TB60T 2 ,D:TB60 & 800221 D:TB60T . *DEDDIV ' 800221 $$$TRA DENTER ( 800221 $$$TR
0x10c480…10c614 (1, 339) Opaque[0x194]
0x10c614…10c7a8 # DirEnt {nam=»DLNT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b40, f03=0x0000}
0x10c614…10c7a8 IdxSect {
0x10c614…10c7a8 f00 = 0x005a // 0x10c614 @0x0
0x10c614…10c7a8 f01 = 0x000e // 0x10c616 @0x2
0x10c614…10c7a8 gno = [ // 0x10c618 @0x4
0x10c614…10c7a8 [0x00]: C0x005a.0x0.0
0x10c614…10c7a8 [0x01]: C0x005a.0x1.0
0x10c614…10c7a8 [0x02]: C0x005a.0x2.0
0x10c614…10c7a8 [0x03]: C0x005a.0x3.0
0x10c614…10c7a8 [0x04]: C0x005b.0x0.0
0x10c614…10c7a8 [0x05]: C0x005b.0x1.0
0x10c614…10c7a8 [0x06]: C0x005b.0x2.0
0x10c614…10c7a8 ]
0x10c614…10c7a8 }
0x10c7a8…10c93c Dummy {f00=0x005a, f01=0x0190, f02=» $ P IDENT DLNT01 PRR 80-02-21/DALI P DDUM DEDDIV , P PDIV @ P ENTRY DENT01 N P EXT DERECS d P EXT DEACC x P EXT DECLRN P EXT DECLRD P EXT DECLRA P EXT DECLRS P EXT DERROR P EXT DELAST P EXT C
0x10c93c…10cad0 Dummy {f00=0x005a, f01=0x0190, f02=»XT SETB SET A BIT IN A BIN & P EXT GETDUP LOOK FOR DUPLICATION- " P STRING FOR CURRENT FIELD L & P EXT DEDISC DISC HANDLING ROUTINE p & P EXT DEPOOL POOL HANDLING ROUTINE P EXT MASK P EXT EMPTYT P EXT DELOCK P EXT DEPRU
0x10cad0…10cc64 Dummy {f00=0x005a, f01=0x0190, f02=» ENTERED DATA P* . P***************************************** PDATAIN R & P TBT DOOL8,DAT04 JUMP IF OPEN NEW ` P* $ P TBF VERIFM,DAT0X VERIFY MODE ? ( P TBF DBOMVR,DAT05 RECORD TO VERIFY ? ( P TBF DBOVER,DAT05 VERIFIED RECOR
0x10cc64…10cdf8 Dummy {f00=0x005a, f01=0x0190, f02=»CHANGE CHANGED INPUTFIELD $ P TBT VERIFM,DAT05 VERIFY MODE ? " & P TBF DEPROMPT,DAT07 ENTIRE DISPLAY J PDAT04 t , P CLEAR BOOL3 F=NO/UNVALID IMMID.FORM CH . P MOVE STSAVE(W4),HEX00 FORMAT NAME:=000000 & P PERF DECLRA CLEAR ALL INPUTFIELDS
0x10cdf8…10cf8c Dummy {f00=0x005a, f01=0x0190, f02=» P B DAT03 PDAT05 ( P TBT KEYVER,DAT06 KEY VERIFICATION ? " PDAT0X N & P SET DENOCHAN NO CHANGES PERMITTED PDAT06 ( P PERF DECLRD DISPLAY VARIABEL FIELDS : PDAT03 IB DEBINW2,CANCDA,RETUDA,DATENT,RFWDDA,RBWDDA C ( P CORDAT,D
0x10cf8c…10d120 Dummy {f00=0x005a, f01=0x018e, f02=» PDATER2 $ P TBF VERIFM,DATER3 VERIFY MODE ? * P TBT KEYVER,DATER3 KEY VERIFICATION ? : & P SET DENOCHAN NO CHANGES PERMITTED h P* PDATER3 * P CBE PINDFR,W0,DATER4 NO ENTRY FORMAT P ATTACHED. P PERF DERR P B DAT03
0x10d120…10d2b4 (1, 340) Dummy {f00=0x005a, f01=0x0190, f02=» P B DATER4 PDATER7 ( P IB DEBINW2,DATER5,DATER5 CLR,CAN C $ ( P RETUDA,RFWDDA,DATER6,TOTDA,PROGDA P PDATER5 | 2 P COPY DEINPUT,W0,W6,STR6A,W0 RESTOR FORMATNAME P PERF DERECS,W14 GET FORMAT P BNOK DATER4 $ P TBT VERIFM,DAT0
0x10d2b4…10d448 Dummy {f00=0x005a, f01=0x018e, f02=»SERT ~ P B DAT0X PDATER6 ( P CBE NUMBER,=D'0',DATER8 BATCHEAD=0 * P B RBWDDA V PDATER8 h P MOVE DEBINW4,W15 v P B DATER4 P EJECT P***************** P* CANCEL PRESSED. P***************** PCANCDA
0x10d448…10d5dc Dummy {f00=0x005a, f01=0x0190, f02=» PCANC03 ( P TBF DOOL2,CANC10 JUMP IF NOT INSERT * P MOVE DEBINW2,W5 SIMULATE RBWD PRESSED > P B RBWD10 l PCANC10 ~ , P TBT DECHANGE,CANC20 CHANGED INPUTFIELD? $ P TBT VERIFM,CANC13 VERIFY MODE ? & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3
0x10d5dc…10d770 Dummy {f00=0x005a, f01=0x0190, f02=»IFY ? p ( P TBT DBOVER,CANC15 VERIFIED RECORD ? P PERF DEVERS SET VERIFY MODE : PCANC13 ^ & P CLEAR DENOCHAN CHANGES PERMITTED l & P ERASE 1,W1,W0 ERASE ALL ON SCREEN P B DAT05 PCANC15 P PERF DECLRN P B DAT03 PCANC20
0x10d770…10d904 Dummy {f00=0x005a, f01=0x0190, f02=»INPUTFILED ? x " P CLEAR DEPROMPT ENTIRE DISPLAY P BNZ DAT04 : , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP L P B DAT06 | P EJECT P***************** P* RETURN PRESSED. P***************** PRETUDA P TBT DENOCHAN,RETU
0x10d904…10da98 Dummy {f00=0x005a, f01=0x0190, f02=»ECORD t P BNERR SERIOUS PRETU03 $ P PERF DERROR,DEKTAB6 2 PRETU05 N P B SERIOUS P**************** n P* ENTER PRESSED. P**************** PDATENT $ P TBF VERIFM,DAEN00 VERIFY MODE ? PVERIFY " P SET DBOVER VE
0x10da98…10dc2c Dummy {f00=0x005a, f01=0x0190, f02=»IFY ? p 2 P SUB BDPOIN(W5),W1 NUMBER OF RECORDS TO VERIFY P B RFWD10 D P EJECT V PDAEN00 d 4 P TBF DECHANGE,DAEN10 NO ACCUMULATE WHEN NO INPUT r ( P PERF DEACC,W0 INCREASE ACCUMULATORS & PDAEN10 CLEAR DOOL2 RECORD INSERT ? P BZ DAEN
0x10dc2c…10ddc0 Dummy {f00=0x005a, f01=0x0190, f02=»NGE p P B DAEN59 PDAEN15 & P SET DENOCHAN NO CHANGES PERMITTED , * P PERF DERECS,W12 ENTER INSERTED RECORD V P BOK DAEN30 PDAEN20 ( P PERF DEACC,W1 DECREASE ACCUMULATORS P B DATER2 PDAEN30 P MOVE BCD13A,NUMBER
0x10ddc0…10df54 (1, 341) Dummy {f00=0x005a, f01=0x0190, f02=»ERMITTED v P B DAT03 P EJECT P* HANDLE NORMAL INPUT . P* L PDAEN50 V * P TBF DOOL8,DAEN60 OPEN NEW/BATCHHEAD ? d 2 P CALL CLEARB,BIN1,W0 CLEAR DOOL8 IN REC.STATUS PDAEN60 P TBF DECHANGE,DAEN61 P PERF DERECS,W1 ENTER
0x10df54…10e0e8 Dummy {f00=0x005a, f01=0x0190, f02=»CHANGE FOUND z PDAEN59 . P MOVE DEBINW4,W3 FORMATNAME=IMMIDIATE (N) " P B DAEN63 T PDAEN62 f P CLEAR BOOL3 CLEAR/SET CR t & P BOK DAEN65 NO FORMAT CHANGE FOUND 2 P MOVE DEBINW4,W4 FORMATNAME=NEXT AFTER (R)EG PDAEN63 8 P CAL
0x10e0e8…10e27c Dummy {f00=0x005a, f01=0x0190, f02=»DAEN66 P CLEAR DOOL8 OPEN NEW BATCH " P PERF DERECS,W14 CHANGE FORMAT 2 P BOK DAEN64 X P CBNE NUMBER,=D'0',DAEN69 l P SET DENOCHAN PDAEN69 P B DATER2 PDAEN64 P SET SOOL2 PDAEN65 P SET SOOL2 P BNZ
0x10e27c…10e410 Dummy {f00=0x005a, f01=0x0190, f02=» PDAEN68 P CLEAR DOOL8 PDAEN70 & P CLEAR DECHANGE 4 P BZ DAT0 L P CLEAR SW95PR P BZ DAEN80 r P MOVE DEBINW4,=W'-1' P PERF DERROR,DEKTABS $ P IB DEBINW2,DAEN80,DAEN80,RETUDA PDAEN80 & P PERF DEPRUT,PRNUM,DEB
0x10e410…10e5a4 Dummy {f00=0x005a, f01=0x0190, f02=» P PERF DEVERS SET VERIFY MODE P B RFWD02 ( PDAEN85 : P B DAT0 H P EJECT X P****************** f P* RECORD FORWARD. P****************** PRFWDDA P TBT DECHANGE,RFWD07 $ P TBT VERIFM,RFWD04 VERIFY MODE ? & P T
0x10e5a4…10e738 Dummy {f00=0x005a, f01=0x018e, f02=»MVR,RFWD03 RECORD TO VERIFY P PERF DEVERS SET VERIFY MODE $ P TBT DBOVER,RFWD10 H PRFWD02 b P PERF DELAST,W9,DEKTAB8 p P B CANC13 PRFWD04 ( P TBT DBOVER,RFWD10 VERIFIED RECORD ? P PERF DELAST,W9,DEKTAB8 P B CANC15
0x10e738…10e8cc Dummy {f00=0x005a, f01=0x0190, f02=» p PRFWD05 P TBT DENOCHAN,RFWD10 PRFWD07 2 P B DATERR @ PRFWD10 R P MOVE DEBINW3,NUMBER ` $ P CBNE DEBINW3,BDPOIN(W2),RFWD15 | P TEST VERIFM & P BNZ TOTBAL JUMP VERIFY TO BALANCE PRFWD13 P CBNE NUMBER,=D'0',RFWD1
0x10e8cc…10ea60 Dummy {f00=0x005a, f01=0x0190, f02=»ERIFM,RFWD23 VERIFY MODE? P PERF DELAST,W15,DEKTABR " ( P IB DEBINW2,PROCAN,PROCAN,RETUDA C B P RFWD18,RBWDDA n P MOVE DEBINW2,W4 PRFWD22 P MOVE BCDI21(W3),DEINPUT " P CBG BCDI21(W3),NUMBER,RFWD17 $ PRFWD16 ILLEGAL NUMBE
0x10ea60…10ebf4 (1, 342) Dummy {f00=0x005a, f01=0x018e, f02=»3) z 0 P CBNG DEBINW3,BDPOIN(W2),RFWD19 WITHIN BATCH $ P MOVE BCDI21(W3),NUMBER RESTORE > P B RFWD14 NOT FOUND f PRFWD18 P SUB DEBINW1,W1 P BNZ RFWD22 PRFWD23 P MOVE BCDI21(W3),NUMBER P ADD BCDI21(W3),=D'1' P
0x10ebf4…10ed88 Dummy {f00=0x005a, f01=0x0190, f02=» P BOK RFWD40 P BOFL RETU03 P CLEAR DOOLC 0 & P CBNE PINDFR,W0,RFWD33 CURR FORMAT D * P CBE DEBINW2,W5,RFWD31 RBWD PRESSED ? n $ P TBF VERIFM,RFWD31 VERIFY MODE ? * P CBE DEBINW4,W13,RFWD20 NO WORKSPACE ? PRFWD31 & P CBE NUM
0x10ed88…10ef1c Dummy {f00=0x005a, f01=0x0190, f02=» TBF VERIFM,RFWD38 P TBT KEYVER,RFWD35 P DISPLAY 30,W1,W0 4 P B RFWD39 N PRFWD35 ` P DISPLAY 20,W1,W0 n P B RFWD39 PRFWD38 P CMP DEBINW4,W15 $ P BZ TOTBAL JUMP TO BAL IF SEARCH P DISPLAY 0,W1,W0 PRFWD39
0x10ef1c…10f0b0 Dummy {f00=0x005a, f01=0x0190, f02=»PRUT,PRNUM,DEBINW4,DEBINW3 & P CBNE DEBINW4,W6,RFWD50 NOT VERIFY " P TBF DBOMVR,RFWD10 L P PERF DEVERS SET VERIFY MODE f P TBT DBOVER,RFWD10 & P CLEAR DENOCHAN CHANGES PERMITTED P B DAT05 PRFWD50 P CLEAR DECHANGE PRFWD
0x10f0b0…10f244 Dummy {f00=0x005a, f01=0x0190, f02=»VERIFM P BZ DAT0X P B DAT05 P EJECT 0 P***************** > P* RECORD BACKWARD X P***************** r P* PRBWERR B DATERR P* PRBWDDA TBT DECHANGE,RBWERR P TBF SOOL2,RBWERR & P TBT DOOL2,RBWD10 IN
0x10f244…10f3d8 Dummy {f00=0x005a, f01=0x0190, f02=»HAN,RBWD15 & P SET DENOCHAN NO CHANGES PERMITTED & P PERF DERECS,W3 ENTER LAST SECTOR < P BERR DATER2 f P B RFWD50 z PRBWD10 & P SET DENOCHAN NO CHANGES PERMITTED " P CLEAR DOOL2 INSERT OF RECORD? P BNZ RBWD28 YES! PRBWD15
0x10f3d8…10f56c Dummy {f00=0x005a, f01=0x0190, f02=»20 P MOVE BCDI21(W3),DEINPUT " P CBNL BCDI21(W3),NUMBER,RFWD16 * P B RBWD30 P PRBWD25 b P SUB DEBINW1,W1 p P BNZ RBWD20 PRBWD28 P MOVE BCDI21(W3),NUMBER P SUB BCDI21(W3),=D'1' PRBWD30 * P ERASE 1,W1,W0 ERA
0x10f56c…10f700 Dummy {f00=0x005a, f01=0x0190, f02=»CORD CORRECTION P******************* PCORDAT 4 P TBT VERIFM,CORD10 B P TBF DENOCHAN,RBWERR PCORD10 x P TBT DOOL2,RBWERR INSERT . P MOVE WORK(W10),BIN1 SAVE CURR REC.STATUS P CLEAR DBOVER P CLEAR DBOFOR ( P PER
0x10f700…10f894 (1, 343) Dummy {f00=0x005b, f01=0x0190, f02=»VERC CLEAR IF VERIFY MODE P BZ CORD20 " P PERF DECLRD 4 P B CORD30 H PCORD20 Z P PERF DECLRN h * PCORD30 IB DEBINW2,CORCAN,CORC10,CORENT | P MOVE DEBINW4,W0 PCORD40 P PERF DERR P B CORD30 PCORCAN ( P TBF D
0x10f894…10fa28 Dummy {f00=0x005b, f01=0x0190, f02=»ENT RECORD x P BNERR CORRET P CLEAR DOOL4 ( P B CORD40 < PCORRET N P CLEAR DOOL4 PCORE15 p ( P PERF DEACC,W2 INCREASE ACCUMULATORS ~ P CLEAR DECHANGE P THOME P MOVE BIN1,WORK(W10) , PCORR30 IB DEBINW2,CORE10,SER
0x10fa28…10fbbc Dummy {f00=0x005b, f01=0x0190, f02=»,DEBINW3,DEBINW3 ERASE LAST LINE & P CBNE DEBINW2,W1,CORE15 NOT CANCE ( * P CALL UPDBOL,BIN1 ORIGINATE REC.STATUS R P B CORE45 PCORE20 P GETFLD 0,W1,DEBINW1 P CLEAR DECHANGE P CALL TESTB,BIN1,W12 FORCED P BZ CORE40
0x10fbbc…10fd50 Dummy {f00=0x005b, f01=0x0190, f02=»STB,BIN1,W10 VERIFIED P BZ CORE45 ! P TBF DBOMVR,CORE45 ! 0 P CALL CLEARB,BIN1,W10 ! J ( P ADD BDPOIN(W5),W1 NUMBERS TO VERIFY ! h PCORE45 ! & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 ! P CBNE DEBINW4,W6,CORE60 ! P TBF DBOMVR,CORE60 ! P T
0x10fd50…10fee4 Dummy {f00=0x005b, f01=0x018e, f02=»BNE DEBINW2,W1,CORE90 JUMP IF NOT CANCEL ! P B DAT06 " 0 PCORE90 " @ P PERF DECLRN " N P B DAT03 " b P EJECT " r P***************** " P* RECORD DELETE. " P***************** " PDLTEDA " P TEST DENOCHAN " P BZ DATERR " P TEST
0x10fee4…110078 Dummy {f00=0x005b, f01=0x0190, f02=» " v , P IB DEBINW2,PROCAN,PROCAN,RETUDA,DLTE10 # & P ERASE 1,W1,W0 ERASE ALL ON SCREEN # 8 ( P PERF DEACC,W1 DECREASE ACCUMULATORS # b P THOME # PDLTE30 # P PERF DERECS,W8 # P BNERR DLTE40 # P PERF DERROR,DEKTAB6 # P B SERIOUS # PDL
0x110078…11020c Dummy {f00=0x005b, f01=0x0190, f02=»2,DELERR,RETUDA,DELERR,RFWD20,RFWD50,DELERR, C # P DELERR,TOTDA $ 8 PDELERR $ N ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM $ P B DLTE50 $ P EJECT $ P******************* $ P* CHANGE PROGRAM. * $ P******************* $ PPROGDA $
0x11020c…1103a0 Dummy {f00=0x005b, f01=0x018e, f02=» $ PPROGD0 % P PERF DELAST,W1,DEKTAB7 % , P IB DEBINW2,PROCAN,PROCAN,RETUDA,PROGD0 % 6 PPROENT SUB DEBINW1,W1 % f P BZ PROGD0 JUMP IF NO INPUT % 6 P COPY DEINPUT,DEBINW1,W1,HEX00,W0 DELETE ENTER-KEY % $ P PERF DERECS,W10 CHANGE PROGRAM %
0x1103a0…110534 (1, 344) Dummy {f00=0x005b, f01=0x0190, f02=» P EJECT & P****************** & P* RECORD INSERT. * & , P****************** & F PINSRDA & ` P TEST DOOL2 & n P BNZ DATERR & & P PERF DEPRUT,PRNUM,DEBINW4,DEBINW3 & P CBNE DEBINW4,W6,INSR05 & P TBF DBOMVR,INSR05 & P TBT DBOVER,IN
0x110534…1106c8 Dummy {f00=0x005b, f01=0x0190, f02=»R10 LAST RECORD & t & P CLEAR DENOCHAN CHANGES PERMITTED ' P B CANBL1 ' B PINSR10 ' T P PERF DELAST,W4,DEKTAB7 ' b , P IB DEBINW2,PROCAN,PROCAN,RETUDA,INSR10 ' " P PERF DERECS,W9 INSERT RECORD ' P BERR DATER2 ' & P CLEAR DENOCHAN CHANGES PERM
0x1106c8…11085c Dummy {f00=0x005b, f01=0x0190, f02=»**** ' P* TOT-KEY PRESSED. * ( P******************** ( ( PTOTDA ( D P TEST DOOL8 ( R P BNZ DATERR ( f P TBF SOOL2,TOTBAL ( z P CLEAR DOOL2 INSERT ( P BNZ TOTBAL ( P TEST DECHANGE ( P BNZ DATERR ( P TBT DENOCHAN,TOTBAL (
0x11085c…1109f0 Dummy {f00=0x005b, f01=0x0190, f02=»ER2 ( P EJECT ) . P***************************************** ) P* ) L P* HANDLE BALANCE FORMAT ) V P* ) v . P***************************************** ) PTOTBAL ) & P CLEAR DENOCHAN CHANGES PERMITTED ) P CLEAR SOOL2 ) P MOVE DEIN
0x1109f0…110b84 Dummy {f00=0x005b, f01=0x0190, f02=» DOOLA ) PTOTB10 * P PERF DEDISC,W10 GET FORMAT * P BNERR TOTB20 * @ * P CBNE DEBINW4,W13,TOTB12 NO WORKSPACE * V & P ATTFMT FFETCH ATTACH DUMMYFORMAT * P DISPLAY 0,W1,W0 * P THOME * * P CBE PINDFR,W0,TOTB12 NO CURR. FORMAT * ( P PERF
0x110b84…110d18 Dummy {f00=0x005b, f01=0x0190, f02=»RMAT,FORTAB(W21) BLANCE NAME * P MOVE SYMREC(W11),FRMTPNTR + $ P MOVE BIN14,FLIND(W1) + F P ATTFMT BPOOL(BIN14) + d P SET DEPROMPT + ( P PERF DEDISC,W1 ENTER JOB DEFINITION + PTOTB35 + P PERF DECLRN + * PTOTB40 IB DEBINW2,CANCBL,SERIOUS,ENT
0x110d18…110eac Dummy {f00=0x005b, f01=0x0190, f02=» B TOTB35 + PTOTB42 , , P PERF DELAST,W11,DEKTAB7 CONFIRM FREEZE , * P IB DEBINW2,TOTB44,TOTB44,ENTBL,TOTB42 , P P SET BDAFRO ENTER PRESSED , ~ P MOVE DEBINW2,W3 , P B ENTBL , PTOTB44 , P MOVE DEBINW4,W24 , P ERASE 0,DEBINW4,DEBINW4
0x110eac…111040 Dummy {f00=0x005b, f01=0x0190, f02=»ALANCE , PTOTB70 - P CLEAR DOOLA - 0 P CALL RESTOR,W0,W4,PWBDB4 RESTORE RBUF WB10 - 0 P CBE BDPOIN(W4),W0,TOTB76 - d P SET BDAFOR - P B TOTB77 - PTOTB76 - P CLEAR BDAFOR - PTOTB77 - , P CBNE DEBINW2,W3,TOTB78 JUMP IF NOT ENT -
0x111040…1111d4 (1, 345) Dummy {f00=0x005b, f01=0x0190, f02=»VER - PTOTB81 . P MOVE DEBINW2,W1 . P RET . 2 P* . > PCANCBL . H PCANBL1 . V P CLEAR DOOLA . d P SET SOOL2 . x $ P PERF DERECS,W7 GET LAST RECORD . P BOK CANBL3 . P BOFL RETU03 . P CBE DEBINW4,W13,TOTB12 . P SET DOOLA .
0x1111d4…111368 Dummy {f00=0x005b, f01=0x0190, f02=»NGE . P B DAT02 / PCANBL2 / P B DAT01 / * PSERIOUS / : P CLEAR BDABAL OUT OF BALANCE / J P B TOTB70 / n P PEND / P EJECT / PDEVERS PROC / P CALL SETB,WORK(W11),W0 / P CALL SETB,WORK(W12),W0 / P SET VERIFM / P RET
0x111368…1114fc Dummy {f00=0x005b, f01=0x4146, f02=»VERE / P RET 0 P PEND 0 P EJECT 0 & PBELL FRMT 0 4 P FSL 0 F P FILLR X'07',1 0 R P FMEND 0 h PFFETCH FRMT 0 v P FSL 0 P FTEXT 'FETCHING FORMAT:' 0 P FCOPY DEINPUT 0 P FTEXT ' FROM DISC.' 0 P FNL 0 P FKI 1,ALPHA 0
0x1114fc…111690 Dummy {f00=0x005b, f01=0x2008, f02=» 1 ,W7 GET LAST RECORD P BERR TOTB60 $ P CLEAR DOOLA 8 P SET SOOL2 L * P CBE NUMBER,=D'1',CANBL2 JUMP IF FIRST ^ P CLEAR DECHANGE P B DAT02 PCANBL2 P B DAT01 PSERIOUS P CLEAR BDABAL OUT OF BALANCE P B
0x111690…111824 Dummy {f00=0x005b, f01=0x0190, f02=» P ! @ W+! C A ? @ ? 0/ !T ? )6 W ? "? &? (? 9? % c @kh c -!T ! % h / !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ &
0x111824…1119b8 Dummy {f00=0x005b, f01=0x0190, f02=»? @ ? < ! B A ? @ ? < ! B @ ? A ? ? ! B ! C !W 4 : . j < A o Z + | ! % Q [ " F F G v *CFNY1:2:3:4:5:6:7:8:9:GETUSERBALANCEBALANCE:JOBNAME:SYMBO
0x1119b8…111b4c Dummy {f00=0x005b, f01=0x0190, f02=» 22 O - ( 2 23 M ( 24 COPY ( S f 4 P &g 5 ( D fA ! R &A + ( E fA " R &A , ( F fA # R &A - ( G fA $ R &A . ( H fA % R &A / ( I fA & R &A 0 ( J fA ' R &A 1
0x111b4c…111ce0 Dummy {f00=0x005b, f01=0x0190, f02=» " & - 5 = F P0 _0 a & Q & w & . A o Z + | ! % Q [ " F F G v *CFNY1:2:3:4:5:6:7:8:9:GETUSERBALANCEBALANCE:JOBNAME:SYMBO
0x111ce0…111e74 (1, 346) Opaque[0x194]
0x111e74…112008 # DirEnt {nam=»DANNES«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b78, f03=0x0000}
0x111e74…112008 IdxSect {
0x111e74…112008 f00 = 0x005b // 0x111e74 @0x0
0x111e74…112008 f01 = 0x0002 // 0x111e76 @0x2
0x111e74…112008 gno = [ // 0x111e78 @0x4
0x111e74…112008 [0x00]: C0x005b.0x3.0
0x111e74…112008 ]
0x111e74…112008 }
0x112008…11219c Dummy {f00=0x005b, f01=0x0190, f02=» P MOVE STR64A,HEX00 MOVE DEBINW2,W0 P MOVE DEBINW3,W0 6 DES100 N . P CALL TESTB,WORK(W12),DEBINW3 MSKOUT-WORD BZ DES200 P CBE DEBINW2,W0,DES120 * P COPY STR64A,DEBINW2,W1,STATIU,W9 ',' ADD DEBINW2,W1 PDES1
0x11219c…112330 Dummy {f00=0x005b, f01=0x40aa, f02=»,W1 PDES140 * P COPY STR64A,DEBINW2,W1,STATIU,DEBINW3 ADD DEBINW2,W1 H DES200 ` P ADD DEBINW3,W1 n P CBNE DEBINW3,W8,DES100 @ W2,W0,DES120 * P COPY STR64A,DEBINW2,W1,STATIU,W9 ',' ADD DEBINW2,W1 PDES1
0x112330…1124c4 Dummy {f00=0x005b, f01=0x2008, f02=» NW3,W0 MOVE DEBINW4,W0 " XCOPY DEBINW3,W0,W1,STBIN,W1 . DES100 T CALL TESTB,DEBINW3,DEBINW4 b BZ DES200 * & COPY STSTRG,DEBINW2,W1,STATIU,DEBINW4 ADD DEBINW2,W1 DES200 ADD DEBINW4,W1 CBN
0x1124c4…112658 Dummy {f00=0x005b, f01=0x4096, f02=» @ H IDENT S:BTAB TRA 4.2 80-01-21 F1 O1111 REL 1.0 80-02-22 S:BTAB H S:BTABB Z n :B @ :C @ L4 @ %% @|Tk J F " D ;j !! ! j !! L0
0x112658…1127ec Dummy {f00=0x005b, f01=0x4144, f02=» @ H IDENT U:CB10 TRA 4.2 80-01-21 F1 O1111 REL 1.0 80-02-22 U:CB10 H U:CB10C Z * & n & & = & [ & y & &
0x1127ec…112980 Dummy {f00=0x005b, f01=0x0190, f02=» @ H IDENT T:AT10 TRA 4.2 80-01-21 F1 O1111 REL 1.0 80-02-22 T:AT10 H T:AT10A Z > : T:DT10 D:CB10 U:CB10 D:CB20 C:CB20 D:CB30 C:CB30 n > : D:CB40A C:CB40A D:CB500 C:CB50F D:TB20 Z:TB200 D:TB302 > : Z:TB30 D:TB40 Z:T
0x112980…112b14 (1, 347) Opaque[0x194]
0x112b14…112ca8 # DirEnt {nam=»TRALL «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0b80, f03=0x0000}
0x112b14…112ca8 IdxSect {
0x112b14…112ca8 f00 = 0x005c // 0x112b14 @0x0
0x112b14…112ca8 f01 = 0x0002 // 0x112b16 @0x2
0x112b14…112ca8 gno = [ // 0x112b18 @0x4
0x112b14…112ca8 [0x00]: C0x005c.0x0.0
0x112b14…112ca8 ]
0x112b14…112ca8 }
0x112ca8…112e3c Dummy {f00=0x005c, f01=0x018e, f02=» $TRALL END PSCR /O PDEL /OB , PTRA DEDDIV < PTRA DEDISC N PTRA DKRUT1 ` PTRA DKRUT2 r PTRA DKRUT3 PTRA DKRUT4 PTRA PTSDE PTRA DENTER PTRA DENT01 PTRA DENT02 PTRA DENT03 PTRA DE
0x112e3c…112fd0 Dummy {f00=0x005c, f01=0x0190, f02=» PTRA DE20ST PTRA DE21ST PTRA DEATTF ( PTRA DE23ST : PTRA DE24ST L PTRA DE30ST ^ PTRA DE31ST p PTRA DE40ST PTRA DE20FS PTRA DEUNPF PTRA DEPRFG PTRA DEPROC PTRA DECVRT PTRA DEVGAC PTRA DE50
0x112fd0…113164 Dummy {f00=0x005c, f01=0x00f0, f02=»TRA DEFDSC PTRA DEACCU PTRA DEGENE $ PTRA STROUT 6 PTRA DEAPPU H PTRA DECOMP Z PTRA DELOCK l PTRA DESTAT ~ PASM ASSRUT PASM CDVRUT PASM DATCHK PKPF /O PSCR /O PASG 2,LP0F A DEVGAC PTRA DE50
0x113164…1132f8 Dummy {f00=0x005c, f01=0x2008, f02=» SC PTRA DEACCU PTRA DEGENE $ PTRA STROUT 6 PTRA DEAPPU H PTRA DECOMP Z PTRA DELOCK l PTRA DESTAT ~ PASM ASSRUT PASM CDVRUT PASM DATCHK PKPF /O PSCR /O PASG 2,LP0F A DEVGAC PTRA DE50
0x1132f8…11348c Dummy {f00=0x005c, f01=0x0190, f02=» j & P MOVE DEBINW4,BCD2A UNIT NUMBER IS P MOVE FILINDUS,DEBINW4 2 P ADD FILINDUS,W2 P P ADD DEBINW4,=X'D0' h 2 P MOVE FILECODE(FILINDUS),DEBINW4 SAVE FILECODE P SUB FILINDUS,W1 P XCOPY W1,W1,DUNIT,FININDUS P ADD FILINDUS,W1
0x11348c…113620 Dummy {f00=0x005c, f01=0x0190, f02=» . P CALL CHANFC,DISK,DEBINW4 CHANGE FILECODE : P CALL GETVOL,DISK,RBUF,STRG10A,DEBINW4 GET VOLUMENAME 6 ( P CBE DEBINW4,W0,DEAUN4 JUMP IF OKEY t P MOVE DEBINW4,W9 NOT FOUND P B DEANOK PDEAUN4 P ERASE 1,W2,W2 P MOVE TABLE,STRG
0x113620…1137b4 (1, 348) Opaque[0x194]
0x1137b4…113948 # DirEnt {nam=»DDIVDE«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0b88, f03=0x0000}
0x1137b4…113948 IdxSect {
0x1137b4…113948 f00 = 0x005c // 0x1137b4 @0x0
0x1137b4…113948 f01 = 0x000c // 0x1137b6 @0x2
0x1137b4…113948 gno = [ // 0x1137b8 @0x4
0x1137b4…113948 [0x00]: C0x005c.0x1.0
0x1137b4…113948 [0x01]: C0x005c.0x2.0
0x1137b4…113948 [0x02]: C0x005c.0x3.0
0x1137b4…113948 [0x03]: C0x005d.0x0.0
0x1137b4…113948 [0x04]: C0x005d.0x1.0
0x1137b4…113948 [0x05]: C0x005d.0x2.0
0x1137b4…113948 ]
0x1137b4…113948 }
0x113948…113adc Dummy {f00=0x005c, f01=0x0190, f02=» " P IDENT DEDDIV REL 1.0 80-18-22 L M************************************************************************ * * z * L L* ********************************************************* 4 0* * ITEM-NAME NOMENKLATUR WOR
0x113adc…113c70 Dummy {f00=0x005c, f01=0x018e, f02=» * $ * * BOOL >0 - $ * * BIN >0 - 8 4 0* * BCD >0 A,B,C,............ ` 4 0* * STR >0 A,B,C,............ * * L L* *****************
0x113c70…113e04 Dummy {f00=0x005c, f01=0x0190, f02=» P EJECT DDIV TERM T1 P UWB CB1 0 CWB CB2 @ P CWB CB3 P CWB CB4 ` CWB CB5 p TWB TB2 TWB TB3 TWB TB4 TWB TB5 P TWB TB1 P DWB DB1(TB1) P DWB DB2(TB1) P DWB DB3(TB1
0x113e04…113f98 Dummy {f00=0x005c, f01=0x0190, f02=»DEDSDYKB DSET FC=20 PDEDSSCRN DSET FC=50 PDEDSPRT DSET FC=36 8 ( P FMTCTL INDS=DEDSDYKB,OUTDS=DEDSSCRN R P EJECT ~ P* P* STARTPOINT P* P* P* P START PTSDE P STACK 400 EJECT *
0x113f98…11412c Dummy {f00=0x005c, f01=0x0190, f02=»CORD AREA * POVERFLOW STRG 10 OVERFLOWAREA FOR RBUF EJECT @ * N * TERMINAL-BLOCK: 2R X 6 P* THIS DATA-BLOCK MUST NOT EXCCED 256 BYTES | & "* USAGE: FORMAT-DEFINITION * PDB1 DBLK " PFDVBCD BCDI (8
0x11412c…1142c0 Dummy {f00=0x005c, f01=0x0190, f02=» P 7=MINIMUMLENGTH P 8=USED RECORD SPACE LDES STRG 80 LINE DESIGN < PLDISP STRG 80 LINE DISPLAY PDUPL STRG 6 DUPLICATION-REF. ~ * PFDVSTR STRGI (5),1 1=KEYED INPUT FIELD P 2=MUST ENTER FIELD P 3=AUTO TABULATION FIELD
0x1142c0…114454 (1, 349) Dummy {f00=0x005c, f01=0x0190, f02=»TWK BINI (24) WORKITEMS FORMAT GENERATION ( PPINDCB BIN POINTERINDEX CURR BUFFER 2 , PPINDDB BIN POINTERINEX 1ST DESC. BUFFER ^ $ PPINDND BIN NUMB OF DESC BUFFERS * PFBIN1 BIN WORKITEM FORMAT GENERATION * PFBIN2 BIN WORKITEM FORMAT GENERATIO
0x114454…1145e8 Dummy {f00=0x005c, f01=0x0190, f02=» BIN STATUS " PSIZSYM BIN SIZE OF SYMBOLICS PSYMREC BINI (12) RECORDNR : & PFORTAB STRGI (21),6 FORMAT 1 - 21 PJOBSPC STRG 1 P EJECT P* P* TERMINAL-BLOCK: 3R B P* THIS DATA-BLOCK MUST NOT EXCCED 188-BYT
0x1145e8…11477c Dummy {f00=0x005c, f01=0x0190, f02=»N BATCH ~ " PBDATRA BOOL TRANSFERRED BATCH PBDAFOR BOOL FORCED BATCH 6 PBDATES BOOL TESTBATCH X PBDAVER BOOL VERIFIED BATCH v & PBDAACT BOOL BATCH DURING ENTERING , PBDAMVR BOOL RECORDS TO VERIFY IN BATCH & PBDSTAT STRG 2 STATUS
0x11477c…114910 Dummy {f00=0x005c, f01=0x018e, f02=» NUMBER OF FORCED P 5 = NUMBERS TO VERIFY P 6 = LAST ENTERED SUBTOTAL : ( PACK BCDI (5),18 ACCUMULATORS 01 - 5 ^ * PUSEV STRGI (8),16 USER-VARIABLES 1 - 3 EJECT * * COMMON-BLOCK: 1 * 6 2* USAGE
0x114910…114aa4 Dummy {f00=0x005c, f01=0x0190, f02=» PBOOLA2 BOOL USED IN OPENUS PUORG BOOL F ( PDUMIT1 STRGI (1),1 < PDUMIT3 STRG 3 V , PFNOOFREC BINI (9) NO OF FREE REC IN FILE l & PF95PROC BINI (9) 5 % OF FILESPACE & PSYSV STRGI (10),17 SYSTEMVARIABLES ( PRPOOL STRGI (1),1 BUFFER
0x114aa4…114c38 Dummy {f00=0x005c, f01=0x0190, f02=»OOL STRGI (1),1 BUFFERPOOL EJECT " * 0 * COMMON-BLOCK: 2 : * Z * USAGE: CONSTANTS d * PCB2 BLK W0 BIN W'0' CONSTANT W1 BIN W'1' CONSTANT W2 BIN W'2' CONSTANT PW3 BIN W'3' CONSTANT
0x114c38…114dcc Dummy {f00=0x005c, f01=0x018e, f02=»TANT PW9 BIN W'9' CONSTANT W10 BIN W'10' CONSTANT ( PW11 BIN W'11' CONSTANT F PW12 BIN W'12' CONSTANT d PW13 BIN W'13' CONSTANT PW14 BIN W'14' CONSTANT PW15 BIN W'15' CONSTANT P EJECT P* P* COMMON-BLOC
0x114dcc…114f60 Dummy {f00=0x005c, f01=0x0190, f02=» x PW18 BIN W'18' CONSTANT PW19 BIN W'19' CONSTANT & PW20 BIN W'20' CONSTANT D PW21 BIN W'21' CONSTANT b PW22 BIN W'22' CONSTANT PW23 BIN W'23' CONSTANT PW24 BIN W'24' CONSTANT PW32 BIN W'32' CONSTANT PW64 BIN W'64' CO
0x114f60…1150f4 (1, 350) Dummy {f00=0x005c, f01=0x018e, f02=»YST v $ PLRUQUE STRG 18 LAST RECENT USED EJECT 4 * B P* COMMON-BLOCK: 4 L * l " * USAGE: DISC-HANDLING v PCB4 BLK PRECOV BOOL RECOVERY RUNNUNG & PAUTENT BOOL T AUTOMATIC ENTER WHEN P WHEN LAST F
0x1150f4…115288 Dummy {f00=0x005c, f01=0x0190, f02=» h , PFINDEXPO BINI (9) POOLIND TO FREESP-REC PFRINF BINI (9) FILESTATUS 8 $ PFFSNR BINI (9) RECORD-NR FREESP Z $ PRBUFLN BIN RECORDBUFFERLENGTH PPRKEYS STRG X' KEYMASKS C , P 0000000000 THE ITEM CONTAIN 5 BYTES C $ P 0000000000
0x115288…11541c Dummy {f00=0x005c, f01=0x0190, f02=»OGRAMNUMBERS 10 - 19). C . P 0000000000 THE FIRST HALFBYTE IS USED C * P 0000000000 BY PROGRAMNUMBER 10,THE C R . P 0000000000 NEXT BY 11 AND SO ON UP TO C $ P 0000000000 PROGRAMNUMBER 19. C P ' THE NEXT 5 BYTES IS FOR P FORMAT
0x11541c…1155b0 Dummy {f00=0x005c, f01=0x018e, f02=» BITS CORRESPONDING TO THE P FOUR KEY-SWITCHES ON THE $ $ P KEYBOARD.FOR INSTANCE IF THE H $ P BYTE IS X'60',THE FIRST HALF- p P BYTE IS 6, THEN THE P BITS 0110 MEANS THAT THE " P THE KEYS 2 AND 3 HAVE TO BE P SWITC
0x1155b0…115744 Dummy {f00=0x005c, f01=0x0190, f02=» P 0F83 16 - 31 C P 80FC 32 - 47 C P 3C0F 48 - 63 C 4 P 83C0 64 - 79 C L P C000 80 - 95 C d P 0000 96 - 115 C | P ' P EJECT L P* DEVTYP POS 1- " P POS 3
0x115744…1158d8 Dummy {f00=0x005c, f01=0x0190, f02=» = 2 DATA-COMM.IN P = 3 CASSETTE " P = 4 PRINTER LP/GP > P = 5 DISK-FILE d $ P = 6 FLOPPY-DISC FILE $ P = 7 DELETE USERFILE PDEVTYP STRG X' C $ P 4443006101 DC[]<FC=00>
0x1158d8…115a6c Dummy {f00=0x005c, f01=0x0190, f02=» 4750003604 GP[]<FC=36><CL=4> C $ P 445500D005 DU[]<FC=D0><CL=5> C ( $ P 464400D806 FD[]<FC=D8><CL=6> C P $ P 444C550007 DLU <FC=00><CL=7> C x P ' EJECT * P* COMMON-BLOCK: 5 * * USAGE: STATUS LIN
0x115a6c…115c00 Dummy {f00=0x005c, f01=0x0190, f02=» FCOPY C P C2 2 = FMELI C P C3 3 = FTEXT C ( P C4 4 = FTAB C @ P C5 5 = FVAL C X P C6 6 = FGEN C p P C7 7 = FACC C P CC 8 = FDUPL C P DE 9 = FLINK C P E0 10= FSL C P E1 11= FNL C P E9 12= FEX
0x115c00…115d94 (1, 351) Dummy {f00=0x005d, f01=0x0190, f02=»KI APPLE<255 DUPL C " P FB 18= FKI APPLE>255 DUPL C P ' B P EJECT N PDATE BCD 8X'0F000000' YYMMDD PTIME BCD 8 HHMMSS PHEX00 STRG 1X'00' PAUSE ITEM PSYSBUF STRG 400C DISC BUFFER . PFVOLNAME STRGI (8),6C'SYSVOL' VOLUMENA
0x115d94…115f28 Dummy {f00=0x005d, f01=0x0190, f02=»TRG X' VALIDATION STRING C P 4D 0. M=MESSAGE C " P 2F 1. /=NOT C > P 3D 2. ==EQUAL C V P 3E 3. >=GREATER C p P 3C 4. <=LESS C " P 44 5. D=DUPLICATE STRING C P* P 4C 6. L=LENGTH C P 21 7. !=ABSOLUTE VA
0x115f28…1160bc Dummy {f00=0x005d, f01=0x0190, f02=»ELD C | P 54 12. T=VALUE SET C * P 43 13. C=CODED VALIDATION ROUTINE C , P 45 14. E=EMPTY FIELD C Z P* z P 2B 15. +=ADD C P 2D 16. -=SUBTRACT C P 2A 17. *=MULTIPLY C P 3A 18. :=DIVIDE C P* $ P 3B 19. ;
0x1160bc…116250 Dummy {f00=0x005d, f01=0x018e, f02=» " P 27 23. '=LITERAL SEPARATOR C $ P 5A 24. Z=ZEROISE ACCUMULATOR C * P 47 25. G=GO TO FIELDNR C R $ P 52 26. R=NEXT FORMAT CHANGE C t ( P 4E 27. N=IMMIDIATE RECORD CHANGE C $ P 58 28. X=INDEX OF VALUE-SET C " P 28 29. (=LINK PARENTHE
0x116250…1163e4 Dummy {f00=0x005d, f01=0x0190, f02=» v P 45 1. E=ENTERING C P 56 2. V=VERIFIED C $ P 54 3. T=TEST ENTERED C @ P 46 4. F=FORCED C ` P 43 5. C=CONVERTED C z P 41 6. A=ACCEPTED(FROSEN) C P 42 7. B=BALANCED C P 2F 8. /=NOT STATUS C P 2C 9. ,=SEPARATO
0x1163e4…116578 Dummy {f00=0x005d, f01=0x0190, f02=»HANUM C t * P 41 2. A=LEFTADJUST TO LEAD. DIG. C $ P 50 3. P=SKIP THIS POSITION C > * P 54 4. T=LEFTADJ. TO LEAD. N. ZER C f $ P 58 5. X=PRINT ALPHANUMERIC C * P 5A 6. Z=LEAD. ZEROES REPL. SPACE C , P 59 7. Y=ALPHANUM/=EMPTY ELS
0x116578…11670c Dummy {f00=0x005d, f01=0x0190, f02=»2E 11. .=ROOMLESS POINT C & P 3E 12. >=END OF PICTURE STRING C " ( P 3C 13. <=BEGIN OF PICTURE STRING C L P 30 14. 0=LEFT ZERO FILL C x P ' P EJECT & PPICCON STRG X' PICTURECONVERTION C ( P 2D 0. -=S(SIGN -SIGN IF NEGATIV C
0x11670c…1168a0 Dummy {f00=0x005d, f01=0x0190, f02=»JECT * P* TERMINAL-BLOCK: 2 * 8 2 -* USAGE: TERMINAL-DEPENDENT VARIASBELS B * x PTB2 BLK " PKEY4 BOOL POSITION INDICATORS $ PKEY3 BOOL ...FOR KEY-LOCKS 1-4. PKEY2 BOOL ...F=OFF, PKEY1 BOOL .
0x1168a0…116a34 (1, 352) Dummy {f00=0x005d, f01=0x0190, f02=»OL WORKITEM BOOL6 BOOL WORKITEM BOOL7 BOOL WORKITEM 0 BOOL8 BOOL WORKITEM L PBOOL9 BOOL WORKITEM h $ PDECHANGE BOOL VARIABLES CHANGED " PDEPROMPT BOOL DISPLAY PROMTS ( PDENOCHAN BOOL NO CHANGES PERMITTED P EJECT
0x116a34…116bc8 Dummy {f00=0x005d, f01=0x0190, f02=» | ( PUSELEN BIN LENGTH OF MAX RECORDAREA PKEYMSK BIN MASK AUTHORITY 4 & PNUMBER BCD 7 CURRENT RECORDNUMBER V & !PRNUM BCD 4 CURRENT PROGRAMNUMBER $ USERFILE BCD 2 CURRENT USER-FILE MODE STRG 1 CURRENT MODE " JOBNAME STRG 6 CURRENT
0x116bc8…116d5c Dummy {f00=0x005d, f01=0x0190, f02=»ATSH STRG 133 SEARCH STATUS EJECT $ * 2 * TERMINAL-BLOCK: 3 < * ^ " * USAGE: DATA ENTERING h * PTB3 BLK PSWIT01 BOOL USED IN DEDISC PSWIT02 BOOL -"- PSWIT03 BOOL -"- PSWIT
0x116d5c…116ef0 Dummy {f00=0x005d, f01=0x0190, f02=»SW95PR BOOL 95% FILESPACE USED $ PSOOL1 BOOL USED FOR STATUSLINE ! ( PSOOL2 BOOL -"- ! P PDOOLA BOOL ! n PDOOLB BOOL ! PDOOLC BOOL ! PVERIFM BOOL VERIFM MODE ! " PKEYVER BOOL KEY-VERIFICATION ! P EJECT ! $ PFLIND BINI (32)
0x116ef0…117084 Dummy {f00=0x005d, f01=0x0190, f02=»R IN RNRFMCH ! | * PCURSEC BIN CURRENT SECTORNO USERFILE " $ PFILINDUS BIN INDEX FOR USERFILE " B , (PRECPR BIN PREVIOUS DATA-RECORD IN RBUF " j & !PRECCUR BIN CURRENT - " - " & !RECLNTH BIN CURRENT RECORDLENGTH " ( #PJOBCUR BIN LINK TO JOB-D
0x117084…117218 Dummy {f00=0x005d, f01=0x0190, f02=»RKBLOCKS " r P AND DESCRIPTORS # " PSTR64A STRG 64 STRINGWORKITEM # , 6 PSTSAVE STRGI (4),6 THIS VARIABEL IS USED TO SAVE C # R & P X'000000000000',X'000000000000' # P 1 = JOBNAME # P 2 = BATCH # & P 3 = CONDITIONAL FORMAT CHANGE #
0x117218…1173ac Dummy {f00=0x005d, f01=0x0190, f02=»N AND BINARY WORKITEMS # z * $ TB4 BLK $ ( PDBOFRE BOOL NOT USED $ 8 PDBOFRO BOOL FROSEN RECORD $ V $ PDBOTRA BOOL TRANSFERRED RECORD $ x PDBOFOR BOOL FORCED RECORD $ $ PDBOTES BOOL TESTENTERED RECORD $ PDBOVER BOOL VERIFIED RECORD $
0x1173ac…117540 Dummy {f00=0x005d, f01=0x0190, f02=» -"- $ PDOOL3 BOOL -"- % PDOOL4 BOOL -"- % . PDOOL5 BOOL -"- % L PDOOL6 BOOL -"- % j PDOOL7 BOOL T=TEST MODE % & PDOOL8 BOOL IF SET OPEN NEW BATCH % P IF NOT OPEN OLD BATCH % P EJECT % BIN1 BIN
0x117540…1176d4 (1, 353) Dummy {f00=0x005d, f01=0x0190, f02=»ITEM % BIN7 BIN WORKITEM & BIN8 BIN WORKITEM & & BIN9 BIN WORKITEM & @ BIN10 BIN WORKITEM & Z BIN11 BIN WORKITEM & v BIN12 BIN WORKITEM & BIN13 BIN WORKITEM & BIN14 BIN WORKITEM & BIN15 BIN WORKITEM & BIN16
0x1176d4…117868 Dummy {f00=0x005d, f01=0x0190, f02=»RPACKAGE VARIABLES & b . P* BOOLEANS: BITS OF CTLWORD IN FKI ' * ' L PTB5 BLK ' V & PSCHK1 BOOL SPECIAL CHECK 1 MINUS ' f PSCHK2 BOOL SPECIAL CHECK 2 ' PSCHK4 BOOL SPECIAL CHECK 4 ' PACKUM BOOL ACCUMULATOR BIT ' PVERIFY BOOL
0x117868…1179fc Dummy {f00=0x005d, f01=0x0190, f02=»-OF-ITEM-BIT ' ~ PALPHA BOOL ALPHANUMERIC BIT ( PME BOOL MUST ENTER BIT ( 8 P EJECT ( X PDEBINW1 BIN DENTERVARIABLE ( f PDEBINW2 BIN DENTERVARIABLE ( PDEBINW3 BIN DENTERVARIABLE ( PDEBINW4 BIN DENTERVARIABLE ( ( PFRMTPNTR BIN POIN
0x1179fc…117b90 Dummy {f00=0x005d, f01=0x0190, f02=»RKITEM ( STR1A STRG 1 WORKITEM ) STR2A STRG 2 WORKITEM ) , PSTR6A STRG 6 WORKITEM ) J PSTR6B STRG 6 ) h PSTRG10A STRG 10 WORKITEM ) | PSTR15A STRG 15 WORKITEM ) PBCDI21 BCDI (3),21 WORKITEM ) P EJECT ) P* ) P* ) P*
0x117b90…117d24 Dummy {f00=0x005d, f01=0x0190, f02=»ITWT BOOL F SYSBUF ATTACHED Y/N ) * PSWITSY BOOL F SYSTEMFILE ASSIGNED Y/N * ( ( PSWITUS BOOL F USERFILE ASSIGNED Y/N * V & PASDFLAG BOOL T AUTOMATIC SKIP/DUP * PSEARCH BOOL SEARCH MODE * & PELMNO BIN ELEMENT-NO, VALUE-SETS * ( PPINDTB BIN POOLIN
0x117d24…117eb8 Dummy {f00=0x005d, f01=0x4138, f02=»DISC-ROUT * z PSECLEN BIN + P SECTORLENTH USERFILE + $ ( PTABLE STRG 6 TABLE-NAME (VALUE-SETS) + D PEOLINE BIN END-OF-LINE + p ( PVSEIND BIN VALUE-SET ELEMENT INDEX + " PWORK BINI (12) FREE WORK ITEMS + P WORKITEM 11,12 USED BYE + P S
0x117eb8…11804c Dummy {f00=0x005d, f01=0x2008, f02=» , EOLINE BIN END-OF-LINE + ( PVSEIND BIN VALUE-SET ELEMENT INDEX + ( " PWORK BINI (12) FREE WORK ITEMS + T P WORKITEM 11,12 USED BYE + z P SEARCH MODE + PDIV + END + @ + SC-ROUTINES * ( PDKBIN2 BIN WORKITEM, DISC-ROUTINES
0x11804c…1181e0 Dummy {f00=0x005d, f01=0x0190, f02=» / 6 t * & ''' ' y ''' "W% ," "0 * & + We0A W "_ '_ !0A @ * & I ! 2 W 0 0 (P" &W n * & g :6 33 33 333 36 #W( * & 1 _ !0- _ 1 W 0 ! _ 2 "
0x1181e0…118374 (1, 354) Opaque[0x194]
0x118374…118508 # DirEnt {nam=»DEATNY«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0bb8, f03=0x0000}
0x118374…118508 IdxSect {
0x118374…118508 f00 = 0x005d // 0x118374 @0x0
0x118374…118508 f01 = 0x0006 // 0x118376 @0x2
0x118374…118508 gno = [ // 0x118378 @0x4
0x118374…118508 [0x00]: C0x005d.0x3.0
0x118374…118508 [0x01]: C0x005e.0x0.0
0x118374…118508 [0x02]: C0x005e.0x1.0
0x118374…118508 ]
0x118374…118508 }
0x118508…11869c Dummy {f00=0x005d, f01=0x0190, f02=» ( P IDENT DEATTF REL 1.0 80-04-09/JAER P* 0 B P* THIS ROUTINE ATTACHES ACTUAL FORMAT DEFINITION FORMAT : P* P DDUM DEDDIV P PDIV P ENTRY DEATTF P EJECT PDEATTF PROC , P TBT BOOL6,ATT10 JUMP IF BALANCE FOR
0x11869c…118830 Dummy {f00=0x005d, f01=0x0190, f02=»T99 P RET P PEND EJECT & F21FD FRMT 4 FSL F FTEXT '21 USER ' R FCOPY ='FORMAT' l FILLR ' ',1 FCOPY ='DEFINITION' $ P FBF BOOL7,F21A JUMP IF NEW-REG. P FTAB 35 P FHIGH P FCOPY ='CORRE
0x118830…1189c4 Dummy {f00=0x005d, f01=0x0190, f02=» FINP 9 P FMEL 'XXX',FDVBCD(W4) P FNL 6 P FTAB 5 B FCOPY ='FIELD' R FTEXT 'START:' j P FINP 20 P FMEL 'ZZ',FDVBCD(W5) P FTAB 25 FCOPY ='FIELD' FCOPY ='LENGTH' P FILLR ':',1 P FIN
0x1189c4…118b58 Dummy {f00=0x005d, f01=0x0190, f02=»LR ':',1 P FINP 69 P FMEL 'TTTT',FDVBCD(W8) FNL @ P FNL L P FTAB 10 X P FTEXT 'KEYED INPUT ' h P FCOPY ='(Y/N/C):' , P FKI 32,APPL=108,ALPHA,MAXL=1,NEOI,CTAB P FCOPY FDVSTR(W1) P FTAB 46 P FTEXT 'MINIMU
0x118b58…118cec Dummy {f00=0x005d, f01=0x0190, f02=»NL P FTAB 10 P FTEXT 'MUST ENTER ' P FCOPY ='(Y/N/C):' 8 , P FKI 32,APPL=114,MAXL=1,ALPHA,NEOI,CTAB R P FCOPY FDVSTR(W2) P FTAB 46 P FTEXT 'AUTO TAB (Y/N):' , P FKI 64,APPL=115,MAXL=1,ALPHA,NEOI,CTAB P FCOPY FDVST
0x118cec…118e80 Dummy {f00=0x005d, f01=0x0190, f02=»MINL=1,NEOI,CTAB r FCOPY DUPL P FTAB 46 , P FTEXT 'VERIFY' < P FTAB 55 T P FTEXT '(Y/N):' d , P FKI 64,APPL=116,MAXL=1,ALPHA,NEOI,CTAB | P FCOPY FDVSTR(W4) FNL P FTAB 10 " P FTEXT 'INITIAL CLEAR (Y/N):' , P
0x118e80…119014 (1, 355) Dummy {f00=0x005e, f01=0x0190, f02=» 19,APPL=107,MAXL=5,REWRT,NEOI,CTAB P FMEL 'ZZVZZZ',SPEC , FNL H P FCOPY ='VALIDATION ' T P FCOPY ='(#V:...)' r P FTAB 25 P FCOPY ='GENERATION ' P FCOPY ='(#G:...)' P FTAB 50 P FCOPY ='ACCUMULATION ' P FCO
0x119014…1191a8 Dummy {f00=0x005e, f01=0x018e, f02=» , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 4 FNL b P FKI 1,CTAB n P FCOPY HEX00 FMEND P EJECT PF22FD FRMT P FSL P FTEXT '22 BALANCE ' FCOPY ='FORMAT' FIL
0x1191a8…11933c Dummy {f00=0x005e, f01=0x0190, f02=» z PFLOW PF22A FNL P FLINK F20COM , FNL B P FNL N P FTAB 5 Z P FTEXT 'STARTPOSITION:' j P FINP 20 P FMEL 'ZZ',FDVBCD(W5) FTAB 30 FCOPY ='LENGTH' P FILLR ':',1 P FINP 40 P FME
0x11933c…1194d0 Dummy {f00=0x005e, f01=0x0190, f02=»09,MAXL=2,REWRT,NEOI,CTAB P FMEL 'XX',FDVBCD(W8) " FNL @ P FNL L FTEXT 'SPECIAL HANDLING:' X , P FKI 19,APPL=107,MAXL=5,REWRT,NEOI,CTAB z P FMEL 'ZZVZZZ',SPEC FNL P FCOPY ='VALIDATION ' P FCOPY ='(#V:...)'
0x1194d0…119664 Dummy {f00=0x005e, f01=0x0190, f02=»COPY FORTAB(W1) VAL-GEN-ACC-STRING1 P FNL , , P FKI 1,APPL=112,MAXL=80,ALPHA,NEOI,CTAB 8 * P FCOPY FORTAB(W2) VAL-GEN-ACC-STRING2 h FNL P FKI 1,CTAB P FCOPY HEX00 FMEND P EJECT PF20COM FRMT FCOPY ='FORMA
0x119664…1197f8 Dummy {f00=0x005e, f01=0x0190, f02=» ='PAGE' FTEXT ' SIZE:' 4 P FKI 27,APPL=102,NEOI,MINL=1,MAXL=2,ME,NCLR,CTAB ( P FMEL 'AA',FDVBCD(W1) ` FTAB 30 ~ P FCOPY ='LINE ' FCOPY ='NUMBER' FILLR ':',1 FINP 43 P FMEL 'Z9',FDVBCD(W2) FTAB 46
0x1197f8…11998c Dummy {f00=0x005e, f01=0x018e, f02=» FILLR '1',1 FTAB 20 FILLR '2',1 ( FTAB 30 < FILLR '3',1 L FTAB 40 ` FILLR '4',1 p FTAB 50 FILLR '5',1 FTAB 60 FILLR '6',1 FTAB 70 FILLR '7',1 P FILLR ' ',1 P FIL
0x11998c…119b20 Dummy {f00=0x005e, f01=0x4136, f02=» z FCOPY ='1234567890' FCOPY ='1234567890' $ FCOPY ='1234567890' @ P FCOPY ='123456789 ' P FILLR X'80',1 x FNL P FINP 1 FCOPY LDISP FNL 6 P FKI 1,APPL=110,ALPHA,MAXL=80,DUPL=LDISP,NEOI,CTAB FCO
0x119b20…119cb4 (1, 356) Dummy {f00=0x005e, f01=0x2008, f02=» NT DE12ST DDUM DEDDIV PDIV . ENTRY DE12ST < DE12ST R PROC ` RET n PEND z END @ KITEM PSTR6A STRG 6 WORKITEM PSTRG10A STRG 10 WORKITEM PDIV END @ ARIABL
0x119cb4…119e48 Dummy {f00=0x005e, f01=0x0190, f02=» P* P B DED350 PDED330 P CALL CMPIND,BIN8,USEV(W1) . P BNOK DED500 OUT OF RANGE P P EDSUB DEINPUT,BIN7,FORMU r PDED350 P MOVE DEBINW1,BIN7 P B DED470 PDED390 P MOVE BIN10,W0 PDED400 P MOVE DE
0x119e48…119fdc Dummy {f00=0x005e, f01=0x0190, f02=»ED470 JUMP IF NOT MINUS P MOVE DEBINW1,W0 PDED470 8 P CMP W1,W1 EDITING OKEY F P RET f PDED500 r P CMP W1,W2 EDITING FAILED P RET P PEND P EJECT * P************************************* * P* DISPLAY AND RE
0x119fdc…11a170 Dummy {f00=0x005e, f01=0x0190, f02=»,KEYTAB P PKTAB KEYTAB P MOVE BIN15,FC & PLASTD0 MOVE DEBINW4,W24 < P ERASE 0,DEBINW4,DEBINW4 P EDWRT DEDSSCRN,FLAST(FC) | PLAST05 P MOVE DEBINW1,W0 PLASTD1 P IB FC JUMP ON FUNCTIONKEY C P LPROG FPROG = 1
0x11a170…11a304 Dummy {f00=0x005e, f01=0x0190, f02=» P LASRET2 FRECOV = 7 C P LASRET3 FCORR = 8 C " P LASVER FVER = 9 C @ P LASRET2 FREC02 =10 C P LINS FFORCE = 11 C z P LINS FCONVNO =12 C P LINS FCONV1 =13 C P LASRET2 FASD =14 C P LRFBWD FRFBWD =15 P B
0x11a304…11a498 Dummy {f00=0x005e, f01=0x0190, f02=»E CANCEL x P ERASE 0,DEBINW4,DEBINW4 P B LASVER 0 PLPROG2 B 0 P KI DEDSDYKB,DEINPUT,KEYTAB,DEBINW1,DEBINW2 P P B LAST50 PLVAL P MOVE DEBINW1,W2 P B LPROG2 PLRFBWD P MOVE DEBINW1,W7 P B LPROG2 PLDEL
0x11a498…11a62c Dummy {f00=0x005e, f01=0x0190, f02=»LOCK,W1,DEBINW2 $ P IB DEBINW3,POWOFF,LASTER,LASTD0 P B LASTD3 @ P* R 0 P* NOK. NOTICE THAT INCORRECT LENGTH IS OKEY P* PLASTER P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W8 P BZ LASBEL " P MOVE DEBINW2,W6
0x11a62c…11a7c0 Dummy {f00=0x005e, f01=0x018e, f02=»MY C r ( P LASRET,LASRET,LASRET,DUMMY,LASRET PLAST06 : $ P IB DEBINW2,LASBEL,LASBEL,LASBEL H " P SUB DEBINW2,W3 ADJUST EOI0KEY p P B LASRET PLASBEL ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B LAST05 PLASKOP P MOVE
0x11a7c0…11a954 (1, 357) Opaque[0x194]
0x11a954…11aae8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1290, f03=0x0000}
0x11a954…11aae8 IdxSect {
0x11a954…11aae8 f00 = 0x0094 // 0x11a954 @0x0
0x11a954…11aae8 f01 = 0x0002 // 0x11a956 @0x2
0x11a954…11aae8 gno = [ // 0x11a958 @0x4
0x11a954…11aae8 [0x00]: C0x0094.0x2.0
0x11a954…11aae8 ]
0x11a954…11aae8 }
0x11aae8…11ac7c Dummy {f00=0x0094, f01=0x0190, f02=» * P IDENT CTAB01 80-08-20 E.V. DATA ENTRY ENTRY CTAB01 2 P ENTRY CTAB02 H PCTAB02 EQU * ^ 0 ,CTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT r > 9FUNC DATA /8081,/8283,/8485,/8687,/8889,/8A8B,/8C8D,/8E8F : P DATA /3031,/3233,/3435,/3637,/3
0x11ac7c…11ae10 Dummy {f00=0x0094, f01=0x0190, f02=»B,/2C2D,/2EFF d : P DATA /3031,/3233,/3435,/3637,/3839,/8A86,/8584,/868B : P DATA /6041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F T : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E7F > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FF3E,/FF3F,/3B5F,/3A
0x11ae10…11afa4 Dummy {f00=0x0094, f01=0x404c, f02=»ATA /7071,/7273,/7475,/7677,/7879,/7A7B,/7C7D,/5E7F END <@ H : P DATA /6041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F T : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E7F > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FF3E,/FF3F,/3B5F,/3A
0x11afa4…11b138 Dummy {f00=0x0094, f01=0x2008, f02=» C7D,/7E7F l END @ & : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 2 : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E5F p > :SHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : 5 DATA /3D21,/2223,/2425,
0x11b138…11b2cc Dummy {f00=0x0094, f01=0x40ac, f02=» @ H IDENT T:ATAB TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 T:ATAB H T:ATABA Z T:AT10 n @ :A @ * * @ @ T1
0x11b2cc…11b460 Dummy {f00=0x0094, f01=0x40b0, f02=» @ H IDENT U:BTAB TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 U:BTAB H U:BTABB Z U:CB10 n @ CB1 :C @ * * @ @ T1
0x11b460…11b5f4 (1, 358) Opaque[0x194]
0x11b5f4…11b788 # DirEnt {nam=»CONDE «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1278, f03=0x0000}
0x11b5f4…11b788 IdxSect {
0x11b5f4…11b788 f00 = 0x0093 // 0x11b5f4 @0x0
0x11b5f4…11b788 f01 = 0x0002 // 0x11b5f6 @0x2
0x11b5f4…11b788 gno = [ // 0x11b5f8 @0x4
0x11b5f4…11b788 [0x00]: C0x0093.0x3.0
0x11b5f4…11b788 ]
0x11b5f4…11b788 }
0x11b788…11b91c Dummy {f00=0x0093, f01=0x010e, f02=» T; P02; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P02; PTDC=T02; PLC=01L; PTDC=T03; PLC=06L; P00; PU; P001; PCB1; P03
0x11b91c…11bab0 Dummy {f00=0x0093, f01=0x2008, f02=» P02; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P02; PTDC=T02; PLC=01L; PTDC=T03; PLC=06L; P00; PU; P001; PCB1; P03
0x11bab0…11bc44 Dummy {f00=0x0093, f01=0x2008, f02=» MES 3 M,M+MU,M+MOUT,M+MU+MOUT HMES 4 FC . : HMES ANY COMBINATION OF ALTERNATIVE 1,2 AND 3 IS VALID, > 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN | 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED HEND HMES ILLEGAL PARAMETER COMB
0x11bc44…11bdd8 Dummy {f00=0x0093, f01=0x0000, f02=»
[…0x2…]
0x11c100…11c294 (1, 359) Opaque[0x194]
0x11c294…11c428 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1288, f03=0x0000}
0x11c294…11c428 IdxSect {
0x11c294…11c428 f00 = 0x0094 // 0x11c294 @0x0
0x11c294…11c428 f01 = 0x0002 // 0x11c296 @0x2
0x11c294…11c428 gno = [ // 0x11c298 @0x4
0x11c294…11c428 [0x00]: C0x0094.0x1.0
0x11c294…11c428 ]
0x11c294…11c428 }
0x11c428…11c5bc Dummy {f00=0x0094, f01=0x0056, f02=» TRA DEDDIV TRA DECOMP PASM CTAB01 ( SCR : ASG /E0,TY10 F
0x11c5bc…11c750 Dummy {f00=0x0094, f01=0x2008, f02=» DEDDIV TRA DECOMP PASM CTAB01 ( SCR : ASG /E0,TY10 F
0x11c750…11c8e4 Dummy {f00=0x0094, f01=0x2008, f02=» 01; TID=TB; TCL=TB; * LEV=55; : P00; J P00; V T; b P02; l TID=T1; x TCL=T1; LEV=60; P01; TDC=T01; LC=01L; 00; PC; P02; PTDC=T02; PLC
0x11c8e4…11ca78 Dummy {f00=0x0094, f01=0x0190, f02=» _ : V # P W Y P X ' P Y _ Y " " Z T 8Tt 9Wb B 7P P 5, A5 W A5 @5 A.W< A I.9 N X R C C * X R C C 54 A @5 A. N X V 9 * X V 9_d
0x11ca78…11cc0c Dummy {f00=0x0094, f01=0x0190, f02=»P C ! Z B P $$ R % C ! _, Y &X Y $P. Y %P( $ P 0R Q W R ?U C ! _f Y $P Y % _ ^ _ ! P: B L # +P Y ( ! U _ X T _ W ! Y ! X X ! X P R ?]* U C _. _: !
0x11cc0c…11cda0 Dummy {f00=0x0094, f01=0x0190, f02=» X ( _X 50 A X RJ 8 J P X ' Q 8 J " W C U X Y ( Y B 9a C 50 8 J P4 8 B W* B W B W B 8 T Y Y Y Y 54 Y * ! X *_< B 1 4 X X X X ' 4 B U B $" 4 C 4 d
0x11cda0…11cf34 (1, 360) Opaque[0x194]
0x11cf34…11d0c8 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1280, f03=0x0000}
0x11cf34…11d0c8 IdxSect {
0x11cf34…11d0c8 f00 = 0x0094 // 0x11cf34 @0x0
0x11cf34…11d0c8 f01 = 0x0002 // 0x11cf36 @0x2
0x11cf34…11d0c8 gno = [ // 0x11cf38 @0x4
0x11cf34…11d0c8 [0x00]: C0x0094.0x0.0
0x11cf34…11d0c8 ]
0x11cf34…11d0c8 }
0x11d0c8…11d25c Dummy {f00=0x0094, f01=0x0190, f02=» 2 P IDENT CTAB01 79-08-16 SSS-PA/S ENTRY CTAB01 : 0 ,CTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT P > 9FUNC DATA /8081,/8283,/8485,/8687,/8889,/8A8B,/8C8D,/8E8F : P DATA /3031,/3233,/3435,/3637,/3839,/9A9B,/9C9D,/9091 : 5 DAT
0x11d25c…11d3f0 Dummy {f00=0x0094, f01=0x0190, f02=»/3233,/3435,/3637,/3839,/FFFF,/3C8A,/8DFF : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 2 : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E5F p > :SHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : 5 DATA /3D21,/2223,/2425,
0x11d3f0…11d584 Dummy {f00=0x0094, f01=0x402a, f02=»/7A7B,/7C7D,/7E7F l END @ & : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 2 : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E5F p > :SHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : 5 DATA /3D21,/2223,/2425,
0x11d584…11d718 Dummy {f00=0x0094, f01=0x2008, f02=» C7D,/7E7F l END @ & : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 2 : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E5F p > :SHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : 5 DATA /3D21,/2223,/2425,
0x11d718…11d8ac Dummy {f00=0x0094, f01=0x0190, f02=»6789 ' +,-. 0123456789 < @ABCDEFGHIJKLMNOPQRSTUVWXYZ[ ]^ * ?;_: =!"#$%&/() > `abcdefghijklmnopqrstuvwxyz{|}~ ($SWAP A A A A. U UU @ @ ! P$>B @V AV @V E D P _ $ % $
0x11d8ac…11da40 Dummy {f00=0x0094, f01=0x0190, f02=»* A S, SR & W F ` W F W F CRT F A @ @ ! P2 @ P V ;b=H F CR Ob F ObW =J F CRTT F PN A @ $ P( @ R W 8 !RRT W V P A Y W @ " T> W @ V W Q V
0x11da40…11dbd4 (1, 361) Opaque[0x194]
0x11dbd4…11dd68 # DirEnt {nam=»CDE1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0340, f03=0x0000}
0x11dbd4…11dd68 IdxSect {
0x11dbd4…11dd68 f00 = 0x001a // 0x11dbd4 @0x0
0x11dbd4…11dd68 f01 = 0x0002 // 0x11dbd6 @0x2
0x11dbd4…11dd68 gno = [ // 0x11dbd8 @0x4
0x11dbd4…11dd68 [0x00]: C0x001a.0x0.0
0x11dbd4…11dd68 ]
0x11dbd4…11dd68 }
0x11dd68…11defc Dummy {f00=0x001a, f01=0x013e, f02=» T; P01; TID=T1; TCL=T1; * LEV=60; : P02; J TDC=T01; V PLC=02L; f PTDC=T02; v PLC=02L; 00; PC; P02; PTDC=T03; PLC=02L; PTDC=T04; PLC=06L; P01; PSDC=
0x11defc…11e090 Dummy {f00=0x001a, f01=0x2008, f02=» P01; TID=T1; TCL=T1; * LEV=60; : P02; J TDC=T01; V PLC=02L; f PTDC=T02; v PLC=02L; 00; PC; P02; PTDC=T03; PLC=02L; PTDC=T04; PLC=06L; P01; PSDC=
0x11e090…11e224 Dummy {f00=0x001a, f01=0x2008, f02=» MES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED < HEND p HMES ILLEGAL PARAMETER COMBINATION !!! z * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU
0x11e224…11e3b8 Dummy {f00=0x001a, f01=0x018e, f02=» $LINK PDEL DELINK,/L PSCR /O , PNOD C : PINC PTSDE H PINC DEDISC Z PINC DELOCK l PNOD ~ PTLK U,2K PLKE M KPF /L,DELINK PEND P$LINKLI PDEL DELINK,/L PSCR /O PNOD C
0x11e3b8…11e54c Dummy {f00=0x001a, f01=0x0190, f02=» PLKE M PKPF /L,DELINK PEND ( P$PRDLNK 4 PDEL LINKOB,/L D PSCR /O Z PTRA DEDDIV,NL h PINC PTSDE ~ PTLK PASG 3,DK PPOB PKPF 3,LINKOB PEND P$CROSS PSCR /O PINC /OBJCT PAS
0x11e54c…11e6e0 Dummy {f00=0x001a, f01=0x0190, f02=»DELOCK PNOD PINC DENTER PNOD , PINC DERROR 8 PNOD J PINC DENVAL V PNOD h PINC DKRUT1 t PNOD PINC DKRUT2 PNOD PINC DKRUT3 PNOD PINC DKRUT4 PNOD PINC DEPOOL PNOD
0x11e6e0…11e874 (1, 362) Opaque[0x194]
0x11e874…11ea08 # DirEnt {nam=»DEPROD«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1d10, f03=0x0000}
0x11e874…11ea08 IdxSect {
0x11e874…11ea08 f00 = 0x00e8 // 0x11e874 @0x0
0x11e874…11ea08 f01 = 0x002e // 0x11e876 @0x2
0x11e874…11ea08 gno = [ // 0x11e878 @0x4
0x11e874…11ea08 [0x00]: C0x00e8.0x2.0
0x11e874…11ea08 [0x01]: C0x00e8.0x3.0
0x11e874…11ea08 [0x02]: C0x00e9.0x0.0
0x11e874…11ea08 [0x03]: C0x00e9.0x1.0
0x11e874…11ea08 [0x04]: C0x00ea.0x3.0
0x11e874…11ea08 [0x05]: C0x00eb.0x0.0
0x11e874…11ea08 [0x06]: C0x00eb.0x1.0
0x11e874…11ea08 [0x07]: C0x00eb.0x2.0
0x11e874…11ea08 [0x08]: C0x00eb.0x3.0
0x11e874…11ea08 [0x09]: C0x00ec.0x0.0
0x11e874…11ea08 [0x0a]: C0x00ec.0x1.0
0x11e874…11ea08 [0x0b]: C0x00ec.0x2.0
0x11e874…11ea08 [0x0c]: C0x00ec.0x3.0
0x11e874…11ea08 [0x0d]: C0x00ed.0x0.0
0x11e874…11ea08 [0x0e]: C0x00ed.0x1.0
0x11e874…11ea08 [0x0f]: C0x00ed.0x2.0
0x11e874…11ea08 [0x10]: C0x00ed.0x3.0
0x11e874…11ea08 [0x11]: C0x00ee.0x0.0
0x11e874…11ea08 [0x12]: C0x00ee.0x1.0
0x11e874…11ea08 [0x13]: C0x00ee.0x2.0
0x11e874…11ea08 [0x14]: C0x00ee.0x3.0
0x11e874…11ea08 [0x15]: C0x00ef.0x0.0
0x11e874…11ea08 [0x16]: C0x00ef.0x1.0
0x11e874…11ea08 ]
0x11e874…11ea08 }
0x11ea08…11eb9c Dummy {f00=0x00e8, f01=0x0190, f02=»C ^ ,CR D A zD E D I D L D P D U D Z D _ VD d D i vD o >D r D w zD { .D RD zD D D D FD D D D D D 0 CB1 @
0x11eb9c…11ed30 Dummy {f00=0x00e8, f01=0x0190, f02=» 6 P l T1 * b ( F 0 l & p * j r `T1 x *
0x11ed30…11eec4 Dummy {f00=0x00e8, f01=0x0190, f02=»
[…0x1…]
0x11f058…11f1ec Dummy {f00=0x00e8, f01=0x0190, f02=» n 6 $ B 8
0x11f1ec…11f380 Dummy {f00=0x00e8, f01=0x0190, f02=» ? < DC a DC TK LP 6 GP 0 DU FD DLU * B . D Z p - r
0x11f380…11f514 (1, 363) Dummy {f00=0x00e8, f01=0x0190, f02=» SYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLSYSVOLPFJESVCHM/=><DL!ASUFTCE+-*:;&V?
0x11f514…11f6a8 Dummy {f00=0x00e8, f01=0x0190, f02=» M U t ~ 0 * B 0 0 0
0x11f6a8…11f83c Dummy {f00=0x00e8, f01=0x0190, f02=» F @ B D F H J L N P R T V @ f $ B
0x11f83c…11f9d0 Dummy {f00=0x00e8, f01=0x0190, f02=» F Q 0 [0 0 ^ e f h n t ~ 2 . C ` 2 /
0x11f9d0…11fb64 Dummy {f00=0x00e8, f01=0x0190, f02=» 6 !! _ jX 3 0 0}@d "P l_p 4 # 6 P 7MW (j "M ( 0 P 0 * 1W 'W 1 1 1 1 v j !!Ov v" Cv 0 "" VvW 0 0 )W`0 "" Vv 0 !!W6 'WH ! W+ " W% h * h `h h h
0x11fb64…11fcf8 Dummy {f00=0x00e8, f01=0x0190, f02=»L 0 /P /0 f 4 0 f 4 4 0 0 0 $0 T 0 0 W 0 W 0 4P +W 4 0 4 @p@q@r@t@v@ @x 2 # !"#$% H ! ( Hx 4 $ !"4 "!4 !!4 I @w 0 0 V # 4 A 0 _ @ P 0 0 4 b !&
0x11fcf8…11fe8c Dummy {f00=0x00e8, f01=0x0190, f02=»!4 FX [4 +>Y ZFY ! X ZL [$1 - , 2b2R, 2 , Y Z@Z < 6-*Y,Y|Y "2 2* 1 3H [N[h t $[ ]<]x | X X 1 X X [ Z [ ] ^B] ] ] % a | D b e ) 1 @ }
0x11fe8c…120020 Dummy {f00=0x00e8, f01=0x0190, f02=» F J S:T JOBPTS GETDATAMODE NO.:ENTRYTYPE:FORMATSEARCHVERIFY CREATEELEMENTNAME: TPROGRAM:REL 10.0SIZE OF DEFINITION VALUE-SETS70 CONVERSION10 SUPERVISORY FUNCTIONS99XXXXXXXXXXXXXXXXXXXXXXX-
0x120020…1201b4 (1, 364) Dummy {f00=0x00e9, f01=0x0190, f02=» U U RETURN
0x1201b4…120348 Dummy {f00=0x00e9, f01=0x0190, f02=»T & f ! ~ ) ( h dG . 20 " - + 30 - + 40 50 # 60 $ - " & + 0 5 ; A G N U d l t ~
0x120348…1204dc Dummy {f00=0x00e9, f01=0x0190, f02=» f ! & A C g g o E E@ & + P _ Cn E E ;d # + Cn E #0 0T ' Cn ' _ E #0 0T & ! T P & ! X T C Cn X x & Y " X R W +r P _ Y $
0x1204dc…120670 Dummy {f00=0x00e9, f01=0x0190, f02=» D JR +v X $ X y & +^ X x & Y " + E + !0P< <! T( T W$ < X ! P ?A W ?AW <! P X " X R W V, y & Y $ 8 " X X +v x ( y $ +^ +r +v E Y Y E & E (
0x120670…120804 Dummy {f00=0x00e9, f01=0x0190, f02=» y X V& X ( " x C ( Y * X Y , " X X C & C C ( B Ph9 R^9 X !@PP X X * b ) Y * Y , X , " x X *YrP y X " x Y X " T Y _ l_ B U C Q C D t v X
0x120804…120998 Dummy {f00=0x00e9, f01=0x0190, f02=» X * $" X D % " X # X * " y _< X # X * y " X 1 1 X !@T X $ " P y _ x T X H X X * , )$ P _ : ' Y ED y x C y X C C X ( x Tf B 9
0x120998…120b2c Dummy {f00=0x00e9, f01=0x0190, f02=» C B P 9 V l_F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c +` C _$ _ y _6 x X@ X " X # " C _. B ]d P C Q8X8_H x XD @ Y c C y XR X x " . x X X #
0x120b2c…120cc0 Dummy {f00=0x00e9, f01=0x0190, f02=»V ! P @ Y E Y Y . : ED E E " E $ : +v 2! Y " + E + E JR +v X "T X +` " +l +v E X +r +^ + ' E ! Y 0T V + JR : +v 2'
0x120cc0…120e54 (1, 365) Dummy {f00=0x00e9, f01=0x0190, f02=» H ^ +p@ W W W W W W W +v Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 # W U X Q $hW Y 0 # $ 4( 3~ +v 9H Y * "fW W "V 3~ X 0 X +" X *9h P2 R Y >_ P P Y +W^ " Y + " # WL
0x120e54…120fe8 Dummy {f00=0x00e9, f01=0x0190, f02=»Cn X 0 Y 8 ! P + Y 0 X 0 X 2] X 8 Y 0 ! : X 0 :H* +~ : X 2T Y 2 : C 1 B ] 3 : "V X +! U 9K Y ( Y + # $ +v9H Y * 2 Y ( Y > Y + E 4 0 E* 6 2 : C ( C : C B _( _ X " " P
0x120fe8…12117c Dummy {f00=0x00e9, f01=0x0190, f02=» : E R _0 G _>T T E T T T T T T R~Q~R~QD$ &@&@T $ T R. W W X 0Q $h $f Y ( Y *P 3~ PR # X <' X X P +v X *# X ( " Qp " P X 0P: Vp_` " P4 T )b + WT " P Y 0] Y (_t " X _. 3f X *# P B 1
0x12117c…121310 Dummy {f00=0x00e9, f01=0x0190, f02=»R % T T T RjQ~RtQD$ % % R $ T R. +v Y . Y ,W +v Y . X ( X ." PV X 0RzT$ Y *P U :H +~ $ K T RTW RJ X . X 2QH Y *T2 R@ : " P$ X 0U X *# P P T " T : Y . )b Y ( Q~ +v Y *T " T ! 1 W ! ) R@ : +v R
0x121310…1214a4 Dummy {f00=0x00e9, f01=0x0190, f02=»P %_ R@ : +v V Y " X .9H $ TV P & X ( " Qv Y +Q R " P W " U (v Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl Pf P P ( P< ( WZ X ! X $" P<Q X (# P2 X # :! R$W ( ( T$ @ Y (W Y , )bW
0x1214a4…121638 Dummy {f00=0x00e9, f01=0x0190, f02=» t X 0 l ( _r X ( P Y (_ P* ( P| Y 8 % X 8 X $ +~Wh_ " P X ( T X & V H "@TF ( P6 V Y X (P * ) X (P ( + 8 Y 0 X 2P X 0V _z Y ( " T Y ( : 8 * E 8 V Y 8 : " P
0x121638…1217cc Dummy {f00=0x00e9, f01=0x0190, f02=» +v X : X ( T X & V H " V Y : X $ +~ X : + : X Y " X Y $ X Y & X @W X < Y = " + ! T W T ! P =H T *( X *! T" X y 4 @ X (T y 6W4 X y 6W, @ X (P W" X & V D ! P @ W X +~W Y ( :
0x1217cc…121960 Dummy {f00=0x00e9, f01=0x0190, f02=» V Y * V Y : E R : 2' " P T G W E6 R : * : +v 3~ + C +l X +~ : "0P ' Q W ' Y : W E: V Q +v Y Y Y < V E Cn B X _ v : C C 3 : C 3
0x121960…121af4 (1, 366) Dummy {f00=0x00ea, f01=0x0190, f02=» 4 ,N 4 ,f , , , X X - / 4(/ , W 4(/ , 3 2 4(/ , 3 3 ' / E C 2 E C E &P C E & C : ( Cn 4( "R V I Cn 4( ( T _& @X2X, @X4 _6 E
0x121af4…121c88 Dummy {f00=0x00ea, f01=0x0190, f02=»- ( W E & F : ( Cn 2 & >A >A 2 $ E & V D 9a 9 V @ .W @ T T W X R V 8 P , _ =B R ?H 8R0;AV ( _ X @ 9 X ( 9 8 ? X Q , V
0x121c88…121e1c Dummy {f00=0x00ea, f01=0x0190, f02=» ' >A >A 2 $ V L ;a ; R@ @ T 8 ? X Q* ( V )<B ?H ( Cn . ( 4( E "$ P B B WXW W: Cn E V G 9h ' Cn 4( # 9 2! P T 1 / 2 4( #/ C _ (
0x121e1c…121fb0 Dummy {f00=0x00ea, f01=0x0190, f02=»/ _ _. 1 / 2 1 C ( B B @ C ( ( B B C C ( C C 2 4( X^ C <H / 2 4( C _ 1 ( C _> 4( X^ C 4 <H / 2 1 4 0D C _"
0x121fb0…122144 Dummy {f00=0x00ea, f01=0x0190, f02=» 4( 4 C C W 4 C C J2 ' W 781"&$ 39#$;< '()*+,-! 4 4 4p E P _D 4( B E 'W 4( ( W E 4 4( ( 1W C C C ( ' P. 3 P$ "! P X6W B % P C +
0x122144…1222d8 Dummy {f00=0x00ea, f01=0x0190, f02=» B B P C 3 : V I C B : ( ' P 3 I : 4( 4p % Y ED C E & R V C E : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D GzW"' #? Gd ;D:B " : _
0x1222d8…12246c Dummy {f00=0x00ea, f01=0x0190, f02=» B % C : W 5 6 V :a 6 5L 3 ' ( 5 ( J V T P W + 5 2 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : 6 D T> E D :A D ;A
0x12246c…122600 Dummy {f00=0x00ea, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D W ' #? ;D:B " : _
0x122600…122794 (1, 367) Dummy {f00=0x00eb, f01=0x0190, f02=» B % C : W 6 V :a 3 ' ( ( J V T P W + 2 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A
0x122794…122928 Dummy {f00=0x00eb, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D W ' #? ;D:B " : _
0x122928…122abc Dummy {f00=0x00eb, f01=0x0190, f02=» B % C : W 6 V :a 3 ' ( ( J V T P W + 2 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A
0x122abc…122c50 Dummy {f00=0x00eb, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D W ' #? ;D:B " : _
0x122c50…122de4 Dummy {f00=0x00eb, f01=0x0190, f02=» B % C : W 6 V :a 3 ' ( ( J V T P W + 2 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A
0x122de4…122f78 Dummy {f00=0x00eb, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D W ' #? ;D:B " : _
0x122f78…12310c Dummy {f00=0x00eb, f01=0x0190, f02=» B % C : W 6 V :a 3 ' ( ( J V T P W + 2 6 K V K V V K V K V 6V ( - _ : J 7 J V W J :A V 6V $ - _ * + : D T E D :A D ;A
0x12310c…1232a0 Dummy {f00=0x00eb, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C 4 / E C E &P C E & C CJCJCJC D CtD JRH H IhL:M M DdDdDrDrD CnDrDrP U UtU U"U T E E E E + W V 7 @ N! P +
0x1232a0…123434 (1, 368) Dummy {f00=0x00eb, f01=0x0190, f02=» _ 2 # ;B V T 2W V P L , V 2P " 2 P V D ! R T V P V + W V _ 8^n DB 2 ! 9B V T W V P D $ V 6 V % V E @ R' T 2 % 7_ 2 # L E 2" &] Y $! 6P Q $
0x123434…1235c8 Dummy {f00=0x00eb, f01=0x0190, f02=» 'W '_6 : B > F :l:d:h E W W P W 6 2# GzW4 @ P EE"" T> ; [ # Gd:H 2 T Z L LE D V, W # Gd LE E V $ W D V LE , W 6 2 GzW$ " P& Pd" # Gd ;b Wv " ;d# _
0x1235c8…12375c Dummy {f00=0x00eb, f01=0x0190, f02=» (Vr ; H [ [ [ E z ;AV$ Z H # G ; E : & Z 4 G : Z 4 " 2@P : [ [ E & @ P! P [ 6 [ Z 7 E@ Z 7 : ( :A ( @ R" P ! P
0x12375c…1238f0 Dummy {f00=0x00eb, f01=0x0190, f02=» ; : ;f" #?_" W " T & T + : * & !@P `1` P I Q [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W
0x1238f0…123a84 Dummy {f00=0x00eb, f01=0x0190, f02=» P8" T * & : * & !`P :J +_ +Q I _0 , T T XD W 1 L P X _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b K P P PF P 0
0x123a84…123c18 Dummy {f00=0x00eb, f01=0x0190, f02=» _n' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y " WJ
0x123c18…123dac Dummy {f00=0x00eb, f01=0x0190, f02=» S W P 9 S W _ V P W T V E + : & [ [ [ [ $ [ [ >h [ [ O JR O JR O H Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P O H V H )_ O M _X z R z ! P 1` {
0x123dac…123f40 Dummy {f00=0x00eb, f01=0x0190, f02=» PP= ;@ R P W ;a=a P " R & R V T W V E + : V & [ [ [ [ $ [ [ &! P O O JR O JR O H z " ! ! R 2` { z " P ! R 2` { 1 !
0x123f40…1240d4 (1, 369) Dummy {f00=0x00eb, f01=0x0190, f02=» ! Z $ Z %_N [ Q* O H O I R [ Z { O H z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 T E*E@
0x1240d4…124268 Dummy {f00=0x00eb, f01=0x0190, f02=» Pb PR P E: V Q QL Q V Z P 2 " T W "@T '?W "? HP " K :e J J " J _Z Z Q [ Z P + [ V 7_ Z Q @ N! P + Z 7 Z Z P + : V R
0x124268…1243fc Dummy {f00=0x00eb, f01=0x0190, f02=» K R WJ RPW +_ Rj Rf K W. _& X 3fW X & 3b J K : V : 1 : + E [ [ < !AAP !TTT W !**T * [ R !FFP !EET W ITD 6 * B Z 9 ! ; *Xt 8 ! DT4 0P Wn 0W8 Wf :T& *W, FP . :T Z !
0x1243fc…124590 Dummy {f00=0x00eb, f01=0x0190, f02=» ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W S 8 !++P !-- z ;$# + ^" _( T tX. PT*AXYZ9 R TV : ! P ! P ! P ! P E ! P E2W : ! )P9H # T &W &" :I : T : P
0x124590…124724 Dummy {f00=0x00eb, f01=0x0190, f02=» V Z : R" P $ 1T Y W 5 _$ : V $ R W R # P W ) V E V$ WX V [ V$ : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R R _. : Jp : E E jP
0x124724…1248b8 Dummy {f00=0x00eb, f01=0x0190, f02=» C : E*#0 T & C C : V C C : & T ;d# P V P P* 9A:AV X R _ V 4 _P :#0 T B 'W B B " WX : PX X2PR LX R R _ R _ # Q R
0x1248b8…124a4c Dummy {f00=0x00eb, f01=0x0190, f02=» 1 X2 E* #0 T B ' : B B WX : E* P C #0 T & C C : V C C : E ( Cn E ( _ E E & E &9B %W _ 4( E F C W Y ( = Wn Y _ E & E & E (
0x124a4c…124be0 Dummy {f00=0x00eb, f01=0x0190, f02=» Y X* T Z0 I R < _ <h =_H ^L _ _R E & G _d E F '_p R : <<H P < : E E & Y R P _v _| V V Q WR _< _B 4( E C E ( B T B $ ' Y E ' Cn _ E
0x124be0…124d74 (1, 370) Dummy {f00=0x00eb, f01=0x0190, f02=»:e" B =_ _f E E & 9_ 4( @ # E C _ E #0P T # P W & ?_ . b 8 ! P& P P P T E _. W P 8 _> E E E E P 8# ' Y = # Z6 _ _ _ _ _ E E '
0x124d74…124f08 Dummy {f00=0x00eb, f01=0x0190, f02=» Y < * C _& 4( E E P ) E B & 9 E & 9 ( B +_ @ . P V E $ E & E ( E 0 E , Y E . Cn E +v X ' E X P &V Y , X Y / X Y "2 E +v & Y _P W
0x124f08…12509c Dummy {f00=0x00eb, f01=0x0190, f02=»E E ^F P ^F P V ^ V V E Cn _H ^^ ^ ^^ 9C : T _4 4 !00Z !99Y ! : T E _. W P 8 _> E E E E P 8# ' Y = # Z6 _ _ _ _ _ E E '
0x12509c…125230 Dummy {f00=0x00eb, f01=0x0190, f02=» z n r v6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 20 P 64 10 P 04 0 P A 4 !0 P /4 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x125230…1253c4 Dummy {f00=0x00eb, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 0 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x1253c4…125558 Dummy {f00=0x00eb, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4 $
0x125558…1256ec Dummy {f00=0x00eb, f01=0x0190, f02=» V H n U n U " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 0 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x1256ec…125880 Dummy {f00=0x00eb, f01=0x0190, f02=» $ B 2 H 0 _ A T|A @s C!!"C!!o 9 kV!0 A!R kP 0 A!R @ 4 C!!WL ^U !0! !T 6 !_ `! ?!` !!Rj ! "R%jG! "R! ! ! " Q E! "! [ 3@ 4 H #@ C!!"C! !T !!RT "!R0 A!R 4 H 0 _ #! R R W A T A @p Cv! Cv! 8 Vv0 Av Tg `
0x125880…125a14 (1, 371) Dummy {f00=0x00ec, f01=0x0190, f02=» Cv!W Hp 4@ 4 H 4@ Cv!Q, v T Ev & #! T j ! ! $! T 0 AvR 4 j " )( 2j " '( ! 0 * 6 :W e / s 4 : m `!: )`W} d$ bd !bRV ! /5? jc "R&#c01j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c*
0x125a14…125ba8 Dummy {f00=0x00ec, f01=0x0190, f02=»p_1Ar 0"mP r$ t Ir t4(r m $R*: r` ta t( : !rRV ! / ? ) r ? j` "R&Hr$ t* t` `tW0 `$jd "R` d * rdJr= t _B$t4 ,`t t` t*_- t1 `"_- `" 5b !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V )( ) )? j` "R$jR "
0x125ba8…125d3c Dummy {f00=0x00ec, f01=0x0190, f02=» ; n F F X FC PTS-DE SYSFIL 0 ! :W e / s 4 : m `!: )`W} d$ bd !bRV ! /5? jc "R&#c01j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$ d U d!: jR$"d "bR c*
0x125d3c…125ed0 Dummy {f00=0x00ec, f01=0x0190, f02=» 8 F T r : '6c ( ]@s $R*: Cq< RU !bR "V ! 1 ! 2 AvT ? )? bjd "R$ b jb!!R( `b c jc!!R) !bc V -? b _Y cbj b R*j b)*R `! ` ! !dRV &cb _ojd "R$jb!! b(_3 cb $c` &{` {c? 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : R5 `* a!b
0x125ed0…126064 Dummy {f00=0x00ec, f01=0x0190, f02=» ca_0AqW3jRd" "'R< !`R< ja "R$ `!< a & `a_ %6c : b " ! d %d3 !? !'RP 0< Hpl R6 "'R: d" d*j` "Rd(` HpO `!: jRd"` "'R: c`_ Cq !`R< c` ` j`!!R)* `!j` "R$ ` !Hp a1h a!R(!X _ )? Cp< b! a! !ba < b b)*R b b R* $ba & a b?
0x126064…1261f8 Dummy {f00=0x00ec, f01=0x0190, f02=»d R jd " $jc " * c d ? 4 j " " & 6 jR " 4 j "R !"4 !!4 b < P ; a x _T SV TC 8? Hq ` j`!! b'$`! _ ? %_5Aq_ : R5 `* a!b
0x1261f8…12638c Dummy {f00=0x00ec, f01=0x0190, f02=» ApAt : As k # *V ) ? Ht ? l b ,V ) ? Ht ? It (? cv: a*mja " &"asz kj a"c a"j &"a `: ` a* 5j ""` j $" l `v: j a"` a" uv: j a"u a"j &"a c: Uj &"* W 6 `#j "" j $" a*_zj $"c `: 6j ""` `c cv_(ja " &"as c`_z cv
0x12638c…126520 Dummy {f00=0x00ec, f01=0x0190, f02=» uv ud d , ) v )? jo !v bo!&k bo'&l ) oV5 ! ! " : * o | Uj |)"` It ? u) 1 ? 0? : VJ! 1 ) ? `b b W `!: R7jR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 1 ? )? a3b &Ra0"
0x126520…1266b4 (1, 372) Dummy {f00=0x00ec, f01=0x0190, f02=» Kq %_1Aq_ : @s RHl Hk RU "#R? a$W a" k `#0"kT : j` "Ra ` 4Ar_ ApAs0"kTY k # *RnHp. a$*a j " $ Z : j` " &*`*K a,Hp bk & a? 0"lT$ l b ,R. a& a =bl & a? #X;! 1 ? b: ja " &*a* a,_' )? c# bc !bRR)jc "R&"c* 1W d3b &Rd k jc "R$ c
0x1266b4…126848 Dummy {f00=0x00ec, f01=0x0190, f02=»BC JC JD x w w * o | Uj |)"` It ? u) 1 ? 0? : VJ! 1 ) ? `b b W `!: R7jR""b bR* z "`R: b !bR: jR$"` "bR? bR* z "bR? '6c @rT `# : !`RV ! 1 ? )? a3b &Ra0"
0x126848…1269dc Dummy {f00=0x00ec, f01=0x0190, f02=» | !4 "4 #4 $4 4 @} 8 In06 W 0 ! WP0 ! WII~ 0 ! W?H 0 ! W50 !! W.@n6 0 ! W 0 ! I~ 0 ! W H 0 ! W 0 ! (0# : H~ ? 0$ P : _ 0% P C{P A )? H ? 0&HoO !H~ 0' # W 0' " ! 2 W 0 0 /1( _5K~|0 ! _
0x1269dc…126b70 Dummy {f00=0x00ec, f01=0x0190, f02=»( 2" + " ( " # I ? & 0+ P ? 0" Pm0) 0 -8 Wa0) 6 > W<( , ! 0d # !_'0) P 0% P o/W o1d o "_HI 0) 2 W @ @ @ @ @h@j #U 0, ! Td$ + " , 0& %@|PI0% T /hZ " !T f ! j !! H{ ? 0% P 0- P H ?
0x126b70…126d04 Dummy {f00=0x00ec, f01=0x0190, f02=»8" .4 #H .Hj 0" #T @m?#@hP !00 01 V 0# !_ $ + ?$I 02WI0% P 0" 9%0# !00 01 T.0% T/WL0# ! 03W #I{ H~ I H 0$ 0&? A 04P#:&;%Io 0- P H 2 ' ' ' ? JA J K{ 0) ?( !00 01 8 _[J # T 2 ' 0% T 2 )**? 2 ***0- 8+J ?
0x126d04…126e98 Dummy {f00=0x00ec, f01=0x0190, f02=» ?.0&_.0# 0 H { ,W H s +0) 0% P 0" Q ,8/?0A 0# !00 01 P : SdW 0% X70- P J ? EK{H ,L T +_UH KA^0) 1( ? Am #4 0$ S 0% P 0" Q I ) *&KA)? 0$ % 0% P-0- P H % W/ ?1 #? 08 $+ %'0 0 < H{ W ! 2 ***234
0x126e98…12702c Dummy {f00=0x00ec, f01=0x0190, f02=» T u A e C Z o p 1 ^ C & : 6 * $ -0 1 J ?
0x12702c…1271c0 Dummy {f00=0x00ec, f01=0x0190, f02=» < @h07 ! P # ( + ? 0- < AhW %hZ ( !< % (R ! j !! ! ( $ 2hZ ! !T !j !! W % 2 !X b !U ( W )W 3f "d "!U d ! 8T 08 (+09 + j !! 1 ! & 0% T 0) V f 0" T(0% P 0)
0x1271c0…127354 (1, 373) Dummy {f00=0x00ec, f01=0x0190, f02=» WX WU Wb Sf !WAH{ W<0: " m W W 0! !T3m W 0! !T&m W /h U ! V !!4 !"4 80 1( / 6 ''' ' y ''' "W% ," "0 We0; W "_ '_ !0; ! 2 W 0 0 (P" &W:6 33 33 333 36
0x127354…1274e8 Dummy {f00=0x00ec, f01=0x0190, f02=»#4 @ 0+ P j !!!WP U0% P m ( &W /) < b !Z/h U ! !Q !4 !0&@ T 0< j %! !0( ! 0; $ ! 6 cv6 C & 4 W 0W 10% P " "Jh !U !TA0% T h ! !T00. _ A 0% T f !0< 0&0( _ 0 0 (P h ! !P 1( _ 1( !0% X 0
0x1274e8…12767c Dummy {f00=0x00ec, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 ; . . 8 DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION 9 FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x12767c…127810 Dummy {f00=0x00ec, f01=0x0190, f02=»7 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 6 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x127810…1279a4 Dummy {f00=0x00ec, f01=0x0190, f02=» r @g@i@k@ "0# ( #W H % W % o 6 0) 2 W ? A W o ~7 h~ ) !PO@ < ~6 h~ ' !< A ! & j !! !@ W 2 W 0: #[A __2 !j !! j ! !$ 00 ! ? A _ !A <
0x1279a4…127b38 Dummy {f00=0x00ec, f01=0x0190, f02=» ? A _ 0! !< " ? #@ T 0% P9W I 46 0 ! W 0 ! : 6 h W h 8 ? 6 0! !< " ? 0! !< " ? ( 0: ( #)0) A h U ! < h 8 ? " ? < 1h ! !P !W !j !! ! 3f "d
0x127b38…127ccc Dummy {f00=0x00ec, f01=0x0190, f02=» 9 _ " W & ? ? 0" 9 ? " W @g@k !Aij !! !? $@kAgW #@gAk@i ! j !! ! Uj ? 00 2 h !T= h !U !P ! h ! !T ! 7 !_ h ! !X W#@ T 0% P! W I h P Wk ~Ub~ "~ @
0x127ccc…127e60 Dummy {f00=0x00ec, f01=0x0190, f02=» ! _6j " - 8 & ?!@ P 5Ii Ik Ig A|W 4@|@ & , /hZ !PDj !! 0 (P 00 !_<( 4 !, z 5h $ !TbI|g2 ? 2 """""#"######"""""$%%"""#&&" !_h( !? 4" !_ "_ ! j !! ! _ _ A| " @ P &
0x127e60…127ff4 (1, 374) Dummy {f00=0x00ec, f01=0x0190, f02=» U j , 1 : ` A g A P n d K : ? - D H + ?:?T+-*:DGRNASUFFFXM/=><DGRNL!ASUFTCXE 0 )
0x127ff4…128188 Dummy {f00=0x00ec, f01=0x0190, f02=» V o ~ J N R@ 2 A ! ~U ! 7& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 4 ? jy " $ j !! 1 j !!
0x128188…12831c Dummy {f00=0x00ec, f01=0x0190, f02=» !W h ! !Z< ") 9 j !! 1j !! 2$ * _b " % ? j !! 'I *A ( $j ! !0 ^ h^ !T f^ ! !j^ !U !j '! !j !! ( _N ! ( + ~UWhj !! ' !QU I N! 4 ! 6 7b ! W:0 ^ h^ U !P 6! 7j !!^ b ! f^ ! !A j !
0x12831c…1284b0 Dummy {f00=0x00ec, f01=0x0190, f02=» W - !"4 !!4 j !!^ ( !"4 7j ! j !! ( j (! ! _ f^ !0 ^ !j^ !U !!4 6 8W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0
0x1284b0…128644 Dummy {f00=0x00ec, f01=0x0190, f02=»" <j !# 'bc (c" /? 1? 3 5 W' ## 1 ! 3 " 5 " " ! T T _< &? 1 An0= T !S 6 ," $ ! _ @n0= T !S0 ! _*a 0> S !4 <1 Ad # @d An@mAe@f 2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 0 R
0x128644…1287d8 Dummy {f00=0x00ec, f01=0x0190, f02=» - + P ]AFNTX 2359T FTJBDATE:TIME:15 FILE-SPACE11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS999999XXE-XXE-XXXXE.XXE.XX T . ( h d A D B C @ A > f ! ? g T U
0x1287d8…12896c Dummy {f00=0x00ec, f01=0x0190, f02=» f Hd ? ! 8T & ( !0 #$}? ) _ ! Cb "" " < $ U@f@e0 " An 2 _ ! 2 ! 5 3 W 4 " ! j " j $" Af0<~ 0 "P 0<~ j~#! ! ! !W !# 1Q* < 08 (+09 + ! !0 $$ %0$ 0 %%
0x12896c…128b00 Dummy {f00=0x00ec, f01=0x0190, f02=»eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Bb !# ~ " ~ T $ 08 (+? - !? &A $ 1 !2 _ ( T & % X / 8 Ao _
0x128b00…128c94 (1, 375) Dummy {f00=0x00ed, f01=0x0190, f02=» j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 08 +1 0 ! !G! "?! !N ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 _ 04 6 A _ $Gv ?v !N "?v ! " ! $ & ! % 0 & $Xm 2 _ & $4
0x128c94…128e28 Dummy {f00=0x00ed, f01=0x0190, f02=» + " P c N01020304050607080910A N T TT FILESIZEUSERFILEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACEUSERFILE UNITNAME CONTENTS14 SYSTEM-VARIABLES XZZ9ZZZZ9 J K :U i I D E G H ! " # # F $ % # &
0x128e28…128fbc Dummy {f00=0x00ed, f01=0x0190, f02=» X% = @ ( X% > @ ) X% ? @ * U ! # % ' * . 2 : C M Y f s 0 Q Q '" ! $ & ! % 0 & $Xm 2 _ & $4
0x128fbc…129150 Dummy {f00=0x00ed, f01=0x0190, f02=» v J j n r( !Ad1 An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 3 W ) 3 m ,P ) ? 5j !& 'bc c b W 0) ! 1 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x129150…1292e4 Dummy {f00=0x00ed, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 2? !6 (DTdt_ * ? + ? ,< j ! ! 3 @iW Ai? P ! 4 ? A W @ ! 6 A ? @ ?
0x1292e4…129478 Dummy {f00=0x00ed, f01=0x0190, f02=»% ;09 ,08 , $ ? r8 ( 2 0< 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 09 {$* p!0
0x129478…12960c Dummy {f00=0x00ed, f01=0x0190, f02=» !* & & & ! 0 0 "}H{ Ij / !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I
0x12960c…1297a0 Dummy {f00=0x00ed, f01=0x0190, f02=»Hi! ' 0" (T W $0$ "W 0$ 4 h w C o 7 7 $ l + G r U $ ' v *CFNYGETUSERBALANCE P 'g @ U 20 " - + (
0x1297a0…129934 (1, 376) Dummy {f00=0x00ed, f01=0x0190, f02=» 0 7 Q * b b }H{ Ij / !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? % & 4 0# 6 55 555555555W 'I ( W Ij I
0x129934…129ac8 Dummy {f00=0x00ed, f01=0x0190, f02=» > 2 6 :@g0 0} { 1 An@ An2 _ 0 0}@n_ 6 5 ? Ag@ij !m ) 1 AiW 09 {$* p!0 AnP 0 ! 0$ 0 2 _Q 0W XT 8 2 Jgwjm & {!_: 2 _ ({ P _ &! 1 2 -P 7 nn &{ _ 0 0}AjA{ p! u #
0x129ac8…129c5c Dummy {f00=0x00ed, f01=0x0190, f02=»! " P W0 % 509 ,08 , T W % & 0 ($}2 ? &{ 0 0}4 0 0} { 1 An 6 _ @n_ 2 Wm * 2j !& 09 {$* p!0 0 ! 0$ / 6 ++3 ({ T j !&m j {!& ! )P R W 2 W &{ _ &{ 0 0}4 ( &Ad1 An@m 6
0x129c5c…129df0 Dummy {f00=0x00ed, f01=0x0190, f02=» ; / Z " U + $ *FGETCREATE P 23 GET " " : h @ m 30 - + ( 3 h d 31 4 - + 32 3 - + 24 COPY " " TO BE COPIED: q @ NEW " NAM
0x129df0…129f84 Dummy {f00=0x00ed, f01=0x0190, f02=» P T X1 Ad!hI @dAn@mAe 6 ? " &z 2 4 /W 0Jd P AoHe @o W 08 z ,AnAo@e 2 _( (z T &PU 1 2 # %XjAo _9 z! X#b !& "z < $z zU08 z ,@e0 " *k0 " _ He% k0"k< Id $P )SW "T k _ k1W @f
0x129f84…12a118 Dummy {f00=0x00ed, f01=0x0190, f02=»0" !P #_R * , !" 3 h &U !T , , _ ,& !8 W:6 1? 2h ! !P 0 /8 W 0 /< ? W %W ( ? @e kU lU( .AdIe 1 W 1 An@mIe W 6 . _ @n_ Ief( $A6 _<A W A W A A Ae@d_D@ $V 1 An@m _L@ T Ie ! 4 @e@dKeN@ @
0x12a118…12a2ac Dummy {f00=0x00ed, f01=0x0190, f02=» h ! O + " *1:2:3:4:5:6:7:8:9:NAMETESTUNITBATCHDELETEVOLUMEBALANCE:JOBNAME:OPEN NEW OPEN OLD SYMBOLIC:BATCHHEAD: JOB-DEFINITION 2X U 45 @ - ? < : ! k ? < : " l > :U
0x12a2ac…12a440 Dummy {f00=0x00ed, f01=0x0190, f02=»h d3 41 D ? 42 E ? 43 D = - ? 44 E = - ? G f 4 B &g 5 " 3 fA ! F &A + " 4 fA " F &A , " 5 fA # F &A - " 6 fA $ F &A . " 7 fA % F &A / " 8 fA & F &A 0 " 9 fA '
0x12a440…12a5d4 (1, 377) Dummy {f00=0x00ed, f01=0x0190, f02=» $ ) / 5 = E N W ` j0 y " 2 & J & p M @ ( , ETEVOLUMEBALANCE:JOBNAME:OPEN NEW OPEN OLD SYMBOLIC:BATCHHEAD: JOB-DEFINITION 2X U 45 @ - ? < : ! k ? < : " l > :U
0x12a5d4…12a768 Dummy {f00=0x00ed, f01=0x0190, f02=» z e t t n r v ! 4 "j ! ! !j o Hi 0< 5 ! " ! (0< 6 W 4 & ( #j ! ! !j 4 & ( $j ! ! !4 & ! c # ( % !j ! !! !j ! ` !4 & " c # ( & "j ! "! !j " ` "4
0x12a768…12a8fc Dummy {f00=0x00ed, f01=0x0190, f02=»0< 1 !h )Q ! ! #*r= #( ! "* }"r=` )0< 4 ! " !0< 3 ! " !0< 6r r!H (W% ! m # T+ w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "10 !!" " !)I 0 # W 0 # & ' %
0x12a8fc…12aa90 Dummy {f00=0x00ed, f01=0x0190, f02=» !W j " ") !0 0< 1 '0? #4 j !Q !4 j !*! !j ! ! !4 !h )Q !j 4 Hj #* wHj $ # 4 & < r R N <;:9876543210/.-,+*)('&%$#"!=p! ! !10/.-,+*)('&%$#"! 2 0
0x12aa90…12ac24 Dummy {f00=0x00ed, f01=0x0190, f02=» !@ # #*r= #( ! "* }"r=` )0< 4 ! " !0< 3 ! " !0< 6r r!H (W% ! m # T+ w! 0 ""j !Q W = ! +W !@ !@ 4 j !Q * & ' @d@ 4 % ( H + "10 !!" " !)I 0 # W 0 # & ' %
0x12ac24…12adb8 Dummy {f00=0x00ed, f01=0x0190, f02=» . " & *@l #hQ 0 !0 6 F MMMMMM? !j !! !_9 "_> Hj j !! {(j { ! % { $! 0 ""Il _h !Ah? Al - ! j !! !c % $ ! 6 W j " "W j !! ! $ # !0< h )Q ! 0@ & ' IiF !5H !1$ # !3 "3H
0x12adb8…12af4c Dummy {f00=0x00ed, f01=0x0190, f02=» W W #_) !j !! !( "Q Ii "_H ! `! a! !0< h )Q ! ! # `" a j a` j a` ! ( !_ $ 6 1j b#~ W j b#~#W j b#~& b# + " b_ _ b $ _ " */$ * + * + + W + * W !4 # `! a! !0< h )Q ! ! " `"
0x12af4c…12b0e0 Dummy {f00=0x00ed, f01=0x0190, f02=» .jo ! ._/jo ! , !4 0 b @h@k hQ 2 !0 2 ? !j b! - b! !j !! H 4W 2j ba baj b! , ! b!__ j b o " b Jiq !0< h )Q ! ! "_ !j !! !j b b _ b !jb!! b! !_ !j !! ! "q _ AkT c _ %b!
0x12b0e0…12b274 (1, 378) Dummy {f00=0x00ed, f01=0x0190, f02=» T$0) 0% P 0) ( " 4_* 2_/ _44 0 Y T ~ z N 6 S ^ R / P CLNRY-9#V:#G:#A:! $ * + * + + W + * W !4 # `! a! !0< h )Q ! ! " `"
0x12b274…12b408 Dummy {f00=0x00ed, f01=0x0190, f02=» R F J N1( P # W !05 p! u ! " !! w jw!! {1j !! {2 w d ":@h u" ! Kh !@k ~/0"oT 1j~ # # - b o -( q0" TF b , ! , " , # 6 h ) b#T" # # ( 0 , b _1Ii !"d &%( _ #$d &% W 1( 4
0x12b408…12b59c Dummy {f00=0x00ed, f01=0x0190, f02=»Ak4 + 1( P W !: 1( P # W ! 4 R | NO#L:PAGEFIELDLINE LENGTH#V:#G:#A:GENERATION VALIDATION ACCUMULATION Z9XXXZZ9XE+XXZZVZZ9ZZVZZZ 1 k " ( % & ) 0 ~ k: " $ % & ' ! " # $
0x12b59c…12b730 Dummy {f00=0x00ed, f01=0x0190, f02=» #L:< 3 LAYOUT> #V: 8 #G: 7 0 0 ' HANDLING 1 " : m 0 NUMBER OF POOL-UNITS: # d 2 : ! 4 3 - MAX/MIN K M A V I DUPLIC. SPEC. #L:< 3 LAYOUT> #V: 8 #G: 7 #A: 9 NO NO/POS - 5 I E T E C -ITEM HANDL.
0x12b730…12b8c4 Dummy {f00=0x00ed, f01=0x0190, f02=» z n r v 0 Hf ( Hg ( j I 0 ##Ie !l_0 ! $ % & Ii I " " ( I 0 $'Ii # 1 " . I 0 $ W .W 0 ! ( % ( % !4 @e@f@g 5@l l eIe ( 3@l l f( If 6Al l g !Af( hIg !W` 5@l l eIeJ(
0x12b8c4…12ba58 Dummy {f00=0x00ed, f01=0x0190, f02=» " !P I A ! ! ! % _2 ! W ! !4 % @e@f@g@ 4 ! " # $ * + , 4 o3 Hi 0 h / !Tr 6 )'''''48fD]]NW[A A A jo ! ! ! ! h / ! ,p_ A jo ! !W:A W.jo !] A A W*A jo !]!W jo !]#A A !W jo !]" !A jo !
0x12ba58…12bbec Dummy {f00=0x00ed, f01=0x0190, f02=» 7 h ) c#T # # d0 3 ( `c_*0" T ` c d H 0 $ 4 I 2 " " j " " j " " $ . ! # T ! 0 "" U W !+ !4 0 $ f c# # d# 4hZ c! 7 c! #6 T$ $ T$$ r W bch b!Z7!T Wb
0x12bbec…12bd80 Dummy {f00=0x00ed, f01=0x0190, f02=» baZ7! bc a ab c!j c!a! cb c!f c! ! d!_ bch b!Z=! W "i c!j c!Z c! (c a ac bc /h baZ ! )b c! bc 'b_ c! )c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a0 u $ #@g c hZ a b! +6 ....zV.VV*zVV.........
0x12bd80…12bf14 (1, 379) Dummy {f00=0x00ee, f01=0x0190, f02=»h `!Z2! "_L( % !T #_Z c j b!Z7 bc b! c !d b!Z7 !Jg{ '!_ `9W `(j b!Z` b! ! ' j '!! b ' j b!Z= 'b '!Ag_ 4 b!jc!! b c ` m ` f b!d b` `! ` b` ` !Hg '`4 d n : 8 E I w U _ w P C X 4
0x12bf14…12c0a8 Dummy {f00=0x00ee, f01=0x0190, f02=» @ 2 V $ ^ ( ! d!_ bch b!Z=! W "i c!j c!Z c! (c a ac bc /h baZ ! )b c! bc 'b_ c! )c ' ) ' j (! '!f c! ! d!? ` 4 j b c a j c!a! b b! c!f cb db4 j b u a0 u $ #@g c hZ a b! +6 ....zV.VV*zVV.........
0x12c0a8…12c23c Dummy {f00=0x00ee, f01=0x0190, f02=» E T 0" !P * 0" "P + , * , +! *0: + 5 0 *f * 3 j % , + , +0 *0W * , + c 5 6 bch b! !Tk c! h & c"T " "Hi #L c" bc a , ach ba "T cb c!W. bc 5h ba !P b , b T ( # A c ,T c!_hHi 0 -.0 &' &W 0 120 ,-
0x12c23c…12c3d0 Dummy {f00=0x00ee, f01=0x0190, f02=» Wf b2 W? ;6 ```` {`7{j {{````````` ` TZW Ik Ak 2 ? W c c! bch b!Z7!P c!WD c! c % a=hZa! c!P "5 c!W'Ag >W @gT _F c! c _ !T 0!a !T _ "T ( ) , $a #a2 W60!a !T W-0!a !T W$$a!
0x12c3d0…12c564 Dummy {f00=0x00ee, f01=0x0190, f02=» : ; W "b& cb_ c!,c _C( $ c ! & ! W Kg !!4 c! bc b "b Uj c b m b b a 4 2 M < & , G * P ^ c #V:G:A:AAAAAA &' &W 0 120 ,-
0x12c564…12c6f8 Dummy {f00=0x00ee, f01=0x0190, f02=» @e kU lU( ,AdIe'1 #An@m 6 $ @ P $ _ @n_"( % 2 _8@ P $V Ie ! 4 @e@d@ @ _Z@dAe " " " J ! U Uj ! !j !!/!j %!8!08 (+09 +( > " 1 W 1 An@m h 2 _ _ 08 (+09 +0$ _ "l lU
0x12c6f8…12c88c Dummy {f00=0x00ee, f01=0x0190, f02=»2b '( "lW b &k !k # 0 # 8~@ P $0 #$@m0 2 W ( ) ) h @ P $ _+ h " $ kU? % 0"k >? lU? 0 0} & Ae? 1 % An@m + , 2 _ _ 0"~P + , @z6 Az _ @ @z $XP@ ~U 0 , P& b~ !
0x12c88c…12ca20 Dummy {f00=0x00ee, f01=0x0190, f02=» 0 , @ T 0 + !_6A X @ T ? &? @e( +AdIe 1 &W 1 $An@m 6 - @~@ _ @n_ IeW( &@6 _8A W A A Ae@d_<@ $V @ P 1 $An@m _O@ T Ie ! 4 @e@d@~KeO@ @ @ _ A~ 2 _ 0# 1 $0$ _ v ( R 7 ; h
0x12ca20…12cbb4 (1, 380) Dummy {f00=0x00ee, f01=0x0190, f02=»USVOLUMEIN USE XXXXX U $ U ! " ' 4 1 : " l 1 : ! k 1 : !A k 4 1 : "A l " ' 53 # 8 5 52 # 4 5 51 # 5 3 :U i : : 50 # ( h d ! h
0x12cbb4…12cd48 Dummy {f00=0x00ee, f01=0x0190, f02=»62 6 63 0 / 2 64 6 / 2 ! " ) # $ % ) & ' ( ) ) * + ) , - . ) / 0 1 ) 2 3 4 ) 5 6 7 ) 8 & , 2 8 % 5 E U e w
0x12cd48…12cedc Dummy {f00=0x00ee, f01=0x0190, f02=» $ z x | kU lU( xAdIe 1 W 6 1 W 1 An@mIe W 6 K @ T $ _ @n_)@ $V 6 Ie ! 4 @e@d ' * h h _sIe ' @f6 _ AfAe@d_ 2 ( 0"kT (!0"lT (! %0$ " _ ("6 ( , W - ! 2 AzT ! '! ? 6 (
0x12cedc…12d070 Dummy {f00=0x00ee, f01=0x0190, f02=»T ( * 2 ( )g= " '"( g " #> $T # '#( _ Ub & 5 + *P ( - { &{ 1 !0 ! 04 mU_" m 509 {&* p!0 $ '$( 10 $} | @ 0 2TC 6 ( B? 0 $} / T l $_ " 2 2 2 ' @z 7 ^ &{ &z 0 0} | @ 0 2
0x12d070…12d204 Dummy {f00=0x00ee, f01=0x0190, f02=» P)W*1( T !05 T W W W 6 W 1W 4 Z E 5 b F " P " : h " + $ " TOVIAFILENAMEUNITBATCHVOLUMEDEVICE DATA COMMCONVERSIONOTHE
0x12d204…12d398 Dummy {f00=0x00ee, f01=0x0190, f02=» 6 :U i 8 : 1 * NUMBER: g 70 ; ( h d 9 : e # 4 - 5 : @ $ FETCHING FORMAT: FROM DISC. @ U " ) 2 <0 G0 H & 5 E U g
0x12d398…12d52c Dummy {f00=0x00ee, f01=0x0190, f02=» F : > B !1( P Q /U80 88 R*j !! oU 10 !jo! 2jo " 1( W % 0 "1( H 0&W 1( !0' ! 6 W"0 0 $( # _.0 ! _y $5 !( * @ . !4 80 4 o3 o0# 0 6 4 Am4 0# 0 4 3 8 ? +1 BATCH IN U
0x12d52c…12d6c0 Dummy {f00=0x00ee, f01=0x0190, f02=»OT FOUND I/O-ERROR DATE ERROR FOUND LOCKED NO DISC SPACE ILLEGAL VALUE INVALID NUMBER CHANGE CASSETTE NO RECORD FOUND UNDEFINED ERROR TEST ENTERED BATCH RECOVERY RUNNING. DISC NOT OPERABLE 4 : l IN : k 5 DISC I/O-ERROR : ILLEGAL
0x12d6c0…12d854 (1, 381) Dummy {f00=0x00ee, f01=0x0190, f02=»OF FILESPACE USED PRESS ENT FOR DELETION THIS IS A DUMMY MESSAGE SYSTEMFILE ASSIGN-ERROR EDIT ERROR IN CONVERSION ALREADY DEFINED/EXECUTED TOO FEW INPUT CHARACTERS OUTPUT DEVICE NOT OPERABLE COMPULSORY FIELD NOT FILLED DEFINED LINE MAXIMUM EXCEED
0x12d854…12d9e8 Dummy {f00=0x00ee, f01=0x0190, f02=»ERFILE NOT CLOSED IN PREVIOUS SESSION. ,END OF FORMAT FOUND PRESS RINS FOR NEW LINES " : m : )CONFIRM WANTED FUNCTION (CORR,RDEL,PRINT) j : h y : k : l : : z : n : : g : ASD 5 PAGE : WARNING:REFERENCE TO FIELD (F ) OUTSIDE FORMAT DEFINITION
0x12d9e8…12db7c Dummy {f00=0x00ee, f01=0x0190, f02=»FINITION OR ON SYSTEM-DISC:)!2<%&9 $ #1>(@5GD73., -=?0C/ ;B+FE666666666A4 " 8' & / : F R ^ k z 2 G ] t
0x12db7c…12dd10 Dummy {f00=0x00ee, f01=0x0190, f02=» , 0 $}j *!! x0 @l 2 ? j x! ! wx xyj &"x !g2e x y" e @ TW( ' )g2 @l? j xy wj x! { W< .V xwj &"w W j ! " "Hn ' wxjx " & wx wxf xwj x! { wxj !! x( % j " &W ( ' j ! " " { 09 {$* p!0 08 x*6 VVVVOVOVV V "!H '0 **P I %!@ A W
0x12dd10…12dea4 Dummy {f00=0x00ee, f01=0x0190, f02=» x* !u uv_ 0 j x! ! 7 ZH_ j " "jx " &"x* ( / Zf_q 1Zm u ? !u (R j "" j &"x u !? ! _ j " & wx x 'jy " xy x u$x Aj " $( xw u 0 /_ /Z j " &( * 1Z)_5 x* wx x 'jy " g3 #gYuP W j ! x0 , + & # ( #3_
0x12dea4…12e038 Dummy {f00=0x00ee, f01=0x0190, f02=» : ? ,wx W x* WY uj " "( ? j " &( * % 1W 0 : j " & *1 1 W u ! u ! u ! 0 : jx " & 1 w*j " w wx wx j &"w xw? w w !( % _ ' xw g3 # ( ( #g? g "b & AlW '2 : 1 _ : ? $ )g2 ' 4WAH !W9AlHl
0x12e038…12e1cc Dummy {f00=0x00ee, f01=0x0190, f02=» *PE - { ) ? 1 0 ! 04({ ' x( ' ' wj " jy " ? &{ mU_ m $ ' ( @lW !g2 ( nmW *W * n An xIl j ! { W . ( ' !g2 j x) w < ? < ? !j &m &j "y ( + ? A ? < 0 @vP C 8 ? ' ( % 2 ! C 8 0 @v< "!_y # "= g "
0x12e1cc…12e360 Dummy {f00=0x00ee, f01=0x0190, f02=» P R 1 y s n G a + E ! & FETCHING FORMAT: FROM DISC. @ U 0 0 * t B J J#g? g "b & AlW '2 : 1 _ : ? $ )g2 ' 4WAH !W9AlHl
0x12e360…12e4f4 (1, 382) Dummy {f00=0x00ee, f01=0x0190, f02=» O ^ 2 0 @vP 2W2 +P 0 @vP'A T# * kU lU 5P7 # k ! l " ) 0 @v $W &z &| &{ 0 @v_U &z &| &{ 0 $} 1 ^ # + "@ X& ! 3 !0! !X 0 " %P @ 0 0 $} 2_R * ' #4 $T -_ #_-@ P 0 $}A / W Ay@m 4 @ 0
0x12e4f4…12e688 Dummy {f00=0x00ee, f01=0x0190, f02=» 1 : "!H $! gC 8 C < %!? j " & wx xyj " $j &"x .: w *f * u$x j $" 7 : W .: uf *y x *j &" _* u 0 : j "" 7 : W j ! "u u 0 : w* x*j x! { ? h ( ' 0"kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0$ " ? I +
0x12e688…12e81c Dummy {f00=0x00ee, f01=0x0190, f02=»? /b %f #j? 08 |"-0 0 @vP I N? ( % #@H A ? ( $ ( % _jH H "A W I H 0W I 1W H~ I (W ' A P A WB0 @vT ( ' $W3 $W I K @ 0 0 $} 2TmH 7 Uj &"* W 0 TT08 z , { 0 @vT % 4 * *T4 m 4W mU x*0 @vT % I S2 * An08 |"- wx g 0
0x12e81c…12e9b0 Dummy {f00=0x00ee, f01=0x0190, f02=» M 7 G X S = + D ! " % 0 0 _* u 0 : j "" 7 : W j ! "u u 0 : w* x*j x! { ? h ( ' 0"kP W1( $ ( % W ( % # 0 @vP (z Ub &k "V 0$ " ? I +
0x12e9b0…12eb44 Dummy {f00=0x00ee, f01=0x0190, f02=» Ii " !W ! 0 " P !, ! ? Ij { j 1! !j 2! !Hj 1j !&m $ r"Ii' U ! ( j !! ( ) x. .K .*W x( Hj mIn 0 ! W 0 ! Hj m !7 w! y "! !U 'U U & Ii ( In 0 ! W 0 ! @n ! Ij 0# :
0x12eb44…12ecd8 Dummy {f00=0x00ee, f01=0x0190, f02=»++ W ! $ 0' . T W 0' , T ! 2 W "? I I I I IjO2 !0) / 2 W$0. Am6 ! bC I .4 ? "(0. _*Am #02W 03W 04W X Z [ +( H I C_ 1( _ T 1( !05 ? 2 ? W #0- T %y0 %%_
0x12ecd8…12ee6c Dummy {f00=0x00ee, f01=0x0190, f02=» % 0 0 < 2 ? 2 #? 0# 0 ? $ 2 2 0 %% ( @h u!He8Kh 0 % $? 0 %%A ( @h u!He Kh ( ! u!0 #'@ @ @ ( ? @ ( !"_cA $? 0 && u! !eJh ? 0 &&A % Ad@ @ #? A @ u!
0x12ee6c…12f000 Dummy {f00=0x00ee, f01=0x0190, f02=» ! T&Hl 00 01 @l0" T W 0Al00 01 X/ "_B 4 ! ! + 2h # !T}6 )) !@|Tkj !! ! j !! 00 _H !j !! $ !A !@( "90! !T2@e@i@k !" ? 'hZ 2 !TS &6 " _ Ai_8Ae_<" y 3WsAkW !j !! ( ~
0x12f000…12f194 (1, 383) Dummy {f00=0x00ef, f01=0x0190, f02=» ?"6 PW 5W 44 " % j ! H ? f G Y z R L $ C $ ?FMDA 1
0x12f194…12f328 Dummy {f00=0x00ef, f01=0x0190, f02=» ) 8 V 5@d@g0# 0&W0 Ad00 01 R Ag0/ ! P "Hd 00 01 4 ! ! @ 3h $ !6 ++ W) "@|Tyj !! ! j !! /0 _IT[ !j !! 6 nnWO@e !5 ! 2h ! !P !@i ! 9 4h * !TY2 W "_ !
0x12f328…12f4bc Dummy {f00=0x00ef, f01=0x0190, f02=»! 6 & ) 0! ! W30! !P(_ 0! ! $W ( 0: # W a " Hi b " !P 6 ! "W ! "W ! "W ! "S ? #? He U m " 0! !< ? ( 00 01 0) 0% TJ U m ! P Q 0) , ~0d ! ~ W f ! ! 0 0. 0$ ?
0x12f4bc…12f650 Dummy {f00=0x00ef, f01=0x0190, f02=»Hy 0 "Hz 0 34 U j ! !0 P b ![ ! ! ( 4 j l U ?0;=DUFM!UF+-*:;AS +TTTTTTTTTTTTTTTTTTTT9 ! 0 0 0 @ d z "_ !
0x12f650…12f7e4 Dummy {f00=0x00ef, f01=0x0190, f02=» n I H~*H $H !@~ W 04@mI~ Hn @f $U W I~ W I Ao 2 H~ I Ao { _ H{ 2 _ 2 b & . #K~M g "pK s_W!g0 ? /_>Iz H 04_ H %? Im)I~ h ( & g" " H I @o0 ! _ _ 0 ! %Z @m@n 0 ! _ Io @ T I~ #> ?
0x12f7e4…12f978 Dummy {f00=0x00ef, f01=0x0190, f02=»! !T #P ( -& Ub & ? Ub & @ .P )g0 Ao? AzAzT @mA *P @ ? @ @m8 @xP 2 h ( & H #: W ? Im1I~ I & h ( & H I ) ? I ) ? I H W Io ? g( " C~< )g0 @z )WkI~5 / 2 $ # " #g #g &? #* " #g_> ! & #g #1_
0x12f978…12fb0c Dummy {f00=0x00ef, f01=0x0190, f02=» C~8 ? @zC~8 ? ? Km Jz I g0 T Io Ao #: _3Ao@ T / 2 ! % # #g W ! #g #10 ! &_ I~ Jo K _@ @ !04@o ( P W 6 - _ Hm 0 ! A %V @ _ @ "@m042 " #$$$% " / 80 !"W 0$ ! @m h ( & H I ?&Ao( ! ? ? AoW I~ Co8 C < Cz
0x12fb0c…12fca0 Dummy {f00=0x00ef, f01=0x0190, f02=» ! & ? C < h ( & H I ?& g( " @oW $ 2 + ): @oA ?,C < Hz @ T Cm< Io I~ #V - ? @o@z Ub & 5 +@mA{ *V#( - 1 0 ! 04 { &{ mU_"@{Ao? m 5 + p!0 An ! 6 @_2( (' % ) _ + 2 --./A #W 80 _3 _8A @{0 $} !4 @{Az '
0x12fca0…12fe34 (1, 384) Dummy {f00=0x00ef, f01=0x0190, f02=» z ( B R b O c r ; @ > > , A J [ 8 4 " " D + * FETCHING FORMAT: FROM DISC. @ U 0 0
0x12fe34…12ffc8 Dummy {f00=0x00ef, f01=0x0190, f02=» Ii 1 W 1 4 PAGEBATCHFIELDLINE STARTLENGTHNUMBERRECORDSTART:(#A:...)(#G:...)(#V:...)123456789 1234567890CORRECTIONGENERATION VALIDATION ACCUMULATION AAZ9ZZXXXTTTTXE+XXZZVZZZ " : e ` m / SIZE: f ` ! 2 5 : + " . 5 OF POOL-UNITS: D #
0x12ffc8…13015c Dummy {f00=0x00ef, f01=0x0190, f02=». 4 > : @ & 0 -ACCUMULATOR:A m ( . SPECIAL HANDLING: @k ? : > 9 o@ ! p@ " U 21 USER " + j # = 1 : F $ 7 % 4 : & & . OCCUPIED 6 4 : E ( KEYED INPUT ( Y /N/C): l@ ! . MINIMUM 4 > : @i
0x13015c…1302f0 Dummy {f00=0x00ef, f01=0x0190, f02=»ERIFY 9 (Y/ N ) : @t@ $ INITIAL CLEAR ( Y /N): u@ % . SPECIAL HANDLING: @k ? : > 9 2 @ 8 o@ ! p@ " U $ * 0 8 @ H R f q | *
0x1302f0…130484 Dummy {f00=0x00ef, f01=0x4014, f02=» HNOD @ &| 0$ * & ) ' 0 @vT &z @ P $0 $} W . $ G xyj &"x x* !!4 ! 4 * & _ M 7 G X } S = DEACC * & @ + j
0x130484…130618 Dummy {f00=0x00ef, f01=0x018e, f02=» IDENT P:S023 * & Ii " !W ! 0 " * & - " P !, ! ? Ij { P * & K j 1! !j 2! !Hj 1j !&m $ ~ * & i r"Ii' U ! ( j !! ( * & ) x. .K .*W x( H * &
0x130618…1307ac Dummy {f00=0x00ef, f01=0x0190, f02=» * & ! Ij 0# : 0$ P8: _ 0 && * & du d ! 0 ## #_* / 2 * & ; ! !( % A _ 0&I I I I Ij ` * & Y & # x 0* (* W20* )* W(0 * & w * ++ W ! $ 0' . T W * & 0' , T ! 2 W
0x1307ac…130940 Dummy {f00=0x00ef, f01=0x0190, f02=» I .4 t * & ? "(0. _*Am #02W 03W 04W X * & + Z [ +( H I C_ 1( _ @ * & I T 1( !05 ? 2 ? n * & g W #0- T %y0 %%_ W}? * & ( 0&W !0) ( 1( ? 06 - * & ? Hi H
0x130940…1315e0 (2, 0) DirGranule ((2, 0)) {
0x130940…1315e0 DirEnt {nam=»S:DU «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0bd8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEINIT«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x0be0, f03=0x0008}
0x130940…1315e0 DirEnt {nam=»DDINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c08, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c28, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c60, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»WRIT12«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»REORGS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»CRESUD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d18, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DSKERR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d50, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0d88, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0da0, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DILINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0fc8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»REORGU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»PTS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1070, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDI03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10b8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDISU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»COPVOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1110, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»ASSPER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c8, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1238, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»DERR:O«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1258, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»CONUTI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1270, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»CDU1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d08, f03=0x0000}
0x130940…1315e0 DirEnt {nam=»CDUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x3228, f03=0x0000}
0x130940…1315e0 }
0x1315e0…131774 (2, 1) Opaque[0x194]
0x131774…131908 # DirEnt {nam=»DEINIT«, typ=»SC«, f00=0x019a, f01=0x0198, f02=0x0be0, f03=0x0008}
0x131774…131908 IdxSect {
0x131774…131908 f00 = 0x005f // 0x131774 @0x0
0x131774…131908 f01 = 0x000a // 0x131776 @0x2
0x131774…131908 gno = [ // 0x131778 @0x4
0x131774…131908 [0x00]: C0x005f.0x0.0
0x131774…131908 [0x01]: C0x005f.0x1.0
0x131774…131908 [0x02]: C0x005f.0x2.0
0x131774…131908 [0x03]: C0x005f.0x3.0
0x131774…131908 [0x04]: C0x0060.0x0.0
0x131774…131908 ]
0x131774…131908 }
0x131908…131a9c Dummy {f00=0x005f, f01=0x0190, f02=» $ P IDENT DEINIT UPD 80-03-31/CHST * P************************************** , * P* PTS DATA-ENTRY UTILITIES * Z * P* 1 CREATE VOLUME * * P* 2 CREATE FILE * * P* 3 DELETE FILE
0x131a9c…131c30 Dummy {f00=0x005f, f01=0x0190, f02=» * NOT USED n * P* 7 CHANGE VOLUME-NAME * * P* 8 VOLUME-SURVEY * D * P* * r * P* USER = S:DU * * P************************************** P DDUM DDINIT
0x131c30…131dc4 Dummy {f00=0x005f, f01=0x0190, f02=» EXT REORGS P EXT CRESUD P EXT REC1 ( P EXT REC2 : P EXT RECSYS L P* ` P EXT CREVOL j P EXT DELFIL ~ P EXT COPYDD P EXT CHANFC P EXT CHVOL P EXT SURVEY P EXT OPENF P EXT CLOSEF P*
0x131dc4…131f58 Dummy {f00=0x005f, f01=0x0190, f02=»ROMPT PCANC1 P PERF DECLRA P IB DEBINW2,CANC1,START,C02 0 P B C12 T PC02 b P MOVE VOLNAM,=X'00' n P MOVE COPNAM,=X'17' P MOVE FVOLNAME(W3),COPNAM P MOVE PBLOCK,=X'20' P MOVE BIN1,=X'50' , P XCOPY PBL
0x131f58…1320ec Dummy {f00=0x005f, f01=0x0190, f02=» CREATE FILE P* 3, DELETE FILE P* 4, COPY SYSFIL 8 P* 5, NOT USED P* 6, NOT USED ~ ( P* 7, CHANGE VOLUME NAME " P* 8, VOLUME SURVEY P* 9, NOT U
0x1320ec…132280 Dummy {f00=0x005f, f01=0x0190, f02=»ATE VOLUME P****************** PC100 , P ATTFMT FCRV UNIT & VOL-NAME 8 P SET DEPROMPT PCANC10 r P PERF DECLRA P IB DEBINW2,CANC10,START,C10 PC12 P PERF DSKERR,W0 'BELL' P B START PC10 . P XCOPY PBL
0x132280…132414 (2, 2) Dummy {f00=0x005f, f01=0x0190, f02=» PBLOCK,W16,W1,DEBIN3,W1 DTYP " P XCOPY PBLOCK,W17,W1,W1,W1 APL & ( P XCOPY PBLOCK,W18,W1,DEBIN2,W1 DVER L P ERASE 0,W1,W17 x 4 P CALL CREVOL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD P PERF HALT P CBE RETCOD,W0,START P CBE RETCOD,W2,ERR
0x132414…1325a8 Dummy {f00=0x005f, f01=0x0190, f02=»SK NOT USABLE' | P B START P EJECT & P***************** 4 P* CREATE FILES * N P***************** h PC20 P ATTFMT FCRF P SET DEPROMPT PCANC20 P PERF DECLRA P IB DEBINW2,CANC20,START,C21 P B C12
0x1325a8…13273c Dummy {f00=0x005f, f01=0x0190, f02=» RETCOD,W3,ERR10 P CBE RETCOD,W7,ERR7 & P CBNE RETCOD,W0,ERR32 'I/O-ERROR' 4 $ P CBE FTYPE,=D'3',C22 IF UD-FILE ^ 6 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,FILNAM,COPNAM P BNOK ERR32 P PERF REC2 P PERF REC1 . P* IF SYSFI
0x13273c…1328d0 Dummy {f00=0x005f, f01=0x0190, f02=»1',C210 BRANCH IF SYSFIL P MOVE BIN1,BLFACT P MUL BIN2,BIN1 : PC210 P . P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,BIN2 PC22 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME P B START P* P* PERR32 P PERF DS
0x1328d0…132a64 Dummy {f00=0x005f, f01=0x0190, f02=»ERF DSKERR,W10 'DISK OVERFLOW' PERR90 & P PERF CLOFIL 4 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME H P B START | P EJECT P************************ P* CHANGE VOLUME-NAME * P************************ PCHVNAM PROC VO
0x132a64…132bf8 Dummy {f00=0x005f, f01=0x0190, f02=»HANGE FILE-CODE * P********************** PCHFCOD PROC FC 8 P CALL CHANFC,DISK,FC N P RET j P PEND v P**************** P* CLOSE FILE * P**************** PCLOFIL PROC , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0
0x132bf8…132d8c Dummy {f00=0x005f, f01=0x018e, f02=» P**************** P* DELETE FILE P**************** 6 PC30 N P ATTFMT FDEL Z P SET DEPROMPT n PCANC30 P PERF DECLRA P IB DEBINW2,CANC30,START,C32 P B C12 PC32 , P CBE FTYPE,=D'3',C36 IF USERDEFINED
0x132d8c…132f20 Dummy {f00=0x005f, f01=0x0190, f02=» P ATTFMT DUF P SET DEPROMPT PCANC36 . P PERF DECLRA < " P IB DEBINW2,CANC36,CANC30,C36A P P B C12 v PC36A P************************* P* CHANGE VOLUME-NAME * P* TO:X'171717171717' * P******************
0x132f20…1330b4 (2, 3) Dummy {f00=0x005f, f01=0x0190, f02=»,W1,STR1A,W0 F.ORG='S' , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME . P XCOPY PBLOCK,W16,W6,COPNAM,W0 VOL-NAME 1 N P ERASE 0,W1,W6 P PERF CLOFIL 4 P CALL DELFIL,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD P IB RETCOD C P ERR33,ERR33,C3
0x1330b4…133248 Dummy {f00=0x005f, f01=0x0190, f02=» P* P* PERR33 0 P PERF CHVNAM,VOLNAM CHANGE TO ORIG.VOL-NAME & P PERF DSKERR,W3 'I/O-ERROR' Z P B START ~ PERR12 ( P PERF DSKERR,W12 'FILE NAME UNKNOWN' P B START P EJECT " P******************************
0x133248…1333dc Dummy {f00=0x005f, f01=0x0190, f02=»ET DEPROMPT PCANC40 P PERF DECLRA " P IB DEBINW2,CANC40,START,C41 6 P B C12 Z PC41 h P************************* t P* CHANGE VOLUME-NAME * P* TO:X'171717171717' * P************************* P ATTFMT COPY
0x1333dc…133570 Dummy {f00=0x005f, f01=0x0190, f02=» P PERF CHVNAM,COPNAM P MOVE COPY,=X'00' P PERF REORGS : P B START N P EJECT ^ P*************************** l P* COPY SYSVOL TO SYSVOL * P*************************** PC60 P ATTFMT FCOPY P SET DEPROMPT
0x133570…133704 Dummy {f00=0x005f, f01=0x0190, f02=»PUT VOLUME p 0 P XCOPY PBLOCK,W14,W6,SYSVOL,W0 OUTPUT VOLUME ( P XCOPY PBLOCK,W21,W1,W0,W1 NO REORG. H P* t 4 P CALL COPYDD,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD ~ P CBE RETCOD,W4,ERR8 P CMP RETCOD,W0 P BNE ERR3 P B START
0x133704…133898 Dummy {f00=0x005f, f01=0x0190, f02=»LUME-NAME * P*********************** PC70 4 P ATTFMT FCHANGE @ P SET DEPROMPT X PC72 n P PERF DECLRA z P IB DEBINW2,C72,START,C74 P B C12 PC74 P PERF CHVNAM,STR6A P B START P EJECT P******
0x133898…133a2c Dummy {f00=0x005f, f01=0x0190, f02=»C81 P PERF DECLRA P IB DEBINW2,C81,START,C82 P B C81 B PC82 P P MOVE BIN1,=X'50' , P XCOPY PBLOCK,W6,W1,BIN1,W1 PRINT-DEVICE v . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE-CODE 4 P CALL SURVEY,PBLOCK,BPOOL(W5),BPOOL(W10),RETCOD
0x133a2c…133bc0 Dummy {f00=0x005f, f01=0x0190, f02=»,W18 'DISK NOT OPERABLE' P B START P EJECT 0 PHALT PROC > PH10 P P ERASE 0,W1,W1 LINE 1 & P MOVE BIN1,=X'0101' LINE 1 / POS 1 z $ P DSC1 DEDSSCRN,6,BIN1 SET CURSOR 2 P EDWRT DEDSSCRN,FHALT 'PRESS ENT TO CONTINUE' P MOVE
0x133bc0…133d54 (2, 4) Dummy {f00=0x005f, f01=0x0190, f02=» EJECT PFPROG FRMT FSL 2 P FCOPY =C'PTS DATA-ENTRY UTILITIES REL 10.0' , P FNL b P FCOPY =C'PROGRAM:' n . P FKI 9,MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=7 P FMEL 'X',PRNUM P FNL P FCOPY =C'1 =' P FTAB 5 P F
0x133d54…133ee8 Dummy {f00=0x005f, f01=0x0190, f02=» P FTAB 5 P FCOPY =C'DELETE' P FTAB 12 2 P FCOPY =C'FILE' B P FNL Z P FCOPY =C'4 =' f P FTAB 5 | P FCOPY =C'COPY SYSFIL' P FNL P FCOPY =C'5 =' P FTAB 5 P FCOPY =C'NOT USED' P FNL P FCO
0x133ee8…13407c Dummy {f00=0x005f, f01=0x0190, f02=»NAME' x P FNL P FCOPY =C'8 =' P FTAB 5 0 P FCOPY =C'VOLUME SURVEY' @ P FNL ` P FCOPY =C'9 =' l P FTAB 5 P FCOPY =C'NOT USED' P FMEND P* PFCRV FRMT P FSL P FCOPY =C'CREATE VOLUME' P FNL
0x13407c…134210 Dummy {f00=0x005f, f01=0x0190, f02=»' z P FINP 25 P FCOPY VOLNAM P FNL 0 P FCOPY =C'VOLUME-NAME:' < 0 P FKI 14,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 P FCOPY VOLNAM VOLUME-NAME P FNL P FTEXT 'TYPE:' ( P FKI 7,MINL=1,MAXL=1,ME,APPL=13,NEOI P FMEL 'X
0x134210…1343a4 Dummy {f00=0x005f, f01=0x018e, f02=» Z P FNL P FILLR ' ',20 , P FTEXT '- 2 (PTS-6875) 2.5 MB UNPACKED' * P FNL Z P FILLR ' ',20 f * P FTEXT '- 3 (PTS-6876) 5 MB PACKED' | P FNL P FILLR ' ',20 , P FTEXT '- 4 (PTS-6876) 5 MB UNPACKED' P FNL P
0x1343a4…134538 Dummy {f00=0x005f, f01=0x018e, f02=» n P FNL P FILLR ' ',20 P FTEXT '- 7 VACANT' * P FNL F P FILLR ' ',20 R 2 P FTEXT '- 8 (PTS-6879) 0.25MB FLEXIBLE DISC' h P FNL P FILLR ' ',20 2 P FTEXT '- 9 (PTS- ) 1 MB FLEXIBLE DISC' P FMEND P*
0x134538…1346cc Dummy {f00=0x005f, f01=0x0190, f02=» P FCOPY =C'COPY USERFIL' P FLINK FIO $ P FMEND 6 P* D PCOPYS FRMT N P FSL ` " P FCOPY =C'WHOLE FILE ? Y/N:' l . P FKI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FMEND P* PFCOP
0x1346cc…134860 Dummy {f00=0x005f, f01=0x0190, f02=» FCOPY =C'INPUT' P FTAB 7 P FCOPY =C'UNIT : U' ( ( P FKI 15,MINL=1,MAXL=1,ME,NEOI,APPL=9 D P FCOPY UNIT p P FTAB 20 P FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL P FCOPY =C'OUTPUT' P FTAB 8
0x134860…1349f4 (2, 5) Dummy {f00=0x0060, f01=0x018e, f02=»AME:' ~ P FINP 33 P FCOPY VOLNAM P FLINK FHEX 4 P FMEND H P* V PFCHANGE FRMT ` P FSL t " P FCOPY =C'CHANGE VOLUME-NAME' P FNL P FCOPY =C'UNIT : U' ( P FKI 9,MINL=1,MAXL=1,ME,NEOI,APPL=9 P FCOPY UNIT
0x1349f4…134b88 Dummy {f00=0x0060, f01=0x0190, f02=» P FCOPY =C'VOLUME-NAME:' 0 P FKI 19,MINL=1,MAXL=6,ALPHA,ME,NEOI,APPL=14 ( P FCOPY STR6A P FLINK FHEX p P FMEND P* PFCRF FRMT FSL P FCOPY =C'CREATE FILE' P FLINK FFILE P FMEND P* PFDEL
0x134b88…134d1c Dummy {f00=0x0060, f01=0x0190, f02=»FFILE FRMT P FNL P FCOPY =C'UNIT: U' ( P FKI 8,MINL=1,MAXL=1,ME,NEOI,APPL=5 8 P FCOPY UNIT d P FTAB 12 x P FCOPY =C'VOLUME-NAME:' P FINP 25 P FCOPY VOLNAM P FNL P FCOPY =C'FILE' P FTAB 5 P FCOPY
0x134d1c…134eb0 Dummy {f00=0x0060, f01=0x0190, f02=»B 5 P FCOPY =C'SYSTEM' ! P FTAB 11 ! & P FCOPY =C'FILE' ! 6 P FNL ! N P FCOPY =C'2 =' ! Z P FTAB 5 ! p P FCOPY =C'USER' ! P FTAB 9 ! P FCOPY =C'FILE' ! P FNL ! P FCOPY =C'3 =' ! P FTAB 5 ! P FCOPY =C'USERDEFINED'
0x134eb0…135044 Dummy {f00=0x0060, f01=0x0190, f02=»' ! P FTAB 8 " P FCOPY =C'USERDEFINED' " P FTAB 20 " 8 P FCOPY =C'FILE' " H P FNL " ` P FCOPY =C'FILE' " l P FTAB 5 " P FCOPY =C'NAME:' " . P FKI 11,MINL=1,MAXL=8,ALPHA,ME,NEOI,APPL=6 " P FCOPY FILNAM " P FLINK FHEX " P
0x135044…1351d8 Dummy {f00=0x0060, f01=0x418c, f02=»L=1,MAXL=1,ME,NEOI,APPL=8 " P FCOPY UNIT # " P FTAB 12 # 6 P FCOPY =C'VOLUME-NAME:' # F P FINP 25 # f P FCOPY VOLNAM # v P FLINK FHEX # P FMEND # P* # PFHALT FRMT # P FSL # $ P FCOPY =C'PRESS ENT TO CONTINUE' # P FMEND #
0x1351d8…13536c Dummy {f00=0x0060, f01=0x2008, f02=» $ FMEND END @ &E TIME RETUR RET 8 PEND J EJECT X F111 FRMT f FSL x FCOPY ='111 DATE AND TIME' FNL FCOPY ='DATE:' . * FKI 17,MINL=6,MAXL=6,ME,NEOI,REWRT,APPL=1 FMEL 'XXE
0x13536c…135500 Dummy {f00=0x0060, f01=0x0190, f02=» -FORMATTING THE DISC -CHECKING THE SECTORS TOSS REL 10.0 Z $ AN D AN D AN( D AN D AN* [ : Z $ AN" D AN& D AN D AN D AN$ [ : Z $ AN, D AN. D AN0 D AN4 D AN2 [ : M C C
0x135500…135694 (2, 6) Opaque[0x194]
0x135694…135828 # DirEnt {nam=»DDINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c08, f03=0x0000}
0x135694…135828 IdxSect {
0x135694…135828 f00 = 0x0060 // 0x135694 @0x0
0x135694…135828 f01 = 0x0008 // 0x135696 @0x2
0x135694…135828 gno = [ // 0x135698 @0x4
0x135694…135828 [0x00]: C0x0060.0x1.0
0x135694…135828 [0x01]: C0x0060.0x2.0
0x135694…135828 [0x02]: C0x0060.0x3.0
0x135694…135828 [0x03]: C0x0061.0x0.0
0x135694…135828 ]
0x135694…135828 }
0x135828…1359bc Dummy {f00=0x0060, f01=0x0190, f02=» P IDENT DDINIT L M************************************************************************ P* PTS DATA-ENTRY UTILITIES j P* DDIV FOR DEINIT P* USER = S:DU * L L****************************************************************
0x1359bc…135b50 Dummy {f00=0x0060, f01=0x018e, f02=» P CWB CB6 P CWB CB7 P CWB CB8 $ P CWB CB9 4 P CWB CBA D P* T P DWB DB1(CBA) ^ P CWB CBB t P CWB CBC EJECT * * DATA-SETS * DISK DSET FC=D0,DEV=DU PDEDSDYKB DSET FC=20
0x135b50…135ce4 Dummy {f00=0x0060, f01=0x0190, f02=» P* STARTPOINT P* $ P START START . P STACK 300 B EJECT T * b * l PCB1 BLK v P* $ PLRUQUE STRG 38 LAST RECENT USED $ PBPOOL STRGI (38),188 BUFFERPOOL * PRPOOL STRGI (38),19 BUFFER REFERENCES
0x135ce4…135e78 Dummy {f00=0x0060, f01=0x0190, f02=»X FOR USERFILE ~ RETCOD BIN RETURN-CODE & PRECLNTH BIN CURRENT RECORDLENGTH 6 PPJOBCUR BIN POOLINDEX ` " PJOBNAME STRG 6 CURRENT JOBNAME ~ & PFORMAT STRG 6 CURRENT FORMAT-NAME EJECT * * COMMON-BLOCK: 2 *
0x135e78…13600c Dummy {f00=0x0060, f01=0x0190, f02=»OOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- & W0 BIN W'0' CONSTANT N W1 BIN W'1' CONSTANT j W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTA
0x13600c…1361a0 Dummy {f00=0x0060, f01=0x0190, f02=»' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT 0 PW14 BIN W'14' CONSTANT N PW15 BIN W'15' CONSTANT l P EJECT P* P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK
0x1361a0…136334 (2, 7) Dummy {f00=0x0060, f01=0x0190, f02=»NSTANT PW21 BIN W'21' CONSTANT PW22 BIN W'22' CONSTANT , PW23 BIN W'23' CONSTANT J PW24 BIN W'24' CONSTANT h PW64 BIN W'64' CONSTANT PW99 BIN W'99' CONSTANT PW128 BIN W'128' PW188 BIN W'188' CONSTANT " PSYSLEN BIN W'1
0x136334…1364c8 Dummy {f00=0x0060, f01=0x0190, f02=»MON-BLOCK: 4 * " * USAGE: DISC-HANDLING P* D PCB4 BLK N P* ^ " PBATCH STRG 6 CURRENT BATCHNAME h ( PTABLE STRG 6 TABLE-NAME (VALUE-SET) " PPBLOCK STRG 58 PARAMETERBLOCK PSYSBUF STRG 256 DISC-BUFFER P*
0x1364c8…13665c Dummy {f00=0x0060, f01=0x018e, f02=» P* PVOLNAM STRG 6 VOLUME-NAME PSYSVOL STRG 6C'SYSVOL' 4 & PCOPNAM STRG 6 VOL-NAME FOR DELETE R P AND REORG. OUTPUT | P* PFILNAM STRG 8 FILE-NAME PUSEFIL STRG 8C'PTS-DE ' PSYSFIL STRG 8C'SYSFIL ' * PPWBDB4
0x13665c…1367f0 Dummy {f00=0x0060, f01=0x0190, f02=» * P* Y Y Y Y Y Y Y Y Y Y * P* I I I I I I I I I I 2 * P* UNIT NO. 0 1 2 3 4 5 6 7 8 9 ` P* DISC CODE: $ P* FO = FIX.1 F1 = CART.1 $ P* F2 = FIX.2 F3 = CART.2 & P* F8 = FLOPPY.1
0x1367f0…136984 Dummy {f00=0x0060, f01=0x0190, f02=» USAGE: CREATE FILES * PCB5 BLK ( P* 8 PFCOD BIN DISK FILE-CODE B PFCOD1 BIN FILE-CODE INPUT b PFCOD2 BIN FILE-CODE OUTPUT PRECNUM BIN RECORD NO. " PFRESEC BIN NO OF FREE SECTORS $ PELMNO BIN ELEMENT-NO, VALUE
0x136984…136b18 Dummy {f00=0x0060, f01=0x0190, f02=» RECORDS-ENTERED ~ PPRNUM BCD 1 PROGRAM NO. P* 8 PHEX00 STRG 1X'00' PAUSE ITEM B PHEXTAB STRGI (7),1 C f P X'80',X'C0',X'E0',X'F0' C P X'F8',X'FC',X'FE' " PACK BCDI (10),18 ACKUMULATORS P EJECT P* PCB6 BL
0x136b18…136cac Dummy {f00=0x0060, f01=0x0190, f02=»SWIT06 BOOL PSWIT07 BOOL PSWIT08 BOOL ( PSWITFS BOOL < PSW95PR BOOL P P* d PNEWVOL BOOL F n P* ( PFNOOFREC BINI (9) NO OF REC IN FILE $ PF95PROC BINI (9) 5% OF FILESPACE * PFCOUNTER BINI (9) COUNTER (USER-FILE)
0x136cac…136e40 Dummy {f00=0x0060, f01=0x0190, f02=»OL' VOLUMENANES C v P 6C'SYSVOL' C P 6C'OUTPUT' 2 P EJECT F P* T PCB7 BLK ^ P* n * PMAXOCC BIN RESERVED FOR DISCHANDLING x & PPINDFR BIN POOLINDEX TO CURR FMT & PPINDTB BIN POOLINDEX TO VALUE-SET * PPINACC BIN PO
0x136e40…136fd4 (2, 8) Dummy {f00=0x0060, f01=0x0190, f02=»URRENT RECNO FMT-CHAIN $ PPTRFMCH BIN POINTER IN RNRFMCH & PFFSNR BINI (3) RECORD NO. FREE-SP. F PFRINF BINI (9) FILESTATUS p P* ( PSYSV STRGI (16),18 SYSTEM-VARIABLES P EJECT P* PCB8 BLK P* PDOOL1 BOOL
0x136fd4…137168 Dummy {f00=0x0060, f01=0x0190, f02=»BOOL PDBOFOR BOOL FORCED RECORD PDEBIN1 BIN WORKITEM . PDEBIN2 BIN J PDEBIN3 BIN PDEBIN4 BIN n PDEBIN5 BIN PFLIND1 BIN FORMATLINKINDEX PFLIND2 BIN PFLIND3 BIN PFLIND4 BIN PFLIND5 BIN STR1A STRG
0x137168…1372fc Dummy {f00=0x0060, f01=0x0190, f02=»5A STRG 15 WORKITEM P EJECT P* * PCB9 BLK 4 P* D PKEYMSK BIN MASK AUTHORITY N $ PFLIND BINI (24) FORMATLINKINDEX p P* PFDVBCD BCDI (8),3 PBCDI21 BCDI (2),21 WORKITEM P* " PSTATSH STRG 120 SEARCH STATUS
0x1372fc…137490 Dummy {f00=0x0060, f01=0x0190, f02=»STORING t * PCBA BLK PRBUF STRG 256 RECORD AREA * EJECT L * Z * TERMINAL-BLOCK: 2R d * ( #* USAGE: DATA RECORD STORING * PDB1 DBLK PFS STRG 2 PLPREV BIN LINK PREVIOUS
0x137490…137624 Dummy {f00=0x0060, f01=0x0190, f02=» r * PFF STRGI (187),1 FREE REC. INDICATION EJECT 6 * D * N 0 ,* USAGE: BOOLEAN AND BINARY WORKITEMS X * PCBB BLK P* BOOL1 BOOL WORKITEM BOOL2 BOOL WORKITEM BOOL3 BOOL WORKITEM BOOL
0x137624…1377b8 Dummy {f00=0x0060, f01=0x018e, f02=»BOOL9 BOOL WORKITEM P* PBOOLA1 BOOL & PBOOLA2 BOOL : P* N BIN1 BIN WORKITEM X BIN2 BIN WORKITEM r BIN3 BIN WORKITEM BIN4 BIN WORKITEM BIN5 BIN WORKITEM BIN6 BIN WORKITEM BIN7 BIN WORKITEM
0x1377b8…13794c Dummy {f00=0x0060, f01=0x018e, f02=» z BIN13 BIN WORKITEM BIN14 BIN WORKITEM $ BIN15 BIN WORKITEM @ BIN16 BIN WORKITEM EJECT x * * D P* USAGE: BCD-/ STRG-WORKITEMS AND DENTERPACKAGE VARIABLES * PCBC BLK P* " PDE
0x13794c…137ae0 Dummy {f00=0x0060, f01=0x4176, f02=» r PDKBIN2 BIN PDKBIN3 BIN P* , PDEBINW1 BIN DENTERVARIABLE 6 PDEBINW2 BIN DENTERVARIABLE Z PDEBINW3 BIN DENTERVARIABLE ~ PDEBINW4 BIN DENTERVARIABLE " PDEINPUT STRG 62 DENTERVARIABLE BCD2A BCD 2 WORKITEM P
0x137ae0…137c74 (2, 9) Dummy {f00=0x0061, f01=0x2008, f02=»
0x137c74…137e08 Dummy {f00=0x0061, f01=0x0190, f02=»S p P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) P BNOK DEPO16 D P B DEPO12 CONTINUE X PDEPO20 r P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4 P MOVE DEBINW3,W0
0x137e08…137f9c Dummy {f00=0x0061, f01=0x0190, f02=» ^ $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 0 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS T & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE DEBINW4,W128,DEP420 LOC
0x137f9c…138130 Dummy {f00=0x0061, f01=0x0190, f02=»BINW3,W1 t PDEP430 MOVE STR1A,KEY ! * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! . P B DEPOOK ! & PDEP440 STORE THE RECORDLENGTH OF ! n 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL NUMBER OF ! 6 P XCOPY
0x138130…1382c4 Dummy {f00=0x0061, f01=0x0190, f02=»ORRECORDS ! d & P MOVE DEBINW4,BUFF1 START OF CHAIN " . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " < ( P SUB BIN15,BIN16 JUST FORMATRECORDS " n PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT " & P TBT POOL1
0x1382c4…138458 Dummy {f00=0x0061, f01=0x0190, f02=»SET FLINK INDEX " | P MOVE FLIND(BIN16),DEBINW4 # PDEP480 SUB BIN15,W1 # : ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # V P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY # P CALL SETB,STR1A,W
0x138458…1385ec Dummy {f00=0x0061, f01=0x0190, f02=»INW3,W1 # " P CALL CMPIND,DEBINW3,BPOOL(W1) $ $ P BNOK DEPON9 JUMP IF LAST INDEX $ 6 P B DEPO51 $ ^ PDEPO53 $ p 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ ~ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6 $ P BERR DEPO52 $
0x1385ec…138780 Dummy {f00=0x0061, f01=0x0190, f02=»EPO55 $ PDEPO54 % P MOVE BIN15,W0 % . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % 2 P BERR DEPO52 % d P MOVE BUFF2,W2 % x PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DEP565 JUMP IF NO % P
0x138780…138914 (2, 10) Opaque[0x194]
0x138914…138aa8 # DirEnt {nam=»DENTER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c28, f03=0x0000}
0x138914…138aa8 IdxSect {
0x138914…138aa8 f00 = 0x0061 // 0x138914 @0x0
0x138914…138aa8 f01 = 0x0008 // 0x138916 @0x2
0x138914…138aa8 gno = [ // 0x138918 @0x4
0x138914…138aa8 [0x00]: C0x0061.0x1.0
0x138914…138aa8 [0x01]: C0x0061.0x2.0
0x138914…138aa8 [0x02]: C0x0061.0x3.0
0x138914…138aa8 [0x03]: C0x0062.0x0.0
0x138914…138aa8 ]
0x138914…138aa8 }
0x138aa8…138c3c Dummy {f00=0x0061, f01=0x018e, f02=» $ P IDENT DENTER UPD 80-03-04/CHST P* , , P* A STANDARD PROGRAM PACKAGE HANDLING 6 0 P* A COMPLETE PICTURE ON A DISPLAY SCREEN f P* ( P* RUNNING UNDER: CREDIT REL 3.1 ( P* TOSS REL 8.1 P* P D
0x138c3c…138dd0 Dummy {f00=0x0061, f01=0x0190, f02=» * P ENTRY DECLRN CLEAR NO VARIABLE FIELDS P ENTRY DECLRD 2 P ENTRY DERR DENTER-ERROR H P EXT DERROR ERROR-MESSAGES h P EXT CANC -ROUTINES P* $ P EXT DESTAT BUILD THE STATUSLINE , P EXT DECHK1 STANDARD CHECK ROUTINE NO. 1 , P
0x138dd0…138f64 Dummy {f00=0x0061, f01=0x0190, f02=» h , P EXT DECHK5 STANDARD CHECK ROUTINE NO.5 , P EXT DECHK6 STANDARD CHECK ROUTINE NO. 6 8 , P EXT DECHK7 STANDARD CHECK ROUTINE NO. 7 h $ P EXT APP USER ROUTINE TO HANDLE P APPL VALUES ( P EXT DETCHK USER ROUTINE TO EVALUATE P CON
0x138f64…1390f8 Dummy {f00=0x0061, f01=0x0190, f02=» P* P INCLUDE DELITT,LIST P EJECT . P* < > P* CLEAR ALL VARIABLE FIELD BEFORE HANDLING THE PICTURE F P* PDECLRA PROC P PERF DENTER,W1 P RET P PEND P* @ P* CLEAR SOME VARIABLE FIELDS BEFORE
0x1390f8…13928c Dummy {f00=0x0061, f01=0x018e, f02=»RIABLE FIELDS BEFORE HANDLING THE PICTURE P* 2 PDECLRN PROC < P PERF DENTER,W3 P P RET h P PEND t P* 8 P* CLEAR SOME VARIABLE FILEDS AND DISPLAY THE REST < P* OF THE VARIABLE FIELDS BEFORE HANDLING THE PICTURE P
0x13928c…139420 Dummy {f00=0x0061, f01=0x018e, f02=» PDERR PROC P PERF DENTER,W0 P RET . P PEND : P EJECT H PDENTER PROC OPT V P n & P MOVE DEBINW2,OPT MOVE TO VARIABLE v " P TO ALLOW INSTR.S CMP AND IB $ P CMP DEBINW2,W0 "DEERR" ENTRY ? P BE ERRPRINT YES ! P
0x139420…1395b4 (2, 11) Dummy {f00=0x0061, f01=0x0190, f02=» P IB DEBINW2 C P CLEARA C P CLEARS C 2 P CONT C F P CLEARD X P* h PCLEARA r * P ERASE 2,W1,W0 ERASE ALL FROM 1 AND UP P B CONT P* PCLEARS , P ERASE 5,W1,W0 ERASE SOME FROM 1 AND UP P B
0x1395b4…139748 Dummy {f00=0x0061, f01=0x0190, f02=»RMAT z P* PENTIRE P CLEAR DEPROMPT $ P IB DEBINW2 JUMP C < P ECLRA ON C V P ECLRS ROUTINE C j P ECLRN INDEX C P ECLRN P* P* CLEAR ALL VARIABLES P* PECLRA * P ERASE 3,W1,W0 CLEAR ALL F
0x139748…1398dc Dummy {f00=0x0061, f01=0x0190, f02=»RASE 6,W1,W0 CLEAR SOME FIELDS FROM P 1 AND UP IN MEMORY , P* J & P* CLEAR NO VARIABLES IN MEMORY T P* ~ PECLRN ( P DISPLAY 0,W1,W0 DISPLAY ENTIRE FORM P EJECT P* PCONT & P GETABX DEBINW4 GET CURRENT INDEX
0x1398dc…139a70 Dummy {f00=0x0061, f01=0x0190, f02=» JUMP IF FOUND " P BL KTHOME POSITION NOT FOUND P* < P* COMPULSORY FIELD FOUND F P* j & P MOVE DEBINW4,DEBINW3 CHANGE INDEX t P B CONT5 SEARCH AGAIN P* P EJECT P* & P* SET CURSOR AND READ KEYBOARD P
0x139a70…139c04 Dummy {f00=0x0061, f01=0x0190, f02=» PREADIN P TBF DENOCHAN,READ50 PREAD10 MOVE DEBINW1,W0 2 P MOVE DEBINW3,W1 P 6 P NKI .NE,DEDSDYKB,DEINPUT,DEKTAB5,DEBINW3,DEBINW2 h P BOK READ30 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64 P BNZ READ10 P
0x139c04…139d98 Dummy {f00=0x0061, f01=0x0190, f02=» POWER OFF P B SETCREAD * PREAD40 IB DEBINW2,READ10,STATUS,KCOPY & P SUB DEBINW2,W3 T P CLEAR DENOCHAN l P RET PREAD50 . P DYKI DEINPUT,DEKTAB1,DEKTAB2,DEBINW1, C P DEBINW2,DEBINW4 PDYKOUT P BL ERRPRT ERROR
0x139d98…139f2c Dummy {f00=0x0061, f01=0x0190, f02=» P KEY SWITCHES ( P IB DEBINW2,UPD300,CLEA20 JUMP ON C P UPDATE,ERRCAN,ERRCAN, C H . P UPDATE,UPDATE,UPDATE,UPDATE CONVERTED C j 4 P UPDATE,UPDATE,UPDATE,UPDATE END-OF-ITEM-KEY C P UPDATE,KDUPL,KEDIT P EJECT P* 4 P
0x139f2c…13a0c0 Dummy {f00=0x0061, f01=0x0190, f02=»L 3,DEBINW4 GET SCHK-NUMBER 6 P CBE DEBINW4,W0,UPD050 JUMP IF NOT STANDARD CHECK $ * P PERFI DEBINW4,DECHK1,DECHK2,DECHK3 C ^ " P DECHK4,DECHK5,DECHK6,DECHK7 & P IB DEBINW3,UPD100,UPD070,ERRPRINT P* P* CONDITIONAL DISPLAYING
0x13a0c0…13a254 (2, 12) Dummy {f00=0x0061, f01=0x0190, f02=» p . P CBNE DEBINW3,W0,UPD210 JUMP IF APPL VALUE P B SETCREAD : P* N " P* UNCONDITIONAL DISPLAYING X P* ~ PUPD100 4 P MOVE DEBINW4,W2 INDICATE UNCONDITIONAL DIDELAY PUPD200 $ P GETCTL 0,DEBINW3 GET APPL-VALUE 0 P CBE
0x13a254…13a3e8 Dummy {f00=0x0061, f01=0x018e, f02=» ( P IB DEBINW3,UPD260,SETCREAD,ERRPRINT P B UPD400 4 P* F P* OK AFTER APPL CONTROL P " P* UNCONDITIONAL DIDELAYING r P* PUPD260 2 P UPDFLD 1,DEINPUT UPDATE FIELD WITH DIDELAYING . PUPD300 SET DECHANGE INDICATE CHANG
0x13a3e8…13a57c Dummy {f00=0x0061, f01=0x0190, f02=» r , P KTBWD,KTHOME,KERASE,KKEEP,KTRIGHT, C , P KTDOWN,STATUS,KCOPY,DUMMY,DUMMY,KENTER 8 * P SUB DEBINW2,W14 ADJUST EOI-KEY INDEX h P B RETUR PRETUR1 $ P SUB DEBINW2,W1 ADJUST KEY INDEX PDUMMY PRETUR P CLEAR DENOCHAN
0x13a57c…13a710 Dummy {f00=0x0061, f01=0x0190, f02=»EL. COND. n P B UPD300 P* $ P EJECT . " PKEOI COMMON END-OF-ITEM KEY < PKTFWD TAB. FORWARD 1 STEP b P TFWD P B TSTTAB P* $ PKTBWD TABULATION 1 STEP BACKW. P TBWD P B TSTTAB P* " PKTHOME
0x13a710…13a8a4 Dummy {f00=0x0061, f01=0x0190, f02=» TSTTAB P* PKTLEFT TAB. TO LEFTMOST P TLEFT < P B TSTTAB J P* PKTRIGHT TAB. TO RIGHTMOST f P TRIGHT P B TSTTAB P* PKTDOWN TAB 1 DOWN P TDOWN P B TSTTAB P* PKTUP TAB 1
0x13a8a4…13aa38 Dummy {f00=0x0061, f01=0x0190, f02=» COMPULSORY FIELD | P* P* $ P* CONDITIONAL TABULATION . P* R P PERF DETCHK P CBE DEBINW3,W0,KCOP10 p P IB DEBINW2,DUMMY,DUMMY, C " P KTFWD,DUMMY,DUMMY,KTFWD, C " P KTBWD,KTFWD,KTFWD,KTFWD, C P KTBWD,KT
0x13aa38…13abcc Dummy {f00=0x0061, f01=0x0190, f02=»F DESTAT P B ERRPRT P EJECT " PKCOPY HARD COPY 0 P MOVE DEBINW3,W1 J P PRINT DEDSPRT,DEBINW3,W0 b PKCOP10 $ P B SETCREAD SET CURSOR AND READ P* PKDUPL DUPLICATION , P MOVE DEBINW2,W3 INDICATE COMMON EOI-KEY
0x13abcc…13ad60 Dummy {f00=0x0061, f01=0x0190, f02=»DUPL NOT ALLOWED P EJECT P* & P* EDIT FIELD 0 P* H PKEDITX R P MOVE DEBINW1,W1 ` PKEDIT x P GETCTL 1,DEBINW3 GET MAXL P CBNE DEBINW3,W0,KED100 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P B SETCREAD P
0x13ad60…13aef4 (2, 13) Dummy {f00=0x0062, f01=0x0190, f02=» ERASE KEY P* PKERASE P GETABX DEBINW4 , P ERASE 2,DEBINW4,W0 D P* ` P* ENTER KEY j P* PKKEEP PKENTER . P MOVE DEBINW4,W5 INDICATE COMP.FIELD FOUND * P MOVE DEBINW1,W0 INDICATE NO CLEARING < P G
0x13aef4…13b088 Dummy {f00=0x0062, f01=0x0190, f02=»IELD r P BZ KENT05 NO! . P CALL EMPTYT,:FMTITEM LOOK IF EMPTY FIELD " P BP KENT10 YES! T PKENT05 l P CBE DEBINW2,W9,KCOP10 z P CBE DEBINW2,W10,KCOP10 2 P MOVE DEBINW2,W3 INDICATE ENTER KEY DEPRESSED P RET P* & P*
0x13b088…13b21c Dummy {f00=0x0062, f01=0x0190, f02=» ^ P MOVE DEBINW1,W0 P EJECT PERRPRT . ( P CBE DEBINW2,W16,KEDIT JUMP IF EDIT < , P CBE DEBINW2,W4,ERRCAN JUMP IF ERRCANEL1 h , P CBE DEBINW2,W5,ERRCAN JUMP IF ERRCANEL2 P XSTAT DEDSDYKB,DEBINW3 P CALL MASK,DEBINW3,W64 P B
0x13b21c…13b3b0 Dummy {f00=0x0062, f01=0x0190, f02=»2,RETUR2,KEDITX v P B SETCREAD P* , P* CLEAR LAST LINE 6 P* V PERRCAN PERF CANC ` " P IB DEBINW2,SETCREAD,SETCREAD x . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 P RET PCLEA20 * P GETABX DEBINW4 GET CURRENT TA
0x13b3b0…13b544 Dummy {f00=0x0062, f01=0x408a, f02=» P RET P* PBELL FRMT P FSL , P FILLR X'07',1 8 P FMEND N P P PEND d P r P END z@ AD,SETCREAD x . P SUB DEBINW2,W3 ADJUST FOR CANCEL1,CANCEL2 P RET PCLEA20 * P GETABX DEBINW4 GET CURRENT TA
0x13b544…13b6d8 Dummy {f00=0x0062, f01=0x2008, f02=» NPUT RESTORE CURRENT CONTENTS PCLEA20 . * P GETABX SPBINW4 GET CURRENT TAB INDEX < , P DISPLAY 1,SPBINW4,SPBINW4 DISPLAY FIELD j P B SETCREAD CONTINUE P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND P
0x13b6d8…13b86c Dummy {f00=0x0062, f01=0x0190, f02=» 2 B x X @
0x13b86c…13ba00 Dummy {f00=0x0062, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x13ba00…13bb94 (2, 14) Opaque[0x194]
0x13bb94…13bd28 # DirEnt {nam=»DERROR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c48, f03=0x0000}
0x13bb94…13bd28 IdxSect {
0x13bb94…13bd28 f00 = 0x0062 // 0x13bb94 @0x0
0x13bb94…13bd28 f01 = 0x0006 // 0x13bb96 @0x2
0x13bb94…13bd28 gno = [ // 0x13bb98 @0x4
0x13bb94…13bd28 [0x00]: C0x0062.0x1.0
0x13bb94…13bd28 [0x01]: C0x0062.0x2.0
0x13bb94…13bd28 [0x02]: C0x0062.0x3.0
0x13bb94…13bd28 ]
0x13bb94…13bd28 }
0x13bd28…13bebc Dummy {f00=0x0062, f01=0x0190, f02=» $ P IDENT DERROR UPD 80-02-29/CHST P* , P* USER = S:DA 6 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE L 2 P* IT - POSITIONS CURSOR AT THE 24TH LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE 24TH LINE > P*
0x13bebc…13c050 Dummy {f00=0x0062, f01=0x0190, f02=» DDUM DDINIT PDIV P ENTRY DERROR " P ENTRY CANC 8 P ENTRY DESTAT L P ENTRY DECHK1 b P ENTRY DECHK2 x P ENTRY DECHK3 P ENTRY DECHK4 P ENTRY DECHK5 P ENTRY DECHK6 P ENTRY DECHK7 P ENTRY DETCH
0x13c050…13c1e4 Dummy {f00=0x0062, f01=0x0190, f02=»FM07, C T : P ERFM02,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM02, C : P ERFM02,ERFM02,ERFM17,ERFM18,ERFM02,ERFM20,ERFM21, C N : P ERFM22,ERFM18,ERFM24,ERFM25,ERFM18,ERFM18,ERFM02, C P ERFM02,ERFM30 P* PERFM01 FRMT P FSL
0x13c1e4…13c378 Dummy {f00=0x0062, f01=0x0190, f02=»MEND P* PERFM03 FRMT P FSL * P FTEXT 'I/O-ERROR' 6 P FMEND P P* ^ PERFM04 FRMT h P FSL | " P FTEXT 'FUNCTION NOT ALLOWED' P FMEND P* PERFM05 FRMT P FSL ( P FTEXT 'COMPULSORY FIELD NOT FILLE
0x13c378…13c50c Dummy {f00=0x0062, f01=0x0190, f02=» P FSL " P FTEXT 'FILENAME ALREADY USED' P FMEND 6 P* D PERFM09 FRMT N P FSL b $ P FTEXT 'SYSTEMFILE NOT CREATED' n P FMEND P* PERFM10 FRMT P FSL P FTEXT 'DISK OVERFLOW' P FMEND P* PERFM
0x13c50c…13c6a0 Dummy {f00=0x0062, f01=0x018e, f02=» 'FILE NAME UNKNOWN' P FMEND P* * PERFM13 FRMT 4 P FSL H " P FTEXT 'NO WORKSPACE IN CORE' T P FMEND z P* PERFM17 FRMT P FSL " P FTEXT 'OUTPUT FILE TOO SMALL' P FMEND P* PERFM18 FRMT P FSL
0x13c6a0…13c834 (2, 15) Dummy {f00=0x0062, f01=0x0190, f02=» P FMEND P* PERFM21 FRMT P FSL 0 " P FTEXT 'USERFILE ASSIGN-ERROR' < P FMEND b P* p PERFM22 FRMT z P FSL P FTEXT 'DISC I/O-ERROR' P FTAB 58 P FMEL 'XXXXX-',BCD13A P FMEND P* PERFM24 F
0x13c834…13c9c8 Dummy {f00=0x0062, f01=0x0190, f02=»-ERROR' | P FMEND P* PERFM30 FRMT ( P FSL < 8 P FTEXT 'WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE' H P FMEND P* P EJECT PDERROR PROC KEYT P PKTAB KEYT P* P* ERROR HANDLING P* P M
0x13c9c8…13cb5c Dummy {f00=0x0062, f01=0x0190, f02=»W4,=W'51' PDERR00 ( P MOVE DEBINW3,=X'1801' ROW 24 COL. 1 4 P DSC1 DEDSSCRN,6,DEBINW3 SET CURSOR ON LAST ROW L P* PDERR03 P CBL DEBINW4,=W'50',DERR04 P MOVE DEBINW4,W2 PDERR04 & P EDWRT DEDSSCRN,DEFTBERR(DEBINW4)
0x13cb5c…13ccf0 Dummy {f00=0x0062, f01=0x0190, f02=»D z P B DERR15 NO BELL FIRST TIME PDERR10 . ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM < PDERR15 h & P MOVE DEBINW3,W1 REQUESTED LENGTH v 0 P NKI .NE,DEDSDYKB,STR1A,KEYT,DEBINW3,DEBINW2 P BNOK DERR10 P* PDERR18 P CBNE DE
0x13ccf0…13ce84 Dummy {f00=0x0062, f01=0x0190, f02=»DERR30,DERR30 C P DERR30,DERR40 P B DERR10 CONTINUE 0 P* J P* CLEAR ERROR PRINTOUT T P* v PDERR30 , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE P PERF CANC P B DERR99 PDERR40 P CBE DEBINW1,W0,DERR10
0x13ce84…13d018 Dummy {f00=0x0062, f01=0x0190, f02=»PUT,HEX00 0 P MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS . P CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 F P MOVE STATSH,=X'3100' x 4 P MOVE :FMTITEM,STATSH PUT SOMETHING IN THE FIELD & P GETABX DEBINW4 GET CURRENT INDEX * P ERASE 10,DEBINW
0x13d018…13d1ac Dummy {f00=0x0062, f01=0x018e, f02=»NTS d P RET PCLEAR1 . P CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 & ( P SET DECHANGE INDICATE CHANGED FIELD X P B CANC15 CONTINUE P* PCLEAR2 P CBE DEBINW1,W0,CANC15 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS
0x13d1ac…13d340 Dummy {f00=0x0062, f01=0x411a, f02=» P EJECT PDESTAT PDECHK1 PDECHK2 . PDECHK3 < PDECHK4 J PDECHK5 X PDECHK6 f PDECHK7 t PDETCHK PROC P RET P PEND P EJECT P* PBELL FRMT P FSL P FILLR X'07',1 P FMEND
0x13d340…13d4d4 (2, 16) Dummy {f00=0x0062, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x13d4d4…13d668 Dummy {f00=0x0062, f01=0x0190, f02=» PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x13d668…13d7fc Dummy {f00=0x0062, f01=0x4010, f02=» END @ P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x13d7fc…13d990 Dummy {f00=0x0062, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x13d990…13db24 Dummy {f00=0x0062, f01=0x0190, f02=» P* STARTPOINT P* $ P START START . P STACK 200 B EJECT T * b * l PCB1 BLK v P* $ PLRUQUE STRG 16 LAST RECENT USED $ PBPOOL STRGI (32),188 BUFFERPOOL * PRPOOL STRGI (32),19 BUFFER REFERENCES
0x13db24…13dcb8 Dummy {f00=0x0062, f01=0x0190, f02=»X FOR USERFILE ~ RETCOD BIN RETURN-CODE & PRECLNTH BIN CURRENT RECORDLENGTH 6 PPJOBCUR BIN POOLINDEX ` " PJOBNAME STRG 6 CURRENT JOBNAME ~ & PFORMAT STRG 6 CURRENT FORMAT-NAME EJECT * * COMMON-BLOCK: 2 *
0x13dcb8…13de4c Dummy {f00=0x0062, f01=0x0190, f02=»OOL F SYSTEMFILE ASSIGNED Y/N $ PSWITUS BOOL F USERFILE -"- & W0 BIN W'0' CONSTANT N W1 BIN W'1' CONSTANT j W2 BIN W'2' CONSTANT W3 BIN W'3' CONSTANT W4 BIN W'4' CONSTANT PW5 BIN W'5' CONSTANT PW6 BIN W'6' CONSTA
0x13de4c…13dfe0 Dummy {f00=0x0062, f01=0x0190, f02=»' CONSTANT PW12 BIN W'12' CONSTANT PW13 BIN W'13' CONSTANT 0 PW14 BIN W'14' CONSTANT N PW15 BIN W'15' CONSTANT l P EJECT P* P* COMMON-BLOCK:3 P* P* USAGE: CONSTANTS P* PCB3 BLK
0x13dfe0…13e174 (2, 17) Opaque[0x194]
0x13e174…13e308 # DirEnt {nam=»DELITT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c60, f03=0x0000}
0x13e174…13e308 IdxSect {
0x13e174…13e308 f00 = 0x0063 // 0x13e174 @0x0
0x13e174…13e308 f01 = 0x0004 // 0x13e176 @0x2
0x13e174…13e308 gno = [ // 0x13e178 @0x4
0x13e174…13e308 [0x00]: C0x0063.0x0.0
0x13e174…13e308 [0x01]: C0x0063.0x1.0
0x13e174…13e308 ]
0x13e174…13e308 }
0x13e308…13e49c Dummy {f00=0x0063, f01=0x0190, f02=» P* DELITT EJECT ENT EQU X'8C' ENTER * CAN EQU X'91' CANCEL F PRET EQU X'92' RETURN b PRG EQU X'94' PROGRAM ~ PTOT EQU X'93' TOTAL PSTS EQU X'96' STATUS PPRT EQU X'98' PRINT $ PKEP EQU X'8D' KEEP FIELD
0x13e49c…13e630 Dummy {f00=0x0063, f01=0x0190, f02=»NSERT z RDL EQU X'89' RECORD DELETE RFW EQU X'83' RECORD FORWARD 2 " RBW EQU X'81' RECORD BACKWARD V EOI EQU X'80' FIELD FORWARD | $ PPLS EQU X'9C' FIELD FORWARD PLUS & PMIN EQU X'9D' FIELD FORWARD MINUS PBTB EQU X'8A' BACKTAB
0x13e630…13e7c4 Dummy {f00=0x0063, f01=0x0190, f02=»CFW EQU X'86' CURSOR FORWARD " CBW EQU X'84' CURSOR BACKWARD $ PBSP EQU X'8B' BACKSPACE J " PVAL EQU X'97' FORCE VALIDATION j NOK EQU X'FF' NOKEY EJECT * * KEYTABLES * & P* USAGE: DATA ENTRY SCREE
0x13e7c4…13e958 Dummy {f00=0x0063, f01=0x018e, f02=»P,CFW,ENT,RFW,RBW,COR,RDL,TOT,PRG * * , PDEKTAB2 KTAB BSP,NOK,CLR,EOI,CAN,RET, C 4 P PLS,BTB,HOM,NOK, C d NOK,NOK,NOK,NOK,PRT, C NOK,CBW,ENT * ( PDEKTAB3 KTAB CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET,
0x13e958…13eaec Dummy {f00=0x0063, f01=0x0190, f02=» r P* , PDEKTAB5 KTAB CLR,STS,PRT,CAN,RET,NOK, C " P RFW,RBW,COR,RDL,TOT,NOK,RIN B P* h PDEKTAB6 KTAB CAN,RET r P* $ PDEKTAB7 KTAB CLR,CAN,RET,CFW,ENT P* PDEKTAB8 KTAB CAN,NOK,ENT * , PDEKTABA KTAB BSP,NOK
0x13eaec…13ec80 Dummy {f00=0x0063, f01=0x40dc, f02=» CFW,CBW,RIN,RDL,NOK, C P CLR,SKP,EOI,CAN,RET, C P PLS,BTB,HOM,NOK, C B P NOK,NOK,NOK,MIN,PRT, C ` NOK,NOK,ENT P* ( PDEKTABD KTAB CLR,CAN,RET,CFW,VAL,FRC P* @ OK,ENT * , PDEKTABA KTAB BSP,NOK
0x13ec80…13ee14 (2, 18) Dummy {f00=0x0063, f01=0x2008, f02=»
0x13ee14…13efa8 Dummy {f00=0x0063, f01=0x0190, f02=» P MOVE BIN2,=W'495' FLOPPY P CBG FCOD,=X'F7',F31 & " P MOVE BIN2,=W'6400' CARTRIDGE B PF31 h $ P* CALCULATE NO. OF FREE SECTORS t P MOVE BIN3,=X'D0' P CALL CHANFC,DISK,BIN3 P DSC0 DISK,CLOSE ( P ASSIGN DISK,0,RETCOD,SYSFIL
0x13efa8…13f13c Dummy {f00=0x0063, f01=0x018e, f02=» IF OTHER VOLUME PF32 P MOVE RECNUM,W1 $ " P RREAD DISK,RBUF,SYSLEN,RECNUM < P BERR DISKERR b $ P* NO. OF RECORDS IN SYSTEMFILE x P XCOPY CREREC,W0,W2,RBUF,W1 P DIV CREREC,W2 P SUB BIN2,CREREC PF33 P ATTFMT FU
0x13f13c…13f2d0 Dummy {f00=0x0063, f01=0x0190, f02=» PF40 ( P CBE PRNUM,=D'4',F45 IF COPY SYSFIL & P CBE FTYPE,=D'1',F45 IF SYSTEMFILE @ P MOVE FILNAM,DCFILE j P B F50 PF45 P MOVE FILNAM,SYSFIL P MOVE VOLNAM,SYSVOL P CBNE PRNUM,=D'4',F50 & P MOVE VOLNAM,OUTPU
0x13f2d0…13f464 Dummy {f00=0x0063, f01=0x0190, f02=»************ P ERASE 0,W1,W4 P MOVE STR1A,=C'S' * * P XCOPY PBLOCK,W6,W1,STR1A,W0 F.ORG='S' D , P XCOPY PBLOCK,W8,W8,FILNAM,W0 FILE-NAME r . P XCOPY PBLOCK,W16,W6,VOLNAM,W0 VOL-NAME 1 P MOVE BIN1,=W'49' " P XCOPY PBLOCK,BIN1,W1,W1,W
0x13f464…13f5f8 Dummy {f00=0x0063, f01=0x0190, f02=»PY PBLOCK,BIN1,W1,W2,W1 BF 2 P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 RECORD LENGTH " & P CBE FTYPE,=D'1',F53 IF SYSTEMFILE X , P XCOPY PBLOCK,BIN1,W1,W3,W1 DCFILE-BF=3 6 P XCOPY PBLOCK,BIN2,W2,W128,W0 RECORD LENGTH = 128 PF53 P MOVE BIN1,=W'56
0x13f5f8…13f78c Dummy {f00=0x0063, f01=0x0190, f02=»,W0 NIF x P MOVE BIN1,=W'52' " P XCOPY PBLOCK,BIN1,W2,W0,W0 KA * * P CALL CREFIL,PBLOCK,SBUF,SYSBUF,RETCOD P P CMP RETCOD,W3 ~ P BE DERR10 P CMP RETCOD,W7 P BE DERR7 P CMP RETCOD,W0 P BNE DISKERR P MOVE BIN1,=X'D0
0x13f78c…13f920 Dummy {f00=0x0063, f01=0x018e, f02=»NAM p P BNOK DISKERR P PERF REC2 " P PERF REC1 4 P CMP PRNUM,=D'4' F P BE C43 IF COPY SYSFIL ^ P DSC0 DISK,CLOSE | PRETUR P B DEINIT P EJECT PREC1 PROC P********************** P* WRITE 1:ST RECORD
0x13f920…13fab4 (2, 19) Opaque[0x194]
0x13fab4…13fc48 # DirEnt {nam=»DEDI04«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c70, f03=0x0000}
0x13fab4…13fc48 IdxSect {
0x13fab4…13fc48 f00 = 0x0063 // 0x13fab4 @0x0
0x13fab4…13fc48 f01 = 0x0004 // 0x13fab6 @0x2
0x13fab4…13fc48 gno = [ // 0x13fab8 @0x4
0x13fab4…13fc48 [0x00]: C0x0063.0x2.0
0x13fab4…13fc48 [0x01]: C0x0063.0x3.0
0x13fab4…13fc48 ]
0x13fab4…13fc48 }
0x13fc48…13fddc Dummy {f00=0x0063, f01=0x0190, f02=» & P IDENT DEDI04 PRR 1.0 79-05-31/AST P DDUM DDINIT . PDIV B P ENTRY NXJOB P P ENTRY NXBTH d P EXT EMPTYT x P EXT RDDS P EXT WRFSP P EXT RELEAS P EXT COND P EXT SFMTCH PDUMMY PROC FC P*
0x13fddc…13ff70 Dummy {f00=0x0063, f01=0x0190, f02=» BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH,W3,RBUF,W10 0 P BERR NOT P P TBF SWIT01,BANA b P ADD DEBIN2,W4 z P CBNG DEBIN2,DKBIN1,GTNAM PRENER READ NEXT RECORD P XCOPY DKBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT
0x13ff70…140104 Dummy {f00=0x0063, f01=0x0190, f02=»E DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 " $ P COPY JOBNAME,W0,W6,RBUF,DEBIN2 < P B RETURN d PBANA v P CALL EMPTYT,BATCH P BNZ FIRBA P MOVE STR6A,BATCH P PERF SFMTCH,DEBIN3,RBUF,W12 P BERR NOT P ADD DEBIN
0x140104…140298 Dummy {f00=0x0063, f01=0x0190, f02=»DS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT " P B RETURN B PFIRBA T P PERF RDDS,DEBIN3 b P BERR RETURN | P XCOPY DEBIN2,W0,W2,RBUF,W6 P CBNG DEBIN2,W10,NOT P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x140298…14042c Dummy {f00=0x0063, f01=0x40ce, f02=»P,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 . P TBF SW95PR,RETUN9 N P MOVE DEBINW4,=W'-1' h PRETUN9 P PERF COND P RET P PEND END @ P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x14042c…1405c0 Dummy {f00=0x0063, f01=0x2008, f02=» PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 . P TBF SW95PR,RETUN9 N P MOVE DEBINW4,=W'-1' h PRETUN9 P PERF COND P RET P PEND END @ P MOVE DEBIN2,W12 P B GTNAM1 PNOT . P M
0x1405c0…140754 (2, 20) Dummy {f00=0x0063, f01=0x4086, f02=» # = r > . > H > > p@ >
0x140754…1408e8 Dummy {f00=0x0063, f01=0x4014, f02=» HNOD ? @ ? * * & # + * r + X + r + + @ + DEDISC * DSKERR * * & YE@ l n p r * * & w
0x1408e8…140a7c Dummy {f00=0x0063, f01=0x0190, f02=» IDENT P:S002 @ 5 D @ " * & 0 10 4 2 @ @ * & - 2W 3W 6W ; 34 0_ j @ n * & K 01 0! N ! M _" A_ j 01 0! H @ * & i I( J,_; j>2 XY6_@ OL @ * & 0 DW
0x140a7c…140c10 Dummy {f00=0x0063, f01=0x0190, f02=» _ ` `0 `8 0 @ * & `0 X 0 0 220 11_ [ [ A * & ] [ _ j 01 0 GX A_ ` A N * & ; )jC `0&W $`2 "`8 0 `0 X A | * & Y 0 22( 0H0 11? ? ` `0 ` A * & w 8 a`jR61`10 `0 X ( 0 0 A * &
0x140c10…140da4 Dummy {f00=0x0063, f01=0x0190, f02=» g$ 4 " N F 1 h 0 23? ? A * & h h 0 ? j 01 0! K ! L _ B . & " + F? E? "`4 `1W `3 `D4 B * & E H ] { $ B * & c 4 j C B 6 1 ; B * &
0x140da4…140f38 Dummy {f00=0x0063, f01=0x402e, f02=» C C @ C * h h 0 ? j 01 0! K ! L _ B . & " + F? E? "`4 `1W `3 `D4 B * & E H ] { $ B * & c 4 j C B 6 1 ; B * &
0x140f38…1410cc Dummy {f00=0x0063, f01=0x4014, f02=» HNOD D @ D 0 @ 0 0 ? j 01 0! K ! L _ / & " + F? E? "`4 `1W `3 `D4 / @ * & E H ] { $ / j * & c 4 j C / 6 1 ; / DERR / * & @ t 2
0x1410cc…141260 Dummy {f00=0x0063, f01=0x0190, f02=» IDENT P:S003 E t B P h l p E " * & @p@q@r@t@v@x@y 02 # E @ * & - !" 0 E n * & K 76 : ( 0R@s 4S:: Cq E * & i < Sk 1 SW 0AvT _` 9? E * & j 02S4
0x141260…1413f4 (2, 21) Opaque[0x194]
0x1413f4…141588 # DirEnt {nam=»DISC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0c80, f03=0x0000}
0x1413f4…141588 IdxSect {
0x1413f4…141588 f00 = 0x0064 // 0x1413f4 @0x0
0x1413f4…141588 f01 = 0x0008 // 0x1413f6 @0x2
0x1413f4…141588 gno = [ // 0x1413f8 @0x4
0x1413f4…141588 [0x00]: C0x0064.0x0.0
0x1413f4…141588 [0x01]: C0x0064.0x1.0
0x1413f4…141588 [0x02]: C0x0064.0x2.0
0x1413f4…141588 [0x03]: C0x0064.0x3.0
0x1413f4…141588 ]
0x1413f4…141588 }
0x141588…14171c Dummy {f00=0x0064, f01=0x0190, f02=» $ P IDENT DISC PRR 1.0 79-06-19/AST * , > :********************************************************** 6 * x 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS
0x14171c…1418b0 Dummy {f00=0x0064, f01=0x018e, f02=»ISC IN SPECIFIED UNIT x & P* 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE H * v @ ;*********************************************************** P DDUM DDINIT P PDIV EXT CHANFC P EXT WAIT
0x1418b0…141a44 Dummy {f00=0x0064, f01=0x0190, f02=» P EXT POOL P EXT ATTWB P EXT RESTOR , P ENTRY RDDS @ P ENTRY WRDS T P ENTRY DISU h P ENTRY OPCL | P ENTRY COND P ENTRY WRFSP P ENTRY REFSP WEOF EQU 3 CLOSE FILE EJECT POPCL PRO
0x141a44…141bd8 Dummy {f00=0x0064, f01=0x0190, f02=»ENSY P TBF BOOLA1,GOON P SWITCH $ P B OPENSY 4 PGOON F P SET SWITSY R P BNZ OPENSY04 f P SET BOOLA1 | P CLEAR SWIT04 P INCREASE DISC-COUNTER P ADD FCOUNTER(W1),W1 P ALREADY ASSIGNED? " P CBG FCOUN
0x141bd8…141d6c Dummy {f00=0x0064, f01=0x018e, f02=»SSIGN DISK,0,DEBINW4,STRG10A,JOBNAME P BOK OPENSY02 , POPENSY06 B P DSC0 DISK,WEOF R P CLEAR SWITSY j P MOVE DEBINW4,W20 P SUB FCOUNTER(W1),W1 P B OPENSY04 POPENSY02 P MOVE LRUQUE,HEX00 P P MOVE DKBIN1
0x141d6c…141f00 Dummy {f00=0x0064, f01=0x0190, f02=» x P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF * & P XCOPY F95PROC(W1),W0,W2,SYSBUF,W5 J $ P XCOPY FRINF(W1),W0,W2,SYSBUF,W1 t P PERF POOL P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 P PERF REFSP,W2,W1 P BOK OPE
0x141f00…142094 (2, 22) Dummy {f00=0x0064, f01=0x0190, f02=»D SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 2 P CLEAR BOOLA1 B P PERF COND SET CONDITION-REG X RET | PCLOSSY P TBF SWITSY,CLOSSY02 P CLEAR SWITSY P SUB FCOUNTER(W1),W1 " P CBG FCOUNTER(W1),W0,CLOSSY02
0x142094…142228 Dummy {f00=0x0064, f01=0x0190, f02=»K CLOSSY01 P RELEASE FREESPACE-POOL P MOVE DKBIN2,FINDEXPO(W1) 4 * P PERF DEPOOL,W6,DKBIN2,DKBIN2,STRG10A V PCLOSSY01 " P CALL CHANFC,DISK,FILECODE(W1) P DSC0 DISK,WEOF CLOSE FILE PCLOSSY02 P PERF COND RET
0x142228…1423bc Dummy {f00=0x0064, f01=0x018e, f02=» P PERF SETUSE P BERR OPENUS03 P B OPENUS01 2 PGOONN F P SET SWITUS T P BNZ OPENUS0C h P SET BOOLA2 ~ P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E ( P CALL CHANFC,DISK,
0x1423bc…142550 Dummy {f00=0x0064, f01=0x0190, f02=» j P BNOK OPENUS02 P PERF NOFFRE,DEBIN1,FILINDUS P BOK OPENUS0D B P SET SWIT01 X POPENUS0D l $ P MOVE FNOOFREC(FILINDUS),DEBIN1 | P PERF DISU,W3,W1,RBUF P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,R
0x142550…1426e4 Dummy {f00=0x0064, f01=0x0190, f02=» l P FILE CLOSED? P CBE DKBIN1,W0,USCLS P SET SWIT01 < PUSCLS P P XCOPY RBUF,W0,W1,W7,W1 ^ P PERF DISU,W4,W1,RBUF ~ P BOK OPENUS0B P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DK
0x1426e4…142878 Dummy {f00=0x0064, f01=0x018e, f02=»IN3 t P PERF REFSP,W2,FILINDUS P PERF RELEAS , P BOK OPENUS01 @ $ P MOVE DKBIN1,FINDEXPO(FILINDUS) V * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A ~ OPENUS02 P DSC0 DISK,WEOF P MOVE DEBINW4,W21 POPENUS03 P CLEAR SWI
0x142878…142a0c Dummy {f00=0x0064, f01=0x0190, f02=» POPENUS0C P CLEAR BOOLA2 P PERF COND * RET < PCLOSUS H P TBF SWITUS,CLOSUS01 V P CLEAR SWITUS r P SUB FCOUNTER(FILINDUS),W1 P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK CLOSUS02 $ P MOV
0x142a0c…142ba0 Dummy {f00=0x0064, f01=0x0190, f02=»COPY RBUF,W0,W1,W0,W1 P PERF DISU,W4,W1,RBUF P BNOK CLOSUS02 < ( P CALL CHANFC,DISK,FILECODE(FILINDUS) R PCLOSUS02 ~ DSC0 DISK,WEOF CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLEN,W0,W
0x142ba0…142d34 (2, 23) Dummy {f00=0x0064, f01=0x0190, f02=»N1,W0,SETNOZ P MOVE DKBIN1,W1 PSETNOZ , P MUL DKBIN1,SECLEN : $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 T P CBNG DKBIN1,DKBIN2,SETOKA | P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1 P S
0x142d34…142ec8 Dummy {f00=0x0064, f01=0x0190, f02=»RECNO,BUF P IB FUZ C P READSY C $ P WRITSY C 8 P READUS C L P WRITUS ` PREADSY p " P CALL CHANFC,DISK,FILECODE(W1) ~ P MOVE DKBIN1,SYSLEN & P RREAD .NEA,DISK,BUF,DKBIN1,RECNO P BOK READSY01 PERF DK
0x142ec8…14305c Dummy {f00=0x0064, f01=0x0190, f02=»NW4,=W'30' PROUT P PERF COND RET 0 PWRITSY < " P CALL CHANFC,DISK,FILECODE(W1) J P RWRITE DISK,BUF,RECNO p P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01 P PERF COND RET PREADUS
0x14305c…1431f0 Dummy {f00=0x0064, f01=0x0190, f02=» PERF DKER P TBT NEWVOL,READUS PREADUS01 0 P PERF COND @ RET R PWRITUS ^ ( P CALL CHANFC,DISK,FILECODE(FILINDUS) l RWRITE DISK,BUF,RECNO P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P
0x1431f0…143384 Dummy {f00=0x0064, f01=0x0190, f02=»TH O L L P* MORE DATASECTORS ON DISC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P MOVE FLIND(W20),B
0x143384…143518 Dummy {f00=0x0064, f01=0x018e, f02=»DS01 P PERF DISU,BIN13,BIN14,RBUF P BERR READY 0 P SUB FLIND(W22),SECLEN D P BNP READY b P CALL ATTWB,RBUF,SECLEN,W10 t P ADD BIN14,W1 P B RDDS01 PREADY P CALL RESTOR,W0,W4,PWBDB4 P MOVE BIN13,FLIND(W20)
0x143518…1436ac Dummy {f00=0x0064, f01=0x0190, f02=» x P MOVE BIN13,W4 P B RDDS02 P PEND 0 EJECT > @ <************************************************************ L * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DISK-ERROR * 0 P* CHANGED
0x1436ac…143840 Dummy {f00=0x0064, f01=0x0190, f02=» P CLEAR NEWVOL P XSTAT DISK,DKBIN1 P MOVE BCD13A,DKBIN1 8 P MOVE DKBIN2,=X'8022' T P CALL MASK,DKBIN1,DKBIN2 r P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10 P MOVE DKBIN2,=X'800' P CALL MASK
0x143840…1439d4 (2, 24) Dummy {f00=0x0064, f01=0x0190, f02=»SK,DKBIN1,DKBIN2 P BZ DKER30 " P SET NEWVOL NEW VOLUME LOADED * P RET P PDKER30 P MOVE DKBIN2,W1 j P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE PDKER40 P RET PEND
0x1439d4…143b68 Dummy {f00=0x0064, f01=0x0190, f02=» | P CMP W1,W2 P RET PCON1 & P CMP W2,W1 2 P RET D PCON0 P P CMP W1,W1 P RET n P PEND z P* P* WRITE FREESPACE-RECORD P* PWRFSP PROC MAX P PERF WAIT P MOVE DKBIN1,FINDEXPO(MAX) ( P
0x143b68…143cfc Dummy {f00=0x0064, f01=0x018e, f02=»ISK,FILECODE(MAX) P RWRITE DISK,SYSBUF,DKBIN1 P BNERR WRFRET < P PERF DKER R PWRFRET d P PERF COND r P RET P PEND P* P* P* PREFSP PROC FSRNR,FIND P PERF WAIT $ P CALL CHANFC,DISK,FILECODE(F
0x143cfc…143e90 Dummy {f00=0x0064, f01=0x4114, f02=» P TBT NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x143e90…144024 Dummy {f00=0x0064, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x144024…1441b8 Dummy {f00=0x0064, f01=0x0190, f02=» jS42 0 4 SRz SOjS22 0 _G b * & 1Rnj 82 0 1Rbj :2 0bS < 0 c . * & + <jS62 0 4 SR> _ 0 52 R0b c * & I 0: 19b :L 10 42 R 0 a0 0 c * & g b0 0 `0 Q4 3 _# A_ c * & 3 SZ 4 SZ 0 0 02 3
0x1441b8…14434c Dummy {f00=0x0064, f01=0x0190, f02=» j 02 c p * & d _ !T= !T> []1 $A 2 d * & _ 1 %_ 0 ] XP XYP [ 1 d < * & 9 #A 2 _ ZjR71`10 15 d j * & W jR61 0jR88[0bR@6Z0 EjR 111 d * & u FjR 2N0!T=$jR 121jR 2M0!T< h d * & jR 1 1 gjR
0x14434c…1444e0 Dummy {f00=0x0064, f01=0x0190, f02=» d n F < e * & g - # e $ * & ! 1 2 4 6 8 NYX BC JC e R * & ? NO.Y/NSIZECOPY JOB:COPY BATCH: e * & ] OF RECORDS:BLOCKING FACTOR:SEC e * & { TOR LENGTH L/H:NO. OF SECTORS e *
0x1444e0…144674 (2, 25) Opaque[0x194]
0x144674…144808 # DirEnt {nam=»DEPOOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ca0, f03=0x0000}
0x144674…144808 IdxSect {
0x144674…144808 f00 = 0x0065 // 0x144674 @0x0
0x144674…144808 f01 = 0x0010 // 0x144676 @0x2
0x144674…144808 gno = [ // 0x144678 @0x4
0x144674…144808 [0x00]: C0x0065.0x0.0
0x144674…144808 [0x01]: C0x0065.0x1.0
0x144674…144808 [0x02]: C0x0065.0x2.0
0x144674…144808 [0x03]: C0x0065.0x3.0
0x144674…144808 [0x04]: C0x0066.0x0.0
0x144674…144808 [0x05]: C0x0066.0x1.0
0x144674…144808 [0x06]: C0x0066.0x2.0
0x144674…144808 [0x07]: C0x0066.0x3.0
0x144674…144808 ]
0x144674…144808 }
0x144808…14499c Dummy {f00=0x0065, f01=0x0190, f02=» ( P IDENT DEPOOL REL 1.0 80-03-26/DALI P DDUM DDINIT 0 @ <************************************************************ D @ <* THIS PROCEDURE HANDLES POOLING FUNCTIONS. THE CALLING * @ <* SEQUENCE AND THE FORMAL PARAMETERS ARE DESCRIBED BELOW. *
0x14499c…144b30 Dummy {f00=0x0065, f01=0x0190, f02=» T @ <* * @ <************************************************************ L P* : P* FOLLOWING DATA ITEMS ARE USED BY THE DEPOOL ROUTINES . P* AND ORIGINATE CONTENTS OF THEM ARE LOST.
0x144b30…144cc4 Dummy {f00=0x0065, f01=0x0190, f02=»* BIN16 P* DEBINW3 P* DEBINW4 2 P* POOL1 L P* STR1A d P* STR64A | P* @ <************************************************************ P EJECT @ <************************
0x144cc4…144e58 Dummy {f00=0x0065, f01=0x0190, f02=»D BUFFERS ARE FREE FOR USE r : =* BY ANY TASK FOR THE SAME PURPOSES. " < 8* THE COUNTER OF THE PASSED BUFFERCHAIN ` $ P* IS SET TO 1. * =* PASSED PARAMETERS: 6 P* <BUFF1> =
0x144e58…144fec Dummy {f00=0x0065, f01=0x0190, f02=»METERS: p > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER ( P* IF NO BUFFERS = 0 R * ~ @ <************************************************************ * , (* <FC> = 2 GET BUFFERS WITH LOCK : 6*
0x144fec…145180 Dummy {f00=0x0065, f01=0x0190, f02=» THE COUNTER OF THE PASSED BUFFERCHAIN $ P* IS SET TO 1. 2 * =* PASSED PARAMETERS: Z 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS < >* <BUFF2> = NUMBER OF WANTED CONSECUTIVE BUFFERS , '*
0x145180…145314 (2, 26) Dummy {f00=0x0065, f01=0x0190, f02=»FERS = 0 t * @ <************************************************************ P EJECT ^ @ <************************************************************ l * $ * <FC> = 3 CHAIN BUFFERS : 6* THE RETURNED BUFFER
0x145314…1454a8 Dummy {f00=0x0065, f01=0x0190, f02=» IS SET TO 1. * 3* PASSED PARAMETERS: $ 6 P* <BUFF1> = TOTAL NUMBER OF WANTED BUFFERS R 8 P* <BUFF2> = POOLINDEX TO THE RESERVED BUFFER B P* IN THE CHAIN AFTER WHICH THE NEW BUFFER(S)
0x1454a8…14563c Dummy {f00=0x0065, f01=0x0190, f02=»DED BUFFER. j ( P* IF NO BUFFERS = 0 > P* <BUFF2> = POOLINDEX TO THE FIRST RESERVED BUFFER @ $ * IN THE CHAIN * @ <************************************************************ P EJECT @ <**
0x14563c…1457d0 Dummy {f00=0x0065, f01=0x0190, f02=» NAME AND THE TYPE z > :* OF THE USER IS PUT INTO THE POOLELEMENT < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: > 9* <BU
0x1457d0…145964 Dummy {f00=0x0065, f01=0x0190, f02=» VARIABEL CONSISTING f < 8* OF A STRG1 TYPE AND STRG6 NAME. 0 ,* RETURNED PARAMETERS: NONE * @ <************************************************************ P EJECT @ <****************************
0x145964…145af8 Dummy {f00=0x0065, f01=0x0190, f02=»FOR A POOL- b : 5* ELEMENT OF THE SAME NAME AND TYPE. < 8* THE COUNTER OF THE PASSED BUFFERCHAIN R * P* IS INCREASED BY 1. > P* IF THE SEARCHED BUFFER IS FOUND LOCKED 8 P*
0x145af8…145c8c Dummy {f00=0x0065, f01=0x0190, f02=»RETURNVALUES l B >* <KEY> = NAME. THE NAME IS STRG7 VARIABEL CONSISTING < 8* OF A STRG1 TYPE AND STRG6 NAME. Z , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE
0x145c8c…145e20 Dummy {f00=0x0065, f01=0x0190, f02=» 2 = FOUND LOCKED ~ 0 P* 0 = NOT FOUND & * Z @ <************************************************************ d P EJECT @ <************************************************************ * & !*
0x145e20…145fb4 (2, 27) Dummy {f00=0x0065, f01=0x0190, f02=»R AFTERWARDS IS 0, THE p > P* BUFFER IS PUT ON LRUQUE IF IT WAS FREE. 8 P* IF IT WAS LOCKED IT BECOMES FREE ` 8 P* IMMEDIATLY AND IS NOT PUT ON THE & P* LRUQUE AT ALL. * %*
0x145fb4…146148 Dummy {f00=0x0065, f01=0x0190, f02=»N r , '* RETURNED PARAMETERS: P* <BUFF1> = SET TO 0 : * ^ @ <************************************************************ h P EJECT @ <************************************************************ * " P
0x146148…1462dc Dummy {f00=0x0065, f01=0x0190, f02=»SAME NAME AND TYPE. n < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: 4 0* <BUFF1>,<BUFF2> = USED FOR RETURNVALUES B >* <KEY> = N
0x1462dc…146470 Dummy {f00=0x0065, f01=0x018e, f02=»URNED PARAMETERS: z @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME. IF NOT FOUND = 0 ^ 2 P* <BUFF2> = RETURNCODE. 1 = FOUND FREE 4 P* 2 = FOUND LOCKED 0 P*
0x146470…146604 Dummy {f00=0x0065, f01=0x0190, f02=» @ <************************************************************ * L $ P* <FC> = 8 LOCK BUFFERS V : 6* THE RETURNED BUFFERS ARE LOCKED AND ~ > P* RESERVED FOR USE ONLY BY THIS TASK ONLY @ P*
0x146604…146798 Dummy {f00=0x0065, f01=0x0190, f02=» BUFFERCHAIN d . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: F > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER t $ * IN THE CHAIN * @ <********************************
0x146798…14692c Dummy {f00=0x0065, f01=0x0190, f02=» <FC> = 9 SCAN BUFFER < P* THE BUFFERPOOL IS SCANNED FOR A POOL- , P* ELEMENTCONSISTING OF. ^ < 8* THE COUNTER OF THE PASSED BUFFERCHAIN . P* WILL NOT BE INCREASED . * %*
0x14692c…146ac0 Dummy {f00=0x0065, f01=0x0190, f02=» VARIABEL CONSISTING f < 8* OF A STRG1 TYPE AND STRG6 NAME. , '* RETURNED PARAMETERS: @ ;* <BUFF1> = POOLINDEX TO THE BUFFER THAT MATCHED THE 6 P* TYPE AND NAME. IF NOT FOUND = 0 2
0x146ac0…146c54 (2, 28) Dummy {f00=0x0065, f01=0x0190, f02=» 0 = NOT FOUND x * @ <************************************************************ & P EJECT j @ <************************************************************ x * $ P* <FC> = 10 SET BUFFERS 6 P* THE NAM
0x146c54…146de8 Dummy {f00=0x0065, f01=0x0190, f02=»PASSED BUFFERCHAIN j . P* WILL NOT BE INCREASED . * %* PASSED PARAMETERS: L > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER z $ * IN THE CHAIN B >* <KEY> = NAME. THE NAME IS
0x146de8…146f7c Dummy {f00=0x0065, f01=0x0190, f02=»: NONE j * @ <************************************************************ P* & P* <FC> = 11 RELEASE BUFFER f 6 P* THE CHAINLINKS FOR THE BUFFERS 4 P* ON DISK ARE CLEARED AND THE 6 P*
0x146f7c…147110 Dummy {f00=0x0065, f01=0x0190, f02=»RS: n > 9* <BUFF1> = POOLINDEX TO THE FIRST RESERVED BUFFER $ * IN THE CHAIN N * v @ <************************************************************ PDIV ENTRY DEPOOL P EXT SETB P EXT TESTB
0x147110…1472a4 Dummy {f00=0x0065, f01=0x018e, f02=» IB FC C P DEPO1 C P DEPO1 C $ P DEPO3 C 6 P DEPO4 C H P DEPO5 C Z P DEPO6 C l P DEPO5 C ~ P DEPO8 C P DEPO5 C P DEPO4 C P DEPO6 FC=11 P EJECT PDEPO1 . P CBE BUFF2,W0,DE
0x1472a4…147438 Dummy {f00=0x0065, f01=0x0190, f02=» PDEPO3 & P MOVE BIN15,W1 STARTINDEX IN POOL PDEPO11 < . P MOVE STR64A,HEX00 DROP TEMPORARY RESERVED J PDEPO12 | . P MOVE STR1A,RPOOL(BIN15) GET FILETYPE CODE PDEPO13 0 P CBE STR1A,=C'X',DEPO18 JUMP IF FREE BUFFER P* P
0x147438…1475cc Dummy {f00=0x0065, f01=0x0190, f02=»NOK DEPO16 JUMP IF LAST BUFFER PDEPO15 & . P TBF POOL1,DEPO12 JUMP IF NOT CONSECUTIVE 4 . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS f . P MOVE BIN16,W0 SET NUMBER OF CONSECUTIVE=0 P REQUESTED P B DEPO11 ( PDEPO16 LOOK IFTHERE AR
0x1475cc…147760 Dummy {f00=0x0065, f01=0x0190, f02=»CONSEC REQ v ( P MOVE BIN15,W1 START FROM BEGINNING P B DEPO12 > PDEPO17 P . P ADD BUFF1,BIN16 ADJUST REQUESTED BUFFERS ^ P B DEPO05 P EJECT P* P* HANDLE FREE BUFFERS P* PDEPO18 P XCOPY STR1A,W0,W1,BIN15
0x147760…1478f4 (2, 29) Dummy {f00=0x0066, f01=0x0190, f02=»CONSECUTVE r P ADD BIN16,W1 REQUESTED 2 P CBNE BUFF2,BIN16,DEPO19 JUMP IF NOT NUMBER OF 2 $ P REQUESTED CONSECUTVES REACHED h P CLEAR POOL1 PDEPO19 & P MOVE DEBINW3,W0 RESERV TEMPORARY * P MATCH STR64A,DEBINW3,W64,HEX00,W0,W1 4
0x1478f4…147a88 Dummy {f00=0x0066, f01=0x0190, f02=»S p P ADD BIN15,W1 P CALL CMPIND,BIN15,BPOOL(W1) P BNOK DEPO16 D P B DEPO12 CONTINUE X PDEPO20 r P MOVE BUFF1,BUFF2 * P PERF DEPORE,BUFF1,FC RESERV PERMANENT P B DEPOOK P EJECT PDEPO4 P MOVE DEBINW3,W0
0x147a88…147c1c Dummy {f00=0x0066, f01=0x0190, f02=» ^ $ P XCOPY RPOOL(BUFF1),W1,W6,KEY,W1 P XCOPY DEBINW3,W1,W1,KEY,W0 0 0 P CBNE FC,W10,DEPO41 JUMP IF NOT ACCUMULATORS T & P XCOPY RPOOL(BUFF1),W11,W6,KEY,W7 PDEPO41 ( P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W0 $ P CBE DEBINW4,W128,DEP420 LOC
0x147c1c…147db0 Dummy {f00=0x0066, f01=0x0190, f02=»BINW3,W1 t PDEP430 MOVE STR1A,KEY ! * P CBE STR1A,=C'F',DEP440 HANDLE FORMATS ! . P B DEPOOK ! & PDEP440 STORE THE RECORDLENGTH OF ! n 8 P XCOPY RECLNTH,W0,W2,BPOOL(BUFF1),W4 THE DATARECORD ! * P MOVE BIN15,W0 GET THE TOTAL NUMBER OF ! 6 P XCOPY
0x147db0…147f44 Dummy {f00=0x0066, f01=0x0190, f02=»ORRECORDS ! d & P MOVE DEBINW4,BUFF1 START OF CHAIN " . P CBE BIN16,W0,DEP470 JUMP IF NO DESCRIPTOR " < ( P SUB BIN15,BIN16 JUST FORMATRECORDS " n PDEP450 MOVE DEBINW3,DEBINW4 " < P XCOPY DEBINW4,W1,W1,RPOOL(DEBINW3),W8 GET LINK TO NEXT " & P TBT POOL1
0x147f44…1480d8 Dummy {f00=0x0066, f01=0x0190, f02=»SET FLINK INDEX " | P MOVE FLIND(BIN16),DEBINW4 # PDEP480 SUB BIN15,W1 # : ( P BNZ DEP450 JUMP IF MORE FORMATRECS. # V P B DEPOOK # P EJECT # PDEPO5 # P MOVE BUFF2,W0 # P MOVE DEBINW3,W1 # P MOVE STR1A,KEY # P CALL SETB,STR1A,W
0x1480d8…14826c Dummy {f00=0x0066, f01=0x0190, f02=»INW3,W1 # " P CALL CMPIND,DEBINW3,BPOOL(W1) $ $ P BNOK DEPON9 JUMP IF LAST INDEX $ 6 P B DEPO51 $ ^ PDEPO53 $ p 0 P CBNE FC,W9,DEPO58 JUMP IF NOT ACCUMULATORS $ ~ P MOVE BIN15,W11 $ , P MATCH RPOOL(DEBINW3),BIN15,W6,KEY,W7,W6 $ P BERR DEPO52 $
0x14826c…148400 Dummy {f00=0x0066, f01=0x0190, f02=»EPO55 $ PDEPO54 % P MOVE BIN15,W0 % . P MATCH RPOOL(DEBINW3),BIN15,W1,STR1A,W0,W1 % 2 P BERR DEPO52 % d P MOVE BUFF2,W2 % x PDEPO55 % P CBNE STR1A,=X'D4',DEP565 % P JUMP IF NOT VALUESET % $ P CBE ELMNO,W0,DEP565 JUMP IF NO % P
0x148400…148594 (2, 30) Dummy {f00=0x0066, f01=0x018e, f02=»,DEP560 % P CBNG ELMNO,BIN16,DEP565 & PDEP560 & 0 P MOVE BUFF2,W0 & > P B DEPO52 & T PDEP565 & f P MOVE BUFF1,DEBINW3 & t P CBE BUFF2,W2,DEP570 & $ P CBE FC,W5,DEPO59 JUMP IF SEARCH & PDEP570 & P B DEPOOK JUMP IF SCAN & PDEPO59 &
0x148594…148728 Dummy {f00=0x0066, f01=0x0190, f02=» & f P SET POOL1 ALREADY HANDLED. ' , P CBNE DEBINW4,W0,DEPO56 JUMP IF NOT = 0 ' , P XCOPY STR1A,W0,W1,BIN15,W1 ' & P CALL GETIND,LRUQUE,BIN16,DEBINW3 ' P MOVE DEBINW3,W0 ' < P MATCH LRUQUE,DEBINW3,BIN16,STR1A,W0,W1 LOOK FOR BUFFER ' P BNOK
0x148728…1488bc Dummy {f00=0x0066, f01=0x0190, f02=» ADD DEBINW4,W1 ' 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER ( : P XCOPY DEBINW3,W1,W1,RPOOL(BIN15),W8 GET LINK TO NEXT ( R . P CBE DEBINW3,W0,DEPOOK JUMP IF LAST BUFFER ( P B DEPO59 ( P EJECT ( PDEPO6 ( P MOVE DEBINW4,W0 ( P
0x1488bc…148a50 Dummy {f00=0x0066, f01=0x018e, f02=» PDEPO61 ) P CBNE FC,W11,DEP610 ) P MOVE STR64A,HEX00 ) . P B DEP660 ) H PDEP610 ) Z 4 P XCOPY DEBINW4,W1,W1,RPOOL(BIN15),W7 GET COUNTER ) h $ P SUB DEBINW4,W1 DECREASE COUNTER ) P BG DEPO62 ) & P MOVE STR1A,RPOOL(BIN15) GET TYPE ) , P TBT
0x148a50…148be4 Dummy {f00=0x0066, f01=0x0190, f02=» P MOVE STR1A,=C'X' * & P COPY RPOOL(BIN15),W0,W1,STR1A,W0 * P B DEPO62 * H PDEP630 * Z & P CALL GETIND,LRUQUE,BIN16,DEBINW3 * h P MOVE DEBINW3,W0 * @ P MATCH LRUQUE,DEBINW3,BIN16,HEX00,W0,W1 LOOK FOR EMPTY PLACE * P BOK DEP640 * & P CBE S
0x148be4…148d78 Dummy {f00=0x0066, f01=0x0190, f02=» P DLETE LRUQUE,W0,W1 + P SUB DEBINW3,W1 + PDEP640 + 8 P SET POOL1 ALREADY HANDLED. + F P XCOPY STR1A,W0,W1,BIN15,W1 + j & P INSRT LRUQUE,DEBINW3,W1,STR1A,W0 + PDEPO62 + 6 P XCOPY RPOOL(BIN15),W7,W1,DEBINW4,W1 STORE COUNTER + PDEP660 +
0x148d78…148f0c Dummy {f00=0x0066, f01=0x0190, f02=»OVE BIN15,BIN16 + P CBNE BIN15,W0,DEPO61 , P MOVE BUFF1,W0 , 6 PDEP690 , L P B DEPOOK , Z P EJECT , l PDEPO8 MOVE DEBINW4,W0 , z 4 P XCOPY DEBINW4,W1,W1,RPOOL(BUFF1),W7 GET COUNTER , 2 P CBNE DEBINW4,W1,DEPON11 JUMP IF NOT ONE USER , ( P X
0x148f0c…1490a0 Dummy {f00=0x0066, f01=0x0190, f02=»K , P EJECT - P* - P* BAD RESULT - " P* - 6 PDEPON9 MOVE DEBINW4,W9 - @ P B DEPONO - ^ PDEPON11 MOVE DEBINW4,W11 - p " P MOVE STR6B,='FTJB' FUNCTIONS - ( P XCOPY STR1A,W0,W1,KEY,W0 CHECK FUNC - P MOVE BIN16,W0 POINTER:=0 - & P MAT
0x1490a0…149234 (2, 31) Dummy {f00=0x0066, f01=0x0190, f02=»3 MOVE DEBINW4,W13 - PDEPONO . P MOVE BUFF1,W0 . ( PDEPON20 . > P CMP W1,W2 . N P RET . ` P* . l P* BUFFERS FOUND . v P* . PDEPOOK . P MOVE DEBINW4,W0 . P CMP W1,W1 . RET . PEND . P EJECT . > P****************
0x149234…1493c8 Dummy {f00=0x0066, f01=0x0190, f02=» . v P* PERF DELRUF / P* / & > P********************************************************* / 0 PDELRUF PROC / r P MOVE DEBINW4,W0 / : P XCOPY DEBINW4,W1,W1,LRUQUE,W0 GET INDEX TO THE FIRST / P BUFFER IN LRUQUE / , P CBNE DEBINW4,W0
0x1493c8…14955c Dummy {f00=0x0066, f01=0x0190, f02=»STR1A,=C'X' FREE-MARK / PDEL11 0 ( P XCOPY RPOOL(DEBINW4),W0,W1,STR1A,W0 0 , < P XCOPY DEBINW3,W1,W1,RPOOL(DEBINW4),W8 GET LINK TO NEXT 0 X * P CBE DEBINW3,W0,DEL12 JUMP IF LINK = 0 0 2 P XCOPY RPOOL(DEBINW4),W8,W1,W0,W1 SET LINK = 0 0 , P MOVE DEBINW
0x14955c…1496f0 Dummy {f00=0x0066, f01=0x0190, f02=»E,DEBINW3,DEBINW4 0 ~ P SUB DEBINW3,W1 1 & P XCOPY LRUQUE,DEBINW3,W1,HEX00,W0 1 2 P CMP W1,W1 1 P RET 1 n P PEND 1 z P EJECT 1 8 P**************************************************** 1 2 P* THIS PROCEDURE RESERV THE REQUESTED BUFFERS 1 6 P
0x1496f0…149884 Dummy {f00=0x0066, f01=0x0190, f02=» 1 & P* RETURNED PARAMETER: 2 6 P* <WBIN> = POOLINDEX TO THE FIRST RESERVED 2 2 & P* BUFFER IN RPOOL. 2 l 8 P**************************************************** 2 PDEPORE PROC WBIN,FC 2 P MOVE DEBINW3,W0 2 P M
0x149884…149a18 Dummy {f00=0x0066, f01=0x0190, f02=» MOVE STR1A,HEX00 BUFFER WITHOUT LOCK 2 PDEO1B 3 . P MOVE WBIN,W0 3 < 0 P XCOPY WBIN,W1,W1,STR64A,W0 GET FIRST BUFFER 3 R P B DEO3B 3 PDEO3 3 P MOVE STR1A,RPOOL(WBIN) 3 & P XCOPY BIN15,W1,W1,RPOOL(WBIN),W8 3 P B DEO3C 3 PDEO3B 3
0x149a18…149bac Dummy {f00=0x0066, f01=0x0190, f02=»O 1 3 d * P ADD DEBINW3,W1 POINTER TO NEXT INDEX 4 PDEO3C 4 : 6 P XCOPY DEBINW4,W1,W1,STR64A,DEBINW3 GET NEXT INDEX 4 H 0 P CBE DEBINW4,W0,DE04 JUMP IF NO MORE BUFFERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4 P MOVE WBIN,DEBINW4 4
0x149bac…149d40 Dummy {f00=0x0066, f01=0x40aa, f02=»15,W1 4 t PDEPO90 5 8 P XCOPY WBIN,W1,W1,STR64A,W0 RETURN FIRST BUFFERINDEX 5 P RET 5 X P PEND 5 d P END 5 r PTRA /S 5 ~ EJECT 5 END 5 @ 5 FERS 4 8 P XCOPY RPOOL(WBIN),W8,W1,STR64A,DEBINW3 LINK TO NEXT 4 P MOVE WBIN,DEBINW4 4
0x149d40…149ed4 (2, 32) Dummy {f00=0x0066, f01=0x2008, f02=» 6 : 6* IF THE COUNTER AFTERWARDS IS 0, THE , '* BUFFER IS MADE FREE. J 0 +* PARAMETERS: SEE <FC> = 3 z * @ ;*********************************************************** EJECT
0x149ed4…14a068 Dummy {f00=0x0066, f01=0x0190, f02=» z n r v6 &90 A! P K 4 0 A! P K 4 0 Av P K 4 0 Av P K 4 0 Av e 4 0 Av e 4 @ 0 40 P 64 30 P 24 0 P A 4 !0 P 14 E bR * )bR* I 0 A R V 4 0 A R V K E I b )*R b R*
0x14a068…14a1fc Dummy {f00=0x0066, f01=0x0190, f02=»$"` uV> av uajb " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 2 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x14a1fc…14a390 Dummy {f00=0x0066, f01=0x0190, f02=» -jc " c c R c R _a _) +_% 0 c c 4 ! ! ! " V 0 _ " b )*R b R* !4 "bR * )bR* & 4 @k@lja " "j` " $(` AlW= ` Rgjd " "j ""a (a # d ja " $ a a RCj ""d a d`W ` (a AkIl'W a R jd " $j $"` a R `vIs `! d` 4 $
0x14a390…14a524 Dummy {f00=0x0066, f01=0x0190, f02=» V H n U n U " " b ( bR#j $"u b^&jb "R" b bR j $" b 5W j ""u j $" j &"* u`Hp *? v? u? ` _ u) 2 ? j` " $ `: 0 ja " " a ua j $" ` )? u`? j` " "_2As ua? @u@v E 0 ? !"? 1AxW-j " - R R _9 W I
0x14a524…14a6b8 Dummy {f00=0x0066, f01=0x0190, f02=» . < Z 2 H 0 _ A T A @s C!!"C!!{ ; kV!0 A!R kP 0 A!R @ 4 C!!WX ^U !0! !T 8 !_ `! ?!` !!Rj ! "R%jG! "R! ! ! " Q E! "!P E! & _g 3@ 4 H /@ C!!"C! $ !T !!RT "!RT E! & 0 A!R 4 H 0 _ #! R R W A T A @p Cv!
0x14a6b8…14a84c Dummy {f00=0x0066, f01=0x0190, f02=»P Ev & 0 AvR 5@ Cv!W Hp 6@ 4 H 4@ Cv!Q, v T Ev & #! T j ! ! $! T 0 AvR 4 j " )( 4j " '( ! 0 * 6 <W e / s 4 : m `!: )`W} d$ bd !bRV ! 15? jc "R&#c21j " b "&m j (" ) bRc* c*jR&"c "dR? b W jd "R$
0x14a84c…14a9e0 Dummy {f00=0x0066, f01=0x0190, f02=» _ ba `5jR "` `c_V c Ap_1Ar 0"mP r$ t Ir t4(r m $R*: r` ta t( : !rRV ! 1 ? ) r ? j` "R&Hr$ t* t` `tW0 `$jd "R` d * rdJr= t _B$t4 ,`t t` t*_- t3 `"_- `" 7b !&R`bm &R` m? < m@s $R*: ` a&j` "R&fRa* `*jR&"` "`* @s R: " R: ab !aR: "V
0x14a9e0…14ab74 (2, 33) Opaque[0x194]
0x14ab74…14ad08 # DirEnt {nam=»WRIT12«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0ce0, f03=0x0000}
0x14ab74…14ad08 IdxSect {
0x14ab74…14ad08 f00 = 0x0067 // 0x14ab74 @0x0
0x14ab74…14ad08 f01 = 0x0008 // 0x14ab76 @0x2
0x14ab74…14ad08 gno = [ // 0x14ab78 @0x4
0x14ab74…14ad08 [0x00]: C0x0067.0x0.0
0x14ab74…14ad08 [0x01]: C0x0067.0x1.0
0x14ab74…14ad08 [0x02]: C0x0067.0x2.0
0x14ab74…14ad08 [0x03]: C0x0067.0x3.0
0x14ab74…14ad08 ]
0x14ab74…14ad08 }
0x14ad08…14ae9c Dummy {f00=0x0067, f01=0x0190, f02=» $ P IDENT WRIT12 UPD 80-03-10/CHST , P*************************************** , , P* * , P* WRITES RECORD 1 AND * , P* FREE-SPACE RECORDS * , P* ON SYSTEM- AND USER-FILES
0x14ae9c…14b030 Dummy {f00=0x0067, f01=0x0190, f02=»RDS * | , P* BIN3 = NO.OF FREE RECORDS * , P* BIN4 = NO.OF FREE-SPACE REC. * L , P* BIN5 = NO.OF FS.IN LAST REC. * | , P* BIN6 = INDEX * , P* BIN7 = NO.OF USED RECORDS *
0x14b030…14b1c4 Dummy {f00=0x0067, f01=0x0190, f02=» * l , P* BIN11 = NO.OF SECTORS/RECORD * , P* BIN12 = SIZE OF SECTORS * < , P* * l , P*************************************** P* 6 P* IF THE CREATED FILE IS A SYSTEM FILE THEN
0x14b1c4…14b358 Dummy {f00=0x0067, f01=0x0190, f02=»CHAIN p . P* 5 SV, SYSTEM VARIABLES ( P* 7 TC, VALUE SETS @ P* l . P* IF THE CREATED FILE IS A USERFILE v , P* THEN IT IS NESESARY TO INITIATE 4 P* RECORD 3,THE BEGINNING OF THE JOB CHAIN
0x14b358…14b4ec Dummy {f00=0x0067, f01=0x0190, f02=»NTRY RECSYS P* P EXT DSKERR P EXT SETB 2 P EXT WRITDK D P EJECT X PREC1 PROC f P********************** x P* WRITE 1:ST RECORD * P********************** P MOVE RBUF,=X'00' P MOVE RECNUM,W1 RECORD NO
0x14b4ec…14b680 Dummy {f00=0x0067, f01=0x0190, f02=»CORDS IN FILE n P MOVE BIN3,NOREC P MUL BIN3,BIN11 . P ADD BIN7,W1 F P ADD BIN7,BIN11 Z , P CBNE FTYPE,=D'1',RE10 IF NOT SYSTEMFILE r P ADD BIN7,W5 PRE10 ( P SUB BIN3,BIN7 - NO. OF USED RECORDS P DIV BIN3,BIN11 2 P X
0x14b680…14b814 (2, 34) Dummy {f00=0x0067, f01=0x0190, f02=» ACK(W1),=D'100' P MOVE BIN4,ACK(W1) P XCOPY RBUF,W5,W2,BIN4,W0 2 P* T 4 P XCOPY RBUF,W7,W2,BIN11,W0 NO.OF SECTORS/RECORD ^ . P XCOPY RBUF,W9,W2,SECLEN,W0 SECTOR LENGTH P* 6 P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM
0x14b814…14b9a8 Dummy {f00=0x0067, f01=0x0190, f02=» * z P************************ & P MOVE BIN7,W0 NO. OF USED RECORDS * P MOVE FS,=C'FS' T P MOVE LPREV,W0 LINK PREV. l P MOVE LNEXT,W0 LINK NEXT P MOVE BIN2,NOREC P MOVE BIN3,=W'1496' $ P CBE FTYPE,=D'2',F10 IF USERFILE
0x14b9a8…14bb3c Dummy {f00=0x0067, f01=0x0190, f02=»E BIN11,BLFACT NO.OF SECTORS/RECORD * P MUL BIN2,BIN11 NO.OF SECTORS IN FILE , P SUB BIN2,W2 Z P SUB BIN2,BIN11 n * P DIV BIN3,BIN11 CALC.NO.OF FREE SPACE 6 P MUL BIN3,BIN11 INDICATIONS IN EACH FREE SPACR REC ( P**************************
0x14bb3c…14bcd0 Dummy {f00=0x0067, f01=0x0190, f02=»4) p " P* FOR FREE-RECORD INDICATION ( P*********************************** 0 PF20 P MOVE BIN4,W0 h P MOVE BIN5,W0 ~ PF25 * P ADD BIN4,W1 NO.OF FREE-SPACE RECORDS P SUB BIN2,W1 P SUB BIN2,BIN3 4 P CBG BIN2,BIN11,
0x14bcd0…14be64 Dummy {f00=0x0067, f01=0x0190, f02=» P ADD BIN2,BIN3 P ADD BIN2,W1 P MOVE BIN5,BIN2 2 P DIV BIN5,BIN11 J P* b 2 P********************************************* l & P* BIN5 = NO. OF FREE-RECORD-IND. ( P* IN LAST FREE-SPACE RECORD P* . P* PRE
0x14be64…14bff8 Dummy {f00=0x0067, f01=0x0190, f02=»ORD NO. v $ P CBE FTYPE,=D'2',F34 IF USERFILE P ADD FRSTNO,W8 8 P B F35 N PF34 P ADD FRSTNO,W2 RECORD 1+2 h P ADD FRSTNO,BIN11 PF35 " P CBE BIN4,W1,F37 ONLY 1 RECORD P MOVE LNEXT,W4 LINK NEXT $ P CBE FTYPE,=D'2',F
0x14bff8…14c18c Dummy {f00=0x0067, f01=0x0190, f02=» PF37 ( P MOVE NOFREE,BIN3 NO. OF FREE = 1496 P DIV NOFREE,BIN11 @ P CBNE BIN4,W1,F40 Z $ P MOVE NOFREE,BIN5 IF LAST RECORD t PF40 P MOVE RECNUM,W2 P EJECT PF50 : P**********************************************
0x14c18c…14c320 Dummy {f00=0x0067, f01=0x0190, f02=» P MOVE BIN1,NOFREE P MOVE BIN6,W0 INDEX , P MOVE BIN8,W0 COUNTER TO MATCH - FS-IND. : * P MOVE NOOCCB,W12 NO. OF OCCUPIED BYTES j P* PF55 & P ADD NOOCCB,W1 1 BYTE / 8 RECORDS P ADD BIN6,W1 P CBE FTYPE,=D'2',F60 P
0x14c320…14c4b4 (2, 35) Dummy {f00=0x0067, f01=0x0190, f02=»FF' ~ P CBE BIN1,W0,F70 P B F55 $ PF57 2 P ADD BIN1,W8 > P MOVE FF(BIN6),HEXTAB(BIN1) R P B F70 v P************** P* USERFILE * P************** PF60 ( P MOVE BIN9,W0 WORKITEM - FREE-SPACE " P MOVE BIN1
0x14c4b4…14c648 Dummy {f00=0x0067, f01=0x0190, f02=»0:POS.0-7 v P SUB BIN1,W1 PF63 & P ADD BIN10,W1 2 P CBNE BIN8,BIN11,F64 H P MOVE BIN8,W0 d PF64 z P CBNE BIN10,W8,F62 " P XCOPY FF(BIN6),W0,W1,BIN9,W0 P CBE BIN1,W0,F70 P B F55 P* PF70 P ADD B
0x14c648…14c7dc Dummy {f00=0x0067, f01=0x0190, f02=»REE-SPACE RECORDS * " P****************************** PF80 B 6 P CALL WRITDK,DISK,FILECODE(W1),RBUF,SECLEN,RECNUM N P BERR ERROR $ P ADD BIN7,W1 NO. OF USED RECORDS P SUB BIN4,W1 P BZ F99 IF LAST RECORD P* P ADD FRS
0x14c7dc…14c970 Dummy {f00=0x0067, f01=0x0190, f02=»RECORD | P CBE BIN5,W0,F90 P MOVE NOFREE,BIN5 & PF90 @ P B F50 L PF99 Z P RET f P PEND r P* P* PERROR P PERF DSKERR,W3 'I/O-ERROR' P B F99 4 P***********************************************
0x14c970…14cb04 Dummy {f00=0x0067, f01=0x0190, f02=»YS P MOVE RBUF,=X'00' P XCOPY RBUF,W6,W2,W10,W0 $ P MOVE BIN1,W1 D , P CBNE FTYPE,=D'2',RECJD BRANCH IF SYSFIL Z P* P* USERFILE P* JOB CHAIN P* REC 3 P* WORD 1 'JC' < P* 4
0x14cb04…14cc98 Dummy {f00=0x0067, f01=0x0190, f02=»NLY THIS REC z P B RECWR P* $ P* JOB DEF . P* REC 3 D P* WORD 1 'JD' X @ P* 4 10 NO OF USED BYTES IN THIS RECORD v P* PRECJD P MOVE RECNUM,W3 P MOVE BIN6,=X'4A44' P A
0x14cc98…14ce2c Dummy {f00=0x0067, f01=0x0190, f02=» 10 NO OF USED BYTES IN THIS RECORD PRECFC 2 P MOVE RECNUM,W4 @ P MOVE BIN6,=X'4643' X P ADD BIN1,W1 t P B RECWR P* P* SYSTEM VARIABLES P* REC 5 P* WORD 1 'SV' > P* 4 10
0x14ce2c…14cfc0 Dummy {f00=0x0067, f01=0x018e, f02=»WR P* P* VALUE SETS P* REC 7 , P* WORD 1 'SV' @ > P* 4 10 NO OF USED BYTES IN THIS RECORD ` PRECTC P MOVE RECNUM,W7 P MOVE BIN6,=X'5443' P ADD BIN1,W1 , P* WRITE THE
0x14cfc0…14d154 (2, 36) Dummy {f00=0x0067, f01=0x4072, f02=» P BERR ERROR $ P IB BIN1,RECJD,RECFC,RECSV,RECTC P B F99 @ P* N P* X END b@ n
0x14d154…14d2e8 Dummy {f00=0x0067, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x14d2e8…14d47c Dummy {f00=0x0067, f01=0x0190, f02=» @ H IDENT CRESUD TRA 5.0 80-02-29 F1 O1111 UPD 80-02-29/CHST CRESUD H $$$TRAE Z CRESUD l D @ CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSECT/ T:ATTF T:ERAS .
0x14d47c…14d610 Dummy {f00=0x0067, f01=0x018e, f02=» a0 g h " l 2 p k B q $ R r b v r w { } J F " D @ L ( ! (_& TL !P !_A!DL !DL KM1XFA R2 RRR_ 1XF_ R0R f
0x14d610…14d7a4 Dummy {f00=0x0067, f01=0x0190, f02=» S J F " D !CMHP HIP R KL1XFA R2 RRR_ >L RJ YjB'!P!0X !% LjB&! jB(( & 1 t 2 0 2 0 2 8 J F " D K bB0&J LjB !!! LjB "> !DL !DL XjB ! ! WjB "
0x14d7a4…14d938 Dummy {f00=0x0067, f01=0x0190, f02=» $ & FILE " $ 6 & F NO. T $ h & x OF RECORDS: $ & ZZZZX " Y & &
0x14d938…14dacc Dummy {f00=0x0067, f01=0x0190, f02=» & " NO. OF SECTORS/RECORD: $ < & L ZZX ^ " X r $ & & & [ ( : & [ USERDEFINEDO
0x14dacc…14dc60 Dummy {f00=0x0067, f01=0x018e, f02=»NAME: $ & & K 0 & K > SIZE L $ ` & p OF RECORDS:O ~ $ & ZZZZX " W & BLOCKING FACTOR:
0x14dc60…14ddf4 (2, 37) Opaque[0x194]
0x14ddf4…14df88 # DirEnt {nam=»REORGS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d00, f03=0x0000}
0x14ddf4…14df88 IdxSect {
0x14ddf4…14df88 f00 = 0x0068 // 0x14ddf4 @0x0
0x14ddf4…14df88 f01 = 0x0006 // 0x14ddf6 @0x2
0x14ddf4…14df88 gno = [ // 0x14ddf8 @0x4
0x14ddf4…14df88 [0x00]: C0x0068.0x0.0
0x14ddf4…14df88 [0x01]: C0x0068.0x1.0
0x14ddf4…14df88 [0x02]: C0x0068.0x2.0
0x14ddf4…14df88 ]
0x14ddf4…14df88 }
0x14df88…14e11c Dummy {f00=0x0068, f01=0x0190, f02=» $ P IDENT REORGS UPD 80-03-20/CHST P UPD 80-03-17/CHST , P UPD 80-03-14/PEEN H P UPD 80-02-01/CHST d & P********************************** & P* * & P* REORGANISATION OF SYSTEMFILE * & P*
0x14e11c…14e2b0 Dummy {f00=0x0068, f01=0x0190, f02=» P EXT DECLRN P EXT DEPOOL P EXT DECLRA , P EXT DEDISC @ P EXT DERR T P EXT DSKERR f P EXT CLOFIL z P EXT OPCL P EXT GETIND P EXT NOFFRE P EXT DISU P EXT REFSP P* P EXT CHANFC
0x14e2b0…14e444 Dummy {f00=0x0068, f01=0x0190, f02=»**************** P* $ P MOVE FVOLNAME(W1),FVOLNAME(W2) " P PERF OPCL,W1 SYSVOL J P BERR ERROR f $ P MOVE FINDEXPO(W2),FINDEXPO(W1) z P MOVE FFSNR(W2),FFSNR(W1) $ P MOVE FILECODE(W2),FILECODE(W1) $ P MOVE FNOOFREC(W2),FNOOFREC(
0x14e444…14e5d8 Dummy {f00=0x0068, f01=0x0190, f02=»ILECODE(W3),RBUF,STRG10A,FVOLNAME(W3) ~ P BOK OPENSY02 . POPENSY06 D , P CALL CLOSEF,DISK,FILECODE(W3),SYSBUF,W0 T P CLEAR SWITSY P MOVE DEBINW4,W20 P SUB FCOUNTER(W1),W1 P B ERROR POPENSY02 $ P MOVE FILECODE(W1),FILEC
0x14e5d8…14e76c Dummy {f00=0x0068, f01=0x0190, f02=»,SYSBUF,W5 x $ P XCOPY FRINF(W1),W0,W2,SYSBUF,W1 P MOVE DKBIN1,W1 : P MOVE DKBIN2,W1 R * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A j P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 P PERF REFSP,W2,W1 P BNOK OPENSY06 POPENSY07
0x14e76c…14e900 Dummy {f00=0x0068, f01=0x0190, f02=» p P MOVE FRINF(W3),FRINF(W1) " P MOVE F95PROC(W3),F95PROC(W1) * PC05 P P CBE COPY,='Y',C06 P ATTFMT SYSTEM v P SET DEPROMPT P PERF DECLRA P IB DEBINW2,C05,C90 " P CBE ANSW,='N',C09 IF NO COPY P****************
0x14e900…14ea94 (2, 38) Dummy {f00=0x0068, f01=0x018e, f02=»ERROR P PERF DISKIO,W20,W3 ENTER P BERR ERROR 0 P**************** D P* VALUE-SETS * P**************** t PC09 P MOVE TABLE,=X'5400' P MOVE BIN1,W0 P MOVE BIN2,=W'93' PC12 P MOVE ELMNO,W1 P A
0x14ea94…14ec28 Dummy {f00=0x0068, f01=0x0190, f02=» P PERF DISKIO,W24,W2 GET P BNOK C12 ( P BERR ERROR : P CBE COPY,='Y',C15 N P MOVE BCD3A,BIN1 h P MOVE ANSW,HEX00 P ATTFMT VALUE P SET DEPROMPT P PERF DECLRN P IB DEBINW2,C12,C90 P CBE ANSW,='N',C12
0x14ec28…14edbc Dummy {f00=0x0068, f01=0x0190, f02=»NK NEXT j P CBE BIN4,W0,C12 P MOVE ELMNO,W0 ( ( P XCOPY ELMNO,W1,W1,RPOOL(PINDTB),W18 > " P ADD ELMNO,W1 NEXT ELEMENT NO. j P PERF DISKIO,W24,W2 P BNOK C12 P BERR ERROR P B C15 PC20 P MOVE JOBNAME,=X'00' P
0x14edbc…14ef50 Dummy {f00=0x0068, f01=0x0190, f02=» P PERF DISKIO,BIN3,W2 GET P BNERR C32 $ P CBE DEBINW4,W9,C60 6 P B ERROR R PC32 b P CBE COPY,=C'Y',C36 n P MOVE ANSW,=X'00' P ATTFMT JOB COPY JOB ? P SET DEPROMPT PC34 P PERF DECLRN P IB DEBINW2,C34,
0x14ef50…14f0e4 Dummy {f00=0x0068, f01=0x0190, f02=»ERROR P B C30 P****************** P* COPY FORMATS * 6 P****************** P PC60 j , P PERF DEPOOL,W6,PJOBCUR,PJOBCUR,STRG10A v P MOVE FORMAT,=X'00' PC62 * P PERF DEPOOL,W6,PINDFR,PINDFR,STRG10A P MOVE FRMTPN
0x14f0e4…14f278 Dummy {f00=0x0068, f01=0x0190, f02=»0 ~ P ATTFMT FORMT P DISPLAY 0,W1,W0 P THOME 8 P PERF DERR F P IB DEBINW2,C62,C90 X P CBE ANSW,='N',C62 t ( P PERF DISKIO,W10,W2 GET FORMAT AGAIN P B C63 PC64 P CBE COPY,=C'Y',C68 P MOVE ANSW,=X'00'
0x14f278…14f40c Dummy {f00=0x0068, f01=0x0190, f02=»C62 PC68 , P PERF DISKIO,W13,W3 DELETE BEFORE ENTRY 0 P PERF DISKIO,W9,W3 ENTER - ENTFMT I DEDI02 H P BNERR C62 | P ATTFMT FORMT P DISPLAY 0,W1,W0 P THOME P PERF DERR P IB DEBINW2,C62,C90 P CBE ANSW,='N',C
0x14f40c…14f5a0 Dummy {f00=0x0068, f01=0x0190, f02=»LNAME(W2) z $ P MOVE FILECODE(W1),FILECODE(W2) $ P MOVE FINDEXPO(W1),FINDEXPO(W2) : P MOVE FFSNR(W1),FFSNR(W2) b $ P MOVE FNOOFREC(W1),FNOOFREC(W2) P MOVE FRINF(W1),FRINF(W2) " P MOVE F95PROC(W1),F95PROC(W2) P MOVE FCOUNTER(W1),W
0x14f5a0…14f734 (2, 39) Dummy {f00=0x0068, f01=0x0190, f02=»AME(W3) x $ P MOVE FILECODE(W1),FILECODE(W3) $ P MOVE FINDEXPO(W1),FINDEXPO(W3) 8 P MOVE FFSNR(W1),FFSNR(W3) ` $ P MOVE FNOOFREC(W1),FNOOFREC(W3) P MOVE FRINF(W1),FRINF(W3) " P MOVE F95PROC(W1),F95PROC(W3) P MOVE FCOUNTER(W1),W1
0x14f734…14f8c8 Dummy {f00=0x0068, f01=0x0190, f02=»********** v ( P* CHANGE VOLUME-NAME TO 'SYSVOL' * ( P************************************ > PC98 j P CALL CHANFC,DISK,FCOD2 v " P CALL CHVOL,DISK,SYSBUF,SYSVOL PC99 P RET P PEND P EJECT PDISKIO PROC FC,INDEX
0x14f8c8…14fa5c Dummy {f00=0x0068, f01=0x0190, f02=»EC(W1),FNOOFREC(INDEX) P MOVE FRINF(W1),FRINF(INDEX) $ P MOVE F95PROC(W1),F95PROC(INDEX) B P PERF DEDISC,FC j P RET P PEND P* P* PERROR P CBNE DEBINW4,W10,ERR90 . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL'
0x14fa5c…14fbf0 Dummy {f00=0x0068, f01=0x018e, f02=»COPY JOB:' P FINP 11 P FCOPY JOBNAME " P FLINK FANSW 8 P FMEND L P* Z PFORMT FRMT d P FSL v P FCOPY =C'COPY FORMAT:' P FINP 14 P FCOPY FORMAT P FLINK FANSW P FMEND P* PFANSW FRMT P F
0x14fbf0…14fd84 Dummy {f00=0x0068, f01=0x4156, f02=» z P FCOPY HEX00 P FMEND P* * PSYSTEM FRMT 4 P FSL H $ P FTEXT 'COPY SYSTEMVARIABLES ?' T P FLINK FANSW | P FMEND P* PVALUE FRMT P FSL P FTEXT 'COPY VALUE-SET T' P FINP 17 P FMEL '99',BCD3A
0x14fd84…14ff18 Dummy {f00=0x0068, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x14ff18…1500ac Dummy {f00=0x0068, f01=0x4032, f02=» =T P @ .70136940500 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x1500ac…150240 Dummy {f00=0x0068, f01=0x018e, f02=» > @ IDENT T:DUPL P,PRR=5.0,791206,870136940500 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x150240…1503d4 (2, 40) Opaque[0x194]
0x1503d4…150568 # DirEnt {nam=»CRESUD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d18, f03=0x0000}
0x1503d4…150568 IdxSect {
0x1503d4…150568 f00 = 0x0068 // 0x1503d4 @0x0
0x1503d4…150568 f01 = 0x0006 // 0x1503d6 @0x2
0x1503d4…150568 gno = [ // 0x1503d8 @0x4
0x1503d4…150568 [0x00]: C0x0068.0x3.0
0x1503d4…150568 [0x01]: C0x0069.0x0.0
0x1503d4…150568 [0x02]: C0x0069.0x1.0
0x1503d4…150568 ]
0x1503d4…150568 }
0x150568…1506fc Dummy {f00=0x0068, f01=0x0190, f02=» $ P IDENT CRESUD UPD 80-03-19/CHST P****************** , P* * F P* CREATE FILES * ` P* * z P****************** DDUM DDINIT PDIV P ENTRY CRESUD P* P EXT DECLRA P EXT
0x1506fc…150890 Dummy {f00=0x0068, f01=0x0190, f02=»ROC ( P************************************ ( P* NO. OF FREE SECTORS ON VOLUME * 8 ( P************************************ d P MOVE FRESEC,W0 P* P MOVE BIN1,W0 SECTOR NO. 4 P CALL RDSECT,DISK,BIN1,SYSBUF READ VOLUME-LABEL *
0x150890…150a24 Dummy {f00=0x0068, f01=0x0190, f02=»RDSECT,DISK,BIN1,SYSBUF READ ONESECTOR P MOVE BIN6,W1 . P MOVE BIN5,W2 D P MOVE BIN3,W0 Z PC40 p < P XCOPY BIN7,W0,W2,SYSBUF,BIN3 FIRST WORD IN NO OF FS REC | * P CBNE BIN7,W0,C80 OWERFLOW IF NOT ZERO " P XCOPY BIN7,W0,W2,SYSBUF,BIN5
0x150a24…150bb8 Dummy {f00=0x0068, f01=0x0190, f02=»DD BIN3,W8 P B C40 PC50 P SUB DKBIN1,W1 , P BZ C90 B P ADD BIN1,W1 R P B C30 f PC80 t 8 P MOVE FRESEC,=W'32767' MAX NO OF FREE SPACE REC ALL PC90 $ P CBE FTYPE,=D'2',F40 IF USERFILE ( P CBE FTYPE,=D'3',F30 IF
0x150bb8…150d4c Dummy {f00=0x0068, f01=0x0190, f02=»YS PF10 P SET DEPROMPT PF15 , P PERF DECLRA 8 P IB DEBINW2,F15,ERR99,F60 L P B F10 n P********************** | P* USERDEFINED FILE * P********************** PF30 P ATTFMT FUDEF P B F10 P E
0x150d4c…150ee0 Dummy {f00=0x0068, f01=0x0190, f02=»W1),SYSBUF,SYSFIL,VOLNAM v P BOK F50 SYSFILE EXISTS " P* SYSFIL MUST EXIST ON SYSVOL @ P CMP VOLNAM,SYSVOL f P BE ERR9 PF50 P PERF CLOFIL P MOVE FILNAM,USEFIL P ATTFMT FUSE P SET DEPROMPT PF55 P PERF
0x150ee0…151074 (2, 41) Dummy {f00=0x0069, f01=0x0190, f02=»ME-NAME * P* TO:X'171717171717' * P************************* 6 P MOVE USELEN,=W'255' X P PERF CHVNAM,COPNAM t P MOVE BIN3,NOREC . P XCOPY PBLOCK,W7,W1,FCOD,W1 DISK-FILE CODE P ERASE 0,W1,W5 P MOVE STR1A,=C'S' &
0x151074…151208 Dummy {f00=0x0069, f01=0x0190, f02=» P MOVE BIN1,=W'49' " P XCOPY PBLOCK,BIN1,W1,W1,W1 BF P MOVE BIN2,=W'50' D 2 P XCOPY PBLOCK,BIN2,W2,USELEN,W0 RECORD LENGTH ^ $ P CBE FTYPE,=D'2',F70 IF USERFILE $ P XCOPY PBLOCK,BIN2,W2,SYSLEN,W0 & P CBE FTYPE,=D'1',F80 IF SYSTEMFILE
0x151208…15139c Dummy {f00=0x0069, f01=0x0190, f02=» XCOPY PBLOCK,BIN2,W2,BIN4,W0 RECORD LENGTH P B F80 4 P* B PF70 L P MOVE BIN1,BLFACT X P MUL BIN3,BIN1 USERFILE r P EJECT PF80 P MOVE BIN1,=W'56' S-FILE 0 P XCOPY PBLOCK,BIN1,W2,BIN3,W0 NO. OF RECORDS P MOVE BI
0x15139c…151530 Dummy {f00=0x0069, f01=0x0190, f02=»BLOCK,BPOOL(W12),BPOOL(W1),RETCOD P* * P* 4 PF99 > P RET J P PEND V P* d P* n PERR9 x , P PERF DSKERR,W9 'SYSTEMFILE NOT CREATED' PERR99 P MOVE DEBINW4,W99 IND. ERROR P B F99 P EJECT P*
0x151530…1516c4 Dummy {f00=0x0069, f01=0x0190, f02=».' P FTAB 5 P FCOPY =C'OF RECORDS:' > P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=3 NO. OF RECORDS 8 P FMEL 'ZZZZX',NOREC z P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND P* PFUSE FRMT USER-FILE P F
0x1516c4…151858 Dummy {f00=0x0069, f01=0x0190, f02=»MINL=1,MAXL=1,ME,NEOI,REWRT,APPL=12 P FMEL 'ZZX',BLFACT , P FLINK FNOREC F P FNL P FKI 1,MINL=0,MAXL=0 h P FCOPY HEX00 P FMEND P* PFUDEF FRMT USERDEFINED-FILE P FSL P FCOPY =C'USERDEFINED' P FTAB 13
0x151858…1519ec Dummy {f00=0x0069, f01=0x0190, f02=»,NEOI,APPL=6 r P FCOPY FILNAM P FNL * P FCOPY =C'SIZE' 6 P FTAB 6 N P FCOPY =C'OF RECORDS:' ^ 0 P FKI 17,MINL=1,MAXL=4,ME,NEOI,REWRT,APPL=11 | P FMEL 'ZZZZX',RSIZE P FNL P FCOPY =C'BLOCKING FACTOR:' 0 P FKI 17,MINL
0x1519ec…151b80 Dummy {f00=0x0069, f01=0x4118, f02=» HEX00 P FMEND P* PFNOREC FRMT & P FNL : P FCOPY =C'NO.' F P FTAB 5 P FCOPY =C'OF RECORDS:' l . P FKI 17,MINL=1,MAXL=5,ME,NEOI,REWRT,APPL=4 & P FMEL 'ZZZZX',NOREC NO. OF RECORDS P FMEND P* P*
0x151b80…151d14 (2, 42) Dummy {f00=0x0069, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x151d14…151ea8 Dummy {f00=0x0069, f01=0x0002, f02=»
0x151ea8…15203c Dummy {f00=0x0069, f01=0x000c, f02=» HEND =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x15203c…1521d0 Dummy {f00=0x0069, f01=0x2008, f02=» =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x1521d0…152364 Dummy {f00=0x0069, f01=0x2008, f02=» OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 2 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED f HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x152364…1524f8 Dummy {f00=0x0069, f01=0x0190, f02=» : ( @
0x1524f8…15268c Dummy {f00=0x0069, f01=0x0190, f02=» 2 B x X @
0x15268c…152820 Dummy {f00=0x0069, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x152820…1529b4 (2, 43) Opaque[0x194]
0x1529b4…152b48 # DirEnt {nam=»DSKERR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d30, f03=0x0000}
0x1529b4…152b48 IdxSect {
0x1529b4…152b48 f00 = 0x0069 // 0x1529b4 @0x0
0x1529b4…152b48 f01 = 0x0008 // 0x1529b6 @0x2
0x1529b4…152b48 gno = [ // 0x1529b8 @0x4
0x1529b4…152b48 [0x00]: C0x0069.0x2.0
0x1529b4…152b48 [0x01]: C0x0069.0x3.0
0x1529b4…152b48 [0x02]: C0x006a.0x0.0
0x1529b4…152b48 [0x03]: C0x006a.0x1.0
0x1529b4…152b48 ]
0x1529b4…152b48 }
0x152b48…152cdc Dummy {f00=0x0069, f01=0x0190, f02=» $ P IDENT DSKERR UPD 80-03-24/CHST P UPD 80-03-19/CHST , P*************************** H P* * l P* ERROR-MESSAGE ROUTINE * P* APPL-ROUTINES * P* * P************
0x152cdc…152e70 Dummy {f00=0x0069, f01=0x0190, f02=»L P EXT GETVOL P EXT CHANFC P* 2 PDSKERR PROC ERRCODE < P MOVE DEBINW4,ERRCODE X P DISPLAY 0,W1,W0 v P PERF DERR P PERF CLOFIL P RET P PEND P EJECT PAPP PROC P IB DEBINW3 APPL-VALUE C
0x152e70…153004 Dummy {f00=0x0069, f01=0x0190, f02=»DEFINED ERROR' | P B ANOK P**************** & P* APPL-ERRORS > P**************** T PA3E l P MOVE DEBINW4,W3 'I/O-ERROR' x P B ANOK ( PA6E MOVE DEBINW4,W6 'ILLEGAL VALUE' P B ANOK PA11E 0 P MOVE DEBINW4,W11 'V
0x153004…153198 Dummy {f00=0x0069, f01=0x0190, f02=» z P B AERR P EJECT PA1 & P*************** 0 P* YES OR NO * H P*************** ` " P XCOPY STR1A,W0,W1,DEINPUT,W0 x P CBE STR1A,=C'Y',AA11 P CBE STR1A,=C'N',AA11 P B A6E PAA11 P MOVE DEBINW2,W17 EN
0x153198…15332c Dummy {f00=0x0069, f01=0x0190, f02=»BE STR1A,=C'2',AOK USERFILE * P CBE STR1A,=C'3',AOK USERDEFINED-FILE $ P B A6E R PA21 ` ( P CBE PRNUM,=D'3',AOK IF DELETE FILE l P CBE VOLNAM,SYSVOL,AOK ( P B A11E 'VOL-NAME MUST BE "SYSVOL"' P EJECT $ P************************
0x15332c…1534c0 Dummy {f00=0x0069, f01=0x0190, f02=» BCD13A,=D'32767',A6E MAX.VALUE FOR BIN-FIELD P MOVE BIN1,BCD13A 6 P CBE BIN1,W0,A32 P P CBL BIN1,W20,A6E h PA32 P MOVE BIN2,FRESEC P CBE BIN1,W0,A34 P CBG BIN1,BIN2,A6E P B AOK PA34 P MOVE NOREC,BIN2
0x1534c0…153654 (2, 44) Dummy {f00=0x0069, f01=0x018e, f02=»RDS - USERFILE + USERDEFINED FILE * 6 P************************************************** , PA4 f P CBNE FTYPE,=D'3',A41 p P* USERDEFINED FILE P* RSIZE = SIZE OF RECORDS P* BLFACT = BLOCKING FACTOR P* NOREC = NO. OF RECORDS
0x153654…1537e8 Dummy {f00=0x0069, f01=0x0190, f02=» P MUL BIN1,BIN2 P MOVE BIN3,W0 P* 0 PA40 : P* F P ADD BIN3,W1 P P SUB BIN1,SECLEN d P BP A40 | P* 2 P* BIN3 = NO. OF RECORDS NEADED FOR EACH BLOCK P* P MOVE BIN1,FRESEC P DIV BIN1,BIN3 P*
0x1537e8…15397c Dummy {f00=0x0069, f01=0x018e, f02=»* OVERFLOW... P MOVE BIN2,=W'32767' P* 2 . P* BIN2 = MAX NO. OF RECORDS FOR SPEC FILE < P* n P B A411 x PA41 P MOVE BIN2,FRESEC P MOVE BIN3,BLFACT P DIV BIN2,BIN3 USERFILE PA411 P MOVE BCD13A,DEINPUT
0x15397c…153b10 Dummy {f00=0x0069, f01=0x0190, f02=» ~ P MOVE DEINPUT,NOREC P DISPLAY 1,W3,W3 USERFILE $ P B AOK F PA45 T P CBL BIN1,W20,A6E ` P CBG BIN1,BIN2,A6E z P B AOK P EJECT P***************** P* CREATE FILE P* UNIT NO. 0-9 P****************
0x153b10…153ca4 Dummy {f00=0x0069, f01=0x0190, f02=»CHANFC,DISK,FCOD CHANGE FILE-CODE : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME * P CMP RETCOD,W0 h P BNE A3E ~ P DISPLAY 2,W1,W1 VOL-NAME P B AOK P EJECT P* " P* FILE NAME MAX 8 CHAR. & P* LEADI
0x153ca4…153e38 Dummy {f00=0x0069, f01=0x0190, f02=» P MOVE STR15A,=X'20' SPACE ( P INSRT DEINPUT,DEBINW1,W8,STR15A,W0 & PA64 R P MOVE DEBIN4,W0 ^ * P MATCH DEINPUT,DEBIN4,W1,STR15A,W0,W1 v P BNOK AOK NO LEADING SPACES 0 P DLETE DEINPUT,W0,W1 DELEATE LEADING SPACES P B A64
0x153e38…153fcc Dummy {f00=0x0069, f01=0x0190, f02=» p $ P MOVE BCD2A,DEINPUT PROGRAM NO. P MOVE BIN1,BCD2A 0 0 P IB BIN1,AOK,AOK,AOK,AOK,A6E,A6E,AOK,AOK,A6E H P B A6E | P EJECT P******************* P* CREATE VOLUME * P* UNIT NO. 0-9 * P******************* P
0x153fcc…154160 Dummy {f00=0x0069, f01=0x0190, f02=»,VOLNAM,RETCOD GET VOLUME-NAME x P ERASE 1,W2,W2 & P CBNE RETCOD,W0,A93 < P DISPLAY 2,W1,W1 FINP-FIELD X P B AOK | P EJECT P*************************** P* COPY DISK OR FILE : * P* INPUT UNIT NO. * P****
0x154160…1542f4 (2, 45) Dummy {f00=0x006a, f01=0x0190, f02=» MOVE FCOD1,FCOD . P XCOPY PBLOCK,W6,W1,FCOD,W1 FC INPUT DISK P CALL CHANFC,DISK,FCOD J : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME h P CBNE RETCOD,W0,A93 P DISPLAY 2,W1,W1 FINP-FIELD PA91 ( P CBE PRNUM,=D'5',A92 I
0x1542f4…154488 Dummy {f00=0x006a, f01=0x0190, f02=» PA92 P B AOK PA93 P B A3E * PA94 8 P B A11E D P EJECT T P*************************** b P* COPY DISK OR FILE : * P* OUTPUT UNIT NO. * P*************************** PA10 P MOVE STR1
0x154488…15461c Dummy {f00=0x006a, f01=0x0190, f02=» P ERASE 1,W4,W4 P MOVE FCOD2,FCOD . P XCOPY PBLOCK,W7,W1,FCOD,W1 FC OUTPUT DISK 6 P CALL CHANFC,DISK,FCOD h : P CALL GETVOL,DISK,SYSBUF,VOLNAM,RETCOD GET VOLUME-NAME P CBNE RETCOD,W0,A93 P DISPLAY 2,W2,W2 FINP-FIELD P B A
0x15461c…1547b0 Dummy {f00=0x006a, f01=0x0190, f02=» p $ P******************************** PA11 0 P MOVE RSIZE,DEINPUT < P MOVE BIN1,RSIZE X P CBL BIN1,W1,A111 p P CBG BIN1,=W'2047',A111 2 P* SIZE OF RECORDS IS IN THE INTERVAL 1-2047 P B AOK PA111 P B A6E P
0x1547b0…154944 Dummy {f00=0x006a, f01=0x0190, f02=»** x PA12 P MOVE BLFACT,DEINPUT P MOVE BIN1,BLFACT 2 P CBE BIN1,W0,A111 L P B AOK f P EJECT t P************************ P* DISC TYPE * P************************ " P* INPUT: DISC TYPE, 1-9 & P
0x154944…154ad8 Dummy {f00=0x006a, f01=0x0190, f02=» DEBIN2 ` 6 P* 1 PTS-6875,2.5MB,PACKED 1 3 6 P* 2 PTS-6875,2.5MB,UNPACKED 1 2 J 6 P* 3 PTS-6876,5MB,PACKED 2 3 6 P* 4 PTS-6876,5MB,UNPACKED 2 2 6 P* 5 PTS-88
0x154ad8…154c6c Dummy {f00=0x006a, f01=0x0190, f02=»S-6879,0.25MB,FLEXIBLE DISC 8 - 6 P* 9 PTS- ,1MB,FLEXIBLE DISC 9 - . P* h PA13 r P MOVE ACK(W2),DEINPUT ~ P MOVE DEBIN3,ACK(W2) & P IB DEBIN3,A131,A132,A133,A134 C P A135,A135,A6E,AOK,AOK P B A6E
0x154c6c…154e00 Dummy {f00=0x006a, f01=0x018e, f02=» v P MOVE DEBIN2,W2 UNPACKED P B AOK ( PA133 6 P MOVE DEBIN3,W2 DISC TYPE B P MOVE DEBIN2,W3 PACKED d P B AOK PA134 P MOVE DEBIN3,W2 DISC TYPE P MOVE DEBIN2,W2 UNPACKED P B AOK PA135 $ P SUB DEBIN3,W2 D
0x154e00…154f94 (2, 46) Dummy {f00=0x006a, f01=0x0190, f02=» P B A62 P EJECT " P***************************** $ $ P* BLOCKING FACTOR 1-255 J " P***************************** r PA15 P MOVE BLFACT,DEINPUT P MOVE BIN1,BLFACT P CBL BIN1,W1,A111 P CBG BIN1,=W'255',A1
0x154f94…155128 Dummy {f00=0x006a, f01=0x018e, f02=»8',A111 $ P* SIZE OF RECORDS 1-2047 $ P* BLOCKING FACTOR 1-255 8 < P* (SIZE OF RECORDS + 1) * BLOCKING FACTOR 1-2048 ` P B AOK P EJECT * P************************************** 0 P* THE CONECTION BETWEEN UN
0x155128…1552bc Dummy {f00=0x006a, f01=0x409c, f02=» * P************************************** P* 2 PAUNIT PROC < P XCOPY FCOD,W1,W1,DUNIT,FCOD N P RET r P PEND ~ END @ P B AOK P EJECT * P************************************** 0 P* THE CONECTION BETWEEN UN
0x1552bc…155450 Dummy {f00=0x006a, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x155450…1555e4 Dummy {f00=0x006a, f01=0x018e, f02=» X P FNL P FILLR ' ',20 , P FTEXT '- 2 (PTS-6875) 2.5 MB UNPACKED' * P FNL Z P FILLR ' ',20 f * P FTEXT '- 3 (PTS-6876) 5 MB PACKED' | P FNL P FILLR ' ',20 , P FTEXT '- 4 (PTS-6876) 5 MB UNPACKED' P FNL P
0x1555e4…155778 Dummy {f00=0x006a, f01=0x018e, f02=» n P FNL P FILLR ' ',20 P FTEXT '- 7 VACANT' * P FNL F P FILLR ' ',20 R 2 P FTEXT '- 8 (PTS-6879) 0.25MB FLEXIBLE DISC' h P FNL P FILLR ' ',20 2 P FTEXT '- 9 (PTS- ) 1 MB FLEXIBLE DISC' P FMEND P*
0x155778…15590c Dummy {f00=0x006a, f01=0x0190, f02=» P FCOPY =C'COPY USERFIL' P FLINK FIO $ P FMEND 6 P* D PCOPYS FRMT N P FSL ` " P FCOPY =C'WHOLE FILE ? Y/N:' l . P FKI 19,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 P FCOPY COPY P FLINK FHEX P FMEND P* PFCOP
0x15590c…155aa0 Dummy {f00=0x006a, f01=0x0190, f02=» FCOPY =C'INPUT' P FTAB 7 P FCOPY =C'UNIT : U' ( ( P FKI 15,MINL=1,MAXL=1,ME,NEOI,APPL=9 D P FCOPY UNIT p P FTAB 20 P FCOPY =C'VOLUME-NAME:' P FINP 33 P FCOPY VOLNAM P FNL P FCOPY =C'OUTPUT' P FTAB 8
0x155aa0…155c34 (2, 47) Opaque[0x194]
0x155c34…155dc8 # DirEnt {nam=»ASSRUT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0d50, f03=0x0000}
0x155c34…155dc8 IdxSect {
0x155c34…155dc8 f00 = 0x006a // 0x155c34 @0x0
0x155c34…155dc8 f01 = 0x000e // 0x155c36 @0x2
0x155c34…155dc8 gno = [ // 0x155c38 @0x4
0x155c34…155dc8 [0x00]: C0x006a.0x2.0
0x155c34…155dc8 [0x01]: C0x006a.0x3.0
0x155c34…155dc8 [0x02]: C0x006b.0x0.0
0x155c34…155dc8 [0x03]: C0x006b.0x1.0
0x155c34…155dc8 [0x04]: C0x006b.0x2.0
0x155c34…155dc8 [0x05]: C0x006b.0x3.0
0x155c34…155dc8 [0x06]: C0x006c.0x0.0
0x155c34…155dc8 ]
0x155c34…155dc8 }
0x155dc8…155f5c Dummy {f00=0x006a, f01=0x0190, f02=» & P IDENT ASSRUT UPD 80-03-20/CHST P UPD 80-02-22/CHST . P UPD 80-01-16/CHST J P UPD 79-11-08/PEEN f P UPD 79-01-30/PEEN 2 P* ASSEMBLER ROUTINES USED BY PTS DE-UTILITIES P ENTRY CHANFC ENTRY CREVOL P
0x155f5c…1560f0 Dummy {f00=0x006a, f01=0x0190, f02=» SURVEY P ENTRY UPDBOL P ENTRY UPDBIN & P ENTRY SETB < P ENTRY TESTB P P ENTRY CLEARB d P ENTRY MSKOUT z P ENTRY RDSECT P ENTRY SETOCC P ENTRY SETFRE P ENTRY VOLNAM P ENTRY ATTWB P ENTRY CMPIN
0x1560f0…156284 Dummy {f00=0x006a, f01=0x0190, f02=» P* EXTRN I:EVA0 P EXTRN CRVOL $ P EXTRN CRFILE 8 P EXTRN DLFILE N 0 P* COPY SYSVOL TO SYSVOL NOT IN THIS REL. d P* EXTRN COPVOL P EXTRN PRVTOC P* P EXTRN T:FDSP EXTRN I:RT1 P EXTRN T:LOFS
0x156284…156418 Dummy {f00=0x006a, f01=0x018e, f02=»L CHANFC,DATASET,FILECODE P* " PCHANFC EQU * , " P CF A14,T:FDSP GET ECB-ADDRESS @ & P CF A14,I:EVA0 GET ADDRESS TO BIN. f P LC A3,1,A9 GET FILE CODE & P SC A3,1,A8 STORE FILE CODE IN ECB P RF RET P EJECT P**************
0x156418…1565ac Dummy {f00=0x006a, f01=0x0190, f02=» P* 0 P* PERFORME A CALL TO ONE OF THE ROUTINES 0 P* CRVOL,CRFILE,DLFILE,COPVOL OR PRVTOC B . P* A1 ADDRESS TO THE WANTED ROUTINE v P* PUTINF EQU * P ST A1,RUTIN " CF A14,I:EVA0 A9 = :A PBLOCK LDR A6,
0x1565ac…156740 Dummy {f00=0x006a, f01=0x0190, f02=» ST A9,2,A6 STORE BUF2 ADRESS STR A12,A14 SAVE A12 & ST A13,-2,A14 SAVE A13 D SUKL A14,4 d LDR A12,A6 x P CF A14,CRVOL PRUTIN EQU *-2 ADKL A14,4 LD A13,-2,A14 LDR* A12,A14 LDR A6,A1 SAVE
0x156740…1568d4 (2, 48) Dummy {f00=0x006a, f01=0x0190, f02=»************** P* CREATE FILE P**************** , PCREFIL EQU * D P LDKL A1,CRFILE X P CALL UTINF p P EJECT P**************** P* DELETE FILE P****************** PDELFIL EQU * P LDKL A1,DLFILE P C
0x1568d4…156a68 Dummy {f00=0x006a, f01=0x0190, f02=»Y DISK TO DISK P********************** PCOPYDD EQU * 4 P* LDKL A1,COPVOL H P* CALL UTINF ` P ABL I:RT1 t P EJECT * P* GET VOLUME NAME TO A STRING VARIABEL 4 P* SYNTAX: CALL GETVOL,DSET,BUFFER,VOLNAM,RETCOD ( P* RET
0x156a68…156bfc Dummy {f00=0x006a, f01=0x0190, f02=»TO A9 p ( P ADKL A9,1 MAKE BUFFER ADDRESS EVEN P ANKL A9,/FFFE : , P ST A9,2,A8 STORE BUFFER ADDRESS IN DSET P " P LDK A6,6 REQUESTED LENGTH =6 4 P ST A6,4,A8 => VOLUME NAME AS OUTPUT TEST STATUS & P CALL I:EVA0 GET ADDRESS TO VOLNAM P
0x156bfc…156d90 Dummy {f00=0x006a, f01=0x0190, f02=»1 P LD A1,8,A8 LOAD RETURN CODE P RF(NZ) ERROR . : P* STORE THE VOLUME NAME (OUTPUT FROM TEST STATUS) D " P* IN CALLERS BUFFER VOLNAM $ P LD A1,2,A8 LOAD BUFFER ADDRESS ( P LDK A2,6 NO OF BYTES IN VOLUME NAME PLOOP EQU *
0x156d90…156f24 Dummy {f00=0x006a, f01=0x0190, f02=» A6,0 PVIN CF A14,I:EVA0 P STR A6,A9 STORE RETURN-CODE ( PRET ABL I:RT1 L PERROR LDK A6,1 b P RB VIN x P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB < 8*
0x156f24…1570b8 Dummy {f00=0x006a, f01=0x0190, f02=» GET NUMBER OF FRE RECORDS RF(Z) NOK IF NONE FREE " GET100 EQU * B CWR A7,A8 V RF(E) NOK END OF RECORD h & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE A
0x1570b8…15724c Dummy {f00=0x006a, f01=0x0190, f02=»IT IN BYTE v LDR A4,A4 SEA100 RF(N) FOUND IF FOUND $ ADK A5,1 INCREMENT COUNTER H SLL A4,1 l RB SEA100 ~ FOUND SLL A4,1 CLEAR BIT , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER FOU100 SRL A4,1 SUK A5,1 DECREM
0x15724c…1573e0 Dummy {f00=0x006a, f01=0x0190, f02=» LC A7,18,A9 GET START RECORD NUMBER ( $ ADR A6,A7 GET CURRENT RECORD NUMBER , LDKL A1,-1 X , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. l NOK EQU * CALL I:EVA0 & "NOK100 STR A6,A9 STORE FOUND INDEX P RB RET P EJECT
0x1573e0…157574 (2, 49) Dummy {f00=0x006b, f01=0x0190, f02=»,15,A9 ECR A8,A8 $ LC A8,16,A9 GET OCCUPIED BYTES ADR A8,A7 GET END ADDRESS H P SUKL A8,10 j " LDR A2,A7 SAVE START ADDRESS ~ $ ADK A7,2 ADDRESS TO FIRST BITS LDK A6,0 RTN A14 P EJECT P************
0x157574…157708 Dummy {f00=0x006b, f01=0x0190, f02=»CTOR NO. = 0 P CM 12,A8 PCHV100 LDKL A1,256 & & P ST A1,4,A8 STORE REQUESTED LENGTH @ P CALL I:EVA0 j $ P ST A9,2,A8 STORE BUFFER ADRESS ~ P LDK A7,/B7 LOCK P LKM P DATA 1 P LD A6,8,A8 GET RETURN CODE P LDK A7,/8
0x157708…15789c Dummy {f00=0x006b, f01=0x0190, f02=»A9 READ CHARACTER P SCR A3,A1 STORE CHARACTER P ADK A1,1 < P ADKL A9,1 N P SUK A2,1 ` " P RB(NZ) CHV200 IF NOT FINISHED r P LDK A7,/85 WRITE BASIC P LKM P DATA 1 P LDK A7,/80 P LKM P DATA 1 P LDR
0x15789c…157a30 Dummy {f00=0x006b, f01=0x0190, f02=»:RT1 P EJECT P********* P* PVC * , P********* > PSURVEY EQU * P P LDKL A1,PRVTOC d P CALL UTINF | P EJECT P* 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING P* 16 BOOLEAN ITEMS P* PUPDB
0x157a30…157bc4 Dummy {f00=0x006b, f01=0x0190, f02=» I:RT1 P* 2 P* MOVE 16 BOOLEAN ITEMS TO CORRESPONDING BIN P* N PUPDBIN EQU * X ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM l P LD A1,-2,A9 GET BOOLEANS P STR A1,A9 STORE IN BIN ABL I:RT1 P EJECT P* 0 P*
0x157bc4…157d58 Dummy {f00=0x006b, f01=0x018e, f02=»ABIT EQU * SET050 SUK A3,8 RF(N) SET100 * ADK A7,1 @ CWR A7,A8 R & " RB(NE) SET050 CONTINUE IN NOT EOR d * % LDK A6,0 INDICATE INCORRECT REC. NO. P RTN A14 * PLACED IN CURRENT BYTE SET100 EQU * ADK A3,
0x157d58…157eec Dummy {f00=0x006b, f01=0x018e, f02=» SLC A4,1 SUK A1,1 RB(NZ) SET300 , TEST EQU * B P RTN A14 T P EJECT d P* r . P* SET WANTED BIT IN A STRING OR BIN ITEM | & P* SYNTAX: CALL SETB,ITEM,INDEX P* PSETB EQU * P SUR A10,A10 INDICAT
0x157eec…158080 Dummy {f00=0x006b, f01=0x0190, f02=» t & P CALL I:EVA0 GET ADDRESS TO INDEX P LDR* A3,A9 GET INDEX 2 " P CALL SEABIT SEARCH WANTED BIT P P LDR A10,A10 v P RF(N) SETB30 IF TEST BIT P RF(Z) SETB20 JUMP IF SETBIT P* CLEAR BIT P ANKL A4,/7FFF CLEAR BIT P RF
0x158080…158214 (2, 50) Dummy {f00=0x006b, f01=0x0190, f02=»QU * P LDK A1,0 INDICATE FALSE P LDR A4,A4 TEST BIT , P RF(NN) SETB40 IF FALSE H P LDK A1,1 INDICATE TRUE h PSETB40 EQU * P LD A4,2,A13 GET STACK BASE " P SC A1,-2,A4 STORE CR ON STACK ABL I:RT1 P* * P* CLE
0x158214…1583a8 Dummy {f00=0x006b, f01=0x018e, f02=»CLEAR BIT' z P RB SETB10 CONTINUE P* . * P* TEST BIT IN STRING OR BIN VARIABLE 8 ( P* SYNTAX: CALL TESTB,ITEM,INDEX f & P* OUTPUT: CR = 0 (BIT IS FALSE) & P* CR = 1 (BIT IS TRUE) P* PTESTB EQU * $ P LDK
0x1583a8…15853c Dummy {f00=0x006b, f01=0x0190, f02=» & P* SYNTAX: CALL MSKOUT,MASK,BIN 6 P* MASK= BIN ITEM HOLDING THE MASK; WILL CONTAIN . 8 P* THE RESULT AFTER THE LOGICAL AND OPERATION h 0 P* BIN= BIN HOLDING THE VALUE TO BE MASKED P* PMSKOUT EQU * P CALL I:EVA0 ADDRE
0x15853c…1586d0 Dummy {f00=0x006b, f01=0x0190, f02=»WITH MASK AND x P STORE RESULT IN MASK ABL I:RT1 6 P* H P EJECT R P********************** ` P* READ DISK SECTOR * ~ P********************** PRDSECT EQU * P CALL T:FDSP P CALL I:EVA0 P LDR* A1,A9
0x1586d0…158864 Dummy {f00=0x006b, f01=0x0190, f02=»EVA0 $ P ST A9,2,A8 STORE BUFFER ADRESS P LDK A7,/B7 LOCK 4 P LKM L P DATA 1 X P LDK A7,/81 BASIC READ h P LKM P DATA 1 P LDK A7,/B8 UNLOCK P LKM P DATA 1 PRET1 ABL I:RT1 EJECT 4 1* SETFRE: I
0x158864…1589f8 Dummy {f00=0x006b, f01=0x0190, f02=»USY n 6 1* SYNTAX: CALL SETFRE,BPOOL(IND),RPOOL(IND),NUMB @ <* NUMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) F * SETFRE EQU * SUR A10,A10 INDICATE SETFRE SET EQU * CALL GETPAR LDR A6,A9 COPY ADDRES
0x1589f8…158b8c Dummy {f00=0x006b, f01=0x0190, f02=»1,A1 ( $ LC A1,18,A6 GET START RECORD NUMBER & " SUR A3,A1 GET RELATIVE RECORD NO. 8 " P CALL SEABIT SEARCH WANTED BIT b P LDR A6,A6 P RF(Z) NOK150 JUMP IF ERROR LDR A10,A10 RF(NZ) TEST0 IF SET0CC " * SETFRE: TEST IF ALRE
0x158b8c…158d20 Dummy {f00=0x006b, f01=0x0190, f02=»REMENT z . *TES100 ADS A1,-2,A2 IN-/DE-CREMENT COUNTER TES200 SUK A3,1 @ RF(N) TES300 BYTE RESTORED X SRC A4,1 | RB TES200 * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE " SCR A4,A7 STORE UPDATED BYTE P RB RET1 *
0x158d20…158eb4 (2, 51) Dummy {f00=0x006b, f01=0x0190, f02=»A1 = -1; INDICATE DECREMENT $ ANKL A4,/7FFF INDICATE OCCUPIED $ RB TES100 L PNOK150 EQU * ^ P STR A6,A9 r P RB RET1 EJECT 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT REC
0x158eb4…159048 Dummy {f00=0x006b, f01=0x0190, f02=»PUT IF ` : 5* WRONG NUMBER) SETOCC EQU * L LDR A10,A14 INDICATE SETOCC ` RB SET P* & P* VOLNAM - SUBROUTINE TO CRVOL * P* PVOLNAM EQU * P LDK A1,0 P RTN A14 P
0x159048…1591dc Dummy {f00=0x006b, f01=0x0190, f02=»WB,STRG,DISPL,BLOCK x , P* STRG= STRING ITEM TO BE WORKBLOCK 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE L P* 'STRG'-START 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P* ATTWB EQU * P LDKL A1
0x1591dc…159370 Dummy {f00=0x006b, f01=0x018e, f02=»EMENT x P ADR* A7,A9 ! & ! CALL I:EVA0 ADDRESS TO WB NUMBER ! " LDR* A1,A9 ! L SLL A1,2 TIMES 4 ! ` ADR A1,A13 ADDRESS TO DB ! z ( P ADR A1,A10 GET ADDRESS TO WB OR DB ! PATT100 EQU * ! & P STR A7,A1 STORE NEW WB/DB-ADDRESS ! P R
0x159370…159504 Dummy {f00=0x006b, f01=0x0190, f02=» 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE " ( P* THE VERY FIRST DB:POINTER " > @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED " j > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN " P* " PSAVE EQU * "
0x159504…159698 Dummy {f00=0x006b, f01=0x0190, f02=» A1,A7 " P ADK A2,1 # P ADK A7,1 # P SUK A6,1 # 2 P RB(NZ) SAV200 # D P RB RET1 # Z P* # j 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE # t * P* TO THE T:A (TERMINAL CONTROL AREA) # 0 P* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG #
0x159698…15982c Dummy {f00=0x006b, f01=0x0190, f02=»ITEM HOLDING POINTERS TO BE RESTORED # ~ P* $ , PRESTOR EQU * $ 6 P CALL GETP $ J P LDR A1,A2 $ P LDR A2,A9 CHANGE $ n P LDR A9,A1 ADDRESSES $ P RB SAV100 START TO RESTORE $ P* $ ( P* GET PARAMETERS FOR SAVE/RESTORE $ P* $ P
0x15982c…1599c0 Dummy {f00=0x006b, f01=0x0190, f02=»A0 $ P LDK A2,40 % , P ADR A2,A13 GET ADDRESS TO DB-POINTER /A % P RTN A14 % L P EJECT % P* % j 4 P* GET DIMENSION OF INDEXED VARIABLE AND LENGTH % t P* % > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION % P* % : P*
0x1599c0…159b54 (2, 52) Dummy {f00=0x006b, f01=0x0190, f02=» DIMENSION = BIN HOLDING DIMENSION % B P* (NUMBER OF ELEMENTS) & B P* & PGETIND EQU * & P CALL I:EVA0 ADDRESS TO ITEM & 2 P LD A10,-6,A14 READ DIMENSION STORED BY I:EVA0 & P LDR A7,
0x159b54…159ce8 Dummy {f00=0x006b, f01=0x0190, f02=» & x & P CALL I:EVA0 ADDRESS TO DIMENSION ' P STR A10,A9 STORE IN ITEM ' 2 PATTRET EQU * ' T P RB RET1 ' h P EJECT ' x P* ' > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM ' P* ' : P* SYNTAX: CALL CMPIND,INDEX,ITE
0x159ce8…159e7c Dummy {f00=0x006b, f01=0x018e, f02=»INDEX>MAX. INDEX OF ITEM ' j D P* CR = 2 IF INDEX<MAX. INDEX OF ITEM ( P* ( h P ( r PCMPIND EQU * ( z & P CALL I:EVA0 GET ADDRESS TO INDEX ( P LDR* A6,A9 SAVE INDEX VALUE ( 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF IT
0x159e7c…15a010 Dummy {f00=0x006b, f01=0x0190, f02=» ( PUT150 EQU * ) P LDK A1,0 INDICATE CR = 0 ) PUT200 EQU * ) > $ P ABL SETB40 STORE CR AND RETURN ) R PGREAT EQU * ) z PNOTFND EQU * ) P LDK A1,1 INDICATE CR = 1 ) " P RB UT200 STORE CR AND RETURN ) PLESS EQU * ) P LDK A1,2 )
0x15a010…15a1a4 Dummy {f00=0x006b, f01=0x0190, f02=»VENT CONTROL BLOCK ) x & P* FILECODE FILE NUMBER * " P* BUF BUFFER * D , P* LEN REQUESTED LENGTH * j > P* RECNO REALATIV SECTOR NO WITHIN THE FILE * P* * PWRITDK EQU * * P LDKL A11,/95
0x15a1a4…15a338 Dummy {f00=0x006b, f01=0x0190, f02=» DSET EVENT CONTROL BLOCK * & P* FILECODE FILE NUMBER + & " P* BUF BUFFER + P , P* LEN REQUESTED LENGTH + v > P* RECNO RELATIVE SECTOR NO WITHIN THE FILE + P* + PREADDK EQU * + P L
0x15a338…15a4cc Dummy {f00=0x006b, f01=0x018e, f02=»D STORE + f P* THEM IN DSET , P CALL I:EVA0 FILE CODE , * P LDR* A6,A9 , H P SC A6,1,A8 , P CALL I:EVA0 BUFFER ADDRESS , p P ST A9,2,A8 , P CALL I:EVA0 RECORD LENGTH , P LDR* A6,A9 , P ST A6,4,A8 , P CALL I:EVA0 RECORD NO
0x15a4cc…15a660 Dummy {f00=0x006b, f01=0x0190, f02=» P* A8 DSET ADDRESS - P LKM - & P DATA 15 - 2 P* - B P* CHECK ON ERROR CODE - L PREAD40 EQU * - n P LD A6,8,A8 - ( P RB(Z) EQUAL SET COND CODE TO 0 ,OK - P ANKL A6,/2000 - * P RB(NZ) GREAT SET COND CODE TO 1 ,EOF - & P R
0x15a660…15a7f4 (2, 53) Dummy {f00=0x006c, f01=0x0190, f02=»* DSET EVENT CONTROL BLOCK - ( P* FILECODE FILE NUMBER . 4 2 P* BUF FILE PARAMETER BUFFER . ` < P* RECNO NUMBER OF RECORDS IN SPEC. FILE . P* . PCLOSEF EQU * . P LDR A11,A14 . P
0x15a7f4…15a988 Dummy {f00=0x006c, f01=0x0190, f02=»ER CODE . | P RB READ20 / P EJECT / " P* / 0 4 P* CALL OPENF,DSET,FILECODE,BUF,FILE,VOLUME / : P* / r 0 P* DSET EVENT CONTROL BLOCK / | ( P* FILECODE FILE NUMBER / 2 P* BUF FILE PARAMETER BUFF
0x15a988…15ab1c Dummy {f00=0x006c, f01=0x0190, f02=»11 / POPENF0 EQU * 0 ( P CALL T:FDSP GET DSET ADDRESS TO A8 0 * P CALL I:EVA0 SAVE ADDRESS TO FILE CODE 0 J P LDR A10,A9 0 x 4 P CALL I:EVA0 GET ADDRESS TO FPB(FILE PARAM.BUF) 0 ( P ADKL A9,1 AND MAKE SURE IT IS EVEN 0 P ANKL A9,/FFFE 0 " P L
0x15ab1c…15acb0 Dummy {f00=0x006c, f01=0x0190, f02=»SS TO FPB 0 POPEN00 EQU * 1 P CMR A2 STORE ZERO IN FPB 1 & P ADK A2,2 INCREACE ADDRESS 1 H P SUK A3,2 1 j P RB(NZ) OPEN00 1 | P* 1 , P* GET FILE NAME AND STORE IT IN FPB 1 $ P* A3 CONTAINES FPB ADDRESS 1 P CALL I:EVA0 1 P
0x15acb0…15ae44 Dummy {f00=0x006c, f01=0x018e, f02=» EQU * 1 P LCR A3,A9 GET ON CHAR 2 $ P SCR A3,A6 STORE ONE CHAR IN FPB 2 , P ADKL A9,1 2 T P ADK A6,1 2 f P SUK A4,1 2 x P RB(NZ) OPEN20 2 P* 2 , P* GET VOLUME NAME AND STORE IT IN FPB 2 P CALL I:EVA0 2 & P ADK A6,2 ADDRESS TO VOLUM
0x15ae44…15afd8 Dummy {f00=0x006c, f01=0x411e, f02=» P ADKL A9,1 3 P ADK A6,1 3 P SUK A4,1 3 ( P RB(NZ) OPEN40 3 : P LDK A7,/A1 LOAD ORDER CODE 3 P P LKM 3 t P DATA 15 3 , P* STORE FILE CODE IN FILE CODE BUFFER 3 P LC A3,1,A8 3 P STR A3,A10 3 " P RB READ40 CHEC ON ERROR CODE 3
0x15afd8…15b16c Dummy {f00=0x006c, f01=0x2008, f02=» 4 SUKL A14,4 LDR A12,A6 CF A14,CRV 2 ADKL A14,4 F LD A13,-2,A14 Z LDR* A12,A14 p LDR A6,A1 SAVE RETURN CODE $ CF I:EVA0 GET ADRESS TO RETCOD STR A6,A9 ABL I:RT1 END @ RE
0x15b16c…15b300 Dummy {f00=0x006c, f01=0x0190, f02=»E FILE CREATION RET INDEX KEY MONITOR SWITCH NAME EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PER FILES ADDRESS NO NO/SOP 0NUMBER OF FREE ENTRIES IN VTOC = ( - : B C (
0x15b300…15b494 (2, 54) Opaque[0x194]
0x15b494…15b628 # DirEnt {nam=»OBDIR «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0d88, f03=0x0000}
0x15b494…15b628 IdxSect {
0x15b494…15b628 f00 = 0x006c // 0x15b494 @0x0
0x15b494…15b628 f01 = 0x0006 // 0x15b496 @0x2
0x15b494…15b628 gno = [ // 0x15b498 @0x4
0x15b494…15b628 [0x00]: C0x006c.0x1.0
0x15b494…15b628 [0x01]: C0x006c.0x2.0
0x15b494…15b628 [0x02]: C0x006c.0x3.0
0x15b494…15b628 ]
0x15b494…15b628 }
0x15b628…15b7bc Dummy {f00=0x006c, f01=0x000c, f02=»800331 ,C:CB10 800331 C:CB10C P1 T:ERAS8 b k CRVOL i i800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x15b7bc…15b950 Dummy {f00=0x006c, f01=0x0190, f02=» DERROR 800331 $$$TRAD CANCO d DECHK1A DECHK20 DECHK31 DECHK48 DECHK5H DECHK6D DECHK7C DERRORK DESTAT DETCHKD T:DISPd T:DSC1A T:EDWRK T:ERASC T:GETAD T:NKI T:SETCK REORGS 800331 $$$TRAO REORGS CHA
0x15b950…15bae4 Dummy {f00=0x006c, f01=0x0190, f02=» p 6BIDACR 800331 BIDAC BIDACR h JBINACR 800331 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD 800331 ADDMOD J ,DSUMOD 800331 DSUMOD V DENTER 800331 $$$TRAN
0x15bae4…15bc78 Dummy {f00=0x006c, f01=0x0190, f02=» DETCHKD EMPTYT MASK T:DISP T:DUPL T:DYKIN T:EDFLK T:EDWRK T:ERASK T:GETAK T:GETCK T:GETFK T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T:TLDO T:TLEFN T:TRIGK T:TSTCK T:TUP T:UPDFT T:XSTAT , NDEPOOL 800331 $$$TRAP DEPOOL
0x15bc78…15be0c Dummy {f00=0x006c, f01=0x0190, f02=»:ATTFL T:DSC0 T:AT10 , 800331 T:AT10A T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 C:CB50F D:CB60 C:CB60 D:CB70 C:CB70 D:CB80 C:CB80 D:CB90 C:CB90 D:CBA0 C:CBA0 D:DB10A C:CBA0A D:CBB00 C
0x15be0c…15bfa0 Dummy {f00=0x006c, f01=0x0190, f02=»:A ,U:BTAB 0 800331 U:BTABB :B ,S:BTAB 1 800331 S:BTABB :B ,Z:TB10 2 800331 Z:TB10T ,D:TB10 3 800331 D:TB10T :T ,D:DB10 4 800331 D:DB10D " ,C:CB20 5 800331 C
0x15bfa0…15c134 (2, 55) Dummy {f00=0x006c, f01=0x0190, f02=» D:CB30C B ,D:CB40 9 800331 D:CB40C B ,C:CB50 : 800331 C:CB50C y ,D:CB50 ; 800331 D:CB50C B ,C:CB60 < 800331 C:CB60C [ d ,D:CB60 = 800331 D:CB60C 2 ,C:CB70 >
0x15c134…15c2c8 Dummy {f00=0x006c, f01=0x0190, f02=» 800331 D:CB80C B ,D:CB90 B 800331 D:CB90C . ,C:CBA0 C 800331 C:CBA0C ,D:CBA0 D 800331 D:CBA0C :C ,C:CBB0 E 800331 C:CBB0C $ ,D:CBB0 F 800331 D:CBB0C B
0x15c2c8…15c45c Dummy {f00=0x006c, f01=0x0190, f02=» ,D:CBD0 L 800331 D:CBD0C :C *DDINIT M 800331 $$$TRA LCDISCT N 800331 CDISCT CDISLE 8 FIRFC FCMAX 8 DEINIT O 800331 $$$TRAI CHVNAM CLOFILS START CHANFCI CHVOL CLOSEF COPYD
0x15c45c…15c5f0 Dummy {f00=0x006c, f01=0x0190, f02=» DPTS f 800331 $$$TRAS hPTS DECLRNS T:ATTFA ,D:CB10 m 800331 D:CB10C . ,C:CB90 n 800331 C:CB90C K ` , :DB10 p 800331 :DB10D + 8 DEDISC r 800331 $$$TRAD COND M DEDISCR R
0x15c5f0…15c784 Dummy {f00=0x006c, f01=0x0190, f02=»SYSF ENTTBL GETFMT- GETJOBH GETSYSM GETTBLR GTNEXTA GTPREVT NEXFMTS NEXJOB NXBTH NXJOB OPNEBCd OPNNBCA PREFMT0 PREJOBF RECURR SCHFMT- SCHJOBH T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO <DKRUT1 v 800331 $$$TRAA CLSBTH DISUD DLCUR
0x15c784…15c918 Dummy {f00=0x006c, f01=0x0190, f02=» WRICUR- W WRTCO CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC T:SWIT T:XSTAW WAIT_ WRITDK DKRUT2 800331 $$$TRAR DELFMT ENTFMTN NEXFMTC OPCLM PREFMT ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLD DISU1 DLRCC
0x15c918…15caac Dummy {f00=0x006c, f01=0x0190, f02=»31 $$$TRAD ALGOF DELTBLA o ENTSYS0 ENTTBL1 ; GETFMT8 GETSYSH GETTBLD NOFFRET NXPRFMB SCHFMT SFMTCHG x CONDF DEPOOLB DISUE FREESP HRDT RDDS; RELEAS8 RETURNY RFRSP SCHPOOD STRT01R WAITN 8 DKRUT4 800331 $$$TRA DEL
0x15caac…15cc40 Dummy {f00=0x006c, f01=0x0190, f02=» DLRCCHH EMPTYTO FREESPX RDACC RDDSH RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS WRFSP 8OK:SUB 800331 VOLNAM l OK:SUB rDK2IPL 800331 IPL121 IPL221 IPL122 IPL222 IPL123 IPL22
0x15cc40…15cdd4 (2, 56) Dummy {f00=0x006c, f01=0x0190, f02=» NFLDIPL 800331 IPL811 IPL812 IPL813 QBLFAC NMFDIPL 800331 IPL311 IPL312 IPL313 QBLFAC CRESUD 800331 $$$TRAE CRESUD CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSEC
0x15cdd4…15cf68 Dummy {f00=0x006c, f01=0x0190, f02=» DELFIL d DLFILE COPYDD l GETVOL p GETFRE CHVOL . SURVEY PRVTOC UPDBOL UPDBIN SETB CLEARB TESTB MSKOUT RDSECT ( SETFRE ` SETOCC VOLNAM ATTWB RESTOR GETIND CMPIND . WRITDK P
0x15cf68…15d0fc Dummy {f00=0x006c, f01=0x0190, f02=»3 IPL411 IPL412 IPL413 fFILHND 800331 CRFILE l FIRFC FCMAX ADDMOD DSUMOD BINACR DLFILE F b RPRVTOC 800331 PRVTOC FIRFC CDISCT BINACR BIDACR L ,C:CB40 800331
0x15d0fc…15d290 Dummy {f00=0x006c, f01=0x0190, f02=» $$$TRAK hAPP DSKERR CHANFCK CLOFILA DERR GETVOL4 T:DISP1 T:ERAS8 b k JCRVOL 800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x15d290…15d424 Dummy {f00=0x006c, f01=0x4046, f02=»R DSUMOD ,C:CB10 800331 C:CB10C P1 T:ERAS8 b k CRVOL i i800331 QBLFAC TOSREL CRVOL IPL811 IPL812 IPL813 IPL311 IPL312 IPL313 IPL411 IPL412 IPL413 IPL111 IPL112 IPL113 IPL121 I
0x15d424…15d5b8 Dummy {f00=0x006c, f01=0x0190, f02=» & = X " =D , & = < > 1 =P J $ > ^ & n ? SYSTEM | $ ? & @ FILE $ @ & A 2 =P $ A
0x15d5b8…15d74c Dummy {f00=0x006c, f01=0x0190, f02=» D & E USERDEFINED: $ E 6 & F F FILE T $ F h $ S x ( G & H DELETE $ H & I USERDEFINED: $
0x15d74c…15d8e0 Dummy {f00=0x006c, f01=0x0190, f02=»:S $ L & & K , $ S : ( J M V & f N VOLUME SURVEY- t $ N & O UNIT: US $ O & & E &
0x15d8e0…15da74 (2, 57) Opaque[0x194]
0x15da74…15dc08 # DirEnt {nam=»M:PROC«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0da0, f03=0x0000}
0x15da74…15dc08 IdxSect {
0x15da74…15dc08 f00 = 0x006d // 0x15da74 @0x0
0x15da74…15dc08 f01 = 0x0002 // 0x15da76 @0x2
0x15da74…15dc08 gno = [ // 0x15da78 @0x4
0x15da74…15dc08 [0x00]: C0x006d.0x0.0
0x15da74…15dc08 ]
0x15da74…15dc08 }
0x15dc08…15dd9c Dummy {f00=0x006d, f01=0x018e, f02=» $TRALI SCR /O PTRA DDINIT TRA DEINIT 2 PTRA DKRUT1 D PTRA DKRUT2 V PTRA DKRUT3 h PTRA DKRUT4 z PTRA DEDISC TRA DENTER TRA DEPOOL TRA DERROR TRA REORGS PTRA REORGU TRA CRESUD
0x15dd9c…15df30 Dummy {f00=0x006d, f01=0x0166, f02=» ASG 2,NO $TRALI END & $LINK 2 SCR /O @ PNOD C N INC DEINIT PNOD n PTLK U,2K z INC ASSRUT PLKE M KPF /L,DILINK END $LINKLI SCR /O PNOD C INC DEINIT
0x15df30…15e0c4 Dummy {f00=0x006d, f01=0x2008, f02=» ASG 2,NO $TRALI END & $LINK 2 SCR /O @ PNOD C N INC DEINIT PNOD n PTLK U,2K z INC ASSRUT PLKE M KPF /L,DILINK END $LINKLI SCR /O PNOD C INC DEINIT
0x15e0c4…15e258 Dummy {f00=0x006d, f01=0x0190, f02=»FA R2 RRR_[ R : #* '!( !DL 0Rf!CKJT R x 6 F V f v
0x15e258…15e3ec Dummy {f00=0x006d, f01=0x0190, f02=» $ 0 R 4 0 R F X H h # x ' " ( ) , - 7 SR J F " D FA R2 RRR_ !DL KL!DL KMW 1XFA R2 R
0x15e3ec…15e580 Dummy {f00=0x006d, f01=0x0190, f02=» q s v ( x 8 y H } X | h x J F " D @((K jB0&J 0X !& R0RB % * 6 RH # ?R RH R#?R R,?R1XFA R2 D
0x15e580…15e714 (2, 58) Opaque[0x194]
0x15e714…15e8a8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x0da8, f03=0x0000}
0x15e714…15e8a8 IdxSect {
0x15e714…15e8a8 f00 = 0x006d // 0x15e714 @0x0
0x15e714…15e8a8 f01 = 0x0088 // 0x15e716 @0x2
0x15e714…15e8a8 gno = [ // 0x15e718 @0x4
0x15e714…15e8a8 [0x00]: C0x006d.0x1.0
0x15e714…15e8a8 [0x01]: C0x006d.0x2.0
0x15e714…15e8a8 [0x02]: C0x006d.0x3.0
0x15e714…15e8a8 [0x03]: C0x006e.0x0.0
0x15e714…15e8a8 [0x04]: C0x006e.0x1.0
0x15e714…15e8a8 [0x05]: C0x006e.0x2.0
0x15e714…15e8a8 [0x06]: C0x006e.0x3.0
0x15e714…15e8a8 [0x07]: C0x006f.0x0.0
0x15e714…15e8a8 [0x08]: C0x006f.0x1.0
0x15e714…15e8a8 [0x09]: C0x006f.0x2.0
0x15e714…15e8a8 [0x0a]: C0x006f.0x3.0
0x15e714…15e8a8 [0x0b]: C0x0070.0x0.0
0x15e714…15e8a8 [0x0c]: C0x0070.0x1.0
0x15e714…15e8a8 [0x0d]: C0x0070.0x2.0
0x15e714…15e8a8 [0x0e]: C0x0070.0x3.0
0x15e714…15e8a8 [0x0f]: C0x0071.0x0.0
0x15e714…15e8a8 [0x10]: C0x0071.0x1.0
0x15e714…15e8a8 [0x11]: C0x0071.0x2.0
0x15e714…15e8a8 [0x12]: C0x0071.0x3.0
0x15e714…15e8a8 [0x13]: C0x0072.0x0.0
0x15e714…15e8a8 [0x14]: C0x0072.0x1.0
0x15e714…15e8a8 [0x15]: C0x0072.0x2.0
0x15e714…15e8a8 [0x16]: C0x0072.0x3.0
0x15e714…15e8a8 [0x17]: C0x0073.0x0.0
0x15e714…15e8a8 [0x18]: C0x0073.0x1.0
0x15e714…15e8a8 [0x19]: C0x0073.0x2.0
0x15e714…15e8a8 [0x1a]: C0x0073.0x3.0
0x15e714…15e8a8 [0x1b]: C0x0074.0x0.0
0x15e714…15e8a8 [0x1c]: C0x0074.0x1.0
0x15e714…15e8a8 [0x1d]: C0x0074.0x2.0
0x15e714…15e8a8 [0x1e]: C0x0074.0x3.0
0x15e714…15e8a8 [0x1f]: C0x0075.0x0.0
0x15e714…15e8a8 [0x20]: C0x0075.0x1.0
0x15e714…15e8a8 [0x21]: C0x0075.0x2.0
0x15e714…15e8a8 [0x22]: C0x0075.0x3.0
0x15e714…15e8a8 [0x23]: C0x0076.0x0.0
0x15e714…15e8a8 [0x24]: C0x0076.0x1.0
0x15e714…15e8a8 [0x25]: C0x0076.0x2.0
0x15e714…15e8a8 [0x26]: C0x0076.0x3.0
0x15e714…15e8a8 [0x27]: C0x0077.0x0.0
0x15e714…15e8a8 [0x28]: C0x0077.0x1.0
0x15e714…15e8a8 [0x29]: C0x0077.0x2.0
0x15e714…15e8a8 [0x2a]: C0x0077.0x3.0
0x15e714…15e8a8 [0x2b]: C0x0078.0x0.0
0x15e714…15e8a8 [0x2c]: C0x0078.0x1.0
0x15e714…15e8a8 [0x2d]: C0x0078.0x2.0
0x15e714…15e8a8 [0x2e]: C0x0078.0x3.0
0x15e714…15e8a8 [0x2f]: C0x0079.0x0.0
0x15e714…15e8a8 [0x30]: C0x0079.0x1.0
0x15e714…15e8a8 [0x31]: C0x0079.0x2.0
0x15e714…15e8a8 [0x32]: C0x0079.0x3.0
0x15e714…15e8a8 [0x33]: C0x007a.0x0.0
0x15e714…15e8a8 [0x34]: C0x007a.0x1.0
0x15e714…15e8a8 [0x35]: C0x007a.0x2.0
0x15e714…15e8a8 [0x36]: C0x007a.0x3.0
0x15e714…15e8a8 [0x37]: C0x007b.0x0.0
0x15e714…15e8a8 [0x38]: C0x007b.0x1.0
0x15e714…15e8a8 [0x39]: C0x007b.0x2.0
0x15e714…15e8a8 [0x3a]: C0x007b.0x3.0
0x15e714…15e8a8 [0x3b]: C0x007c.0x0.0
0x15e714…15e8a8 [0x3c]: C0x007c.0x1.0
0x15e714…15e8a8 [0x3d]: C0x007c.0x2.0
0x15e714…15e8a8 [0x3e]: C0x007c.0x3.0
0x15e714…15e8a8 [0x3f]: C0x007d.0x0.0
0x15e714…15e8a8 [0x40]: C0x007d.0x1.0
0x15e714…15e8a8 [0x41]: C0x007d.0x2.0
0x15e714…15e8a8 [0x42]: C0x007d.0x3.0
0x15e714…15e8a8 [0x43]: C0x007e.0x0.0
0x15e714…15e8a8 ]
0x15e714…15e8a8 }
0x15e8a8…15ea3c Dummy {f00=0x006d, f01=0x0190, f02=» @ H IDENT DERROR TRA 5.0 80-02-29 F1 O1111 UPD 80-02-29/CHST D @ CANC DECHK1 DECHK2 DECHK3 DECHK4 DECHK5 DECHK6 DECHK7 H DERRORR DESTATA DETCHK0 $$$TRAD @ < CANCO d DECHK1A DECHK20 DECHK31 DECHK48 DECHK5H 8 4
0x15ea3c…15ebd0 Dummy {f00=0x006d, f01=0x0190, f02=» " " " " . " < " J " X " f " t " " " " " " " " " "
0x15ebd0…15ed64 Dummy {f00=0x006d, f01=0x018e, f02=» " ( $ & 4 " & TOO FEW INPUT CHARACTERS B ( h t & & UNDEFINED ERRORH ( & & I/O-ERROR (
0x15ed64…15eef8 Dummy {f00=0x006d, f01=0x0190, f02=» ( & & ILLEGAL VALUEE . ( J V & f & FILENAME ALREADY USEDF t ( & & SYSTEMFILE NOT CREATED ( &
0x15eef8…15f08c Dummy {f00=0x006d, f01=0x0190, f02=» & & FILE NAME UNKNOWNB ( : F & V & NO WORKSPACE IN CORE d ( & & OUTPUT FILE TOO SMALLS ( & & DISK
0x15f08c…15f220 Dummy {f00=0x006d, f01=0x0190, f02=» & USERFILE ASSIGN-ERRORO ( , 8 & H & DISC I/O-ERROR V & : r XXXXX- " I ( & & DISC READING-ERROR (
0x15f220…15f3b4 (2, 59) Dummy {f00=0x006d, f01=0x0190, f02=»FILE d ( ( 3 8 J 2 l ! ~ # & * , 1 > J F " D !1X F PVQ L L
0x15f3b4…15f548 Dummy {f00=0x006d, f01=0x40fa, f02=» x J F " D @! _3 86 _'0X RW 40X 4 [ L 0X 0X 6 l | & * & ( , ' % 4 A _ 0X 0X 4 4 X @ F PVQ L L
0x15f548…15f6dc Dummy {f00=0x006d, f01=0x0190, f02=» @ H IDENT REORGS TRA 5.0 - - F1 O1111 UPD 80-03-20/CHST REORGS H $$$TRAO Z REORGS l D @ CHANFCO CHVOL CLOFIL CLOSEF DECLRA1 DECLRN8 DEDISC/ DEPOOL D @ DERRG DISU DSKERR NOFFRE OPCL OPENF REFSP T:ATTF T:DISP
0x15f6dc…15f870 Dummy {f00=0x006d, f01=0x0190, f02=»x! f"f! `"`! z"z! b"b! L0R f# j#P 0R f#C @" x G b 6 N F V V o f { v J F " D @ 4 d!!?R f!f# R ! `! R!!Cjb! "C%jz! "C! ! ! R" @ h! R"! J Yd
0x15f870…15fa04 Dummy {f00=0x006d, f01=0x0190, f02=»T J F " D @ h#h! x#x! `#`! z#z! b#b!!FL 1XFA R2 RR!GL R3":R R4#:R AL ] X ? j b z Y] N]
0x15fa04…15fb98 Dummy {f00=0x006d, f01=0x0190, f02=» $ b ) L , . ? 2 8 b B ; Y R ? d J F " D R #:Rj " r- L U jU!! r2 U! R8" _:R_+ L L R "V )%?R!FL GL v A B F J E
0x15fb98…15fd2c Dummy {f00=0x006d, f01=0x0190, f02=» r ? | } * " : J F " D @1XFA R2 RR GL& R%# R!#:R_2 R& L R&qq t L R "V )S1XF0X J $ e NA ? YA
0x15fd2c…15fec0 Dummy {f00=0x006d, f01=0x0190, f02=» ? " 0 $ @ J F " D ! 0X R2 RR GL+ R*"_!!FL GL1XFA R2 RR GLH R-# R)#^R1XF0X ! 0 P e N0 J F " D X R2 RR GLg_! j!j
0x15fec0…160054 (2, 60) Dummy {f00=0x006d, f01=0x0190, f02=»!z# b!b# d!! f!f#A" R"R.0R R0R CI4 n ^ , j < m L & l COPY JOB: z $ & & $ ( & COPY F
0x160054…1601e8 Dummy {f00=0x006d, f01=0x0190, f02=» $ & & G " & G 0 & > & [ P ( ^ j & [ z & COPY SYSTEMVARIABLES ? $ O ( & & COPY VALUE-SET T &
0x1601e8…16037c Dummy {f00=0x006d, f01=0x4014, f02=» p @ & G " & G 0 & > & [ P ( ^ j & [ z & COPY SYSTEMVARIABLES ? $ O ( & & COPY VALUE-SET T &
0x16037c…160510 Dummy {f00=0x006d, f01=0x018e, f02=» @ @ IDENT BIDACR PRR 10.0 80-02-04 870136641000 BIDAC BIDACR H BIDAC ` , ( R _ P 0 - : ; r , ( ! [ V - - ' , ( @ A d Z : BID
0x160510…1606a4 Dummy {f00=0x006d, f01=0x4046, f02=» ( $ R P )V V W R T R 0@ B BIDAC BIDACR H BIDAC ` , ( R _ P 0 - : ; r , ( ! [ V - - ' , ( @ A d Z : BID
0x1606a4…160838 Dummy {f00=0x006d, f01=0x0190, f02=» @ @ IDENT BINACR PRR 10.0 80-02-04 870136641000 BINAC BINACR H DSUMOD ` , ( R _ P 0 / r ADDMOD BINAC , , ( : ; [ [ [ , ( = [
0x160838…1609cc Dummy {f00=0x006d, f01=0x40f0, f02=» Z : : BINACR & , ( @ ; , : V : , ( *W R - _ 1 T R P - j _ : $ R P V W R T R @ , ( = [
0x1609cc…160b60 Dummy {f00=0x006d, f01=0x412e, f02=» @ @ IDENT ADDMOD PRR 10.0 80-02-04 870136641000 ADDMOD H ADDMOD Z , ( [ S Q R S n , ( ! P W S _ R Q _ ;A A [ : , ( S Q" R S !P #W +S
0x160b60…160cf4 (2, 61) Dummy {f00=0x006e, f01=0x4142, f02=» @ @ IDENT DSUMOD PRR 10.0 80-02-04 870136641000 DSUMOD H DSUMOD Z , ( [ Q S W n , ( ! S Q R S P W S _ R " A _ ;A [ : 4 0 Q S W #S
0x160cf4…160e88 Dummy {f00=0x006e, f01=0x018e, f02=» @ H IDENT DENTER TRA 5.0 80-03-10 F1 O1111 UPD 80-03-04/CHST , ( DECLRA DECLRD DECLRN DECLRS DERR H $$$TRAN x 6 2 DECLRA DECLRDD DECLRNC DECLRS DERR @ < hAPP CANCE DECHK15 DECHK20 DECHK3 DECHK4U DECHK53 DECHK6T D @
0x160e88…16101c Dummy {f00=0x006e, f01=0x0190, f02=» D @ T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T:TLDO 4 0 T:TLEFN T:TRIGK T:TSTCK T:TUP T:UPDFT T:XSTAT L & ! T $
0x16101c…1611b0 Dummy {f00=0x006e, f01=0x0190, f02=» ( @ P ` p , ( 3 ( : J F " D R!4 R"4 R#4 R$4 R 4 8RI 6 / 0X ! W(
0x1611b0…161344 Dummy {f00=0x006e, f01=0x0190, f02=» | J F " D @@ 6 0X ! W 0X ! 0X ! 0X R 0X P R _ 0XH ; !0X K P J l & | r "
0x161344…1614d8 Dummy {f00=0x006e, f01=0x0190, f02=» * : J Z j z ,
0x1614d8…16166c Dummy {f00=0x006e, f01=0x018e, f02=» , J F " D o2 RRRRRRRRRRRRRRRR B0X 3 RRRRRRR2 RRR !W 0X ( , h x m H J F " D _ "0X 0 R2 RRRW&0X A 6 *.RV .W !@
0x16166c…161800 Dummy {f00=0x006e, f01=0x0190, f02=» d F l J F " D @*0X _,0XW 0XW 0XW 0XW 0XW 0XW 0XW 0XX Z [ R 7 HH:HH:6:::6: ( m v 2 m , & m
0x161800…161994 (2, 62) Dummy {f00=0x006e, f01=0x018e, f02=» ?R0X 0X V . D $ 4 . D J T d J F " D % 0X S 0X P 0R Q )L *P #4 0X 0R $ % 0X 0 t m
0x161994…161b28 Dummy {f00=0x006e, f01=0x409c, f02=» & m & $ & 2 ( @ 6 2 0 R 9<R RK2 RRRR?R R2 RR #4 0X 0X ?R !4 L , @ 4 0X 0R $ % 0X 0 t m
0x161b28…161cbc Dummy {f00=0x006e, f01=0x018e, f02=» D H IDENT DEPOOL TRA 5.0 80-03-27 F1 O1111 REL 1.0 80-03-26/DALI DEPOOL L $$$TRAP ^ DEPOOL p CMPINDP GETINDA SETB '
0x161cbc…161e50 Dummy {f00=0x006e, f01=0x018e, f02=» J F " D @ 2 RRRRRRRRRRR A ! [ ! L& !0R !T J _ R:R J F " D @I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P V E J F " D !0R ! N_m R ?R j !! '( !1j !& !j
0x161e50…161fe4 Dummy {f00=0x006e, f01=0x0190, f02=» & 1 J F " D j !! (I !Y A ! ! ?R ! 0R !h & !&P $ E r J J F " D @ !0R !<R_ ( ) +h & '&Z h ! !R !W h ! !Z< " ! J F " D
0x161fe4…162178 Dummy {f00=0x006e, f01=0x018e, f02=»j '! !j !! ( _N ` - Fj 1 Tj 0 5 Xj B @ T J F " D ! ( + [Whj !! ' !QU I N! L ! L Lb ! W:0 d R T V X J F " D @R h [ !P L! Lj !! b ! f ! !A
0x162178…16230c Dummy {f00=0x006e, f01=0x417e, f02=» J F " D )W# + Lj ! h $ !T 8 W - !"4 !!4 j !! XW V 3 h J F " D ( !"4 Lj ! j !! ( j (! ! _ f !0R !j ![ x S J F " D @ !!4 6 LW [ j !! W j
0x16230c…1624a0 Dummy {f00=0x006e, f01=0x0190, f02=» F H IDENT REORGU TRA 5.0 80-01-22 F1 O1111 REL. 1.0 79-05-29/LABJ REORGU N $$$TRAO ` REORGU r B > CHANFCO CHVOL DECLRN DISU- DSKERR1 FREESPL GETVOL9 T:ATTFL T:DSC0 X
0x1624a0…162634 (2, 63) Dummy {f00=0x006e, f01=0x0190, f02=» ? X J F " D h!! [ ! L ! 1 AH0R Q0R H <R QL RL0R Q<R0R R<R R%" <R l b p r z | X J F " D @b !)* b ! < * S# # *W *" W jS " $ S 8R_ R#S P )8R?Rj Y)
0x162634…1627c8 Dummy {f00=0x006e, f01=0x0190, f02=» X J F " D " &b * b & "j " ( 7!FL GL1XFA R2 RR GLW R% CP ! L ?R JC f z X ` X JC J F " D
0x1627c8…16295c Dummy {f00=0x006e, f01=0x0190, f02=» D CLjC"" _G R !:Rj (" bC * *jC&" R$ C:R *W ," W j J L U X z YC l ~ C ~ J F " D @" $ _ R# P ) ?Rj " &b , b@ & "j " (j " * ;!FL GL1
0x16295c…162af0 Dummy {f00=0x006e, f01=0x018e, f02=» J F " D XFA R2 RR GL[ R% CP ! L W CLjC&"* R$ CR j "C&% L0j " V f BC R v J F " D C$ _< R !R jC$" R$ CRz CLjC"" _G R !Rnj (" R !Rbj
0x162af0…162c84 Dummy {f00=0x006e, f01=0x018e, f02=» H B F J ( N 8 R H X f h m x ~ J F " D @Q0X 0R R0X 0R P0R A4 # R _# 1_ R# CZ R$ CZ 2 R#
0x162c84…162e18 Dummy {f00=0x006e, f01=0x416c, f02=» & COPY BATCH:0 $ 2 & B & @ P $ ^ ( n z & Y/N $ & & G & G & & [
0x162e18…162fac Dummy {f00=0x006e, f01=0x0190, f02=» . H IDENT T:AT10 TRA 5.0 80-03-27 F1 O1111 T:AT10 6 T:AT10A H > : T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 > : D:CB40A C:CB40A D:CB500 C:CB50F D:CB60 C:CB60 D:CB70 > : C:CB70 D:CB80 C:CB80 D:CB90 C:CB9
0x162fac…163140 Dummy {f00=0x006e, f01=0x4180, f02=» * & = 6 d P ( * & [ d V * & y , ( @ T1 , , (
0x163140…1632d4 (2, 64) Dummy {f00=0x006e, f01=0x40cc, f02=» . H IDENT T:DT10 TRA 5.0 80-03-27 F1 O1111 T:DT10 6 T:DT10D H START * & `T1 * l ( @ , (
0x1632d4…163468 Dummy {f00=0x006e, f01=0x409a, f02=» . H IDENT T:ATAB TRA 5.0 80-03-27 F1 O1111 T:ATAB 6 T:ATABA H T:AT10 @ n :A @ ( @ , (
0x163468…1635fc Dummy {f00=0x006e, f01=0x4084, f02=» . H IDENT U:BTAB TRA 5.0 80-03-27 F1 O1111 U:BTAB 6 U:BTABB H :B n@ :A @ ( @ , (
0x1635fc…163790 Dummy {f00=0x006e, f01=0x4084, f02=» . H IDENT S:BTAB TRA 5.0 80-03-27 F1 O1111 S:BTAB 6 S:BTABB H :B n@ :A @ ( @ , (
0x163790…163924 Dummy {f00=0x006e, f01=0x416a, f02=» . H IDENT Z:TB10 TRA 4.1 79-07-31 F1 O1111 Z:TB10 6 Z:TB10T H & & p & = & [ & y & & & & & & -
0x163924…163ab8 Dummy {f00=0x006e, f01=0x4088, f02=» . H IDENT D:TB10 TRA 4.1 79-07-31 F1 O1111 D:TB10 6 D:TB10T H :T r@ & [ & y & & & & & & -
0x163ab8…163c4c Dummy {f00=0x006e, f01=0x40b4, f02=» . H IDENT D:DB10 TRA 5.0 80-03-27 F1 O1111 ' D:DB10 ' 6 D:DB10D ' H * & " ' ' " ' @ '
0x163c4c…163de0 Dummy {f00=0x006e, f01=0x40ca, f02=» . H IDENT C:CB20 TRA 5.0 80-03-27 F1 O1111 C:CB20 6 C:CB20C H * & $ $ @ & & = & [ & y
0x163de0…163f74 (2, 65) Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CB20 TRA 5.0 80-03-27 F1 O1111 D:CB20 6 D:CB20C H * & B * & = B @ = & [ & y
0x163f74…164108 Dummy {f00=0x006f, f01=0x40ca, f02=» . H IDENT C:CB30 TRA 5.0 80-03-27 F1 O1111 C:CB30 6 C:CB30C H * & @ c $ $ @ B @ = & [ & y
0x164108…16429c Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CB30 TRA 5.0 80-03-27 F1 O1111 D:CB30 6 D:CB30C H * & B * & = B @
0x16429c…164430 Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CB40 TRA 5.0 80-03-27 F1 O1111 D:CB40 6 D:CB40C H * & B : F0 F G H * & I J P V d l = t B @ & & -
0x164430…1645c4 Dummy {f00=0x006f, f01=0x4156, f02=» . H IDENT C:CB50 TRA 5.0 80-03-27 F1 O1111 C:CB50 6 C:CB50C H * & * & * & = * & [
0x1645c4…164758 Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CB50 TRA 5.0 80-03-27 F1 O1111 D:CB50 6 D:CB50C H * & B 0 * & 0 0 0 0 = ! B @ & [
0x164758…1648ec Dummy {f00=0x006f, f01=0x412a, f02=» . H IDENT C:CB60 TRA 5.0 80-03-27 F1 O1111 C:CB60 6 C:CB60C H * & * & * & = SYSVOLSY [ SVOLOUTPUT d
0x1648ec…164a80 Dummy {f00=0x006f, f01=0x40c4, f02=» . H IDENT D:CB60 TRA 5.0 80-03-27 F1 O1111 D:CB60 6 D:CB60C H * & 2 $ 6 < N 2 @ SYSVOLSY [ SVOLOUTPUT d
0x164a80…164c14 (2, 66) Dummy {f00=0x006f, f01=0x4172, f02=» . H IDENT C:CB70 TRA 5.0 80-03-27 F1 O1111 C:CB70 6 C:CB70C H * & & & = & [ & y & & & &
0x164c14…164da8 Dummy {f00=0x006f, f01=0x40cc, f02=» . H IDENT D:CB70 TRA 5.0 80-03-27 F1 O1111 D:CB70 6 D:CB70C H * & : ( $ ( : @ y & & & &
0x164da8…164f3c Dummy {f00=0x006f, f01=0x40ce, f02=» . H IDENT C:CB80 TRA 5.0 80-03-27 F1 O1111 C:CB80 6 C:CB80C H $ & & = @ = @ @ & & & &
0x164f3c…1650d0 Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CB80 TRA 5.0 80-03-27 F1 O1111 ! D:CB80 ! 6 D:CB80C ! H * & B ! * & ! = # - ! B ! @ ! & & &
0x1650d0…165264 Dummy {f00=0x006f, f01=0x40c0, f02=» . H IDENT D:CB90 TRA 5.0 80-03-27 F1 O1111 $ D:CB90 $ 6 D:CB90C $ H * & . 2 B $ x X @ $ . $ @ $ " & [ " & y " &
0x165264…1653f8 Dummy {f00=0x006f, f01=0x411a, f02=» . H IDENT C:CBA0 TRA 5.0 80-03-27 F1 O1111 % C:CBA0 % 6 C:CBA0C % H & % & % p & = % & [ % & y % & % & % & % % %
0x1653f8…16558c Dummy {f00=0x006f, f01=0x4088, f02=» . H IDENT D:CBA0 TRA 5.0 80-03-27 F1 O1111 & D:CBA0 & 6 D:CBA0C & H & :C & r@ &
0x16558c…165720 Dummy {f00=0x006f, f01=0x40ca, f02=» . H IDENT C:CBB0 TRA 5.0 80-03-27 F1 O1111 ( C:CBB0 ( 6 C:CBB0C ( H * & ( ( $ ( $ ( @ (
0x165720…1658b4 (2, 67) Dummy {f00=0x006f, f01=0x40e4, f02=» . H IDENT D:CBB0 TRA 5.0 80-03-27 F1 O1111 ) D:CBB0 ) 6 D:CBB0C ) H * & B ) * & ) = ) B ) @ )
0x1658b4…165a48 Dummy {f00=0x006f, f01=0x410a, f02=» . H IDENT C:CBC0 TRA 5.0 80-03-27 F1 O1111 * C:CBC0 * 6 C:CBC0C * H & * & * ~ * & = * [ * n * [ n * @ *
0x165a48…165bdc Dummy {f00=0x006f, f01=0x40c8, f02=» . H IDENT D:CBC0 TRA 5.0 80-03-27 F1 O1111 + D:CBC0 + 6 D:CBC0C + H * & 6 + $ > 0 L0 M0 O V + 6 + @ + * n * [ n * @ *
0x165bdc…165d70 Dummy {f00=0x006f, f01=0x0190, f02=» . H IDENT C:CBD0 TRA 4.1 79-08-27 F1 O1111 C:CBD0 6 C:CBD0C H & & p & = & [ & y & & & & & & -
0x165d70…165f04 Dummy {f00=0x006f, f01=0x0190, f02=» ; & Y ! & w ! & ! 0 & ! @ & ! P & ! ` & ! p & + ! & I ! & g ! & ! & ! & ! & ! & ! &
0x165f04…166098 Dummy {f00=0x006f, f01=0x40da, f02=» ) ! & G " & e " & " 0 & " @ & " P & " ` & " p & " & 7 " U " l " U l " @ " & ! & ! &
0x166098…16622c Dummy {f00=0x006f, f01=0x4090, f02=» . H IDENT D:CBD0 TRA 4.1 79-08-27 F1 O1111 # D:CBD0 # 6 D:CBD0C # H { # :C # z@ # 7 " U " l " U l " @ " & ! & ! &
0x16622c…1663c0 Dummy {f00=0x006f, f01=0x405e, f02=» . H IDENT DDINIT TRA 5.0 80-03-27 F1 O1111 , $$$TRA , 6 , H@ , Z 6 + $ > 0 L0 M0 O V + 6 + @ + * n * [ n * @ *
0x1663c0…166554 (2, 68) Dummy {f00=0x006f, f01=0x4128, f02=» @ @ IDENT CDISCT PRR 10.0 80-02-04 870136641000 " CDISCT CDISLE FIRFC FCMAX H CDISCT n , ( DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 CDISLE 8 FIRFC FCMAX $ ! FD1 FD2 FD3 FD4 CD1 CD
0x166554…1666e8 Dummy {f00=0x006f, f01=0x018e, f02=» @ H IDENT DEINIT TRA 5.0 80-03-31 F1 O1111 UPD 80-03-31/CHST CHVNAM CLOFIL START H $$$TRAI h " CHVNAM CLOFILS START z D @ CHANFCI CHVOL CLOSEF COPYDD1 CRESUD1 CREVOL8 DECLRA/ DELFIL @ < DSKERR OPENF REC1 REC2T REC
0x1666e8…16687c Dummy {f00=0x006f, f01=0x0190, f02=» ( 8 J P l + 5 ~ , - . / 3 0 3 1 2 6
0x16687c…166a10 Dummy {f00=0x006f, f01=0x0190, f02=»RRRRRRR_51XFA R2 R ^ C l & , q < y ? L J F " D @RR R _GjB'!P!jB(&H jB."& jB0! !jB1!!!jB2! !0X !10RB % * R ~ 3
0x166a10…166ba4 Dummy {f00=0x006f, f01=0x0190, f02=»] R : #? '6( -!DL$0R f!CKJT l * : 0 J l | J F " D R R R
0x166ba4…166d38 Dummy {f00=0x006f, f01=0x0190, f02=» 5 # $ * % ( : *0 J 10 9 n : G ~ > B = C D G J F " D 4 0R f!C 0R f"C 0R f#C 4 1XFA R2 RRR_ !DL KL!DL
0x166d38…166ecc Dummy {f00=0x006f, f01=0x0190, f02=» D @ RRR?R RJjB'!P! LjB&! jB((K jB0&J 0X !& R0RB % * 6 RH L l |
0x166ecc…167060 Dummy {f00=0x006f, f01=0x0190, f02=» R . > $ N ^ J F " D # ?R RH R#?R R,?R1XFA R2 RRR?R1XFA R2 RRR?R RJ FL R?R1XFA n B
0x167060…1671f4 (2, 69) Dummy {f00=0x0070, f01=0x0190, f02=» J F " D R2 RRR?RjB(&I jB.&I jB5! !0RB % * $ <R?R R(?R1XFA R2 RRR B j z M P
0x1671f4…167388 Dummy {f00=0x0070, f01=0x0190, f02=»2 RRR_ LjB&! !jB'!P!0RB % * R ! <R?R R2?R0 | F : H " L M $ O Q l T ( | W Q & . * ( "PTS DATA-ENTRY UTILITIES REL 10.0 $ &
0x167388…16751c Dummy {f00=0x0070, f01=0x0190, f02=» & CREATE VOLUMEY $ 4 & D 2 = R $ f & v CREATE FILEM $ & 3 = $ & DELETE
0x16751c…1676b0 Dummy {f00=0x0070, f01=0x0190, f02=»COPY SYSFILM $ & $ 5 = 2 $ F & V NOT USED d $ | & 6 = $ & NOT USED $ &
0x1676b0…167844 Dummy {f00=0x0070, f01=0x0190, f02=» & VOLUME SURVEY- $ 4 & D 9 = R $ f & v NOT USED $ ( n & CREATE VOLUME- $ &
0x167844…1679d8 Dummy {f00=0x0070, f01=0x0190, f02=» & & H & H VOLUME-NAME: . $ J & Z & H l & H z & TYPE: & X " ^! & $ S! & & 6
0x1679d8…167b6c Dummy {f00=0x0070, f01=0x0190, f02=»& & ( # &! - 3 (PTS-6876) 5 MB PACKEDE & F & T * % &# - 4 (PTS-6876) 5 MB UNPACKED2 b & & ( # &! - 5 (PTS-8863) MINI FIX DISCE & & & - 6 (PTS-6877)
0x167b6c…167d00 Dummy {f00=0x0070, f01=0x018e, f02=»SC h & $ & . * &( $- 9 (PTS- ) 1 MB FLEXIBLE DISC & ( X d & $ t COPY SYSFIL) $ $ & ( & ! COPY USERFIL $
0x167d00…167e94 (2, 70) Dummy {f00=0x0070, f01=0x0190, f02=» & F $ S ( " $ . & > " % COPY SYSVOL TO SYSVOLF L $ % r $ & ( & 0 & ' INPUTS $ ' & ( UNIT : U
0x167e94…168028 Dummy {f00=0x0070, f01=0x018e, f02=»& H * OUTPUT $ * " & 2 + UNIT : U @ $ + X & h & z & , VOLUME-NAME: $ , & ! & H $ S ( - '
0x168028…1681bc Dummy {f00=0x0070, f01=0x0190, f02=» & E & 0 VOLUME-NAME: $ 0 < & ! L & H Z & H h 1 NEWP v $ 1 & 2 VOLUME-NAME: $ 2 & & $ S (
0x1681bc…168350 Dummy {f00=0x0070, f01=0x018e, f02=» 6 DELETE $ 6 & * 7 FILE 8 $ 7 L $ 8 ( l 8 E x & 9 UNIT: UF $ 9 & & E & : VOLUME-NAME:
0x168350…1684e4 Dummy {f00=0x0070, f01=0x0190, f02=» & = X " =D , & = < > 1 =P J $ > ^ & n ? SYSTEM | $ ? & @ FILE $ @ & A 2 =P $ A
0x1684e4…168678 Dummy {f00=0x0070, f01=0x0190, f02=» D & E USERDEFINED: $ E 6 & F F FILE T $ F h $ S x ( G & H DELETE $ H & I USERDEFINED: $
0x168678…16880c Dummy {f00=0x0070, f01=0x0190, f02=»:S $ L & & K , $ S : ( J M V & f N VOLUME SURVEY- t $ N & O UNIT: US $ O & & E &
0x16880c…1689a0 Dummy {f00=0x0070, f01=0x40ca, f02=»PRESS ENT TO CONTINUEF $ R ( . S : & J & X & [ j ( x , ( & @X !! L0X 1X F !0X K Z !!4 b @
0x1689a0…168b34 (2, 71) Dummy {f00=0x0070, f01=0x0190, f02=» . H IDENT PTS TRA 5.0 80-01-21 F1 O1111 hPTS 6 $$$TRAS D hPTS V DECLRNS T:ATTFA f & & & & & "
0x168b34…168cc8 Dummy {f00=0x0070, f01=0x0190, f02=» & & & $ " PPPP T SSSSS 2 $ X & h & v & " P T S $ & & & " P T
0x168cc8…168e5c Dummy {f00=0x0070, f01=0x0190, f02=» $ & ) 2 - + %EEEEE N N TTTTTTT RRRR Y Y $ T & d & r & , ( & D D A A T A A $ & ) 0 , * $E NN N T R R Y Y
0x168e5c…168ff0 Dummy {f00=0x0070, f01=0x0190, f02=»& ) 0 + ) #EEE N N N T RRRR Y YY $ @ & P & ^ & l , ( & D D A A T A A z $ & ) . * ( "E N NN T R R Y $
0x168ff0…169184 Dummy {f00=0x0070, f01=0x0190, f02=» N N T R R Y $ $ & 4 & B & P & ^ 4 / - 'U U TTTTTTT I L I TTTTTTT I l $ & 6 EEEEE SSSSST $ & &
0x169184…169318 Dummy {f00=0x0070, f01=0x0190, f02=» & & & $ 4 / - 'U U T I L I T I 2 $ j & 6 z EEE SSSS $ & & & 4 / - 'U U T I L I T
0x169318…1694ac Dummy {f00=0x0070, f01=0x4106, f02=» ' UUU T I LLLLL I T I $ 4 & 6 D EEEEE SSSSS R $ n & ~ & & & & [ ( A 1XF R7 4 @
0x1694ac…169640 Dummy {f00=0x0070, f01=0x40c0, f02=» . H IDENT D:CB10 TRA 5.0 80-03-27 F1 O1111 D:CB10 6 D:CB10C H * & . & & & & . @ & & = & [ & y
0x169640…1697d4 (2, 72) Dummy {f00=0x0070, f01=0x0190, f02=» . H IDENT C:CB90 TRA 5.0 80-03-27 F1 O1111 " C:CB90 " 6 C:CB90C " H * & " * & " * & = " & [ " & y " &
0x1697d4…169968 Dummy {f00=0x0070, f01=0x4028, f02=» ` " K ` # @ # $O1111 " C:CB90 " 6 C:CB90C " H * & " * & " * & = " & [ " & y " &
0x169968…169afc Dummy {f00=0x0070, f01=0x0190, f02=» . H IDENT :DB10 TRA 4.1 - - F1 O1111 % :DB10 % 6 :DB10D % H & % & % | & = % & [ % & y % & % & % & % & % & %
0x169afc…169c90 Dummy {f00=0x0070, f01=0x40c6, f02=» % & ; & & Y & & w & , & & < & & L & & & & l & & | + & 8 & + 8 & @ &
0x169c90…169e24 Dummy {f00=0x0070, f01=0x0190, f02=» @ H IDENT DEDISC TRA 5.0 80-02-11 F1 O1111 UPD 80-02-11/CHST : 6 COND DEDISC RELEAS RETURN SCHPOO STRT01 WAIT H $$$TRAD @ < COND M DEDISCR RELEAST RETURNO 7 SCHPOO STRT01 WAITR d > : CHANFCM CLSBTHR DELBTCA
0x169e24…169fb8 Dummy {f00=0x0070, f01=0x0190, f02=»REVT NEXFMTS NEXJOB NXBTH NXJOB r > : OPNEBCd OPNNBCA PREFMT0 PREJOBF RECURR SCHFMT- SCHJOBH ( 2 . T:DSC1M T:SWITR WRFSP WRIACCE WRICURM WRTCO j 7 : 0 .
0x169fb8…16a14c Dummy {f00=0x0070, f01=0x0190, f02=» # $ $ % B & 0 ' @ ( , P ) 7 ` * F p + , - . / 7 0 ( 1 4 2 & 3 2
0x16a14c…16a2e0 Dummy {f00=0x0070, f01=0x4170, f02=»RRRRRRRRRRRRRHh R! R( ` H J M 0 n Q @ p R t < b ~ M r J F " D @ Hi L R4 $ !"4 "!4 !!4 I! @g L0R 0X ;V # R4 > Q
0x16a2e0…16a474 (2, 73) Dummy {f00=0x0071, f01=0x0190, f02=» @ H IDENT DKRUT1 TRA 5.0 80-03-25 F1 O1111 UPD 80 01 18/CHST B > CLSBTH DISU DLCURR DLRCCH FREESP GTNEXT GTPREV OFRSP H B > HRDT RDACC RDDSA RECURR0 REFSP RFRSPHWR WRDS8 WRFSP WRIACC WRICUR WRTCO $$$TRAA @ < CLSBTH
0x16a474…16a608 Dummy {f00=0x0071, f01=0x018e, f02=»HWRD WRDSD _ WRFSP WRIACC` WRICUR- W WRTCO B > CONDE DEPOOLR GETFRER MASKA READDKD RETURNC SETFRER SETOCC : $ T:SWIT T:XSTAW WAIT_ WRITDK k % k *
0x16a608…16a79c Dummy {f00=0x0071, f01=0x0190, f02=» K k P T ( 8 ` H h X n h v " x x J F " D @0R f ? P RKj R4 0R f > R4 0R f > R4 @j0X L0R P 6
0x16a79c…16a930 Dummy {f00=0x0071, f01=0x0190, f02=»R h bC * )bC*< ^ k , < L k l | J F " D x 0R f C? V R R4 R0R f C? V RKj h x b )*C b <C* R4 Ic
0x16a930…16aac4 Dummy {f00=0x0071, f01=0x0190, f02=» _ R R# CR b s <C*j s)" R4 R CL n O , T < X - L a DS o _ n t - ~ J F " D @bC*< s j " s) R$ C R4 R V A` Lb " j $" RuV> R u j " " S _ S
0x16aac4…16ac58 Dummy {f00=0x0071, f01=0x0190, f02=» _ * S : J S l | J F " D "* u H` *?R R R ?R Ru?R _ Ru) L ?Rj " $ R :R 0 j " " _
0x16ac58…16adec Dummy {f00=0x0071, f01=0x0190, f02=» _ d j F ( n F 8 J F " D @ ` !"` b 1AiW-j " - R R R R R R_9 RW Ie Ae "_ *" H J F " D ! Ah R4 R 0R ` !( ! Ah R4 ! ! >
0x16adec…16af80 Dummy {f00=0x0071, f01=0x0190, f02=»j " R R R R R R d F " 2 B # R + b J F " D _a R_) +_% R 0R 4 ! ! ! R" V 0X_ " b )*C b <C* r Y y J F " D @ !4 "bC * )bC*< R& 4 @
0x16af80…16b114 (2, 74) Dummy {f00=0x0071, f01=0x40ba, f02=» R RCj "" R W R ( A I 'W n , < L 4 / - R R j " $j $" R R Ic ! R R4 " l @ r Y y J F " D @ !4 "bC * )bC*< R& 4 @
0x16b114…16b2a8 Dummy {f00=0x0071, f01=0x018e, f02=» @ H IDENT DKRUT2 TRA 5.0 - - F1 O1111 UPD 80-01-21/CHST , ( DELFMT ENTFMT NEXFMT OPCL PREFMT H $$$TRAR x 6 2 DELFMT ENTFMTN NEXFMTC OPCLM PREFMT @ < ALGOR CLOSEFT CMPIND COND- DEDISC1 DEPOOLD DISU1 DLRCCHT B >
0x16b2a8…16b43c Dummy {f00=0x0071, f01=0x0190, f02=» | $ ( 4 $ SYSFIL D * Z 4 j J F " D 2 RRRRH 0X_ A"T|A @c d!!"d!!o L j!0R f!C P 0R f!C @" 4 z L U X d
0x16b43c…16b5d0 Dummy {f00=0x0071, f01=0x0190, f02=» , ( 8 H J F " D Q h! R"! [ R3@ R4 H"#@" d!!"d! R!T R!!CT R"!C0R f!C R4 X ( PTS-DE
0x16b5d0…16b764 Dummy {f00=0x0071, f01=0x0190, f02=»` R#! RTjb " % j !! jz " ! A`j !'! R$! P A` RR$ ! ! A H M X Q h Y x _ u y J F " D @ R" T h R" RP h R& 0R f C 5@# d !W H` L@ R4 H#4@
0x16b764…16b8f8 Dummy {f00=0x0071, f01=0x0190, f02=» R& R#! T j ! ! R$! T 0R f C R4 j? " )(? x 6 H 0 X j * z " " J F " D ?Lj " '( ! ?0R * 6 LW > / p R4 R:R R !:R
0x16b8f8…16ba8c Dummy {f00=0x0071, f01=0x0190, f02=»jC L E J " ^ * b " : j J s FC Z H F " D @&" R" C?R W j "C$ U R !:RjC$" R" C * CLjC"" jC$" n " J
0x16ba8c…16bc20 Dummy {f00=0x0071, f01=0x0190, f02=» J F " D R" C:RH` _ LjC " _V A`_1Ab t 0R P v$ w Ib w4(v & X " h * x " " " * " J F " D R$C*:R v w w( R:R R!vCV ! L ?R ) v
0x16bc20…16bdb4 (2, 75) Dummy {f00=0x0071, f01=0x0190, f02=» & L * " * & : " J Z " j z J F " D C ?R R<R @c R$C*:R &j "C&fC * *jC&" " * @c RC:R R" C " "
0x16bdb4…16bf48 Dummy {f00=0x0071, f01=0x4092, f02=» )( ) )?Rj "C$jC " R" C:R R ! % R! C:R x F 6 $ H b "C L9 R !j "C$_! X |@ ?R R<R @c R$C*:R &j "C&fC * *jC&" " * @c RC:R R" C " "
0x16bf48…16c0dc Dummy {f00=0x0071, f01=0x0190, f02=» @ H IDENT DKRUT3 TRA 5.0 80-03-25 F1 O1111 UPD 80-01-21/CHST D @ ALGO DELTBL ENTSYS ENTTBL GETFMT GETSYS GETTBL NOFFRE H NXPRFMR SCHFMTA SFMTCH0 $$$TRAD @ < ALGOF DELTBLA o ENTSYS0 ENTTBL1 ; GETFMT8 GETSYSH 8 4
0x16c0dc…16c270 Dummy {f00=0x0071, f01=0x0190, f02=»POOD STRT01R WAITN * : F J x # l ' | , 1 : > J F " D v R:R RL '6 (t ]@c R$C*:RCa<R C[ R! C R
0x16c270…16c404 Dummy {f00=0x0071, f01=0x0190, f02=»!C( j !!C) R! V -?R t_Y n , < L J F " D j <C*j )*C ! ! R! CV R& _oj "C$j !! (_3 R$ R&q l F
0x16c404…16c598 Dummy {f00=0x0071, f01=0x0190, f02=» . > : N A T ^ J F " D 1 ! + R"%C?R R:R R!%CP C[ * !b| 1C 1 ! + ?RA`Wg p Q V X d
0x16c598…16c72c Dummy {f00=0x0071, f01=0x0190, f02=» , < T L ^ n _ ~ J F " D R! C<Rj "C$ R !<R & _ RLA%6 R:Rb "A! % L !?R
0x16c72c…16c8c0 Dummy {f00=0x0071, f01=0x0190, f02=» J F " D R!'CP L<R H`l CL R"'C:R " *j "C ( H`O R !:RjC " R"'C: R b J F " D R _ Ca R! C<R j !!C)*U !j "C$ !H` 1h r !C(!X _ ) r A E B M S c
0x16c8c0…16ca54 (2, 76) Dummy {f00=0x0071, f01=0x416a, f02=» *Hc R 0 J F " D R W R V ! L0W< "j " &h & &V! ! j " $ _E B J F " D )W &j " R4 "@c$ " Ac R R j " $j " * ` R4
0x16ca54…16cbe8 Dummy {f00=0x0071, f01=0x0190, f02=» @ H IDENT DKRUT4 TRA 5.0 80-03-25 F1 O1111 UPD 80-02-25/CHST B > DELBTC DELJOB ENTJOB GETJOB NEXJOB NXBTH NXJOB OPNEBC H & " OPNNBCR PREJOBA READJB0 SCHJOBF $$$TRA @ < DELBTCR DELJOBR ENTJOBH GETJOB1 6 NEXJOB- NXBTH 4
0x16cbe8…16cd7c Dummy {f00=0x0071, f01=0x0190, f02=» @ < RELEAS2 RETURN RFRSP SCHPOOP SFMTCH T:SWITH WAITH WRDS WRFSP H X h x # . 3 ; = J F " D A`Ad R:RAc
0x16cd7c…16cf10 Dummy {f00=0x0071, f01=0x0190, f02=» R } J F " D @:R *mj " &" pz R j " "j &" R :R * Lj "" j $" R@ * x JC m J F " D R :Rj " " Ru :Rj "u "j &" R
0x16cf10…16d0a4 Dummy {f00=0x0071, f01=0x0190, f02=» D $" *_zj $" R :R Lj "" R _(j " &" p _z R :Rj $" L : l J F " D R :R *_ j " j " & "ju " I` WY * ,j &" f , R R7" | C F J L
0x16d0a4…16d238 Dummy {f00=0x0071, f01=0x0190, f02=» u , ) R ) * : J Z J F " D ?Rj ! b !& b '&@ R) V5 ! ! R" :R R* s [j s)" Id j
0x16d238…16d3cc Dummy {f00=0x0071, f01=0x018e, f02=» JD & J F " D ?R R Ru) L ?R L?R R:R RVJ! L ) ?R W R !:R CLjC"" ( v " ' 0 5 :
0x16d3cc…16d560 Dummy {f00=0x0071, f01=0x0190, f02=» W Z _ * b : j L y J F " D @ @bT # R:R R! CV ! L ?R )?R Lb &C 0R Hb R_Cj " l J
0x16d560…16d6f4 (2, 77) Dummy {f00=0x0072, f01=0x0190, f02=» . > N ^ J F " D & b & ! R& R ?R L?RKa %_1Aa_ R R:R@c RCH H n
0x16d6f4…16d888 Dummy {f00=0x0072, f01=0x0190, f02=» Z ] u w , < J F " D @# *RnH`. $* j " $ Z R :Rj " &* *K ,H` b & ?R0R@T$ @ R L
0x16d888…16da1c Dummy {f00=0x0072, f01=0x4086, f02=» J F " D ! CR)j "C&" * LW Lb &C j "C$ 0 ) R4 j " "b & &4 p@ ?R0R@T$ @ R L
0x16da1c…16dbb0 Dummy {f00=0x0072, f01=0x0190, f02=» @ @ IDENT OK:SUB PRR 10.0 80-02-04 870136641000 OK:SUB VOLNAM H b ( ( 0OK? 0OUTPUT VOLUME NAME: v , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8
0x16dbb0…16dd44 Dummy {f00=0x0072, f01=0x4022, f02=» P @ R 10.0 80-02-04 870136641000 OK:SUB VOLNAM H b ( ( 0OK? 0OUTPUT VOLUME NAME: v , ( = C C R A " P A VOLNAM l , ( ] ( : : B 8
0x16dd44…16ded8 Dummy {f00=0x0072, f01=0x0190, f02=» @ @ IDENT DK2IPL PRR 10.0 80-02-04 870136641000 6 2 IPL121 IPL122 IPL123 IPL221 IPL222 IPL223 H IPL121 IPL221 IPL122 IPL222 IPL123 IPL223 , (
0x16ded8…16e06c Dummy {f00=0x0072, f01=0x0190, f02=» G. ] ] , ( S S S S % =A S S S * , ( . Z , ( N 0 N S , ( W P , ( X _ R R "( R
0x16e06c…16e200 Dummy {f00=0x0072, f01=0x4184, f02=» S t w E z QBLFAC , ( M % n : , , ( P #P ( B. , ( T P ' " P : P S P S P " `_" H D ! F v %P / 5 4 IT s $ }
0x16e200…16e394 (2, 78) Dummy {f00=0x0072, f01=0x0190, f02=» @ @ IDENT DK3IPL PRR 10.0 80-02-04 870136641000 6 2 IPL131 IPL132 IPL133 IPL231 IPL232 IPL233 H IPL131 IPL231 IPL132 IPL232 IPL133 IPL233
0x16e394…16e528 Dummy {f00=0x0072, f01=0x0190, f02=»; l , ( G. ] , ( ] S S S S % =A S S < , ( ! S . l , ( A N 0 N S , ( a W P , ( X
0x16e528…16e6bc Dummy {f00=0x0072, f01=0x018e, f02=» % R ' P % =B S , ( t w E M % t R Q @ , , ( ! Q R %| _B QBLFAC * ( A _& : H , ( _ P #P ( B. , ( T
0x16e6bc…16e850 Dummy {f00=0x0072, f01=0x407a, f02=» J H D ! M Q ] cW i P R U P P R. Q& /Q _P gP T T d@ v%| _B QBLFAC * ( A _& : H , ( _ P #P ( B. , ( T
0x16e850…16e9e4 Dummy {f00=0x0072, f01=0x018e, f02=» @ @ IDENT FLDIPL PRR 10.0 80-02-04 870136641000 IPL811 IPL812 IPL813 H IPL811 j IPL812 ~ IPL813 , ( t v @0 UU , ( ! 3 2P _ , ) , (
0x16e9e4…16eb78 Dummy {f00=0x0072, f01=0x0190, f02=» f , ( M % T S , ( . N 0 N 8 , ( S W h , ( P X _ R R " R R QBLFAC , ( ! & P ,
0x16eb78…16ed0c Dummy {f00=0x0072, f01=0x40ee, f02=»w j , ( E M T 1 E _ M @ p : : H D ! F %P / 5 4 IT s } $ < T @ < T " P 8 4 " W " P < - " =P EP _T T @ P ,
0x16ed0c…16eea0 Dummy {f00=0x0072, f01=0x018e, f02=» @ @ IDENT MFDIPL PRR 10.0 80-02-04 870136641000 IPL311 IPL312 IPL313 H IPL311 j IPL312 ~ IPL313 , ( "? UU 3 2P _ , ( ! , 5 T G. , (
0x16eea0…16f034 (2, 79) Dummy {f00=0x0072, f01=0x0190, f02=» f , ( . N 0 S , ( N S W 8 , ( P X _ R R h , ( "? R R h:B* S , ( ! R P S B J 4R 4 :B , ( A 4
0x16f034…16f1c8 Dummy {f00=0x0072, f01=0x412a, f02=» # j , ( P ( B. T P , ( ' " P : P S P S P : % `_" j H D ! 6 t P % 4 9T c ( m u y } D @ & W P 'P 9R OV SV aR P P
0x16f1c8…16f35c Dummy {f00=0x0072, f01=0x0190, f02=» @ H IDENT CRESUD TRA 5.0 80-03-19 F1 O1111 UPD 80-03-19/CHST CRESUD H $$$TRAE Z CRESUD l D @ CHVNAME CLOFILA CREFIL0 DECLRAF DSKERR OPENF RDSECT/ T:ATTF T:ERAS .
0x16f35c…16f4f0 Dummy {f00=0x0072, f01=0x018e, f02=» a0 g h " l 2 p k B q * R r b v r w { } J F " D @ L ( ! (_& !P !_> TL!DL !DL KM1XFA R2 RRR_ 1XF_ R0R f
0x16f4f0…16f684 Dummy {f00=0x0072, f01=0x0190, f02=» S J F " D !CMHP HIP R KL1XFA R2 RRR_ >L RJ YjB'!P!0X !% LjB&! jB(( & 1 t 2 0 2 0 2 J F " D K bB0&J LjB !!! LjB "> !DL jB "= !DL XjB ! ! WjB " W X
0x16f684…16f818 Dummy {f00=0x0072, f01=0x0190, f02=» $ & FILE " $ 6 & F NO. T $ h & x OF RECORDS: $ & ZZZZX " Y & &
0x16f818…16f9ac Dummy {f00=0x0072, f01=0x0190, f02=» & " NO. OF SECTORS/RECORD: $ < & L ZZX ^ " X r $ & & & [ ( : & [ USERDEFINEDO
0x16f9ac…16fb40 Dummy {f00=0x0072, f01=0x018e, f02=»NAME: $ & & K 0 & K > SIZE L $ ` & p OF RECORDS:O ~ $ & ZZZZX " W & BLOCKING FACTOR:
0x16fb40…16fcd4 (2, 80) Dummy {f00=0x0072, f01=0x4128, f02=» ( & [ $ NO. 2 $ F & V OF RECORDS:C d $ & ZZZZX " Y ( : 5 3 LjB " LjB " LjB " 0RB , ! 4 R) :_
0x16fcd4…16fe68 Dummy {f00=0x0072, f01=0x0190, f02=» 2 @ IDENT ASSRUT UPD 80-03-20/CHST D @ CHANFC CREVOL CREFIL DELFIL GETVOL COPYDD GETFRE CHVOL : J F " SURVEY UPDBOL UPDBIN SETB TESTB CLEARB MSKOUT RDSECT SETOCC D @ SETFRE VOLNAM ATTWB CMPIND GETIND RESTOR WRITDK
0x16fe68…16fffc Dummy {f00=0x0072, f01=0x0190, f02=» H F C W , ( A , * & 5 I:RT1 CREFIL CRFILE DELFIL d DLFILE , ( Q B '
0x16fffc…170190 Dummy {f00=0x0072, f01=0x0190, f02=» B n , ( D $ ' Y ' GETFRE > , ( _ P P <<HT _ R , ( R <A_ <A <a ^ <h = F F , ( " ) '_V CHVOL . , (
0x170190…170324 Dummy {f00=0x0072, f01=0x0190, f02=» PRVTOC , ( q ( ( T ( UPDBOL J UPDBIN ^ , ( & G r , ( F ' R : <<H SETB , ( P < :
0x170324…1704b8 Dummy {f00=0x0072, f01=0x0190, f02=» _> _D ~ RDSECT ( , ( BH & 9 & C 2 , ( 5 C C ( b SETFRE ` , ( S ( ( , ( o & X X P T Z0 , (
0x1704b8…17064c Dummy {f00=0x0072, f01=0x0190, f02=» p , ( & &9B %_ ( = RESTOR @ , ( _ _ & T GETIND , ( & ( : CMPIND . , ( !D" ' _ &
0x17064c…1707e0 Dummy {f00=0x0072, f01=0x0190, f02=» , ( s & C & C C ( CLOSEF 4 , ( B XR R_P W & Y < * C H OPENF x , ( _& , ( P ) B , ( & 9
0x1707e0…170974 (2, 81) Dummy {f00=0x0073, f01=0x4044, f02=»V P, T R ;U AQ UW W .@ @ , ( B XR R_P W & Y < * C H OPENF x , ( _& , ( P ) B , ( & 9
0x170974…170b08 Dummy {f00=0x0073, f01=0x416e, f02=» @ @ IDENT DUMEN2 PRR 10.0 80-02-04 870136641000 F B IPL111 IPL112 IPL113 IPL211 IPL212 IPL213 IPL411 IPL412 H IPL413 IPL111 IPL112 IPL113 IPL211 IPL212
0x170b08…170c9c Dummy {f00=0x0073, f01=0x018e, f02=» @ @ IDENT FILHND PRR 10.0 80-02-04 870136641000 CRFILE DLFILE H , ( b , ( ! , ( A CRFILE l , (
0x170c9c…170e30 Dummy {f00=0x0073, f01=0x0190, f02=» f , ( h A f A d Y A d A , ( f @ hW S 1 A d S 2 8 , ( P A f A : h FIRFC , ( ! R P # A R Q , ( ? ( B T ( B T C C , (
0x170e30…170fc4 Dummy {f00=0x0073, f01=0x0190, f02=» @ R 0 $ x , ( ' R T W $ T A L R , ( ( !LLP @ T A . A 0 R 1 R H , ( !* 8 A @ R 6! A >P A D A F @ . @ x ADDMOD , ( J 0 A . A 0S @ D @ F DSUMOD , ( ;
0x170fc4…171158 Dummy {f00=0x0073, f01=0x0190, f02=» Y4W R 6:B A A @ LP @ A > , ( UB @ A @ @ f A N @ f Y P @ f , , ( T A f @ @ @ f P Y , ( P @ @ A A A R , ( " A A A . A `9H A ^ , ( ) 1 A A A A
0x171158…1712ec Dummy {f00=0x0073, f01=0x0190, f02=» : @ ^:c A b A | , ( 2 A 4 A 6 A 8 @ A * @ A , A , ( D @ * @ , A * A , @ D L , ( E R 0 A . 0 A 0 @ . | , ( % T @ 0X" @ . @ 2R Q @ 0 @ 4R , ( UQ / @ . A 2 @ 0 A 4 @ . @ ZTQ @ 0
0x1712ec…171480 Dummy {f00=0x0073, f01=0x0190, f02=» A l , ( . @ A 0W T Q 1 Q Q , ( " P R A R @ A Z A @ ^ C < , ( B ( C @ X /T @ jT l , ( A j : W W : _ @ T , ( T / _ _ R @ A . @ A 0 !LL , ( !@ O P @
0x171480…171614 (2, 82) Dummy {f00=0x0073, f01=0x0190, f02=» A 2 A 4 @ B P A : P , ( T A < @ . @ 0 P P Q Q , , ( " @ 2 Q @ 4 1 P , ( IB A 2 0 A 4 A . A 0 @ f , ( H ) A . A 0 @ . @ 0 @ f , ( U! E A . A 0 @ 2 @ 4 @
0x171614…1717a8 Dummy {f00=0x0073, f01=0x0190, f02=»T Q Q @ 2 Q @ | , ( B 4 1 @ @ @ . @ 0 A A , ( U A 2 A 4 @ LP @ > @ @ @ . @ 0 L , ( @ A > A @ | , ( E A A @ : A j , ( ; : P . P @ LP
0x1717a8…17193c Dummy {f00=0x0073, f01=0x0190, f02=» @ l , ( X / R 6 P J S , ( T $ 1T P _ X` < , ( " _2 A : @ T @ l , ( B Q : " @ , ( ; @ K @ K @ . K @ , ( [ 0 K
0x17193c…171ad0 Dummy {f00=0x0073, f01=0x0190, f02=» . " R !LLP R , ( 6 K % R 4 K & K ( K ) ( @ , , ( X / : @ T @ , ( !R Q : " @ A , ( ; 2 A R @ d % @ R , ( [ R 2 R 1 % Y
0x171ad0…171c64 Dummy {f00=0x0073, f01=0x0190, f02=» @ H @ J @ f @ LP | , ( B @ N A H A J @ . @ HYXR @ , ( T 0 @ JYd @ : A H @ < A J @ d C L , ( * @ H A Z @ J A ( C @ | , ( 7 X / @ H @ J @ f @ LP @ , ( Q W N A H A J @ . @ HY`R @ 0
0x171c64…171df8 Dummy {f00=0x0073, f01=0x0190, f02=» l , ( @ 0 A @ : @ < BINACR < , ( @ . @ 0 N , ( " @ T A A ~ DLFILE F , ( 1 ( P @ : A , ( Q T @ T :
0x171df8…171f8c Dummy {f00=0x0073, f01=0x0190, f02=» " @ - ( , ( DD @ X / J A J A . J " , ( DP A 0 J A : J A < R @ R , ( ^9c A b @ b 0 A B , ( ) 1 0 A D @ BT @ D P @ :T P , ( * Q @ < r A D A F A @ @ B @ D
0x171f8c…172120 Dummy {f00=0x0073, f01=0x018e, f02=» @ . @ 0 r , ( Q 1 P A . 0 A 0 @ D @ F , ( @ @ @ T _ ] = ] ] r A B , ( ( D A F A @ P P @ . @ 0 r , ( UU + A B A D @ D @ F @ @ @ : @ B , ( U K @ < @ D @ : Q @ < Q _ , ( ID k
0x172120…1722b4 (2, 83) Dummy {f00=0x0073, f01=0x0190, f02=» , ( 9 VOLUME NAME FILE EXT , ( .NO EXTENT BASE EXTENT LENGT 4 ( H A d ( + $ K DELETED H D ! P P b P< W 5R ;Q KTH WT< oP uW Q H D !
0x1722b4…172448 Dummy {f00=0x0073, f01=0x4188, f02=» T^ R H D ! T T W W -T OPJ YT e 2 Rn W4 ~ T P H D ! X KP2 SP* YP P T T P T Q ? T P T !Q Z H D ! ? P R SP oR Q6 2 ; H D ! K Q T Z #
0x172448…1725dc Dummy {f00=0x0073, f01=0x0190, f02=» @ @ IDENT PRVTOC PRR 10.0 80-02-04 870136641000 PRVTOC H , ( 1 0 0VOLUME NAME: Z , ( ! DISC: , ( A 0FREE SPACE TAB ( ( a LE 0EXT BASE EXT LE
0x1725dc…172770 Dummy {f00=0x0073, f01=0x0190, f02=» FILE FI v ( ( LE FILE RECORD BLOCK LAST , ( FILE FILE CREATION RET INDE B , ( ! X KEY MONITOR SWITCH NAME r , ( A EXT BASE EXT LEN ORG LENGT , ( a H FACT REC NO SEC NO EXT NO D ( (
0x172770…172904 Dummy {f00=0x0073, f01=0x0190, f02=» ( - : PRVTOC . , ( C ( B : 2 A B FIRFC r * & D ! A B A R A R A CDISCT , ( ? P A * P A , A , ( @ Y "' R
0x172904…172a98 Dummy {f00=0x0073, f01=0x0190, f02=» 2 , 9 TO , ( A 4 4 I 2 Y " , ( )I $ 0 , A N R , ( , A F , A H " , A J @ J , ( @ 9 A >c A L C ( B , ( Y . B & A
0x172a98…172c2c Dummy {f00=0x0073, f01=0x0190, f02=» 4 | BIDACR $ , ( P YBW YL @ B 6 , ( PJ @ L f , ( R n : n , ( P 1 N F D J , ( B Q D
0x172c2c…172dc0 Dummy {f00=0x0073, f01=0x0190, f02=» J U !LLT J , ( " c J " k & , ( - U 8 U T U ZW - U d U l J V , ( 8 J ? J , ( ) J J J , ( G@ . J J
0x172dc0…172f54 (2, 84) Dummy {f00=0x0073, f01=0x0190, f02=» J & X v , ( H R p $ ! R ! , ( __Q Y . % Y p W A F , ( @ v , ( R & W 9 W W W : H D ! : cR$ i
0x172f54…1730e8 Dummy {f00=0x0073, f01=0x4008, f02=»@ X v , ( H R p $ ! R ! , ( __Q Y . % Y p W A F , ( @ v , ( R & W 9 W W W : H D ! : cR$ i
0x1730e8…17327c Dummy {f00=0x0073, f01=0x018c, f02=» . H IDENT C:CB40 TRA 5.0 80-03-27 F1 O1111 C:CB40 6 C:CB40C H & & p & = & [ & y & & & & & & -
0x17327c…173410 Dummy {f00=0x0073, f01=0x4008, f02=»@ NT C:CB40 TRA 5.0 80-03-27 F1 O1111 C:CB40 6 C:CB40C H & & p & = & [ & y & & & & & & -
0x173410…1735a4 Dummy {f00=0x0073, f01=0x018e, f02=» @ H IDENT WRIT12 TRA 5.0 80-03-10 F1 O1111 UPD 80-03-10/CHST REC1 REC2 RECSYS H $$$TRAI f REC1 REC2R e RECSYS x DSKERRI SETBT WRITDK I &0 I >0 I B0 J F " D
0x1735a4…173738 Dummy {f00=0x0073, f01=0x0190, f02=» y0 J F " D @^!L ^!j %" j '" j )"? 0R f! ?S:R4 L Y L!DL ( 0 h J F " D !W X " ! ! , P ! !DL z 0 J F " D (W " ! $!DL )W !
0x173738…1738cc Dummy {f00=0x0073, f01=0x0190, f02=» 0R ! !( Y ^ , b > J F " D @ ( j ! _V !# L L_ 0R f! ?SR& ! !P S S !( N 0 JC JD FC J F "
0x1738cc…173a60 Dummy {f00=0x0073, f01=0x4050, f02=» !W S% L !W S' L !j " 0R f! ?SZZ7 A6+ _e :@ L D @ ( j ! _V !# L L_ 0R f! ?SR& ! !P S S !( N 0 JC JD FC J F "
0x173a60…173bf4 (2, 85) Dummy {f00=0x0074, f01=0x018e, f02=» @ H IDENT DSKERR TRA 5.0 80-03-24 F1 O1111 UPD 80-03-24/CHST hAPP DSKERR H $$$TRAK ^ hAPP DSKERR p 4 0 CHANFCK CLOFILA DERR GETVOL4 T:DISP1 T:ERAS8 <
0x173bf4…173d88 Dummy {f00=0x0074, f01=0x018e, f02=» $ @ 4 B D J F " D 0X ! R R4 2 RRRRRRRRRRRRRRR "W #W &W + #4 _ j ! T D Y0 H N0 Y 10 ] 20 a 30 g0 0
0x173d88…173f1c Dummy {f00=0x0074, f01=0x0190, f02=» J F " D W T b_W Y Y0X ""_d)DL) W ! X ! ?Y T Q R 0 'g d x c J F " D P LW T X L ( Y Y0X ##_ 4 _ P R0X
0x173f1c…1740b0 Dummy {f00=0x0074, f01=0x018e, f02=» K 7 L 7 M 7 $ N 7 4 O * D P * T Q 7 d R 7 t S * U * ] c _ c i r w 7
0x1740b0…174244 Dummy {f00=0x0074, f01=0x018e, f02=» 0 0 & 7 8 % H / X * h J F " D 0X "" QPjB&!P!0R P0R CH ( 0X !!!ZL !ZL (HI ?R?R?R ( E ?R x c
0x174244…1743d8 Dummy {f00=0x0074, f01=0x0190, f02=» H 7 # ( + 8 3 H ; X ; h * x 7 7 * " 7 * 7 2 7 : 7 ? 7 J F
0x1743d8…17456c Dummy {f00=0x0074, f01=0x405a, f02=» 7 6 1 / @?R X X !U LY W ! Q _f Lj?RjP!!OP4 b k D@ V
0x17456c…174700 Dummy {f00=0x0074, f01=0x018e, f02=» @ @ IDENT CRVOL PRR 10.0 80-02-04 870136641000 CRVOL QBLFAC TOSREL H QBLFAC h | K J , ( - * ( W NU
0x174700…174894 (2, 86) Dummy {f00=0x0074, f01=0x0190, f02=» , ( SECTORS TOSS REL 10.0 , ( Z 8 , ( $ A D A D A D A h , ( D A [ : Z $ A D A , ( 7 D A D A D A [ , ( D W : Z $
0x174894…174a28 Dummy {f00=0x0074, f01=0x0190, f02=» : : , ( : < 2 C C ( ( , ( B & B .P " T X CRVOL , ( : A @ A @ A 2 & IPL811 IPL812 IPL813 * & 7 R ' P
0x174a28…174bbc Dummy {f00=0x0074, f01=0x0190, f02=»[+ l IPL411 IPL412 IPL413 , ( [h 4 &[4 4 P X . , ( rS S E &q+ ^ IPL111 IPL112 IPL113 , ( W R &? &@ X IPL121 IPL122 IPL123 * &
0x174bbc…174d50 Dummy {f00=0x0074, f01=0x0190, f02=» " $ &? &@ IPL211 IPL212 IPL213 " , ( / W R X & ( * D IPL221 IPL222 IPL223 t , ( @ I * L L P X , . 0 IPL231 IPL232 IPL233 , ( c 1g 1h P
0x174d50…174ee4 Dummy {f00=0x0074, f01=0x0190, f02=» ( B x , ( " P C C VOLNAM H , ( ( C 8 < Z , ( 2 C I I " C ( , ( ; ( C W B 9 , ( [ R ! T :
0x174ee4…175078 Dummy {f00=0x0074, f01=0x0190, f02=» C ' P ( z , ( C ( B R % R E R , ( E B N % Z J , ( R R E ( ( ( z , ( UU 9 A V A X A , A J A J , ( T Y A A 2 ,
0x175078…17520c Dummy {f00=0x0074, f01=0x0190, f02=» j , ( T B & B P , ( T @ J ) I : , ( * A J @ @ U Y j , ( $ 9 A @ Y A @_ A , ( H Y A @_ A @ A 2 , ( @ y .
0x17520c…1753a0 Dummy {f00=0x0074, f01=0x0190, f02=» P W T , ( T P W $ * , ( ( Y P _2 W Z , ( @ 9 T @ J A , ( Y @ T @ , ( y Q A 2 Q @ A
0x1753a0…175534 (2, 87) Dummy {f00=0x0074, f01=0x0190, f02=» P W T z , ( @ T P W , ( J $ Y P _2 J , ( 9 @ T @ U Q z , ( @ Y A @ Q A @W T P , ( H* y @ JV A ,
0x175534…1756c8 Dummy {f00=0x0074, f01=0x0190, f02=»Q j , ( R D H R Q W ,^` - , ( @ $ M _> H ,^| - ( M : , ( @ 9 _ @ Q ,^ ( M H j , ( Y - _" @ JQ ,^ $ M D BIDACR , ( y - _" A u :
0x1756c8…17585c Dummy {f00=0x0074, f01=0x0190, f02=» < 1 Q ~ , ( @ Q _* @ W @ , ( @ @ <Q 1 Q A @ N , ( 1 A @ 2 ~ , ( Q P T 0P 0 % % , ( A q @ Q _4 _ %
0x17585c…1759f0 Dummy {f00=0x0074, f01=0x0190, f02=» l , ( ( A @ A @ Q , ( U _ 2 % 2 < , ( - * % Y : 2 * l , ( M @ Q P * BA % DS % , ( m PO % T % 5 Y , (
0x1759f0…175b84 Dummy {f00=0x0074, f01=0x0190, f02=» " T ` A 9A D 2 , ( @ R V 2 , , ( - U A ]D 2 2 , ( M @ % % , ( @ m Z ) % % Z @ % @ , ( @ % @ %
0x175b84…175d18 Dummy {f00=0x0074, f01=0x0190, f02=» T . : | H D ! @ S V P T EP KP o P W P P 1Wf WP@ H D ! yP W T P T ; T I T SW [R _T i q ` H D ! P T Tv P& T 1U, P Wl P W H D ! T T P
0x175d18…175eac Dummy {f00=0x0074, f01=0x40c6, f02=» ! W W W W Qv QN Q* R R Q W EQ> gQ QT Q4 H D ! Q W Q UT YP( uQ T R Q U( UQ [Pl W T R L @ %V T @ P& T 1U, P Wl P W H D ! T T P
0x175eac…176040 Dummy {f00=0x0074, f01=0x0190, f02=» . H IDENT C:CB10 TRA 5.0 80-03-27 F1 O1111 C:CB10 6 C:CB10C H & & p & = & [ & y & & & & & & -
0x176040…1761d4 (2, 88) Dummy {f00=0x0074, f01=0x0190, f02=» ; & Y & w & 0 & @ & P & ` & p & + & I & g & & & & & &
0x1761d4…176368 Dummy {f00=0x0074, f01=0x0190, f02=» ) & G & e & 0 & @ & P & ` & p & & 7 & U & s & & & & &
0x176368…1764fc Dummy {f00=0x0074, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x1764fc…176690 Dummy {f00=0x0074, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x176690…176824 Dummy {f00=0x0074, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x176824…1769b8 Dummy {f00=0x0074, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x1769b8…176b4c Dummy {f00=0x0074, f01=0x0190, f02=» & & & ) 0 & G @ & e P & ` & p & & & & & 7 & U & s & &
0x176b4c…176ce0 Dummy {f00=0x0074, f01=0x0190, f02=» & & & 0 & 5 @ & S P & q ` & p & & & & & % & C & a & &
0x176ce0…176e74 (2, 89) Dummy {f00=0x0075, f01=0x0190, f02=» & & & 0 & # @ & A P & _ ` & } p & & & & & & 1 & O & m &
0x176e74…177008 Dummy {f00=0x0075, f01=0x018c, f02=» & & & 0 & @ & / P & M ` & k p & & & & & & & = & [ & y
0x177008…17719c Dummy {f00=0x0075, f01=0x4008, f02=»@ & & & 0 & @ & / P & M ` & k p & & & & & & & = & [ & y
0x17719c…177330 Dummy {f00=0x0075, f01=0x2008, f02=» L = DENTRY DATE = 80 -0 3- 1216PACK NBR = 0001 ? ? ? ?
0x177330…1774c4 Dummy {f00=0x0075, f01=0x0190, f02=» , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME 8 B P XCOPY STRG10A,W8,W2,WORK(W9),W0 FREESPACE-RECNR = PTR TO FMT b < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN P ADD DEBIN4,W10 4 P XCOPY S
0x1774c4…177658 Dummy {f00=0x0075, f01=0x0190, f02=» P MOVE DEBINW4,W0 P B FFST01 PRENEXT . 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT < P CBNE DEBIN5,W0,RDCHAIN r P PERF FREESP,DEBIN5,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 P PERF DISU,W2,DEBIN3,SYSBUF
0x177658…1777ec Dummy {f00=0x0075, f01=0x0190, f02=»NK TO PREV l . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY D PWRTFMT X P MOVE DEBIN3,PINDFR f , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION PNEGST P MOVE DEBIN2,W0 : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NE
0x1777ec…177980 Dummy {f00=0x0075, f01=0x018e, f02=»ERR RETURN PCOP 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0 SET LINK NEXT REC * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 V P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2
0x177980…177b14 (2, 90) Dummy {f00=0x0075, f01=0x0190, f02=» P B COP P* P* P* * P* 4 P* > PNEXFMT GET NEXT FORMAT H P SET SWIT03 h P* | P* PPREFMT P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRF
0x177b14…177ca8 Dummy {f00=0x0075, f01=0x0190, f02=» PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN " P MOVE RNRFMCH,DEBIN1 6 P MOVE PTRFMCH,DEBIN2 R P SUB PTRFMCH,W8 n PRRECNZ P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 P CBE D
0x177ca8…177e3c Dummy {f00=0x0075, f01=0x0190, f02=» " P XCOPY DEBIN1,W0,W2,SYSBUF,W6 P TBF SWIT03,RREC02 . P ADD PTRFMCH,W10 H P CBE PTRFMCH,DEBIN1,RREC03 ` PRREC07 P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05 & P XCOPY DEBIN5,W0,W2,SY
0x177e3c…177fd0 Dummy {f00=0x0075, f01=0x0190, f02=»CNY PRREC02 P CBL PTRFMCH,W20,RREC06 P SUB PTRFMCH,W10 : P B RREC07 R PRREC06 d P MOVE PTRFMCH,=W'190' r P MOVE DEBIN1,W2 P B RREC05 PRREC04 P ADD DEBIN1,W2 P MOVE STRG10A,=X'4600' & P COPY STRG10
0x177fd0…178164 Dummy {f00=0x0075, f01=0x0190, f02=» PDELFMT DELETE FORMAT P PERF WAIT & P BNOK RETURN 8 P MOVE STR6A,FORMAT L P CLEAR SWIT04 f P PERF SFMTCH,W4,SYSBUF,W10 | P BERR RETURN P MOVE PINACC,DEBIN1 . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC 4 P XCOPY D
0x178164…1782f8 Dummy {f00=0x0075, f01=0x0190, f02=»T OCC SPACE p P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 2 P PERF DLRCCH,SYSBUF H P BERR RETURN d PDELF1 x P PERF DISU,W2,PINACC,SYSBUF P MOVE DEBIN2,DEBIN3 P PERF DISU,W1,DEBIN2,SYSBUF P BERR RETURN P PERF ALGO
0x1782f8…17848c Dummy {f00=0x0075, f01=0x0190, f02=»SYSBUF,W4 | 0 P XCOPY SYSBUF,W0,W2,W0,W0 DESTROY ALGORITMH , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD F P BERR RETURN v P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 P PERF DISU,W1,DEBIN1,SYSBUF P BERR RETURN
0x17848c…178620 Dummy {f00=0x0075, f01=0x403c, f02=» P B DELF P* P PEND END ,@ 8H , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD F P BERR RETURN v P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 P PERF DISU,W1,DEBIN1,SYSBUF P BERR RETURN
0x178620…1787b4 (2, 91) Dummy {f00=0x0075, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x1787b4…178948 Dummy {f00=0x0075, f01=0x0190, f02=» @ @ IDENT T:DYKI P,PRR=4.1,79-04-09,870136940410 J F " T:DYKI T:PM1 T:PM2 T:CLR1 T:CLIT T:CLR2 T:IOER T:EKEY T:BELL H T:DYKI I:EVA7 , ( @ ' Y y , ( x C y
0x178948…178adc Dummy {f00=0x0075, f01=0x0190, f02=» T:CLRD , ( C Q " T X , ( ! X X ! x Y~ Y @ , ( _ X "@P B R y C B p , ( P 9 V _F9 V X ! T X !@ T:EKEY , ( X y C _d y C C X
0x178adc…178c70 Dummy {f00=0x0075, f01=0x0190, f02=» C _$ _ y | T:CLR2 ^ T:SCUW 0 * & Y @_6 x X@ X X # B , ( u C _. B ]d P C p , ( Q X8_H x XD @ Y c C y , ( XR X x x T:BEL
0x178c70…178e04 Dummy {f00=0x0075, f01=0x0190, f02=» T:LOFS I:EVA0 T:LOPS . , ( @H ( ( @ T:CLMI p , ( #H : B C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y
0x178e04…178f98 Dummy {f00=0x0075, f01=0x409c, f02=» ! @ v YTf a eR k B uT y Q T , P R P V 8 4 VV T P #Q( S P Q8 , 3 < MV SP J @ C _J + T:PM1 @ T:GRFC , ( ? . X 9 V ! P @ Y
0x178f98…17912c Dummy {f00=0x0075, f01=0x0190, f02=» @ @ IDENT T:UPDF P,PRR=4.1,79-04-09,870136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x17912c…1792c0 Dummy {f00=0x0075, f01=0x4034, f02=» =T P @ 070136940410 T:UPDF H T:UPDF Z T:GRFC n T:LOFS I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x1792c0…179454 (2, 92) Dummy {f00=0x0075, f01=0x0190, f02=» @ @ IDENT T:DUPL P,PRR=4.1,79-04-09,870136940410 T:DUPL T:DUPX H T:DUPL b T:GRFC v I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOF
0x179454…1795e8 Dummy {f00=0x0075, f01=0x0190, f02=» 2 P IDENT DRDY01 PRR 10.0 79-12-07 870105041000 P : 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING B P REL 10.1 79-10-19 z P =5,ABORT ROUTINE P REL 10.1 79-10-15 P =4,CORRECTION OF ERASE P REL 9.1 79-05-23
0x1795e8…17977c Dummy {f00=0x0075, f01=0x0190, f02=» 79-01-31 . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 P PRR 9.1 79-01-12 D P ` P* h 6 P************************************************** r P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRDY01 = DRIVER VIDEO AND GR
0x17977c…179910 Dummy {f00=0x0075, f01=0x0190, f02=» P* P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 V P* AND PTS 6386 6 P* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM P* VIA CHLT OR CHRT.
0x179910…179aa4 Dummy {f00=0x0075, f01=0x0190, f02=» : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE ( P* GENERAL KEYBOARD DRIVER DRKB01. B P* n P* x 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* & P* A C D Y ACTIVATION PART P* ( P* I H D Y I
0x179aa4…179c38 Dummy {f00=0x0075, f01=0x018e, f02=» P P P P* * P* THE FOLLOWING ORDERS ARE TREATED: & P* T P* ORDER 00: TEST STATUS ^ P* 05: BASIC WRITE " P* 06: STANDARD WRITE ( P* 07: WRITE GRAPHIC DISPLAY & P* 0B: CURSO
0x179c38…179dcc Dummy {f00=0x0075, f01=0x0190, f02=» p ( P* A2 = OUTPUT CHARACTER $ P* A3 = BUFFER INDEX 4 $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P* A7 = ORDER " P* A8 = ECB-A
0x179dcc…179f60 Dummy {f00=0x0075, f01=0x0190, f02=»CLOSUS01 P PERF COND RET " PEND . PSETUSE PROC < P XCOPY SECLEN,W0,W2,RBUF,W9 P P CBNE SECLEN,W0,SETCOP t P MOVE SECLEN,=W'399' PSETCOP P XCOPY DKBIN1,W0,W2,RBUF,W7 P CBNE DKBIN1,W0,SETNOZ P MOVE DKBI
0x179f60…17a0f4 (2, 93) Dummy {f00=0x0076, f01=0x0190, f02=»BINW4,W22 P MOVE BCD13A,=D'0' P B SETRET , PSETOKA MOVE USELEN,DKBIN1 > P SUB DKBIN1,W15 ` P MOVE MAXOCC,DKBIN1 x PSETRET P PERF COND P RET P PEND P EJECT PDUMPROC PROC FC P* PENTFMT E
0x17a0f4…17a288 Dummy {f00=0x0076, f01=0x018e, f02=»OVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN . P MOVE DEBIN5,W4 > PRDCHAIN V P MOVE DEBIN3,DEBIN5 f 0 P PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN P BNERR FST3 P CBE DEBINW4,=W'30',FFIRST P B RETURN PFST3 :
0x17a288…17a41c Dummy {f00=0x0076, f01=0x0190, f02=» , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME 8 B P XCOPY STRG10A,W8,W2,WORK(W9),W0 FREESPACE-RECNR = PTR TO FMT b < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN P ADD DEBIN4,W10 4 P XCOPY S
0x17a41c…17a5b0 Dummy {f00=0x0076, f01=0x0190, f02=» P MOVE DEBINW4,W0 P B FFST01 PRENEXT . 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT < P CBNE DEBIN5,W0,RDCHAIN r P PERF FREESP,DEBIN5,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 P PERF DISU,W2,DEBIN3,SYSBUF
0x17a5b0…17a744 Dummy {f00=0x0076, f01=0x0190, f02=»NK TO PREV l . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY D PWRTFMT X P MOVE DEBIN3,PINDFR f , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION PNEGST P MOVE DEBIN2,W0 : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NE
0x17a744…17a8d8 Dummy {f00=0x0076, f01=0x0190, f02=»NERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK(W9),DEBINW4 SAVE ERROR CODE P 8 P PERF DISU,W1,DEBIN2,SYSBUF READ FIRST FORMAT RECORD ~ P BERR RETURN P B DELF2 PCOP 4 P XCOPY SYSBUF,W4,W2,DEBIN4,W0
0x17a8d8…17aa6c Dummy {f00=0x0076, f01=0x0190, f02=»T01,CO10 P B FMTCHAIN PCO10 $ P MOVE DEBIN3,DEBIN2 0 P MOVE DEBIN1,DEBIN4 L P MOVE SYSBUF,=X'4600' h P B NEGST PNOMOREC P MOVE DEBIN4,W0 P SET SWIT01 P B COP P* P* P* P* P
0x17aa6c…17ac00 Dummy {f00=0x0076, f01=0x018e, f02=»ORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 8 P TBT SWIT03,RRECNX P P ADD PTRFMCH,W20 j PRRECNX P CBNE RNRFMCH,W0,RRECNZ P MOVE STR6A,FORMAT P PERF SFMTCH,W4,SYSBUF,W10 P BERR RETURN P MOVE RN
0x17ac00…17ad94 (2, 94) Dummy {f00=0x0076, f01=0x0190, f02=» P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 ( P CBE DEBINW4,=W'30',OUTOFRAN > P B RETURN b POUTOFRAN t P MOVE DEBINW4,W9 P MOVE RNRFMCH,W0 P B RETURN PRREC01 0 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 GET USED SPACE P
0x17ad94…17af28 Dummy {f00=0x0076, f01=0x0190, f02=» PRREC03 P MOVE DEBIN1,W4 PRREC05 . & P XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 < P CBE DEBIN5,W0,OUTOFRAN f P MOVE RNRFMCH,DEBIN5 P TBF SWIT03,RRECNY P MOVE PTRFMCH,W0 P B RRECNY PRREC02 P CBL PTRFMCH,W20,RRE
0x17af28…17b0bc Dummy {f00=0x0076, f01=0x0190, f02=» SUB PTRFMCH,W10 P B RREC07 PRREC06 * P MOVE PTRFMCH,=W'190' 8 P MOVE DEBIN1,W2 V P B RREC05 n PRREC04 P ADD DEBIN1,W2 P MOVE STRG10A,=X'4600' & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DE
0x17b0bc…17b250 Dummy {f00=0x0076, f01=0x0190, f02=»NOK RETURN P MOVE STR6A,FORMAT P CLEAR SWIT04 , P PERF SFMTCH,W4,SYSBUF,W10 B P BERR RETURN d P MOVE BIN16,DEBIN1 x . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBU
0x17b250…17b3e4 Dummy {f00=0x0076, f01=0x0190, f02=»T04 P PERF DLRCCH,SYSBUF P BERR RETURN ( PDELF1 < P PERF DISU,W2,BIN16,SYSBUF J P BERR RETURN l P MOVE DEBIN2,DEBIN3 P PERF DISU,W1,DEBIN2,SYSBUF P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 PDELF3
0x17b3e4…17b578 Dummy {f00=0x0076, f01=0x0190, f02=»DE ` PDELF32 P B RETURN PDELF2 * " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 8 0 P XCOPY SYSBUF,W0,W2,W0,W0 DESTROY ALGORITMH ^ , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEB
0x17b578…17b70c Dummy {f00=0x0076, f01=0x4088, f02=»ELF3 z P PERF RFRSP,DEBIN1,W1 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 * P B DELF P P* ` P PEND j END x@ H ^ , P PERF DISU,W2,DEBIN2,SYSBUF FIRST RECORD P BERR RETURN P PERF RFRSP,DEBIN2,W1 PDELF P CBE DEB
0x17b70c…17b8a0 Dummy {f00=0x0076, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x17b8a0…17ba34 (2, 95) Dummy {f00=0x0076, f01=0x0000, f02=»
[…0xf…]
0x17d1e0…17d374 (2, 97) Dummy {f00=0x0077, f01=0x0000, f02=»
[…0x16…]
0x17f62c…17f7c0 Dummy {f00=0x0077, f01=0x0190, f02=»= 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS " . P* SET TO 0 IF IDENTIFICATION OKAY p 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC P MOVE DKBIN3,W0
0x17f7c0…17f954 (2, 100) Dummy {f00=0x0077, f01=0x4148, f02=»E DKBIN1,W6,XCALGO P IB FC C P ALTO C , P ALFRO > PALTO N " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 Z P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P RET PNOERR
0x17f954…17fae8 Dummy {f00=0x0077, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x17fae8…17fc7c Dummy {f00=0x0077, f01=0x0190, f02=» & & ( & , ' JOB < $ ' P ( NAME ` $ ( t & : & !A & k ( ) * BATCH $ * + NAME
0x17fc7c…17fe10 Dummy {f00=0x0077, f01=0x0190, f02=» ( - . DEVICE $ . 6 & : F & e T & # f & v / FILE $ / & - 0 NAME $ 0 & : & @ & $
0x17fe10…17ffa4 Dummy {f00=0x0077, f01=0x4058, f02=» O & T ( b!j !!Nb?R )?R2 $ B@ T e T & # f & v / FILE $ / & - 0 NAME $ 0 & : & @ & $
0x17ffa4…180138 Dummy {f00=0x0077, f01=0x2008, f02=» kB " mB l P $ z & : @ T A T { T R X( Q Ak % Ak 2 Al Al Al Al Al _R @k Q T~ { Tv RpXn Tf P ;d P , ;d P , % P , Ak 6 Al V Al V Al V Al _ Q z T R ZQ Ak _ W
0x180138…1802cc Dummy {f00=0x0077, f01=0x0190, f02=» F X FC PTS-DE SYSFIL 0 t v0 4 j " )( 4j " '( ! 0 * 6 ;W e / s 4 : m `!: )`W} d$ bd !bUV ! 15? jc "U&#c21j " b "&m j (" ) bUc* c*jU&"c "dU? b W
0x1802cc…180460 Dummy {f00=0x0077, f01=0x0190, f02=»P % =B S z , ( t w E M % t R Q @ , ( ! Q R %| _B J QBLFAC z * ( A _& : H , ( _ P #P ( B. , ( T P ' " P : P
0x180460…1805f4 (2, 101) Dummy {f00=0x0078, f01=0x4066, f02=» ] cW i P R U P P R. Q& /Q _P gP T @ P@ b
0x1805f4…180788 Dummy {f00=0x0078, f01=0x0190, f02=» . @ IDENT FLDIPL 79-10-16 POHO IPL811 IPL812 IPL813 6 IPL811 X IPL812 l IPL813 , ( t v @0 UU , ( ! 3 2P _ , ) , ( A T
0x180788…18091c Dummy {f00=0x0078, f01=0x0190, f02=» % T S , ( . N 0 N $ , ( S W T , ( P X _ R R " R R QBLFAC , ( ! & P , ( ? #P
0x18091c…180ab0 Dummy {f00=0x0078, f01=0x40da, f02=» E M T 1 E _ M @ p : & H D ! F %P / 5 4 IT s } $ < T @ < T " < 8 4 " W " P < - " =P EP _T T @ P , ( ? #P
0x180ab0…180c44 Dummy {f00=0x0078, f01=0x0190, f02=» . @ IDENT MFDIPL 79-10-16 POHO IPL311 IPL312 IPL313 6 IPL311 X IPL312 l IPL313 , ( "? UU 3 2P _ , ( ! , 5 T G. , ( A G K. A ;A;
0x180c44…180dd8 Dummy {f00=0x0078, f01=0x0190, f02=» . N 0 S , ( N S W $ , ( P X _ R R T , ( "? R R h:B* S , ( ! R P S B J 4R 4 :B , ( A 4 R : V V 49B R
0x180dd8…180f6c Dummy {f00=0x0078, f01=0x4116, f02=» ( B. T P , ( ' " P : P S P S P & % `_" V H D ! 6 t P % 4 9T c ( m u y } l D @ & W P 'P 9R OV SV aR P P T
0x180f6c…181100 Dummy {f00=0x0078, f01=0x0190, f02=» ' P* ( P RES 12 ( PSTACKB EQU *-REL-2 ( " P EJECT ( < P ( J P ( V P* ADDRESS TO PSW-ROUTINE * ( b P************************** ( P* ( PPSW EQU *-REL ( P DATA GETPSW ( P ( D P**********************************
0x181100…181294 (2, 102) Dummy {f00=0x0078, f01=0x0190, f02=» PSW IN STACK FOR CALLING SUBROUTINE * ( v D P**************************************************************** ) . P ) v PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0 P LD A2,2,A14 GET PSW FROM CALLING SUBROUTINE ) . P ST A2,6,A14 REPLA
0x181294…181428 Dummy {f00=0x0078, f01=0x018e, f02=» ) n & P* * * & P* SUBROUTINE-HANDLER * * 2 & P* * * & P********************************* * P * PSUBSUB EQU *-REL * " PSUBBA ST A10,MUL,A13 SAVE A10 * . P LD* A10,4,A14 GET
0x181428…1815bc Dummy {f00=0x0078, f01=0x0190, f02=» * b P STR A10,A14 PUT ON STACK + P LD A10,MUL,A13 RESTORE A10 + * P ABR* A14 + N P + ` P + h P + p < P******************************************************* + x < P* JUMP TO SYSLDM (FROM SYSLOD) ALWAYS VIA THIS MODULE * + < P****************
0x1815bc…181750 Dummy {f00=0x0078, f01=0x0190, f02=»****** + r ( P** ** , ( P** SAVE, AND COMMUNICATION AREA ** , : ( P** ** , f ( P************************************ , P , * PT:ATOD EQU *-REL T:ATAB 'OLD' ADDRESS , P DATA 0 , * P
0x181750…1818e4 Dummy {f00=0x0078, f01=0x0190, f02=»EL U:BTAB NEW ADDRESS , P DATA 0 - ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - . P DATA 0 - Z ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - j P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHANGE AFTER MOVE - P DATA 0 - 4 PMOVED EQU *-REL INDICATOR IF BLO
0x1818e4…181a78 Dummy {f00=0x0078, f01=0x0000, f02=»
[…0xf…]
0x183224…1833b8 Dummy {f00=0x0078, f01=0x0190, f02=» 4 , ) T G.G K. A ;A; G. ] $ ] S <% T V S @- S S < M % T S " . N 0 " N S W " P X _ R R <" R R "
0x1833b8…18354c Dummy {f00=0x0078, f01=0x0190, f02=»M T 1 E _ M @ p : 6 "? UU t 3 2P _ 4 , 5 T G.G K. A ;A; G. ( ] ] S S S S " :A S S S . N 0 S & N S W
0x18354c…1836e0 Dummy {f00=0x0078, f01=0x0190, f02=» 4R @ t w A I ! j : P #P ( B. T P ' " P : P S P S P % `_" . N 0 N S W P X _ R R " R R
0x1836e0…183874 (2, 105) Dummy {f00=0x0079, f01=0x0190, f02=» f * & A J A LW @ J @ L @ Z , ( T A J A L & " ( $ 2 A 6 , ( A A A Z Z : f , ( : C ( B , ( ? ' : _* , ( _ * 2 )
0x183874…183a08 Dummy {f00=0x0079, f01=0x0190, f02=» ( / : , ( D J L ( B & , ( B / : _> V , ( A * 2 P *_ , ( $ ? : A " ! R ( B R , ( _ T T W " T
0x183a08…183b9c Dummy {f00=0x0079, f01=0x0190, f02=» A @ P v , ( : B A P P B _p B , ( % P A j B P R F , ( * @ l @ n @ l @ v , ( A ; n @ j , ( $U W " : F _R @ l A @ n , (
0x183b9c…183d30 Dummy {f00=0x0079, f01=0x0190, f02=» R C I x , ( I " C C C ( ( , ( C W A ( B H , ( ' : ( B x FIRFC , ( 5 C R ! CDISCT , ( SB
0x183d30…183ec4 Dummy {f00=0x0079, f01=0x0190, f02=» Y 2 $ 2 , Y A v , ( @ v Y A J A L * , ( J 2 A A l A 2 Z , ( TU A A @ l A l A A l A n , ( * ) f @ J @ L @ @ , ( G T V P P W
0x183ec4…184058 Dummy {f00=0x0079, f01=0x0190, f02=» 2 A A R A A R , ( " A a R A A R A A A . , ( @ * 2 , $ ^ , ( Y $ TO R % " R , ( ' R , ( Y ( TO , ( G $ A | ( $ A N $
0x184058…1841ec Dummy {f00=0x0079, f01=0x0190, f02=» R A ~ , ( @ @ P<E J * Y A , ( F A H | A @ x ) @ N , ( N X B $ T ~ , ( % A $ A $ A $ A , ( E B $ A D $ A A
0x1841ec…184380 Dummy {f00=0x0079, f01=0x0190, f02=» n , ( % A ( , ( R _~ P > , ( * _ A A d A h A n , ( % r A f H ( @ B @ D A B , ( U@ C A D @ d @ f @ h @ r ( P , ( " c P
0x184380…184514 (2, 106) Dummy {f00=0x0079, f01=0x0190, f02=»UH A A @ P , ( * x A A 0 @ B A : @ D A < @ . * & T F R @ H A f @ F @ H ^ , ( ( ! A F A H @ f A , ( HR ? " $ J , ( _ L $ A $ A D
0x184514…1846a8 Dummy {f00=0x0079, f01=0x0190, f02=» @ T @ V @ T^ A Z z , ( R A @ P<H A R A , , ( H A 2 ( A 4 A f @ R @ 6 @ , ( U BQ R @ 8 @ DV Z A f @ 2 A * , ( UU ; @ 4 A , @ Z 2 J 4 L @ T , ( QR [ A A @ .
0x1846a8…18483c Dummy {f00=0x0079, f01=0x0190, f02=» A 2 A 4 @ 6 @ 8 @ | , ( V A 6 A 8 T @ V @ , ( * @ @ V A A @ " @ L , ( $ @ V A " A $ T @ V | , ( % / R @ VP @ T A _ 2 A J , ( UT O L @ Z F @ @ @
0x18483c…1849d0 Dummy {f00=0x0079, f01=0x0190, f02=» A 6 l , ( BQ A 8 Q @ VR @ f @ 2 I @ 4 , ( ) )W @ ) % @ A < , ( BB " $ l , ( JB ' _ @ " @ $ @ V A " A , ( E @ $ @ @ @ V A @ f @ , ( c 2 I
0x1849d0…184b64 Dummy {f00=0x0079, f01=0x0190, f02=» A 2 ( A 4 @ R @ 6 @ BQ R , ( R @ 8 @ DV Z A f @ z @ , , ( ) ~ P R @ @ , ( I # & @ T % A J L , ( C L A . A 0 "T $ , ( * c P J L
0x184b64…184cf8 Dummy {f00=0x0079, f01=0x0190, f02=» W n W W | , ( " W n W n W W W : L H D ! l X T4 P R P R W g Q r mPJ R ` H D !"` W P U U* W O oT P 9P QR* ]R cT iT H D !- kW oT w
0x184cf8…184e8c Dummy {f00=0x0079, f01=0x413a, f02=» !h0 T #T ' R4 P P TN WV P ]PJ cP" kQ H D ! yW Q W: Q W P R T R Q R )V T R L H D !@ T , )T /R 5P Q R W T P> R Q R V 3T ]T < 8 cP T P* W6 W W. W$ W
0x184e8c…185020 Dummy {f00=0x0079, f01=0x018e, f02=» @ @ IDENT FILHND PRR 10.0 80-02-04 870136641000 CRFILE DLFILE H , ( b , ( ! , ( A CRFILE l , (
0x185020…1851b4 (2, 107) Dummy {f00=0x0079, f01=0x0190, f02=» f , ( h A f A d Y A d A , ( f @ hW S 1 A d S 2 8 , ( P A f A : h FIRFC , ( ! R P # A R Q , ( ? ( B T ( B T C C , (
0x1851b4…185348 Dummy {f00=0x0079, f01=0x0190, f02=» @ R 0 $ x , ( ' R T W $ T A L R , ( ( !LLP @ T A . A 0 R 1 R H , ( !* 8 A @ R 6! A >P A D A F @ . @ x ADDMOD , ( J 0 A . A 0S @ D @ F DSUMOD , ( ;
0x185348…1854dc Dummy {f00=0x0079, f01=0x0190, f02=» Y4W R 6:B A A @ LP @ A > , ( UB @ A @ @ f A N @ f Y P @ f , , ( T A f @ @ @ f P Y , ( P @ @ A A A R , ( " A A A . A `9H A ^ , ( ) 1 A A A A
0x1854dc…185670 Dummy {f00=0x0079, f01=0x0190, f02=» : @ ^:c A b A | , ( 2 A 4 A 6 A 8 @ A * @ A , A , ( D @ * @ , A * A , @ D L , ( E R 0 A . 0 A 0 @ . | , ( % T @ 0X" @ . @ 2R Q @ 0 @ 4R , ( UQ / @ . A 2 @ 0 A 4 @ . @ ZTQ @ 0
0x185670…185804 Dummy {f00=0x0079, f01=0x0190, f02=» A l , ( . @ A 0W T Q 1 Q Q , ( " P R A R @ A Z A @ ^ C < , ( B ( C @ X /T @ jT l , ( A j : W W : _ @ T , ( T / _ _ R @ A . @ A 0 !LL , ( !@ O P @
0x185804…185998 Dummy {f00=0x0079, f01=0x0190, f02=» > @ IDENT I:MOV P,PRR=5.0,791206,870136940500 v I:MOV I:MVC v F I:MOV v I:MVC v n , ( $0#0;b P P P P v , ( ! 0 - P _ 4 V v , ( A W Q P ) P 9_ &" ! 9 :
0x185998…185b2c Dummy {f00=0x0079, f01=0x0190, f02=»V v p , ( 4! P < X 4 w , ( 9d $ & ! R + : w @ , ( V W R 4 0R Y 7 Y& w p , ( ! P Z,;D 9_8 8 _< V w , ( A W YL T 9 : &9d! + w , ( a
0x185b2c…185cc0 Dummy {f00=0x0079, f01=0x40d2, f02=» 9d! )0 + P 7 Y Z $ w _ : x 0 H D ! T P P PF P -P0 EQ GP OP gP kQ s R R R x H $ #P eP( {T WJ V P. P x x @ x A W YL T 9 : &9d! + w , ( a
0x185cc0…185e54 (2, 108) Dummy {f00=0x0079, f01=0x0190, f02=» > @ IDENT I:MUL P,PRR=5.0,791206,870136940500 y I:MUL I:SH1L y F I:MUL y ^ , ( V ) " T *V &V y p , ( ! : V S W P 9 S W _ y , ( A V P W T V E + y , ( a
0x185e54…185fe8 Dummy {f00=0x0079, f01=0x0190, f02=» [ y , ( P Z P [ 9a Z z ( , ( $" T 9d! P P [ Z w z X I:ADD z , ( [ P V H )_ z , ( _X z R z ! P 1` { z , ( / V (9h
0x185fe8…18617c Dummy {f00=0x0079, f01=0x4066, f02=» z l D @ @ TV %V 3P CV OW PP P6 P( P X R 'P aP oP sP { { P@ { b9d! P P [ Z w z X I:ADD z , ( [ P V H )_ z , ( _X z R z ! P 1` { z , ( / V (9h
0x18617c…186310 Dummy {f00=0x0079, f01=0x0190, f02=» > @ IDENT I:DIV P,PRR=5.0,791206,870136940500 | I:DIV I:SH1R | F I:DIV | ^ , ( " T *V &V | p ! P = | , ( ' ;@ R P W ;a | , ( G =a P " R & R
0x186310…1864a4 Dummy {f00=0x0079, f01=0x0190, f02=» [ [ $ [ [ | I:SUB } 0 * & QD } @ , ( z " ! ! R 2` { z } n , ( " P ! R 2` { 1 ! { [ } I:CPA } I:SH1L } , ( Z
0x1864a4…186638 Dummy {f00=0x0079, f01=0x0190, f02=» R [ _ } x , ( q Z ! Z $ ~ * & P Z %_N [ Q ~ H * & R [ Z { ~ v , ( z 9e! W Z ~ I:SH1R ~ , ( : V I _ , " -
0x186638…1867cc Dummy {f00=0x0079, f01=0x402a, f02=» Q* R W ~ @ & Z ! Z $ ~ * & P Z %_N [ Q ~ H * & R [ Z { ~ v , ( z 9e! W Z ~ I:SH1R ~ , ( : V I _ , " -
0x1867cc…186960 Dummy {f00=0x0079, f01=0x40da, f02=» > @ IDENT I:NTF P,PRR=5.0,791206,870136940500 I:NTFA F I:NTFA X , ( Z H D & H l $ ! D % [ ( 8 @ END ,PS P LDR* OP2A,WK1 P LD
0x186960…186af4 (2, 109) Dummy {f00=0x007a, f01=0x0190, f02=» > @ IDENT I:EDT P,PRR=5.0,791206,870136940500 F B I:EDT I:EDW I:ED1 I:EDSK I:EVT I:ETAB I:EXIT I:ETXT I:ECPY F D @ I:ECTR I:ESL I:ENL I:EOR I:ECW I:ECWC I:EFIL I:EFLA I:SCB I:FFSN I:EXPY , ( !!
0x186af4…186c88 Dummy {f00=0x007a, f01=0x0190, f02=»5 I:EVB I:EGTB I:EVI , I:EVA3 < I:EVA0 N * & AUT ` I:EVNO I:EPIC I:ESKI I:EBRI I:EBRB I:EBR * & Q T
0x186c88…186e1c Dummy {f00=0x007a, f01=0x0190, f02=» { 6 K K I:EDT . I:ED1 @ I:EDW R , ( K K V K : d I:EVA6 , ( * R B " V , ( V Z P 2 " T W , (
0x186e1c…186fb0 Dummy {f00=0x007a, f01=0x0190, f02=» 7 [ Z P I:EXIT n * , ( U $ [ V 7_ > , ( s Z $ Z 7 Z Z n I:FFSN , ( P $ : V P:BAS , ( R (Q
0x186fb0…187144 Dummy {f00=0x007a, f01=0x0190, f02=» J Q : I:EXPY . I:ECTR ( B , ( P 4 ! T _ P 4 W K V I:ESL 2 I:ENL < , ( + W W +_ K I:EOR R T:EDWF I:ECW
0x187144…1872d8 Dummy {f00=0x007a, f01=0x410a, f02=» g J K : V : 1 H D ! U Y [ e R g n i k 4 m < s p u 2 y < < ( H D ! P T W T W ; QP { P R Q P Qx Pn Th !PX t 0 , V 'WT / z 1WJ 5 8 7W ? R C N MW. [W yV @
0x1872d8…18746c Dummy {f00=0x007a, f01=0x0190, f02=» > @ IDENT I:EPIC P,PRR=5.0,791206,870136940500 I:EPIC F I:EPIC X I:EVA0 l : + ~ [ [ < , ( ! !AAP !TTT W !**T * [ R A
0x18746c…187600 Dummy {f00=0x007a, f01=0x0190, f02=»T j , ( *W FP . :T Z ! XBW *X& I:SCB : * & @ W :P # U 1 p !00T ; J , ( _ 9P F " X6# ; W x )0_: , ( J R Z R 4! P ;)0 , ( 9U ? Z
0x187600…187794 (2, 110) Dummy {f00=0x007a, f01=0x4122, f02=» } ++P !-- z ;$# + ^" _( " T tX. PT*AXYZ9 . H D ! ` %P +T /W 5T ?R EP KT OW S P Wn W8 Wf T H D ! T& W, P T W F W@ P U T P W R( R P U ; ?U mW qW
0x187794…187928 Dummy {f00=0x007a, f01=0x0190, f02=» > @ IDENT I:EDTE P,PRR=5.0,791206,870136940500 D @ I:EKIH I:EINH I:EVIN I:EBRI I:EBRB I:EBR I:ESKI I:EVNO F I:EGTD I:EGTB I:EKIH I:EINH I:ETAB I:EVIN , ( @
0x187928…187abc Dummy {f00=0x007a, f01=0x414e, f02=» ; W : ! )P9H # T &W I:EBR j , I:EBRB n > , ( Y &" :I : : P & R I:ESKI I:EVNO I:EGTD I:EGTB & " y _ &X _ : : : : 8 4 P
0x187abc…187c50 Dummy {f00=0x007a, f01=0x40ea, f02=» > @ IDENT I:EDS P,PRR=5.0,791206,870136940500 I:EDS F I:EDS V I:EVS2 h I:ED1 z , ( : { : & @ " P CF PS,I:ED1 EDIT OF S
0x187c50…187de4 Dummy {f00=0x007a, f01=0x0190, f02=» > @ IDENT I:STR P,PRR=5.0,800102,870136940500 $ I:INS I:DLT I:MCH I:CPY I:XCP F I:DLT n I:EVS1 I:MCH , ( @ P 9 _ , ( @ [ , (
0x187de4…187f78 Dummy {f00=0x007a, f01=0x0190, f02=»W R # P W v I:EVS2 , ( ) V E ( I:CPY X I:XCP j , ( W [ | , ( : Z !0P R 4 R :d" 8 R , ( ! :DW ! 9 R R _. :
0x187f78…18810c Dummy {f00=0x007a, f01=0x4010, f02=» " @ v I:EVS2 , ( ) V E ( I:CPY X I:XCP j , ( W [ | , ( : Z !0P R 4 R :d" 8 R , ( ! :DW ! 9 R R _. :
0x18810c…1882a0 Dummy {f00=0x007a, f01=0x4152, f02=» > @ IDENT I:EVS P,PRR=5.0,791206,870136940500 I:EVS1 I:EVS2 F I:EVA0 ` , ( A jP kT r I:EVS1 8 , ( T : & 9! " : $ : I:EVA2 I:EVS2
0x1882a0…188434 (2, 111) Dummy {f00=0x007a, f01=0x2008, f02=»
0x188434…1885c8 Dummy {f00=0x007a, f01=0x0190, f02=» 0 $$0 ""_N W W$ $ = ! A * & X 0 "#? ? X X ? ^" B . * & + ^"2 ? &8 ! b B * & I ! _ "P$ P!W P# P<4 !4 B * & g "4 #4 $4 4 8 I 6 B * & / 0 ! W(0 ! W!0 ! W
0x1885c8…18875c Dummy {f00=0x007a, f01=0x0190, f02=» 0 ! B p * & !_32 #@ 4 0 : , C * & "? o2 C < * & 9 B0 3 2 !W C j * & W 0 ( _ "0 0 2 ! C * & u W&0 A 6 *.RV C * & .W !@ 4
0x18875c…1888f0 Dummy {f00=0x007a, f01=0x0190, f02=»X Wd !0 ( 1 C ~ * & ?!0$ ?"0 0 % 0 D * & ) S 0% P 0& Q )L *P #4 D J * & G 0 0O $ % 0 0 9<# D x * & e 2 !$$%?! 2 !! #4 0 0 ? D ! !4 D * & % I ^ |
0x1888f0…188a84 Dummy {f00=0x007a, f01=0x415c, f02=» D t * & a W v E * & s N x E @ , ( = E n * & ] r 0123NY 'g E * & { 0 E 0 0
0x188a84…188c18 Dummy {f00=0x007a, f01=0x0190, f02=»P : [ [ eV & @%Z! P y4 Z y4 [ 6 [ Z 7 d Z 7 : ( :A ( @% " P ! P [ :;H 2 e e ;h g> : ; V Y : 2! : 6 2 gJW& " # g4;b ; :
0x188c18…188dac Dummy {f00=0x007a, f01=0x0190, f02=» 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! # K :
0x188dac…188f40 Dummy {f00=0x007a, f01=0x0190, f02=» _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z :$0#0;b k P P PF P 0 - P0 _ 4 V W Q P ) P 9_ &" ! 9 : & P Q j ,^ , < j
0x188f40…1890d4 (2, 112) Dummy {f00=0x007a, f01=0x0190, f02=» : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : y, &9d! + P( & T 9d! T 7 V Y " WJ Q V V 7 Y P._& & Q 9d! )0 + P 7 Y Z $ _ : V ) 0
0x1890d4…189268 Dummy {f00=0x007a, f01=0x0190, f02=» 6 y0 [ [ [ [ $ [ [ >h [ [ p j@ p j@ p g Z PP [ 9a Z $" T 9d! P6 P( [ Z w [ P p g V H )_ p m _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9
0x189268…1893fc Dummy {f00=0x007a, f01=0x0190, f02=»R P W ;a=a P " R & R V T W V E + : V & 6 y0 [ [ [ [ $ [ [ p j@ p j@ p g z " ! ! R 2` { z " P ! R 2` { 1 ! { [ Z p i Q p m
0x1893fc…189590 Dummy {f00=0x007a, f01=0x0190, f02=» p i R [ Z { p g z 9e! W Z : V I _ , " -! 9H X" ,9 -9d_ Z H D & H D % [ ( !! gg++ L 33 u&d d g u(g d eVu rJr rJr2u t u u r q r
0x189590…189724 Dummy {f00=0x007a, f01=0x0190, f02=» V Z P 2 " T W "@T '?W "? Hp@" K :e J J " J _Z Z q [ Z P : [ V y0 7_ Z r : Z 7 Z Z P : : V R (Q V : %j %j : p
0x189724…1898b8 Dummy {f00=0x007a, f01=0x0190, f02=» . H IDENT C:CB10 TRA 5.0 80-02-22 F1 O1111 C:CB10 6 C:CB10C H & & p & = & [ & y & & & & & & -
0x1898b8…189a4c Dummy {f00=0x007a, f01=0x0190, f02=» ; & Y & w & 0 & @ & P & ` & p & + & I & g & & & & & &
0x189a4c…189be0 Dummy {f00=0x007a, f01=0x0190, f02=» ) & G & e & 0 & @ & P & ` & p & & 7 & U & s & & & & &
0x189be0…189d74 (2, 113) Dummy {f00=0x007b, f01=0x0190, f02=» & 5 & S & q 0 & @ & P & ` & p & & % & C & a & & & & &
0x189d74…189f08 Dummy {f00=0x007b, f01=0x0190, f02=» & # & A & _ 0 & } @ & P & ` & p & & & 1 & O & m & & & &
0x189f08…18a09c Dummy {f00=0x007b, f01=0x0190, f02=» & & / & M 0 & k @ & P & ` & p & & & & = & [ & y & & &
0x18a09c…18a230 Dummy {f00=0x007b, f01=0x0190, f02=» & & & ; 0 & Y @ & w P & ` & p & & & & + & I & g & & &
0x18a230…18a3c4 Dummy {f00=0x007b, f01=0x0190, f02=» & & & ) 0 & G @ & e P & ` & p & & & & & 7 & U & s & &
0x18a3c4…18a558 Dummy {f00=0x007b, f01=0x0190, f02=» : : "0 - | , ( P $ T W %T : : . , ( = Y ( X $ Y X " Y X & Y X < . L , ( ] Y @ : Y : X : X ( . | , ( { T X & V H " V Y : X . T:CLDY . ! $ X :
0x18a558…18a6ec Dummy {f00=0x007b, f01=0x4108, f02=»P %P ) -P< 1 : . ^ H D ! 3WZ CP< EQ MP2 [R$ ]W a : e iT$ qW W P Tb W P@ / H D !$ T, T : P P* # 'P| CWh KP UT eTF i mP6 P b P / f < 8 P V T P P P #T 'W +T }T V / / @ /
0x18a6ec…18a880 Dummy {f00=0x007b, f01=0x0190, f02=» > @ IDENT T:ENIN P,PRR=5.0,791206,870136940500 0 T:ENIN T:ENI T:EVOU 0 F T:ENIN 0 f T:ENI 0 z , ( X Y " X Y $ X Y & X @W X 0 T:LOFS 0 , ( ! < Y = " 0 I:EGTB
0x18a880…18aa14 (2, 114) Dummy {f00=0x007b, f01=0x0190, f02=» X (P 0 n T:WRDY 1 , ( W X & V D ! P @ W X 1 , ( W Y ( : X , Y X $ Y 1 P , ( X &T Y Y Y W V $ 1 , ( :H D Y D :H Y ! P V 1 I:EVA0 1 I:EVA1 1 , (
0x18aa14…18aba8 Dummy {f00=0x007b, f01=0x411a, f02=» 1 , ( Q : 2' " P T 2 I:EVA3 2 8 I:EPIC 2 J , ( mD W : N : 2 H D ! W CT IW SP a mT" }T W4 W, P W" P W W T WD 2 ( $ P W )P /W A X aP gT qW 2
0x18aba8…18ad3c Dummy {f00=0x007b, f01=0x4144, f02=» > @ IDENT T:SETC P,PRR=5.0,791206,870136940500 3 T:SETC T:SCUR 3 F T:SETC 3 ` T:GRFC 3 t T:EDWI 3 T:RCTS 3 T:SCUR 3 , ( A C 3 T:WRDY 3
0x18ad3c…18aed0 Dummy {f00=0x007b, f01=0x40e2, f02=» > @ IDENT T:CLMI P,PRR=5.0,791206,870136940500 4 T:CLMI 4 F T:CLMI 4 X , ( "0P ' Q W ' 4 l ! Y : 4 P Q W 4 ( 4 @ 4 2,OP2A CLEAR LOOP P ADKL OP2A,1
0x18aed0…18b064 Dummy {f00=0x007b, f01=0x0190, f02=» > @ IDENT T:ATTF P,PRR=5.0,791206,870136940500 5 J F " T:ATTF T:DETF T:ROK T:RNOK T:RCR T:RCTS T:RTES T:GRFC T:WRDY 5 F T:CLDY 5 T:DETF 5 T:ATTF 5 I:EVA6 5 I:FFSN 5 , ( W
0x18b064…18b1f8 Dummy {f00=0x007b, f01=0x4100, f02=» < V E B 5 ~ T:RNOK < 6 T:GRFC @ 6 2 T:WRDY H 6 F T:EDIO 6 Z * & ; X _ v : C C 6 l T:CLDY 6 $ Y @ : C : 6 @ W @ 6 l 6 @ 6
0x18b1f8…18b38c Dummy {f00=0x007b, f01=0x0190, f02=» > @ IDENT T:LSEG P,PRR=5.0,791206,870136940500 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 F T:LSEG 7 p T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x18b38c…18b520 Dummy {f00=0x007b, f01=0x401a, f02=» f 8 @ 8 G P,PRR=5.0,791206,870136940500 7 & " T:LOFS T:LOPS T:LSEG T:CSEG 7 F T:LSEG 7 p T:CSEG 7 , ( ( R : V E V D ' 7 , ( ! $ T ( W P 7 I:RT1 7
0x18b520…18b6b4 (2, 115) Dummy {f00=0x007b, f01=0x4146, f02=» > @ IDENT T:DC00 P,PRR=5.0,791206,870136940500 9 DCREAD DCWRTE DCEXCH 9 F T:FDS0 9 h DCREAD 9 z T:DCR1 9 DCWRTE 9 T:DCW1 9 DCEXCH 9 T:DCE1 9 , ( I$
0x18b6b4…18b848 Dummy {f00=0x007b, f01=0x40aa, f02=» > @ IDENT T:SWI0 P,PRR=5.0,791206,870136940500 : SWITCH : F T:SWIT : X SWITCH : j @ : ~ : @ : OUTINE ENTRIES * . P* * . P******************
0x18b848…18b9dc Dummy {f00=0x007b, f01=0x40da, f02=» > @ IDENT T:TEI0 P,PRR=5.0,791206,870136940500 ; TESTIO ABORT ; F T:TEST ; ^ TESTIO ; p T:ABOR ; ABORT ; H ; ; @ ; * . P******************
0x18b9dc…18bb70 Dummy {f00=0x007b, f01=0x40de, f02=» > @ IDENT T:CLO0 P,PRR=5.0,791206,870136940500 < SETTIM GETTIM < F T:SETT < ` SETTIM < r T:GETT < GETTIM < H < < @ < * . P******************
0x18bb70…18bd04 Dummy {f00=0x007b, f01=0x40a6, f02=» > @ IDENT T:DEL0 P,PRR=5.0,791206,870136940500 = DELAY = F T:DELA = V DELAY = h @ = z = @ = SUBROUTINE ENTRIES * . P* * . P******************
0x18bd04…18be98 Dummy {f00=0x007b, f01=0x40aa, f02=» > @ IDENT T:GTI0 P,PRR=5.0,791206,870136940500 > GETTID > F T:GETI > X GETTID > j @ > ~ > @ > OUTINE ENTRIES * . P* * . P******************
0x18be98…18c02c Dummy {f00=0x007b, f01=0x0190, f02=» > @ IDENT T:DC P,PRR=5.0,791206,870136940500 ? 6 2 T:DCRE T:DCR1 T:DCWR T:DCW1 T:DCEX T:DCE1 ? F T:DCRE ? T:FDSP ? T:DCR1 ? T:DCWR ? T:DCW1 ? T:EDIO ? , ( @@ /
0x18c02c…18c1c0 Dummy {f00=0x007b, f01=0x40ca, f02=»:EVA0 ? , ( 7 ' / C @ , ( Q$ C @ > & " k &P C & C : @ n V W V 1 V @ @ @ @ T:DCW1 ? T:EDIO ? , ( @@ /
0x18c1c0…18c354 (2, 116) Dummy {f00=0x007b, f01=0x40b6, f02=» > @ IDENT T:SWI P,PRR=5.0,791206,870136940500 A T:SWIT A F T:SWIT A X I:RT1 A l ( A | A @ A IT EQU * P LDK A7,0 " P SU PP,CSB,TCA GET RELATIVE PP P LKM
0x18c354…18c4e8 Dummy {f00=0x007b, f01=0x4174, f02=» > @ IDENT T:TEI P,PRR=5.0,791206,870136940500 B T:TEST T:ABOR B F T:TEST B ` T:FDSP B t I:RT1 B T:ABOR B * & @ "R V I B T:KIAA B , ( ( T
0x18c4e8…18c67c Dummy {f00=0x007b, f01=0x4114, f02=» > @ IDENT T:CLO P,PRR=5.0,791206,870136940500 C T:SETT T:GETT C F T:SETT C ` I:EVA0 C t I:RT1 C T:GETT C * & @ ( C " ( _ C .
0x18c67c…18c810 Dummy {f00=0x007b, f01=0x40d0, f02=» > @ IDENT T:DEL P,PRR=5.0,791206,870136940500 D T:DELA D F T:DELA D X I:EVA0 D l I:RT1 D ~ ( $ @ ( D D @ D SET ERROR CODE P ABL I:ERR ERROR PRINT PDE
0x18c810…18c9a4 Dummy {f00=0x007b, f01=0x40cc, f02=» > @ IDENT T:MSK0 P,PRR=5.0,791206,870136940500 E MASK E F MASK E V I:EVA0 E h I:RT1 E z ( $ D V E E @ E K010 NOT BINARY P XIF P $ P LD WK2,STKB,TCA
0x18c9a4…18cb38 Dummy {f00=0x007b, f01=0x0190, f02=» 0 @0 1r 1r @0 TT @0 U QF A/ Q8 A/ W. T P: @. . V2 A. @0 1r 1r / ( 6. / ( 7H W W W W W < : A/ A/ @/ . / @. Qv @. QN $ (Q*R D H R Q W / ^` - $ M _> H / ^| -
0x18cb38…18cccc Dummy {f00=0x007b, f01=0x0002, f02=»
0x18cccc…18ce60 Dummy {f00=0x007b, f01=0x000c, f02=» HEND =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x18ce60…18cff4 (2, 117) Dummy {f00=0x007c, f01=0x2008, f02=» =DILINK HSCR /L A=DILINK HMOV DILINK,/L 4 HRUN PDISC,0 A=DILINK J $ HOPT OUT=@A,FC=F4,FT=A,INP=DILINK f H$PDISCE P=DILINK * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x18cff4…18d188 Dummy {f00=0x007c, f01=0x2008, f02=» OF ALTERNATIVE 1,2 AND 3 IS VALID, 0 HMES AND AT LEAST ONE OF THEM MUST BE CHOOSEN 2 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED f HEND * HMES ILLEGAL PARAMETER COMBINATION !!! * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1
0x18d188…18d31c Dummy {f00=0x007c, f01=0x0190, f02=» t v UU v 3 2P _ 4 , ) T G.G K. A ;A; G. $ ] ] S S S S % =A S S S . N 0 " N S W P X _ R R "( R
0x18d31c…18d4b0 Dummy {f00=0x007c, f01=0x0190, f02=» % n :@ P #P ( B. T P ' " P : P S P S P " `_" .^R _ P 0 / . : ; [ [ [ [ B@ > > ' > > d > %? v t v
0x18d4b0…18d644 Dummy {f00=0x007c, f01=0x0190, f02=» S S % =A S S S . N 0 N S W P X _ R R "( R B 0 R _ <d?d U ?e R P S ?C/ G O % R ' P % =B S t w E M % t
0x18d644…18d7d8 Dummy {f00=0x007c, f01=0x0190, f02=»E(W3) v $ P MOVE FILECODE(W1),FILECODE(W3) $ P MOVE FINDEXPO(W1),FINDEXPO(W3) 6 P MOVE FFSNR(W1),FFSNR(W3) ^ $ P MOVE FNOOFREC(W1),FNOOFREC(W3) P MOVE FRINF(W1),FRINF(W3) " P MOVE F95PROC(W1),F95PROC(W3) P MOVE FCOUNTER(W1),W1
0x18d7d8…18d96c Dummy {f00=0x007c, f01=0x0190, f02=»******** t ( P* CHANGE VOLUME-NAME TO 'SYSVOL' * ( P************************************ < PC98 h P CALL CHANFC,DISK,FCOD2 t " P CALL CHVOL,DISK,SYSBUF,SYSVOL PC99 P RET P PEND P EJECT PDISKIO PROC FC,INDEX &
0x18d96c…18db00 Dummy {f00=0x007c, f01=0x0190, f02=»(W1),FNOOFREC(INDEX) P MOVE FRINF(W1),FRINF(INDEX) $ P MOVE F95PROC(W1),F95PROC(INDEX) @ P PERF DEDISC,FC h P RET P PEND P* P* PERROR P CBNE DEBINW4,W10,ERR90 . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL'
0x18db00…18dc94 (2, 118) Dummy {f00=0x007c, f01=0x0190, f02=»PY JOB:' P FINP 11 P FCOPY JOBNAME P FLINK FANSW 6 P FMEND J P* X PFORMT FRMT b P FSL t P FCOPY =C'COPY FORMAT:' P FINP 14 P FCOPY FORMAT P FLINK FANSW P FMEND P* PFANSW FRMT P FNL
0x18dc94…18de28 Dummy {f00=0x007c, f01=0x4152, f02=» P FCOPY HEX00 P FMEND P* & PSYSTEM FRMT 0 P FSL D $ P FTEXT 'COPY SYSTEMVARIABLES ?' P P FLINK FANSW x P FMEND P* PVALUE FRMT P FSL P FTEXT 'COPY VALUE-SET T' P FINP 17 P FMEL '99',BCD3A
0x18de28…18dfbc Dummy {f00=0x007c, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x18dfbc…18e150 Dummy {f00=0x007c, f01=0x4032, f02=» =T P @ .70136940500 T:UPDF F T:UPDF X T:GRFC l T:LOFS ~ I:EVA0 , ( @ 2! Y " T:LOPS I:MOV , ( A
0x18e150…18e2e4 Dummy {f00=0x007c, f01=0x018e, f02=» > @ IDENT T:DUPL P,PRR=5.0,791206,870136940500 T:DUPL T:DUPX F T:DUPL ` T:GRFC t I:EVA0 T:RNOK T:ROK T:DUPX , ( HB X T:LOFS
0x18e2e4…18e478 Dummy {f00=0x007c, f01=0x0190, f02=» p s v x . { > } " N ~ ^ J F " D @! jB((K jB0&J 0X !& R0RB % * 6 RH # ?R RH R#?R R,?R1XFA n D
0x18e478…18e60c Dummy {f00=0x007c, f01=0x0022, f02=» `+ -x- - - - - - - - - - . . .(
0x18e60c…18e7a0 Dummy {f00=0x007c, f01=0x0190, f02=»b B %VCR4 . D d D i D n D r zD v D z D } "D t 6 d P d $ T1 , r <# B
0x18e7a0…18e934 (2, 119) Dummy {f00=0x007c, f01=0x0190, f02=» B $ @ c B B : F0 F G H I J P V d l t
0x18e934…18eac8 Dummy {f00=0x007c, f01=0x0190, f02=» * B 0 0 0 0 0 ! d SYSVOLSYSVOLOUTPUT 2 $ 6 < N L
0x18eac8…18ec5c Dummy {f00=0x007c, f01=0x0190, f02=» : ( @
0x18ec5c…18edf0 Dummy {f00=0x007c, f01=0x0190, f02=» 2 B x X @
0x18edf0…18ef84 Dummy {f00=0x007c, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . `
0x18ef84…18f118 Dummy {f00=0x007c, f01=0x0190, f02=» B . > $ N ^ J F " D # ?R RH R#?R R,?R1XFA R2 RRR?R RJ FL1XFA R2 RRR?R R?R1XFA n B
0x18f118…18f2ac Dummy {f00=0x007c, f01=0x0190, f02=» J F " D R2 RRR?RjB(&I jB.&I jB5! !0RB % * $ <R?R R(?R1XFA R2 RRR B j z M P
0x18f2ac…18f440 Dummy {f00=0x007c, f01=0x0190, f02=»2 RRR_ LjB&! !jB'!P!0RB % * R ! <R?R R2?R0 | F : H " L M $ O Q l T ( | W Q & 6 1 / )PTS DATA-ENTRY UTILITIES PRR 1.0 800310* $ &
0x18f440…18f5d4 (2, 120) Dummy {f00=0x007c, f01=0x0190, f02=» $ & CREATE VOLUMEY $ < & L 2 = Z $ n & ~ CREATE FILEM $ & 3 = $ & DELETE
0x18f5d4…18f768 Dummy {f00=0x007c, f01=0x0190, f02=» COPY SYSFILM $ & , 5 = : $ N & ^ NOT USED l $ & 6 = $ & NOT USED $ &
0x18f768…18f8fc Dummy {f00=0x007c, f01=0x0190, f02=» $ & VOLUME SURVEY- $ < & L 9 = Z $ n & ~ NOT USED $ ( n & CREATE VOLUME- $
0x18f8fc…18fa90 Dummy {f00=0x007c, f01=0x018e, f02=» & & H & H ( VOLUME-NAME: 6 $ R & b & H t & H & TYPE: & X " ^! & $ S! & &
0x18fa90…18fc24 Dummy {f00=0x007c, f01=0x0190, f02=» h & & ( # &! - 3 (PTS-6876) 5 MB PACKEDE $ & P & ^ * % &# - 4 (PTS-6876) 5 MB UNPACKED2 l & & ( # &! - 5 (PTS-8863) MINI FIX DISCE & & & - 6
0x18fc24…18fdb8 Dummy {f00=0x007c, f01=0x4052, f02=» UD : CT OV $ ` <@ N
0x18fdb8…18ff4c Dummy {f00=0x007c, f01=0x4140, f02=» > @ IDENT T:GETC P,PRR=5.0,791206,870136940500 T:GETC F T:GETC X T:GRFC l I:EVA0 ~ , ( @ 2' R P P X I:RT1 , ( ' ' X _ X ' _ X '? ;
0x18ff4c…1900e0 Dummy {f00=0x007c, f01=0x4124, f02=» > @ IDENT T:GETA P,PRR=5.0,791206,870136940500 T:GETA F T:GETA X T:GRFC l I:EVA0 ~ T:RNOK T:ROK , ( H X ' X ! T:RCR H
0x1900e0…190274 (2, 121) Dummy {f00=0x007d, f01=0x410e, f02=» > @ IDENT T:TSTC P,PRR=5.0,791206,870136940500 T:TSTC F T:TSTC X T:GRFC l , ( @ X " 9b! X :c 2" ~ T:RTES $ H @ % , 4 @
0x190274…190408 Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:TFWD P,PRR=5.0,791206,870136940500 D @ T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T:TBWD T:THOM F T:TLEF T:TRIG T:TLDO T:TDOW T:TUP T:TFWD T
0x190408…19059c Dummy {f00=0x007d, f01=0x411a, f02=» Y 4 Y n T:TABE , ( ? 2 Y 69h Q X :h Y 0 W T:SCR2 P T:TABC b T:TABN t * & ] U X Q W Y 0 w 8 4 W W W W W W !W IQ YW ]U eQ kW
0x19059c…190730 Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:DISP P,PRR=5.0,791206,870136940500 T:PRIN T:DISP T:ERAS F T:PRIN h T:FDSP | T:EDWI T:GRFC T:GTIP , ( D 9H Y * T:DISP
0x190730…1908c4 Dummy {f00=0x007d, f01=0x0190, f02=» T:TABD , ( U P P Y +W Y + , ( u@ W T W Q W @ , ( Y + U Q P p T:TABC , ( BW W Y ( C T:RNOK I:RT1 * &
0x1908c4…190a58 Dummy {f00=0x007d, f01=0x411c, f02=» 2] X 8 Y 0 : X 0 :H* , ( ' : X 2T Y 2 : C 1 & T:EDIO V E B ] : h H D ! W !W GP2 KR UP [P cW^ g 8 s * yWL }T * W> Q W , ( U Q P W W P /T
0x190a58…190bec Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:GETF P,PRR=5.0,791206,870136940500 T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x190bec…190d80 Dummy {f00=0x007d, f01=0x4040, f02=» U 6 2 : $ U ^ *@ < T:GETF T:GTIT T:GTIP F T:GETF h T:TABC | * & X +! U 9K Y ( Y + T:TABN T:GTIT $ T:GRFC T:GTIP 4 , (
0x190d80…190f14 (2, 122) Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:REWR P,PRR=5.0,791206,870136940500 ! . * T:REWR T:SCUW T:CLRD T:IOWR T:CASP ! F T:IOWR ! x T:SCUW ! , ( C ( C : ! T:CLRD * ! T:REWR 0 ! , ( ! C B
0x190f14…1910a8 Dummy {f00=0x007d, f01=0x4148, f02=» D : K + Q ! | I:EVA3 " I:EPIC " . , ( } 2 P P " @ T:LOPS " p , ( ( B X # V : " I:EVA0 " I:ECPY " I:EVI " ( $ $ _0
0x1910a8…19123c Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:DEDT P,PRR=5.0,791206,870136940500 # . * T:TABC T:TABD T:TABE T:TABN T:SCR2 # F I:EVNO # x I:ESKI # I:EVA0 # I:EBRI # I:EBRB # I:EBR # , (
0x19123c…1913d0 Dummy {f00=0x007d, f01=0x0190, f02=» # z T:DSL $ I:EXPY $ * T:TABC ( $ < T:TABD , $ P T:TABE 0 $ d , ( ! W W X 0Q $ x T:EDWI $ I:EVT $ , ( 9 Y ( Y *P $ I:EDSK $
0x1913d0…191564 Dummy {f00=0x007d, f01=0x0190, f02=» T:LOPS $ , ( V _` " P T & % , ( (W " P Y 0] Y (_t % B T:EDWF % r * ( " X _. * X *# P B % , ( 1 *W " P X X$ C % T:SCR2 % T:SCUR % * &
0x191564…1916f8 Dummy {f00=0x007d, f01=0x40a0, f02=» Y ( : X (;n . % H D ! +W /W 7Q ; ? KP Qp P P: Vp P4 T WT P P W & P P +W 3T 7W & j T & @ &
0x1916f8…19188c Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:ENLI P,PRR=5.0,791206,870136940500 ' T:DNL T:DSL ' F I:EVNO ' I:ECPY ' n I:EPIC ' I:ETXT ' I:ETAB ' I:EBRI ' I:EBRB ' I:EBR ' * &
0x19188c…191a20 Dummy {f00=0x007d, f01=0x0190, f02=» ' I:ESKI ( . I:EXPY ( @ T:DSL ( ( R T:GRFC ( d T:DNL 6 ( v , ( ! " $ Y . Y ,W ( , ( 9 $ Y . X ( X ." P X 0R T ( T:WRDY ( , ( W Y *P
0x191a20…191bb4 (2, 123) Dummy {f00=0x007d, f01=0x4166, f02=» Q Y *T , : " P X 0U ( , ( X *# P P T " T : ) , T:ENIN ) , ( Y . . Y ( $ ) n , ( Y *T " T ! 1 W ! ) , ) : ) H D ! 6 # ( 5W KPV QRz ST$ [P aU
0x191bb4…191d48 Dummy {f00=0x007d, f01=0x0190, f02=» > @ IDENT T:EINP P,PRR=5.0,791206,870136940500 * " T:PKI T:PINP T:TKI T:TINP * F T:PKI * l T:PINP * ~ T:GRFC * I:ETAB * I:EVIN * , ( I P & * , ( Y *T
0x191d48…191edc Dummy {f00=0x007d, f01=0x018e, f02=» & V D ! P $ * | T:TINP + T:TKI + 0 , ( u ! P %_ : V + B , ( Y " X .9H $ P + r , ( & X ( " Q Y +Q R " P W + , ( " U Y , " Q X . X 0R P + , (
0x191edc…192070 Dummy {f00=0x007d, f01=0x0190, f02=» , ( O X # :! R W T @ Y , T:ENIN , 4 T:ENI , F I:EXIT , V , ( o (W Y , W Y ( , h , ( @ : X *:h X (! # P X & V , , ( L T W X , X 0P T , , ( X *:h
0x192070…192204 Dummy {f00=0x007d, f01=0x0190, f02=»Y , , ( ) Y 8 & X 8 X $ W _ - , ( G " P X ( T X & V H "@T - : * & g P V Y X (P - j T:CLMI - , ( X (P - , ( 8 Y 0 X 2P X 0V _z -
0x192204…192398 Dummy {f00=0x007d, f01=0x0000, f02=»
0x192398…19252c Dummy {f00=0x007d, f01=0x0190, f02=»HNUMBERRECORDCONFIRM VALUESETSYMBOLIC: XTTTT9 = . . : DELETED INSERTED + ON UNIT:U i + WITHIN JOB: k RECOVERY RUNNING. RECORD CORRECTION ; FREEZING OF BATCH l CONFIRM RECORD INSERT CONFIRM RECORD DELETE:
0x19252c…1926c0 Dummy {f00=0x007d, f01=0x0190, f02=»9 : AUTOMATIC SKIP/DUP *O N* FF* RECOVERY OF : k 8 : l RUNNING. ( ',!.%)$&"#-* # +0 4 ! + 6 B R d x / & N ) t@
0x1926c0…192854 (2, 124) Dummy {f00=0x007d, f01=0x0190, f02=» R k z F J N@ 2 A ! ~U ! 9& !0! !T J _ : I !_) _7j ! ! h~ !X8H !( @ h~ U !j~ ! ! !P !0! ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ( j ! ! ! 6 ? jy " $ j !! 1 j !!
0x192854…1929e8 Dummy {f00=0x007d, f01=0x0190, f02=» !W h ! !Z< ") ; j !! 1j !! 2$ * _b " % ? j !! 'I *A ( $j ! !0 ^ h^ !T f^ ! !j^ !U !j '! !j !! ( _N ( + ~UWhj !! ' !QU I N! 6 ! 8 9b ! W:0 ^ h^ U !P 8! 9j !!^ b ! f^ ! !A j ! !d^
0x1929e8…192b7c Dummy {f00=0x007d, f01=0x0190, f02=» - !"4 !!4 j !!^ ( !"4 9j ! j !! ( j (! ! _ f^ !0 ^ !j^ !U !!4 6 :W U j !!~ W j !! (W Uj ! j '!!! !j !!~ j (!~ _+( # j (! !j !!~ 4 ( &Ad1 An@m 6 0 _ @n_ ( !'( _&3 @d0 0} h
0x192b7c…192d10 Dummy {f00=0x007d, f01=0x0190, f02=» >j !# 'bc (c" 1? 1? 5 7 W' ## 3 ! 5 " 5 " " ! T T _< &? 1 An0= T !S 6 ," $ ! _ @n0= T !S0 ! _*a 0> S !4 >1 Ad # @d An@mAe@f 2 _ !0 #$} & 2 _,4 j 1! ! !j 2! ! 2 R
0x192d10…192ea4 Dummy {f00=0x007d, f01=0x0190, f02=» - 8 P ]AFNTX 2359T FTJBDATE:TIME:15 FILE-SPACE11 DATE AND TIME13 GET VALUE-SETS14 SYSTEM-VARIABLES12 CREATE VALUE-SETS999999XXE-XXE-XXXXE.XXE.XX T 0 * h d C F D E B C @ f ! A g T U
0x192ea4…193038 Dummy {f00=0x007d, f01=0x0190, f02=» f Hd ? ! 8T & ( !0 #$}? ) _ ! Eb "" " < $ U@f@e0 " An 2 _ ! 4 ! 7 5 W 6 " ! j " j $" Af0<~ 0 "P 0<~ j~#! ! ! !W !# 3Q* < 08 (+09 + ! !0 $$ %0$ 0 %%
0x193038…1931cc Dummy {f00=0x007d, f01=0x0190, f02=»eAf ! ! 0 %%In 0 $%Ao 2 W ) !Ao _ ! 8T !_ ! 8 ! ( TJ? ! & ! Db !# ~ " ~ T $ 08 (+? - !? &A $ 1 !2 _ ( T & % X 1 8 Ao _
0x1931cc…193360 Dummy {f00=0x007d, f01=0x0190, f02=» j !! 1j !! 2 !!4 1 W 3P W An 2 _ 4 4 ! ! ! P 2 _ 08 +1 0 ! !G! "?! !P ! " ! ! # !An@m 6 p _ 0 ! _7Hm_ #P Q 2 _ 03 6 A _ $Gv ?v !P "?v ! " ! $ & ! % 0 & $Xm 2 _ & $4
0x193360…1934f4 (2, 125) Dummy {f00=0x007e, f01=0x0190, f02=» 8 " L c N01020304050607080910A N T TT FILESIZEUSERFILEFREE %SYSTEMFILEVOLUME-NAME:15 FILE SPACEUSERFILE UNITNAME CONTENTS14 SYSTEM-VARIABLES XZZ9ZZZZ9 L M :U i K F G I J ! " # # H $ % # &
0x1934f4…193688 Dummy {f00=0x007e, f01=0x0190, f02=» X% ? @ ( X% @ @ ) X% A @ * U ! # % ' * . 2 : C M Y f s 0 Q Q '" ! $ & ! % 0 & $Xm 2 _ & $4
0x193688…19381c Dummy {f00=0x007e, f01=0x0190, f02=» h < ` d( !Ad1 An@m 6 6 W,@n_ ( "2( _!@j3 @ @d0 0} 4 h _= _< ! 4 6 Sfl{ W j ! Ii ! 5 W ) 5 m ,P ) ? 7j !& 'bc c b W 0) ! 3 $ r"? 7" v$ !r? 8 Tj *P ? 1? " Q$ FWK $ $< ?
0x19381c…1939b0 Dummy {f00=0x007e, f01=0x0190, f02=»/ !T; 6 MMMMMM~~MM~~MW|Iiy ! %n h / !T ,JWX ! %P h / ! 6 3 W1Ak_+ !" %% h / !T , W Hk ! c % c c _ & !? 0 %% 4? !6 (BRbr_ * ? + ? ,< j ! ! 5 @iW Ai? P ! 6 ? A ? ! 8 A ? @ ? <
0x1939b0…193b44 Dummy {f00=0x007e, f01=0x0190, f02=» =09 ,08 , $ ? r8 ( 2 0< 'h #Q !j , w j 1!w!Ii j 2! ! !j "" j $" mHj -P !2 _ &{ { )P !Ix 6 * ? &{ { *P !2 _ ({ P !2 _ -P !2 _ { + Ii 09 {$* p!0
0x193b44…193cd8 Dummy {f00=0x007e, f01=0x0190, f02=» " " " ! 2 0 "}H{ Ij 1 !6 H" W 09 {$*0 P _4 0 "}_? 1 !6 TT _P - PJ !6 ??_&Aj p! u # $ j $!! {1j #!! {2 $ #? &{ @jP { &{ W &{ @jP H{ m *" ! I{ ? ! & 4 0# 6 66f 666666666W 'J ( W He !Id
0x193cd8…193e6c Dummy {f00=0x007e, f01=0x0000, f02=»
[…0x1…]
0x194000…194194 (2, 126) Opaque[0x194]
0x194194…194328 # DirEnt {nam=»DILINK«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x0fc8, f03=0x0000}
0x194194…194328 IdxSect {
0x194194…194328 f00 = 0x007e // 0x194194 @0x0
0x194194…194328 f01 = 0x0022 // 0x194196 @0x2
0x194194…194328 gno = [ // 0x194198 @0x4
0x194194…194328 [0x00]: C0x007e.0x1.0
0x194194…194328 [0x01]: C0x007e.0x2.0
0x194194…194328 [0x02]: C0x007e.0x3.0
0x194194…194328 [0x03]: C0x007f.0x0.0
0x194194…194328 [0x04]: C0x007f.0x1.0
0x194194…194328 [0x05]: C0x007f.0x2.0
0x194194…194328 [0x06]: C0x007f.0x3.0
0x194194…194328 [0x07]: C0x0080.0x0.0
0x194194…194328 [0x08]: C0x0080.0x1.0
0x194194…194328 [0x09]: C0x0080.0x2.0
0x194194…194328 [0x0a]: C0x0080.0x3.0
0x194194…194328 [0x0b]: C0x0081.0x0.0
0x194194…194328 [0x0c]: C0x0081.0x1.0
0x194194…194328 [0x0d]: C0x0081.0x2.0
0x194194…194328 [0x0e]: C0x0081.0x3.0
0x194194…194328 [0x0f]: C0x0082.0x0.0
0x194194…194328 [0x10]: C0x0082.0x1.0
0x194194…194328 ]
0x194194…194328 }
0x194328…1944bc Dummy {f00=0x007e, f01=0x0190, f02=» *6CR1 3 D b XD g bD k zD o D s D v D { tD 0 6 d P d $ T1 , B r < B
0x1944bc…194650 Dummy {f00=0x007e, f01=0x0190, f02=» B $ @ c B B : F0 F G H I J P V d l t
0x194650…1947e4 Dummy {f00=0x007e, f01=0x0190, f02=» * B 0 0 0 0 0 ! d SYSVOLSYSVOLOUTPUT 2 $ 6 < N L
0x1947e4…194978 Dummy {f00=0x007e, f01=0x0190, f02=» : ( @
0x194978…194b0c Dummy {f00=0x007e, f01=0x0190, f02=» 2 B x X @
0x194b0c…194ca0 Dummy {f00=0x007e, f01=0x0190, f02=» n 6 > 0 L0 M0 O V . & & & & `
0x194ca0…194e34 (2, 127) Dummy {f00=0x007e, f01=0x0190, f02=» *
0x194e34…194fc8 Dummy {f00=0x007e, f01=0x0190, f02=» SYSVOL PTS-DE SYSFIL
0x194fc8…19515c Dummy {f00=0x007e, f01=0x0190, f02=»
[…0xd…]
0x1965e0…196774 (2, 129) Dummy {f00=0x007f, f01=0x0190, f02=»
[…0x6…]
0x1970ec…197280 Dummy {f00=0x007f, f01=0x0190, f02=» _51 A 2 _GjB'!P!jB(&H jB."& jB0! !jB1!!!jB2! !0 !10 B % * ~ " # #_ 3_ 1 A 2 _] : #? '6( -!D<$0 f!CKJT Y!D: X 0 f!C H_ #W 'W * H_ P0 C 4 0 4 0 f!C 0 f"C 0 f#C 4 1 A 2 _ !D< KL!D; KM
0x197280…197414 (2, 130) Dummy {f00=0x007f, f01=0x0190, f02=» 2 ? J F ? 1 A 2 ? jB(&I jB.&I jB5! !0 B % * $ < ? (? 1 A 2 ? ? 1 A 2 _ jB&! !jB'!P!0 B % * ! < ? 2? 0 !! 0 1 !0 Z !!4 /v lT3 747 4 3 3 3 5 w y2w lPk kdm v<xHwng k(jxk k k k k k k l2j eVk e 6 5T
0x197414…1975a8 Dummy {f00=0x007f, f01=0x0190, f02=» ~ ? s P :SF J T 1 =2 =3 =4 =5 =6 =7 =8 =9 =NEWFILEUSERINPUTNAME:DELETEOUTPUTSYSTEMUNIT: UNOT USEDPROGRAM:UNIT : UCOPY SYSFILCREATE FILEUSERDEFINEDVOLUME-NAME:CREATE VOLUMEVOLUME SURVEYCHANG
0x1975a8…19773c Dummy {f00=0x007f, f01=0x0190, f02=» 8 0 7 / [ ( $ 6 F 4 + E 2 H ( 1 $ $ ' K 5 . E
0x19773c…1978d0 Dummy {f00=0x007f, f01=0x0190, f02=»* $ % $ 1 $ 9 - Z 3 0 ( $ / , , 5 ! 4 " , 3 + E 2 H 2 H TYPE: ^! ,POSSIBLE TYPES - 1 (PTS-6875) 2.5 MB PACKED - 2 (PTS-6875) 2.5 MB UNPACKED - 3 (PTS-68
0x1978d0…197a64 Dummy {f00=0x007f, f01=0x0190, f02=» MB - 7 VACANT $- 8 (PTS-6879) 0.25MB FLEXIBLE DISC $- 9 (PTS- ) 1 MB FLEXIBLE DISC ! $ ' * - 1 5 : ? E K Q X ` h p {
0x197a64…197bf8 Dummy {f00=0x007f, f01=0x0190, f02=» E Q n Q2T- 3 . 3 . 3</ z } F C W Of 3 A3 } } } Of } ' 8 3 B 3 z } C } ( B T B $ ' Y } ' _ 4 P< P8 <<HT _ R <A_ <A <a
0x197bf8…197d8c Dummy {f00=0x007f, f01=0x0190, f02=»} B & % ( ( T ( H 3 } & G } F ' R : <<H P < : } } & 54 R P W W V V Q _> _D } } & 9 z } & C C C } ( ( (
0x197d8c…197f20 Dummy {f00=0x007f, f01=0x0190, f02=» %_ 6 ( = _ 6 _ } & } & } ( : } } ' } _ } & } U Z Q 5 _ _ W z } & C } } & C } & C C ( B XR R_P W & Y < * C _& z } } P )
0x197f20…1980b4 (2, 131) Dummy {f00=0x007f, f01=0x0190, f02=» A7 A7 A7 A7 A7 A7 8> P A7 @7 P B @7 : R !LLP< R 1 R 2 Y A8 A8 A8 Y A8 A8 @8 W S 1 A8 S 2 A8 A7 8 ;< : 7 7 # A7 R Q
0x1980b4…198248 Dummy {f00=0x007f, f01=0x0190, f02=» @7 : R 0 $' R T W $ T A7 R !LLP @7 T A7 A7 R 1 R 8 A7 R 6! A7 PJ A7 A7 @7 @7 [ A7 A7 S$ @7 @7 HY4 @7 A7 @7 A7 W : A7 A7 @7 @7 @8 [ A7 A7 @7 @7 H A7 A7 Y4W R 6:B A7 A7 @7 PZ @7 A7
0x198248…1983dc Dummy {f00=0x007f, f01=0x0190, f02=» . A7 9H A7 A7 A7 A7 A7 @7 P A7 A7 B A;: ( B < @;: C C @7 C ( C B / < : @7 :c A7 A7 A7 A7 A7 @7 A7 @7 A7 A7 @7 @7 [ A7 A7 @7 R < 0 A7 0 A7 @7 T @7 X" @7 @7 R Q @7 @7 R
0x1983dc…198570 Dummy {f00=0x007f, f01=0x0190, f02=» A7 @7 A7 @7 A7 @7 A7 W @ T^ Q 1 Q Q 7 R A7 @7 A7 A7 @7 C ( C @7 /T @8 T ? A8 : W W : _ @7 T _ _ R @7 A7 @7 A7 !LLPJ @7 T @7 @8 > P A7 P A7 @7 @7 @7 @7 H A7 A7 RnX W4 @7 @7 @
0x198570…198704 Dummy {f00=0x007f, f01=0x0190, f02=» A7 A7 @8 H A7 A7 @7 @7 @8 [ A7 A7 @7 @7 @8 H A7 A7 ^6 @7 @7 P P [ Q Q P A7 0 A7 @7 @7 @7 H A7 A7 T Q Q @7 Q @7 1 @7 @7 @7 @7 H A7 A7 A7 A7 @7 P @7 @7 @7 @7 H A7 A7 @ < <l <
0x198704…198898 Dummy {f00=0x007f, f01=0x0190, f02=»7 A7 2 C A7 @7 @7 < A7 A7 ( @7 / < 7 6 P J S T $ 1T P _ 7 X`_2 A7 : @7 T ? @7 < Q : 7 ? @7 E8 @7 K @7 K @7 K @7 K @7 K @7 K K K R 2 K R 1:H R K R !
0x198898…198a2c Dummy {f00=0x007f, f01=0x0190, f02=» : @7 T ? @7 < Q : 7 ? @7 ? A7 B* 2 A7 @8 % @7 R 2 R 1 % Y @7 A7 @7 A7 @7 @7 A7 A7 [ A7 A7 7 @8 C @7 A7 @7 A7 ( C @7 @7 @8 @7 P @7 [ A7 A7 @7 @7 YXR @7 @7 Yd @7 A7 @7 A
0x198a2c…198bc0 Dummy {f00=0x007f, f01=0x0190, f02=» @7 A7 @7 A7 : A7 @7 Q6 A7 EF EZ E8 AEJ ( Eb 9 AEf ( E E8 @7 0 AE @7 @7 E [ @7 @7 E [ 7 E @7 T E E8 E A AE ( 7 @7 : A7 B T @7 T : A7 A7 8 A7 T> ? @7 P.
0x198bc0…198d54 (2, 132) Dummy {f00=0x007f, f01=0x0190, f02=» J A7 J A7 B* R @7 9c A7 @7 E 0 AB 0 AB @B T @B E P @7 T P @7 C A7 A7 AB @B @B P P [ AB AB @7 @7 @B @7 @B Tr @7 @B Th P A7 P A7 A7 A7 AB P 0 @7 @7 [ Q 1 P A7 0 A7 @7 @7 @B T _ ]
0x198d54…198ee8 Dummy {f00=0x007f, f01=0x0190, f02=»C C > @7 I @7 ) @7 I @7 I C ( - : ER FILE En 9 VOLUME NAME FILE EXT.NO EXTENT BASE EXTENT LENGTH E A DELETED 1 0 0VOLUME
0x198ee8…19907c Dummy {f00=0x007f, f01=0x0190, f02=» OF ENTRIES USED 0VOLUME TABLE OF CONTENTS 0FILE FILE FILE FILE RECORD BLOCK LAST FILE FILE CREATION RET INDEX KEY MONITOR SWITCH NAME EXT BASE EXT LEN ORG LENGTH FACT REC NO SEC NO EXT NO DATE PE
0x19907c…199210 Dummy {f00=0x007f, f01=0x0190, f02=» : G C ( B L8 : G 2 AG AF@ AG R AG R AG P AF( P AF* AE G "' R$ Q ( B ' L< AE L@ AG G C C ( B & B & L< B L2 2 F , 9 TO 4 L@ 4 IF0 Y F G F
0x199210…1993a4 Dummy {f00=0x007f, f01=0x0190, f02=»G F G FN G Fb G 2 FJ 4P 4W 4P4 AF@ F [ 4 4 F~ [ Fz G YBW YL @F@ F Z @FJ F Z F G F G F G F n G G8 n G FL FD FB FH FB L G ( B . L2 B &
0x1993a4…199538 Dummy {f00=0x007f, f01=0x0190, f02=»Z - U 8 U T U ZW - U d U l J 8 Z J ? Z J J [ J J [ . J J [ J " Z J " ) Z E G " N G J !SST J % T Z J & X Z FF R p $ ! R !__Q Y . % Y p
0x199538…1996cc Dummy {f00=0x007f, f01=0x0190, f02=»G F G FN G Fb G 2 FJ 4P 4W 4L AF@ F 4 4 F~ Fz G YBW YL @F@ F L @FJ F F G F G F G F n G G8 n G FL FD M, FB FH FB G ( B . B &
0x1996cc…199860 Dummy {f00=0x007f, f01=0x0190, f02=» -FORMATTING THE DISC -CHECKING THE SECTORS TOSS REL 10.0 Z $ AN D AN D AN( D AN D AN* [ : Z $ AN" D AN& D AN D AN D AN$ [ : Z $ AN, D AN. D AN0 D AN4 D AN2 [ : M C C
0x199860…1999f4 (2, 133) Dummy {f00=0x0080, f01=0x0190, f02=» .P " T V : AN6 @ AM AM| Np R ' P P N ararbr N> M P N c6d6e6 N> [+ [h 4 Np[4 4 P N e e e N> rS S E Npq+ W R N> &? &@ N e e e P N ] ^ N>
0x1999f4…199b88 Dummy {f00=0x0080, f01=0x0190, f02=»^ _ ` N> L L W 2 AM AMz $ AM $ AMy AM R ! T M AN6 ( B V " V P C C ( Q C 6< V M 2 C I I " C ( Q ( Q C W B 9 R ! T : V V M C C C
0x199b88…199d1c Dummy {f00=0x0080, f01=0x0190, f02=» E B NN % Z R R E ( ( ( AM AM AMv LJ ALJ L AL L AL M, AM, 2 M N M AM AN< 2 N N<T N ( N<Tv B & V B V P& T
0x199d1c…199eb0 Dummy {f00=0x0080, f01=0x0190, f02=» N Mx ( $ AM O M ( O Mx B & V B P Wl @M| Y 2 N8 N: P W T N T P N8 N:W( $ Y P N _2 N8 N:W& T U @LJ L U ALJ O O @N T& @N U
0x199eb0…19a044 Dummy {f00=0x0080, f01=0x0190, f02=» P W T N T P N8 N:W $ Y P N _2 N8 N: O O @N TP @N U| QB AM Q4 AM W* T P6 @LJ L V. ALJ O O Mx( S M ( T W W W W W Z@ : AM| AM @M, LL L @LJQv @
0x19a044…19a1d8 Dummy {f00=0x0080, f01=0x0190, f02=» _" @L Q Mv^ $ M D - _" AM, M Z M N Mv M. @M,QT @L 4 T O H 1 Q @M,Q4 4 T H O 1 Q @M,Q _* @L W @N @N HQ 1 Q AL @N2 AM L M* 2 P T 0P( 0 % %
0x19a1d8…19a36c Dummy {f00=0x0080, f01=0x0190, f02=» M O$ N2 AM X^ AM @N2 Q U( _ 2 % 2 * % Y : M. X^ 2 * @M,Q Pl * BA % DS % PO % T % 5 Y 5 Y % % , % , % B % % (_x O$ ^ W O$
0x19a36c…19a500 Dummy {f00=0x0080, f01=0x0190, f02=» @M % % M ) % % Z @N % @N( % @N* % N ( % Y 2 % @N2 O . R O 1 R O 0 O$ Mx( @M V Z@ : @N6T Mx : R _ P 0 - : ; [ V - - ' ZN ZN d ZN ZN
0x19a500…19a694 (2, 134) Dummy {f00=0x0080, f01=0x0190, f02=» 0 / [ : ; [ [ [ [ B@ Z Z ' Z Z d Z Z [ Z Z Z Z : : ; [ [& : V *W R - _ 1 T R P[ - _ : [ S Q"
0x19a694…19a828 Dummy {f00=0x0080, f01=0x0190, f02=» _ ;A [ :DU2 DU1 DU4 DU3 MD1 MD2 MD3 MD4 FD1 FD2 FD3 FD4 CD1 CD2 F %? t v UU v 3 2P _ 4 , ) T G.G K. A ;A; G. $ ] ] S S S S % =A S S S .
0x19a828…19a9bc Dummy {f00=0x0080, f01=0x0190, f02=»=e Q P ?e R P S ?C/ G O % R ' P % =B S t w E M % n :^b P #P ( B. T P ' " P : P S P S P " `_" W R - _ 1 T R P[ - _ : [ S Q"
0x19a9bc…19ab50 Dummy {f00=0x0080, f01=0x0190, f02=» 4 , ) T G.G K. A ;A; G. ^ ] ] S S S S % =A S S S . N 0 N S W P X _ R R "( R `b 0 R _ <d?d
0x19ab50…19ace4 Dummy {f00=0x0080, f01=0x0190, f02=» Q R %| _B _& :a P #P ( B. T P ' " P : P S P S P " `_" F t v @0 UU 3 2P _ 4 , ) T G.G K. A ;A; G. ] $ ] S <
0x19ace4…19ae78 Dummy {f00=0x0080, f01=0x0190, f02=» P X _ R R <" R R b " P #P ( B. T P ' " P : P S P S P " `_"b =D @ t w E M T 1 E _ M @ p : 6 "? UU t 3 2P _ 4 , 5 T
0x19ae78…19b00c Dummy {f00=0x0080, f01=0x0190, f02=» N 0 S & N S W P X _ R R "? R R dH h:B* S R P S B J 4R 4 :B 4 R : V V 49B R 4R @ t w A I ! j :d P #P ( B.
0x19b00c…19b1a0 Dummy {f00=0x0080, f01=0x0190, f02=»j jV n2 Y ( x P Y * g x y Wv X " f X X . 8 j v X 0P X T 5 ! Y * g y X V& X ( n x C ( Y * X Y , m X X C & C C ( B Ph9 R^9 i" X !@PP X X * b ) Y * Y
0x19b1a0…19b334 (2, 135) Dummy {f00=0x0080, f01=0x0190, f02=» * $" ~_> @ Y X * e _R X !@XX y X # x V y X X * n P P 1 _ 1 g X * e X X * $" X D % " X # X * n y _< X # X * y n X 1 1 X !@T X $ " P y _ x T i h X H X X * , )$ P
0x19b334…19b4c8 Dummy {f00=0x0080, f01=0x0190, f02=» i" X ! T i _ y C Q " T n2 n X ! j X X ! x Y~ Y _ X "@P B R y C B P 9 V i _F9 VV X ! T X !@X y C _d y C C X !? x P Q( B y " y $ c v C _$ _ i y _6 h x X@ X m X
0x19b4c8…19b65c Dummy {f00=0x0080, f01=0x0190, f02=» B i C m : + n2 X m n ( w< } ( wH vb : B j C _J + . v X 9 V ! P @ Y } Y Y . : || } } " } $ : v 2! Y " w< } wH } H v X "T X v n v
0x19b65c…19b7f0 Dummy {f00=0x0080, f01=0x0190, f02=» R P P X ' ' X _ X ' _ X '?_ v } X ' v X ! v v v X " 9b! X :c 2" Hk v @ W W W W W W W v Y ( Y 09H Y * Y 4 Y 2 Y 69h Q X :h Y 0 n W U X Q o W Y 0 n o z yh v
0x19b7f0…19b984 Dummy {f00=0x0080, f01=0x0190, f02=» m m W> Q W Y + U Q P W W Y ( n C v X *! P V L ! v X 0 Y 8 mL P v Y 0 X 0 X 2] X 8 Y 0 mL : X 0 :H* v : X 2T Y 2 : C 1 B ] y : m X +! U 9K Y ( Y + n o v 9H Y * 2
0x19b984…19bb18 Dummy {f00=0x0080, f01=0x0190, f02=» B _N ( w< X D D : K + Q 2 P. P8 |n ( wH B X # V : } 0_0 ~ _> > <} < < < * & dp:q q <p, < F W W X 0Q o o Y ( Y *P yh r n X <' X X v X *# X (
0x19bb18…19bcac Dummy {f00=0x0080, f01=0x0190, f02=»yPW " P X X$ C : X *! P yh vV C W @ X (T W X y 6 Y ( : X (;n v > 0 0 p * & dp:q q p, < F v Y . Y ,W v Y . X ( X ." PV X 0RzT$ Y *P U :H v p K T lW b X . X 2QH Y *T2 X :
0x19bcac…19be40 Dummy {f00=0x0080, f01=0x0190, f02=» P & Y *T q2 : X > T X & V D ! T W X v v X >P( R Q" X & V D ! P $ ! P %_ X : v V Y " X .9H $ P & X ( " Qv Y +Q R " P W " U s Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl
0x19be40…19bfd4 (2, 136) Dummy {f00=0x0080, f01=0x0190, f02=» Y ( : X *:h X (! # P X & V L TbW X , X 0P@ s T, X *:h XF XL X (!@T @ Y ( X , Y t X 0 l tF_r X ( P Y (_ P* t P| Y 8 q2 X 8 X $ v Wh_ " P X ( T X & V H "@TF t P6 V Y X (P v tn
0x19bfd4…19c168 Dummy {f00=0x0080, f01=0x0190, f02=» V ( P t : : s "0P $ T W %T : : Y ( X $ Y X " Y X & Y X < Y @ : Y : v X : X ( T X & V H " V Y : X $ v X : v : X Y " X Y $ X Y & X @W X < Y = " w< ! T W B ! P =H
0x19c168…19c2fc Dummy {f00=0x0080, f01=0x0190, f02=» Y X $ Y X &T Y Y Y WD V $:H D Y D :H Y ! P V Y } W Y ! P |jW V Y v V Y : } 0 : 2' " P T ~ W |n : v : v yh vV C v X v : "0P ' Q W ' Y
0x19c2fc…19c490 Dummy {f00=0x0080, f01=0x0190, f02=» R : V E V D ' $ T ( W v P X =' V W V Y =P v : ( } } V W y x w / x _ z z zZ P } <H : w W z zZ } / <H : z zj C C W zv C
0x19c490…19c624 Dummy {f00=0x0080, f01=0x0190, f02=» zj z ( 1W C C C ( ' P" x P B % P C + {N y I "%@P "% P& B C C 4 "5 # B P B P B 5 P C : z yh yR C x C B B P C y : V I C
0x19c624…19c7b8 Dummy {f00=0x0080, f01=0x0190, f02=» T T T V : 2 ' W 2 6 2 @* " T # ' ?D ~ W"' #? ~ ;D:B " : _ } C : : z zj |b P C W $0 P C z : "!@P ") # B C B % C C : |b#0 T & C C : z C C :
0x19c7b8…19c94c Dummy {f00=0x0080, f01=0x0190, f02=» B " {l : P|0 |FPR L| R R _ R _ # Q R V > _V X^ ' h P P & 1_ P 1_ , @ - R T U :J a B@ ' d w5 1 |F *D*L*H*P :l:d:h
0x19c94c…19cae0 Dummy {f00=0x0080, f01=0x0190, f02=» ~ L|J E V $ W D V L|R , W 6 2 ~ W$ " P& Pd" # ~ ;b Wv " ;d# _ [ v [ w< } wH Z Z : R ; } 6 : F _v :B , (Vr ; H [ [ [ }
0x19cae0…19cc74 (2, 137) Dummy {f00=0x0081, f01=0x0190, f02=» [ } & @*Z! P [ 6 [ Z 7 |x Z 7 : ( :A ( @* " P ! P [ :;H 2 }D } ;h ~ : ; V Y : 2! : 6 2 ~ W& " # ~ ;b ; : ;f" #?_"$0#0;b
0x19cc74…19ce08 Dummy {f00=0x0081, f01=0x0190, f02=» # ; [ _n' d V W V 4! P < X 4 9d $ & ! R + : V W R 4 0R Y 7 Y& P Z,;D 9_8 8 _< V W YL T 9 : &9d! + P( & T 9d! T 7 V Y
0x19ce08…19cf9c Dummy {f00=0x0081, f01=0x0190, f02=» gg++ L 33 @|b|x B~ |n} > 0 0 < * & d l b < F 6 l K K K K V K : } r |r V l V Z P 2 " T W "@T '?W "? H 2" K
0x19cf9c…19d130 Dummy {f00=0x0081, f01=0x0190, f02=» Z Z P v : V R (Q V : *j *j : J P v I < : J Qx : Pn 4 ! Th_ PX 4 WT K WJ hW +_ ~ K W. _& X yPW X & yL J K : V : 1 : + }
0x19d130…19d2c4 Dummy {f00=0x0081, f01=0x0190, f02=»! D L 0P Wn 0W8 Wf :T& *W, FP . :T Z ! XBW *X& FW@ :P # U 1 " !00T ; _ 9P F " X6# ; W )0_: J R( Z R 4! P ;)0 9U ? Z ] 49d_. _BU ; :X _ _ z 9d! ) ^ _ ,_ 8 _ : W 8W " 8 !++P !--
0x19d2c4…19d458 Dummy {f00=0x0081, f01=0x0190, f02=»v W V 7 T V P v P W 9c D d } |b Q rW :aW _B( 2 P V W8 _ 2 # ;B V T -,W V P L , V 2P " 2 P V D ! R T V P V v W V _ 8^n D
0x19d458…19d5ec Dummy {f00=0x0081, f01=0x0190, f02=» 2" &] Y $! 6P Q $ T 9B H _ _ 6 @* " T 7 $ V P v W _ 0 V & 8 H 'W 'W '_6 : ! P ! P ! P ! P } ! P |jW : ! )P9H # T &W &" :I : B
0x19d5ec…19d780 Dummy {f00=0x0081, f01=0x0190, f02=» [ ; 8 V W Q P [ ! X # P 4 V W Q P [ " X $ P TF R R ` ; <( Q P # W " <! =# T6W = Z P _ V ^< `_@ R Q <# =_ P :" P * U P 1`! T "# 9e! #
0x19d780…19d914 (2, 138) Dummy {f00=0x0081, f01=0x0190, f02=» _& R W ( V W Q P W ! W V P , V W Q P W $ W V P T V W Z : V ) " TV *V &V : V S W P 9 S W _ V P W T V E + : & [ [ [ [
0x19d914…19daa8 Dummy {f00=0x0081, f01=0x0190, f02=»P N V H )_ _X z R z ! P 1` { V (9h T W z 9e! I Z ! : 4 P 9 59D_ " P P [ ! :d" 5 : " Tz *V &V PP= ;@ R P W ;a=a P " R & R V T W V
0x19daa8…19dc3c Dummy {f00=0x0081, f01=0x0190, f02=»! ! R 2` { z " P ! R 2` { 1 ! { [ Z Q P _ T { [ [ Q@ [ T { R [ _ N Z ! Z $ Z %_N [ Q* N R [ Z { N z 9e! W Z : V I _ ,
0x19dc3c…19ddd0 Dummy {f00=0x0081, f01=0x0190, f02=» { : PZ 9 _ [ Z : R$ P $ 1T Y W 5 _& : $ R W R # P W ) V E WX [ : Z !0P0 R* 4 R :d" 8 R ! :DW ! 9 R
0x19ddd0…19df64 Dummy {f00=0x0081, f01=0x0190, f02=» X L P T j!j" !: h"h! x"x! f"f! `"`! z"z! b"b! E0 f# j#P 0 f#C @" 4 d!!? f!f# ! `! !!Cjb! "C%jz! "C! ! ! " @ h! "! J@ h#h! x#x! `#`! z#z! b#b!!FB 1 #A 2 !GA 3": 4#: AC @ U! !" Y jA!" " 8" : !FB G[1 "A 2 G
0x19df64…19e0f8 Dummy {f00=0x0081, f01=0x0190, f02=» t ? "V )S1 0 ! 0 2 GA+ *"_!!FB G 1 A 2 GAH -# )#^R1 0 ! 0 2 GAg_! j!j" f!f" h!h" x!x" `!`" z!z" b!b" d!! f!f"A" "Ra j!j# f!f# h!h# x!x# `!`# z!z# b!b# d!! f!f#A" "R.0 R0 CI4 f!f h!h x!x `!` z!z b!b 4 ( * 1 _<
0x19e0f8…19e28c Dummy {f00=0x0081, f01=0x0190, f02=» !0 P 0 0 9 1 _ ( 0 !!_32 #@ 4 0 : , "? o2 B0 3 2 !W 0 ( _ "0 0 2 W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 7 HH:HH:
0x19e28c…19e420 Dummy {f00=0x0081, f01=0x0190, f02=» 0R $ % 0 0 9< 2 ? 2 #4 0 0 ? !4 p S s m U v 3 9 ~ M
0x19e420…19e5b4 (2, 139) Dummy {f00=0x0081, f01=0x0190, f02=» T ! COPY SYSTEMVARIABLES ? ! ( A z 0 4 2 !W 0 ( _ "0 0 2 W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0 X Z [ 7 HH:HH:
0x19e5b4…19e748 Dummy {f00=0x0081, f01=0x0190, f02=» b ] l V Z ^@ 2 A ! [ ! A& !0$ !T J _ : I !_) _7j ! ! h 9 !X8H !( @ h 9[ !j ! ! !P !0$ ! N_m ? j !! '( !1j !& !j !! ( * j +& 'j !! ; ( j ! ! ! ? ? j " $ j !! 1 j !!
0x19e748…19e8dc Dummy {f00=0x0081, f01=0x0190, f02=» !W h ! !Z< ") C U j !! 1j !! 2$U *U _b " % ? j !! 'I *A ( $j ! !0& h !T f ! !j ![ !j '! !j !! ( _N ! ( + [Whj !! ' !QU I N! ? ! @ Ab ! W:0& h [ !P @! Aj !! b ! f ! !A j !
0x19e8dc…19ea70 Dummy {f00=0x0081, f01=0x0190, f02=» W - !"4 !!4 j !! ( !"4 Aj ! j !! ( j (! ! _ f !0& !j ![ !!4 6 BW [ j !! W j !! (W [j ! j '!!! !j !! j (! _+( # j (! !j !! 4 @`@a@b@d@f@h@i 2 # !" #$%&'(
0x19ea70…19ec04 Dummy {f00=0x0081, f01=0x0190, f02=» 4 ( ' 5 D e ) 1 @ } I B S H Q FTX FTJBS 6 ( V 5 V 5f ! !A j !
0x19ec04…19ed98 Dummy {f00=0x0081, f01=0x0190, f02=» z n r v6 &90( f! ? P Kj 4 0) f! ? P Kj 4 0( f ? P Kj 4 0) f ? P Kj 4 0( f > 4 0) f > 4 @j0 @0 P 64 ?0 P >4 ;0 P Aj4 !0 P =4 h bC * )bC*< x 0) f C? V 4 0( f C? V Kj h x b )*C b <C*
0x19ed98…19ef2c Dummy {f00=0x0081, f01=0x0190, f02=»$" uV> u j " " ( R#j $"u ^&j "C" R j $" 5W j ""u j $" j &"* u H` *? ? u? _ u) > ? j " $ : 0 j " " u j $" )? u ? j " "_2Ac u ? @e@f h 0* ` !"` b 1AiW-j " - R R _9 W I
0x19ef2c…19f0c0 Dummy {f00=0x0081, f01=0x0190, f02=» -j " R R _a _) +_% 0, 4 ! ! ! " V 0'_ " b )*C b <C* !4 "bC * )bC*< & 4 @ @ j " "j " $( A W= Rgj " "j "" ( # j " $ RCj "" W ( A I 'W R j " $j $" R Ic ! 4 $
0x19f0c0…19f254 (2, 140) Dummy {f00=0x0081, f01=0x0190, f02=» V H n U n U " " ( R#j $"u ^&j "C" R j $" 5W j ""u j $" j &"* u H` *? ? u? _ u) > ? j " $ : 0 j " " u j $" )? u ? j " "_2Ac u ? @e@f h 0* ` !"` b 1AiW-j " - R R _9 W I
0x19f254…19f3e8 Dummy {f00=0x0081, f01=0x0190, f02=» $ B 2 H 0'_ A"T|A @c d!!"d!!o G j!0 f!C P 0 f!C @" 4 d!!WL [ !0$ !T D !_ ! `! !!Cjb! "C%jz! "C! ! ! " Q h! "! [ 3@ 4 H"#@" d!!"d! !T !!CT "!C0 f!C 4 H 0'_ #! R R W A#T A @` d ! d ! F j 0 f Tg
0x19f3e8…19f57c Dummy {f00=0x0081, f01=0x0190, f02=» d !W H` B@ 4 H#4@# d !Q, T h & #! T j ! ! $! T 0 f C 4 j? " )(? ?@j " '( ! ?0& * 6 HW > / p 4 : !: ) W} $ ! CV ! =5? j "C&# >1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !: jC$" " C *
0x19f57c…19f710 Dummy {f00=0x0081, f01=0x0190, f02=»`_1Ab t 0# P v$ w Ib w4(v $C*: v w w( : !vCV ! = ? ) v ? j "C&Hb$ w* w wW0 $j "C * v Jb= w _B$w4 , w w w*_- w? "_- " Cb !&C b &C ? < @c $C*: &j "C&fC * *jC&" " * @c C: " C: ! C: "V )( ) )? j "C$jC "
0x19f710…19f8a4 Dummy {f00=0x0081, f01=0x0190, f02=» % ; n F F X FC PTS-DE SYSFIL 0 ! HW > / p 4 : !: ) W} $ ! CV ! =5? j "C&# >1j " b "& j (" ) bC * *jC&" " C? W j "C$ U !: jC$" " C *
0x19f8a4…19fa38 Dummy {f00=0x0081, f01=0x0190, f02=» 8 F T v : '6 (t ]@c $C*: Ca< C[ ! C "V t ! ? ! @ AfT ? )? t j "C$ j !!C( j !!C) ! V -? t_Y j <C*j )*C ! ! ! CV & _oj "C$j !! (_3 $ &q q ? 8? Ha j !! '$ ! _ ? %_5Aa_ : CC * !b
0x19fa38…19fbcc Dummy {f00=0x0081, f01=0x0190, f02=» _0AaW3jC " "'C< ! C< j "C$ !< & _ A%6 : b "A! % A !? !'CP >< H`l CD "'C: " *j "C ( H`O !: jC " "'C: _ Ca ! C< j !!C)*U !j "C$ !H` 1h r !C(!X _ )? C`< ! ! ! < b )*C b <C* $ &r r ?
0x19fbcc…19fd60 Dummy {f00=0x0081, f01=0x0190, f02=» R j " $j " * ` 4 j " " & 6 jC " 4 j "C !"4 !!4 P % Z H ; a _T SV TC 8? Ha j !! '$ ! _ ? %_5Aa_ : CC * !b
0x19fd60…19fef4 (2, 141) Dummy {f00=0x0082, f01=0x0190, f02=» 5 D Z A`Ad : Ac # *V ) ? Hd ? @ ,V ) ? Hd ? Id (? : *mj " &" pz j " "j &" : * Lj "" j $" @ : j " " u : j "u "j &" : [j &"* W M #j "" j $" *_zj $" : Mj "" _(j " &" p _z
0x19fef4…1a0088 Dummy {f00=0x0082, f01=0x0190, f02=» u u , ) )? j ! b !& b '&@ ) V5 ! ! " : * s [j s)" Id ? u) ? ? >? : VJ! ? ) ? W !: CPjC"" bC*< " C: ! C: jC$" " C? bC*< " C? '6 @bT # : ! CV ! ? ? )? Hb &C 0#
0x1a0088…1a021c Dummy {f00=0x0082, f01=0x0190, f02=» Ka %_1Aa_ : @c CH H C[ "#C? $W " #0# T : j "C KAb_ A`Ac0# TY # *RnH`. $* j " $ Z : j " &* *K ,H` b & ? 0#@T$ @ ,R. & =b@ & ? #X;! ? ? : j " &* * ,_' )? # ! CR)j "C&" * ?W Hb &C j "C$
0x1a021c…1a03b0 Dummy {f00=0x0082, f01=0x0190, f02=» !_> TJ!D; !D< KM1 A 2 _ 1 !_ 0 f!CMHP HIP KL1 A 2 _ >I J YjB'!P!0 !% jB&! jB((K bB0&J BjB !!! CjB "> !D; jB "= !D: XjB ! ! WjB " W X FjB " EjB " DjB " 0.B , ! 4 ) :_ " > % ; m
0x1a03b0…1a0544 Dummy {f00=0x0082, f01=0x0190, f02=»OF RECORDS:BLOCKING FACTOR:NO. OF SECTORS/RECORD:ZZXZZZZX N Q Y % $ S X [ * $ N Q Y [ 1 $ $ ' K O Q W R X [ ! $ '
0x1a0544…1a06d8 Dummy {f00=0x0082, f01=0x0190, f02=» t _ n h l p S! Yj ! j !" Y ! )D: % j #" ^!Y ^!O ^!Q ^!j %" j '" j )"? 0) f! ?S: 4 N Y ?!D; ( !W X " ! ! , P ! !D; (W " ! $!D; )W ! ( ! S"
0x1a06d8…1a086c Dummy {f00=0x0082, f01=0x0190, f02=»& ! !P S S !( ! _ 4 #_ j &"* !)D; S# C *W* S# D !W S$ B !W S% E !W S' F !j " 0) f! ?SZZ7 A6+ _e 0 ! 4 2 "W #W &W + #4 _ j ! ! L ! K _" 1_ j ! ! H I( J,_; Z<2 HI6_@ RL
0x1a086c…1a0a00 Dummy {f00=0x0082, f01=0x0190, f02=»4 _ P 0 ""0 P0/ CH 0 !!_ K KM KL d ( h ! !< f !_ 1 2 ? P 0 P0/ CH 0 ""( >0 !!? P 0 "" QPjB&!P!0 P0/ CH ( 0 !!!ZO !ZP (HI ? ? ? ( E ? P 0 $$ RPjB'!P!0 P0/ CH 10 ""_F W W$ ! # @ ?
0x1a0a00…1a0b94 (2, 142) Dummy {f00=0x0082, f01=0x0190, f02=»!OP4 > S q A X z B D 9 , ' 1 % - 5 = & e FCJCJDSVTC 123NY FS 'g 0 0 0 0 " h
0x1a0b94…1a0d28 Dummy {f00=0x0082, f01=0x0190, f02=» 0 $ ( , !1 PVQ > ?0 % = "1 3 0 W 1 !0 ( 0 ! _3 86 _'0 W 40 4 [ @ 0 0 6 4 A _ 0 0 4 4 r 2 3 1 XXXXX- I/O-ERROR DISK OVERFLOW ILLEGAL VALUE UNDEFINED ERROR
0x1a0d28…1a0ebc Dummy {f00=0x0082, f01=0x0190, f02=»ACE IN CORE FUNCTION NOT ALLOWED USERFILE ASSIGN-ERROR OUTPUT FILE TOO SMALL FILENAME ALREADY USED SYSTEMFILE NOT CREATED SYSTEMFILE ASSIGN-ERROR TOO FEW INPUT CHARACTERS COMPULSORY FIELD NOT FILLED VOLUME-NAME MUST BE "SYSVOL" *WRONG NO. OF SEC
0x1a0ebc…1a1050 Dummy {f00=0x0082, f01=0x0190, f02=» 7 Q l - @ ( 0 ! _3 86 _'0 W 40 4 [ @ 0 0 6 4 A _ 0 0 4 4 r 2 3 1 XXXXX- I/O-ERROR DISK OVERFLOW ILLEGAL VALUE UNDEFINED ERROR
0x1a1050…1a11e4 Dummy {f00=0x0082, f01=0x406e, f02=» 1 v E ( A z 2 Q 0 2 0 U 4 2 D X 2 X@ 2 j ]NYT Y/NSYSFIL 1 b * & COPY JOB:COPY FORMAT:99 G 1 * & ! F ! D G 1 * & [ COPY VALUE-SET
0x1a11e4…1a1378 Dummy {f00=0x0082, f01=0x4014, f02=» HNOD 3 @ 3 E ( A z 2 Q 0 2 0 U 4 2 D X 2 X@ 2 j ]NYT Y/NSYSFIL 1 b * & COPY JOB:COPY FORMAT:99 G 1 * & ! F ! D G 1 * & [ COPY VALUE-SET
0x1a1378…1a150c Dummy {f00=0x0082, f01=0x018e, f02=» IDENT P:S002 4 * & @ 2 A ! 4 " * & - [ ! A& !0$ !T J _ 4 P * & K : I !_) _7j ! ! h 9 4 ~ * & i !X8H !( @ h 9[ !j 4 * & ! ! !P !0$ ! N_m ? 4 * &
0x1a150c…1a16a0 Dummy {f00=0x0082, f01=0x0190, f02=» * & 1 j !! 2 j !! 5 * & (I !Y A ! ! ? 5 2 * & ; ! 0% !h & !&P !0$ !< 5 ` * & Y _ ( ) +h & '&Z h ! 5 * & w !R !W h ! !Z< ") C U 5 * & j !! 1j !! 2$U *U
0x1a16a0…1a1834 (2, 143) Opaque[0x194]
0x1a1834…1a19c8 # DirEnt {nam=»REORGU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1050, f03=0x0000}
0x1a1834…1a19c8 IdxSect {
0x1a1834…1a19c8 f00 = 0x0082 // 0x1a1834 @0x0
0x1a1834…1a19c8 f01 = 0x0008 // 0x1a1836 @0x2
0x1a1834…1a19c8 gno = [ // 0x1a1838 @0x4
0x1a1834…1a19c8 [0x00]: C0x0082.0x2.0
0x1a1834…1a19c8 [0x01]: C0x0082.0x3.0
0x1a1834…1a19c8 [0x02]: C0x0083.0x0.0
0x1a1834…1a19c8 [0x03]: C0x0083.0x1.0
0x1a1834…1a19c8 ]
0x1a1834…1a19c8 }
0x1a19c8…1a1b5c Dummy {f00=0x0082, f01=0x0190, f02=» ( P IDENT REORGU REL. 1.0 79-05-29/LABJ $ P******************************** 0 $ P* REORGANISATION OF USERFILE * X 0 P******************************************** 0 P* WORKITEMS *** INPUT *** * 0 P* RECNUM = JOB-CHAIN RECORD NO.
0x1a1b5c…1a1cf0 Dummy {f00=0x0082, f01=0x0190, f02=»T USED * 0 P* BIN4 = POINTER IN BATCH-CHAIN * ( 0 P* BIN5 = POINTER TO ACC.RECORD * 0 P* BIN6 = POINTER TO DS-RECORD * 0 P* BIN7 = OCC.BYTES IN JOB-CHAIN-RECORD * 0 P* BIN8 = OCC.BY
0x1a1cf0…1a1e84 Dummy {f00=0x0082, f01=0x018e, f02=» 0 P* BIN10 = JOB-CHAIN RECORD NO. * 0 P* BIN11 = BATCH-CHAIN RECORD NO. * 8 0 P* BIN12 = OCC.BYTES IN JOB-CHAIN-RECORD * l 0 P* BIN13 = OCC.BYTES IN BATCH-CHAIN-RECORD * 0 P* BIN14 = LINK PREVIOUS * 0 P
0x1a1e84…1a2018 Dummy {f00=0x0082, f01=0x018e, f02=» P ENTRY REORGU P* P EXT DECLRN $ P EXT DSKERR 8 P EXT FREESP L P EXT DISU ` P* r P EXT CHANFC | P EXT GETVOL P EXT CHVOL P* PCLOSE EQU X'03' P* PREORGU PROC P****************
0x1a2018…1a21ac Dummy {f00=0x0082, f01=0x0190, f02=» ~ PDES1 P MOVE RPOOL(DKBIN1),=X'5800' P ADD DKBIN1,W1 8 P CBNE DKBIN1,W17,DES1 N P* l * P MOVE TABLE,VOLNAM OUTPUT VOLUME-NAME v P CALL CHANFC,DISK,FCOD1 8 P CALL GETVOL,DISK,SBUF,VOLNAM,RETCOD GET VOLUME-NAME P CMP RET
0x1a21ac…1a2340 Dummy {f00=0x0082, f01=0x0190, f02=»SK,0,DEBINW4,USEFIL,VOLNAM INPUT P BNOK ERROR ( P CALL CHANFC,DISK,FCOD2 < 0 P ASSIGN DISK,0,DEBINW4,USEFIL,COPNAM OUTPUT P BNOK ERROR 0 P PERF DISU,W5,W2,RBUF READ FREE-SPACE OUTPUT P BNOK ERROR " P COPY RPOOL(W1),W9,W10,RBUF,
0x1a2340…1a24d4 (2, 144) Dummy {f00=0x0082, f01=0x018e, f02=»3 1:ST JOB-CH RECORD INPUT , P MOVE BIN10,W3 1:ST JOB-CH RECORD OUTPUT " PC10 R & P MOVE BIN2,W10 POINTER TO 1:ST JOB ^ P B C12 PC101 P ADD BIN2,W10 " P CBG BIN2,BIN7,C11 >OCC. BYTES P B C13 PC11 * P XCOPY RECNUM,W0
0x1a24d4…1a2668 Dummy {f00=0x0082, f01=0x0190, f02=» f P BOK C13 P CMP DEBINW4,W9 P BE C90 0 P B ERROR @ PC13 P ( P XCOPY BIN7,W0,W2,RBUF,W6 OCC. BYTES " P COPY STRG10A,W0,W10,RBUF,BIN2 " P COPY JOBNAME,W0,W6,STRG10A,W2 @ P XCOPY BIN1,W0,W2,STRG10A,W8 REC.NO.-POINTER TO BATC
0x1a2668…1a27fc Dummy {f00=0x0082, f01=0x0190, f02=»T PC14 P PERF DECLRN P IB DEBINW2,C14,C90 * P CBE ANSW,=C'N',C101 F PC16 b P MOVE DEBINW4,W0 n * P PERF DISU,W5,BIN10,SYSBUF READ OUTPUT P BOK C18 P CBE DEBINW4,=W'30',C165 P B ERROR PC165 P* NO DA
0x1a27fc…1a2990 Dummy {f00=0x0082, f01=0x0190, f02=»F DISU,W4,BIN10,SYSBUF WRITE P BERR ERROR $ PC18 8 , P XCOPY BIN12,W0,W2,SYSBUF,W6 OCC. BYTES D P CBL BIN12,=W'388',C19 t * P XCOPY BIN9,W0,W2,SYSBUF,W4 LINK NEXT P CBE BIN9,W0,C184 P MOVE BIN10,BIN9 P B C16 PC184
0x1a2990…1a2b24 Dummy {f00=0x0082, f01=0x0190, f02=»BIN10,SYSBUF WRITE P BERR ERROR P MOVE SYSBUF,=X'4A4300' 'JC' . * P XCOPY SYSBUF,W2,W2,BIN10,W0 LINK PREV R P MOVE BIN10,BIN9 P B C17 PC19 P* INSERT JOB-ENTRIES * * P PERF FREESP,BIN11,W1 BATCH RECORD NO. P BERR ER
0x1a2b24…1a2cb8 Dummy {f00=0x0082, f01=0x0190, f02=»F,W6,W2,BIN12,W0 OCC. BYTES $ P PERF DISU,W4,BIN10,SYSBUF WRITE $ P BERR ERROR L P EJECT ` P****************** n P* COPY BATCHES * P****************** PC20 P MOVE BIN4,W10 P B C22 PC201 P ADD BIN4,W12
0x1a2cb8…1a2e4c Dummy {f00=0x0082, f01=0x0190, f02=»1,W0,C101 NEXT JOB P B C20 PC22 ( , P PERF DISU,W3,BIN1,SBUF READ BATCH-CHAIN 4 P BOK C23 d " P CBE DEBINW4,W9,C101 NEXT JOB t P B ERROR PC23 ( P XCOPY BIN8,W0,W2,SBUF,W6 OCC. BYTES " P COPY STR15A,W0,W12,SBUF,BIN4 P
0x1a2e4c…1a2fe0 Dummy {f00=0x0082, f01=0x0190, f02=» b P CBE BIN5,W0,C21 P CBE COPY,=C'Y',C26 P MOVE ANSW,=X'00' < P ATTFMT BATCH COPY BATCH ? V P SET DEPROMPT x PC24 P PERF DECLRN P IB DEBINW2,C24,C90 P CBE ANSW,=C'N',C201 PC26 P MOVE DEBINW4,W0 *
0x1a2fe0…1a3174 (2, 145) Dummy {f00=0x0083, f01=0x0190, f02=»* P MOVE DEBINW4,W0 P MOVE SYSBUF,=X'424300' 'BC' " PC27 F * P XCOPY SYSBUF,W6,W2,W10,W0 OCC. BYTES R $ P PERF DISU,W4,BIN11,SYSBUF WRITE P BERR ERROR PC28 , P XCOPY BIN13,W0,W2,SYSBUF,W6 OCC. BYTES P CBL BIN13,=W'38
0x1a3174…1a3308 Dummy {f00=0x0083, f01=0x0190, f02=»* NEW RECORD * P PERF FREESP,BIN9,W1 P BERR ERR17 4 * P XCOPY SYSBUF,W4,W2,BIN9,W0 LINK NEXT H $ P PERF DISU,W4,BIN11,SYSBUF WRITE v P BERR ERROR P MOVE SYSBUF,=X'424300' 'BC' * P XCOPY SYSBUF,W2,W2,BIN11,W0 LINK PREV P MOV
0x1a3308…1a349c Dummy {f00=0x0083, f01=0x0190, f02=»7 6 P XCOPY STR15A,W8,W2,BIN9,W0 POINTER TO ACC.RECORD P PERF FREESP,BIN16,W1 D P BERR ERR17 b 6 P XCOPY STR15A,W10,W2,BIN16,W0 POINTER TO DS-RECORD v 0 P COPY SYSBUF,BIN13,W12,STR15A,W0 BATCH-ENTRY * P ADD BIN13,W12 POINTER IN BATCH-CHAI
0x1a349c…1a3630 Dummy {f00=0x0083, f01=0x0190, f02=» B C201 P EJECT P***************** P* CLOSE FILES * 8 P***************** R PC90 l P MOVE DEBINW4,W0 x 0 P PERF DISU,W5,W2,RBUF READ FREE-SPACE OUTPUT P BERR ERROR " P COPY RBUF,W0,W10,RPOOL(W1),W9 $ P COPY RBUF
0x1a3630…1a37c4 Dummy {f00=0x0083, f01=0x018e, f02=»FCOD1 INPUT ~ P DSC0 DISK,CLOSE " P CALL CHANFC,DISK,FCOD2 OUTPUT , P DSC0 DISK,CLOSE R . P***************************************** j . P* CHANGE VOLUME-NAME TO ORIG.VOL.NAME * . P***************************************** PC98
0x1a37c4…1a3958 Dummy {f00=0x0083, f01=0x0190, f02=» P MOVE DEBINW4,W3 'I/O-ERROR' PERR99 ( P PERF DSKERR,DEBINW4 6 P B C95 R PERR17 ` . P MOVE DEBINW4,W17 'OUTPUT FILE TOO SMALL' n P B ERR99 P EJECT PDSCOPY PROC P* COPY ACC.RECORDS * " P PERF DISU,W3,BIN5,SYSBU
0x1a3958…1a3aec Dummy {f00=0x0083, f01=0x0190, f02=»0 LINK PREV. P MOVE BIN14,W0 LINK PREV. PDS20 6 P CBE BIN6,W0,DS99 B " P PERF DISU,W3,BIN6,SYSBUF READ P BERR ERROR * P XCOPY BIN6,W0,W2,SYSBUF,W4 LINK NEXT P CBE BIN6,W0,DS30 P PERF FREESP,BIN9,W1 P BERR ERR17
0x1a3aec…1a3c80 Dummy {f00=0x0083, f01=0x0190, f02=»UF WRITE x P BERR ERROR P MOVE BIN14,BIN16 $ P MOVE BIN16,BIN9 > P B DS20 V PDS99 f P RET r P PEND ~ P EJECT PJOB FRMT P FSL P FCOPY =C'COPY JOB:' P FINP 11 P FCOPY JOBNAME P FLINK FANSW
0x1a3c80…1a3e14 (2, 146) Dummy {f00=0x0083, f01=0x40f4, f02=» P FMEND P* PFANSW FRMT P FNL 2 P FCOPY =C'Y/N' > . P FKI 5,MINL=1,MAXL=1,ME,NEOI,ALPHA,APPL=1 T P FCOPY ANSW P FNL P FKI 1,MINL=0,MAXL=0 P FCOPY HEX00 P FMEND END @
0x1a3e14…1a3fa8 Dummy {f00=0x0083, f01=0x2008, f02=» NT LASSES DDUM DDINIT PDIV . END <@ H
0x1a3fa8…1a413c Dummy {f00=0x0083, f01=0x0190, f02=» ; ` 1 Q A7 A7 @7 ] : :4 : P . P 8f 9 : : A7 @7 A7 R C A7 @7 @7 Y A7 ( @7 ! @7 7 6 P J S T $ 1T P _ 7 Xd_2 A7 : @7 T ; @7 :dQ : 7 ; @7
0x1a413c…1a42d0 Dummy {f00=0x0083, f01=0x0190, f02=» > . " > R !LLP R 6 K % R 4 K & K ( K ) ( @7 ! @7 :d < @7 % @7 R 2 R 1 % Y A7 7 ( A7 @7 Y A7 ( @7 :d A7 @7 Y : A7 @7 Q* A7 > > > ( > ( ?F > @7 0
0x1a42d0…1a4464 Dummy {f00=0x0083, f01=0x0190, f02=»8` A7 T: ; @7 P* T" :4 : P . P 8f_: : 7 > @7 - ( @7 ! @7 :d J A7 J J < 2 2 R> 0P6 P X P T P 1 0 T _( = ] _ P : Q _$ _D : ) I _ ( - : @7 P$ 7
0x1a4464…1a45f8 Dummy {f00=0x0083, f01=0x0190, f02=» EXTENT LENGTH ?D A DELETED @ @ 0READ ERROR SECTOR NO:
0x1a45f8…1a478c Dummy {f00=0x0083, f01=0x0190, f02=» @? ? B T6 % C2_( R ) ) (' P Y J B _* ) : R 2 ( Y J $ ) Y : ) ) ) ) ) ) @? ) : 2 J ( A? ( A? Z : @ A@ A@ ( : ? ? ? ( ? J P ? A?
0x1a478c…1a4920 Dummy {f00=0x0083, f01=0x0190, f02=» Z : @ A^ @" A^ @8 A^ @P ( A^ 2 @? @? % Y @? ? P P A? Ax ? W ? 2 A? A? : _ ? ( B ' J : ? _& B 2 + $ T : * Y ]0 : B R ) ( P
0x1a4920…1a4ab4 (2, 147) Opaque[0x194]
0x1a4ab4…1a4c48 # DirEnt {nam=»PTS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1070, f03=0x0000}
0x1a4ab4…1a4c48 IdxSect {
0x1a4ab4…1a4c48 f00 = 0x0083 // 0x1a4ab4 @0x0
0x1a4ab4…1a4c48 f01 = 0x0004 // 0x1a4ab6 @0x2
0x1a4ab4…1a4c48 gno = [ // 0x1a4ab8 @0x4
0x1a4ab4…1a4c48 [0x00]: C0x0083.0x2.0
0x1a4ab4…1a4c48 [0x01]: C0x0083.0x3.0
0x1a4ab4…1a4c48 ]
0x1a4ab4…1a4c48 }
0x1a4c48…1a4ddc Dummy {f00=0x0083, f01=0x0190, f02=» IDENT PTS DDUM DDINIT PDIV * ENTRY PTS 8 EXT DECLRN J * ^ PTS PROC h SET DEPROMPT x ATTFMT PTSDE P10 PERF DECLRN IB DEBINW2,P10 RET PEND * *
0x1a4ddc…1a4f70 Dummy {f00=0x0083, f01=0x0190, f02=» P FHIGH FTAB 5 P FCOPY =C'P P T S' " FNL F P FHIGH R FTAB 5 ` $ P FCOPY =C'PPPP T SSSS' p FNL P FHIGH FTAB 5 & P FCOPY =C'P T S' FNL P FHIGH F
0x1a4f70…1a5104 Dummy {f00=0x0083, f01=0x018e, f02=»AAAAA TTTTTTT AAAAA' ~ P FTAB 41 4 P FCOPY =C'EEEEE N N TTTTTTT RRRR Y Y' 0 P* h FNL r P FHIGH ~ FTAB 5 0 P FCOPY =C'D D A A T A A' P FTAB 41 4 P FCOPY =C'E NN N T R R
0x1a5104…1a5298 Dummy {f00=0x0083, f01=0x018e, f02=» 2 P FCOPY =C'EEE N N N T RRRR Y Y' P* : FNL D P FHIGH P FTAB 5 ^ 0 P FCOPY =C'D D A A T A A' n P FTAB 41 2 P FCOPY =C'E N NN T R R Y' P* FNL P FHIGH
0x1a5298…1a542c Dummy {f00=0x0083, f01=0x0190, f02=» ` P* P* P FNL P FNL ( P FHIGH 4 P FTAB 14 B 6 P FCOPY =C'U U TTTTTTT I L I TTTTTTT I' R P FTAB 54 P FCOPY =C'EEEEE SSSSS' P* P FNL P FHIGH P FTAB 14 6 P FCOPY =C'U U T
0x1a542c…1a55c0 Dummy {f00=0x0083, f01=0x0190, f02=» =C'U U T I L I T I' P FTAB 54 4 P FCOPY =C'EEE SSSS' D P* d P FNL n P FHIGH z P FTAB 14 6 P FCOPY =C'U U T I L I T I' P FTAB 54 P FCOPY =C'E S' P*
0x1a55c0…1a5754 (2, 148) Dummy {f00=0x0083, f01=0x408c, f02=» SSSSS' P* FNL FNL & FNL 2 FKI 1,MINL=0,MAXL=0 > FCOPY HEX00 Z FMEND n END |@
0x1a5754…1a58e8 Dummy {f00=0x0083, f01=0x2008, f02=» FMEND END @ " FCOPY =C'* *' & FNL X FTAB 20 d 0 + FCOPY =C'* PLEASE BUY THIS PACKAGE !! *' t FNL FTAB 20 , ( FCOPY =C'* *' FNL FTAB 20
0x1a58e8…1a5a7c Dummy {f00=0x0083, f01=0x0190, f02=»f x T CR2 (n D W D D a D e f D j D m D r D u $ 6 d P d ( T1 V V 4 x $
0x1a5a7c…1a5c10 Dummy {f00=0x0083, f01=0x0190, f02=»
0x1a5c10…1a5da4 Dummy {f00=0x0083, f01=0x0190, f02=» $ B " @ c >
0x1a5da4…1a5f38 Dummy {f00=0x0083, f01=0x0190, f02=»
0x1a5f38…1a60cc Dummy {f00=0x0083, f01=0x0190, f02=»SFIL : : F0
0x1a60cc…1a6260 Dummy {f00=0x0083, f01=0x0190, f02=» SYSVOLSYSVOLOUTPUT 2 $ 6 < N j
0x1a6260…1a63f4 (2, 149) Opaque[0x194]
0x1a63f4…1a6588 # DirEnt {nam=»DEDI01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1080, f03=0x0000}
0x1a63f4…1a6588 IdxSect {
0x1a63f4…1a6588 f00 = 0x0084 // 0x1a63f4 @0x0
0x1a63f4…1a6588 f01 = 0x0008 // 0x1a63f6 @0x2
0x1a63f4…1a6588 gno = [ // 0x1a63f8 @0x4
0x1a63f4…1a6588 [0x00]: C0x0084.0x0.0
0x1a63f4…1a6588 [0x01]: C0x0084.0x1.0
0x1a63f4…1a6588 [0x02]: C0x0084.0x2.0
0x1a63f4…1a6588 [0x03]: C0x0084.0x3.0
0x1a63f4…1a6588 ]
0x1a63f4…1a6588 }
0x1a6588…1a671c Dummy {f00=0x0084, f01=0x018e, f02=» & P IDENT DEDI01 PRR 1.0 78-05-31/AST P* . P* 8 L P************************************************************************ B P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P* D
0x1a671c…1a68b0 Dummy {f00=0x0084, f01=0x0190, f02=» P DDUM DDINIT P PDIV P ENTRY DEDISC * P ENTRY NXPRFM @ P ENTRY GETT01 V P EXT COND l P EXT DISU ~ P EXT DEPOOL P EXT WRFSP P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P EXT
0x1a68b0…1a6a44 Dummy {f00=0x0084, f01=0x0190, f02=»XT ENTFMT P EXT DELFMT P EXT GETSYS & P EXT ENTSYS : P EXT NEXJOB N P EXT PREJOB b P EXT PREFMT v P EXT NEXFMT P EXT ENTTBL P EXT DELTBL P EXT ENTT01 P EXT ENTCOR P EXT ENTT03 P EXT D
0x1a6a44…1a6bd8 Dummy {f00=0x0084, f01=0x0190, f02=» P EJECT PDEDISC PROC FC P* , * P* BRANCH TO PROGRAM INDICATED BY FC 6 P* d P CLEAR SWIT01 n P CLEAR SWIT02 P CLEAR SWIT03 P CLEAR SWIT05 P CLEAR SWIT07 P CLEAR SWITFS P CLEAR SW95PR P
0x1a6bd8…1a6d6c Dummy {f00=0x0084, f01=0x018e, f02=»Y C P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C , P OPNNBC OPEN NEW BATCH C L " P OPNEBC OPEN EXISTING BATCH C n P CLSBTH CLOSE BATCH C P ENTFMT ENTER FORMAT C P GETFMT GET FORMAT C P DUMMY C P SCHF
0x1a6d6c…1a6f00 Dummy {f00=0x0084, f01=0x0190, f02=» n ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C 4 ( P WRIACC WRITE ACCUMULATOR-RECORD C ` $ P GETSYS GET SYSTEM-VARIABLES C & P ENTSYS ENTER SYSTEM-VARIABLES C P NXJOB GET NEXT JOBNAME C " P DUMMY
0x1a6f00…1a7094 (2, 150) Dummy {f00=0x0084, f01=0x0190, f02=» ENTER TABLE C P DELBTCH DELETE BATCH C " P DUMMY GET NO OF FREESPACES C 6 & P NEXJOB GET NEXT JOBDEFINITION C " P PREJOB GET PREVIOUS JOBDEF C P NEXFMT GET NEXT FORMAT C " P PREFMT GET PREVIOUS FORMAT C P RECURR READ CURREN
0x1a7094…1a7228 Dummy {f00=0x0084, f01=0x0190, f02=»RFMCH,W0 P MOVE STR6A,DEINPUT P PERF WAIT , P BERR RETURN > PNXPRFM R P PERF SCHPOO,=C'F ',STR6A,W7 ` P IB DEBIN4,GOTFFR,FLOCKE P SEARCH ON DISC PRDDK P MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI P CLEAR S
0x1a7228…1a73bc Dummy {f00=0x0084, f01=0x0190, f02=»C OF FMT P MOVE SYSBUF,HEX00 P PERF DISU,W1,DEBIN3,SYSBUF * P PERF ALGO,W2 N P BNERR CHOK d P MOVE FRMTPNTR,W0 x P SET SWIT07 P BNZ SETER P PERF RELEAS P B STRT01 PSETER P MOVE DEBINW4,W9 P B R
0x1a73bc…1a7550 Dummy {f00=0x0084, f01=0x0190, f02=» NO OF REC P MOVE DEBIN3,W0 " P XCOPY DEBIN3,W1,W1,SYSBUF,W8 * P MOVE DEBIN1,DEBIN3 P P MOVE DEBIN4,W0 l P GET NO OF CONSEC " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GET21 ( P
0x1a7550…1a76e4 Dummy {f00=0x0084, f01=0x0190, f02=» P MOVE DEBIN4,DEBIN3 PGET20 $ , P XCOPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 2 * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 b P SUB DEBIN1,W1 P CBE DEBIN1,W0,TBFAL P PERF DISU,W1,DEBIN5,SYSBUF P BERR RETURN P GET LINK NE
0x1a76e4…1a7878 Dummy {f00=0x0084, f01=0x0190, f02=»EBIN3 PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A P CBE PINDFR,W0,SETPFR J * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A h PSETPFR P MOVE PINDFR,DEBIN4 P B RETURN PFLOCKE P MOVE DEBINW4,W11 'LOCKED' P B RET
0x1a7878…1a7a0c Dummy {f00=0x0084, f01=0x018e, f02=»SED P TBT SWIT02,INDUSE PFGETUN & $ P PERF SCHPOO,=C'F ',STR6A,W5 SET 4 P B TBFALL PFUNUSE n P TBF SWIT02,FGETUN | P MOVE RPOOL(DEBIN3),HEX00 P B RDDK PINDUSE P MOVE DEBINW4,W11 P B RETURN PSCHFMT
0x1a7a0c…1a7ba0 Dummy {f00=0x0084, f01=0x018e, f02=» r P BNERR WRIT01 * P SET SWIT01 NO MORE SECTORS AVAILABLE PWRIT01 L P MOVE STR2A,=X'4453' Z P COPY RBUF,W0,W2,STR2A,W0 v P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 PWRIT05 & P PERF WRDS,CURSEC WRITE RE
0x1a7ba0…1a7d34 (2, 151) Dummy {f00=0x0084, f01=0x0190, f02=» 4 P MOVE CURSEC,DEBIN2 NEW FREESP = CURRENT SCTRNO P GET LINK PREV SCTR < P XCOPY DEBIN3,W0,W2,RBUF,W2 Z ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? ~ * P PERF RDDS,DEBIN3 READ PREV RECORD(S) P BERR ENDERR $ P SET CONTINUATION IN PREV
0x1a7d34…1a7ec8 Dummy {f00=0x0084, f01=0x018e, f02=»PREV | " P XCOPY DEBIN3,W0,W2,SYSBUF,W2 ( P CBE DEBIN3,W0,ENDERR FIRST RECORD? 2 ( P PERF RDDS,DEBIN3 READ PREV OF PREV ^ P BERR ENDERR " P PREV OF PREV = END OF CHAIN P XCOPY RBUF,W4,W2,W0,W0 ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV
0x1a7ec8…1a805c Dummy {f00=0x0084, f01=0x0190, f02=» P SET LINK PREV SCTR P XCOPY RBUF,W2,W2,CURSEC,W0 " , P XCOPY RBUF,W4,W2,W0,W0 LINK TO NEXT = 0 F P SET NO OF OCC BYTES v P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO P TBF SWIT01,WRIT07 . P MOVE DEBINW
0x1a805c…1a81f0 Dummy {f00=0x0084, f01=0x0190, f02=»UF,W4 z PGT001 $ P PERF RDDS,DEBIN1 READ SECTOR(S) P BERR RETURN D & P CBE FC,W16,GT003 JUMP IF GETPREV X P GET LINK PREV FOR CONTROL P XCOPY DEBIN2,W0,W2,RBUF,W2 P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P
0x1a81f0…1a8384 Dummy {f00=0x0084, f01=0x0190, f02=»002 P MOVE DEBINW4,W9 P B RETURN $ PGT003 6 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER D P B RETURN t P* P* P* PGTPREV P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCU
0x1a8384…1a8518 Dummy {f00=0x0084, f01=0x0190, f02=»CC P PERF WRACC P PERF WRFSP,FILINDUS P B RETURN : P* L P* V P* ` PWRTCO j & P PERF WRDS,CURSEC WRITE SECTOR(S) x P B RETURN P* P* P* PCLSBTH CLOSE BATCH P MOVE DEBIN1,W0 P B
0x1a8518…1a86ac Dummy {f00=0x0084, f01=0x0190, f02=» " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA . P MOVE DEBINW4,W0 R PBRETTA j P B RETURN x P* P* P* GETTBL P PERF SCHPOO,=C'T ',TABLE,W5 IB DEBIN4,GTF,LCK NOT IN POOL, REA
0x1a86ac…1a8840 Dummy {f00=0x0084, f01=0x0190, f02=» MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL . $ MOVE DEBINW4,W1 INDICATE ERROR N B RETURN v DKTBL . * PERF DISU,W1,W7,SYSBUF READ TABLE-PTR-REC P BOK MUL P CMP DEBINW4,=W'30' P BNE RETURN P
0x1a8840…1a89d4 (2, 152) Dummy {f00=0x0084, f01=0x0190, f02=»L MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 8 P CBNE DEBIN1,W0,DT002 b P TBF SWIT01,NOINSY P PERF FREESP,DEBIN1,W1 P BERR RETURN & P XCOPY SYSBUF,DEBIN5,W2,DEBIN1,W0 P PERF DISU,W2,W7,S
0x1a89d4…1a8b68 Dummy {f00=0x0084, f01=0x0190, f02=»N PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN . P MOVE DEBIN4,DEBIN1 B MOVE DEBIN1,W0 ^ 2 - XCOPY DEBIN1,W1,W1,SYSBUF,W9 LAST ELEMENT-NO v CBNG ELMNO,DEBIN1,FNDTBL 0 + XCOPY DEBIN1,W0,W2,SYSBUF,W4 GET LINK NEXT ( # CBG D
0x1a8b68…1a8cfc Dummy {f00=0x0084, f01=0x0190, f02=»,SYSBUF,W8,W1 r ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR B PNOINSY f $ MOVE DEBINW4,W9 'NOT IN SYSTEM' t B RETURN FNDTBL P TEST SWIT01 P BNZ ENTCOR MOVE DEBIN3,W1 MOVE DEBIN2
0x1a8cfc…1a8e90 Dummy {f00=0x0084, f01=0x0190, f02=»BIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A , 8 P PERF DEPOOL,W6,PINDTB,DEBIN2,STRG10A RELEASE BUFFER Z MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1a8e90…1a9024 Dummy {f00=0x0084, f01=0x4096, f02=»NW4,W0,RETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1a9024…1a91b8 Dummy {f00=0x0084, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1a91b8…1a934c Dummy {f00=0x0084, f01=0x0190, f02=» [ [ : X2 #0 0T & ! T P & ! X T C U E F J| Y ( x P Y * CP x y Wv X " B@ X X . 8 F S X 0P X T 5 ! Y * CP y X V& X ( JX x C ( Y * X Y , JF X X
0x1a934c…1a94e0 Dummy {f00=0x0084, f01=0x0190, f02=»" x Y X " T Y _ EV_ B U C Q C DB^B`BpB B D D B X X * $" ~_> @ Y X * A _R X !@XX y X # x V y X X * JX P P 1 _ 1 CP X * At X X * $" X D % " X # X * JX y _< X # X * y JX X 1 1
0x1a94e0…1a9674 (2, 153) Opaque[0x194]
0x1a9674…1a9808 # DirEnt {nam=»DEDI02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10a0, f03=0x0000}
0x1a9674…1a9808 IdxSect {
0x1a9674…1a9808 f00 = 0x0085 // 0x1a9674 @0x0
0x1a9674…1a9808 f01 = 0x0006 // 0x1a9676 @0x2
0x1a9674…1a9808 gno = [ // 0x1a9678 @0x4
0x1a9674…1a9808 [0x00]: C0x0085.0x0.0
0x1a9674…1a9808 [0x01]: C0x0085.0x1.0
0x1a9674…1a9808 [0x02]: C0x0085.0x2.0
0x1a9674…1a9808 ]
0x1a9674…1a9808 }
0x1a9808…1a999c Dummy {f00=0x0085, f01=0x018e, f02=» & P IDENT DEDI02 PRR 1.0 79-06-19/AST P DDUM DDINIT . PDIV B ENTRY ENTFMT P ENTRY DELFMT f ENTRY GETSYS | ENTRY ENTSYS ENTRY PREFMT ENTRY NEXFMT ENTRY ENTTBL ENTRY DELTBL ENTRY E
0x1a999c…1a9b30 Dummy {f00=0x0085, f01=0x0190, f02=» EXT DISU EXT RELEAS P EXT NXPRFM * P EXT DLRCCH > P EXT RFRSP R P EXT GETT01 d P EXT EMPTYT x P EXT WRFSP P EXT COND P EXT ALGO P EJECT PDUMM02 PROC FC P* PENTFMT ENTER FORMAT
0x1a9b30…1a9cc4 Dummy {f00=0x0085, f01=0x0190, f02=» PRDCHAIN P MOVE DEBIN3,DEBIN5 0 P PERF DISU,W1,DEBIN3,SYSBUF READ FORMATCHAIN 4 P BNERR FST3 h P CBE DEBINW4,=W'30',FFIRST | P B RETURN PFST3 : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 : P CBG DEBIN4,=W
0x1a9cc4…1a9e58 Dummy {f00=0x0085, f01=0x0190, f02=»AT,W0 NAME x @ P XCOPY STRG10A,W8,W2,DEBIN1,W0 FREESPACE-RECNR = PTR TO FMT < P COPY SYSBUF,DEBIN4,W10,STRG10A,W0 INSERT ENTRY TO CHAIN V P ADD DEBIN4,W10 4 P XCOPY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF
0x1a9e58…1a9fec Dummy {f00=0x0085, f01=0x018e, f02=»SBUF,W4 GET LINK TO NEXT z P CBNE DEBIN5,W0,RDCHAIN P PERF FREESP,DEBIN5,W1 @ P BERR RETURN ^ " P XCOPY SYSBUF,W4,W2,DEBIN5,W0 r P PERF DISU,W2,DEBIN3,SYSBUF PFFST01 P MOVE DEBIN4,W10 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENT
0x1a9fec…1aa180 Dummy {f00=0x0085, f01=0x018e, f02=» PWRTFMT P MOVE DEBIN3,PINDFR , P PERF ALGO,W1 SET FORMAT-IDENTIFICATION 2 PNEGST b P MOVE DEBIN2,W0 p : P XCOPY DEBIN2,W1,W1,RPOOL(DEBIN3),W8 GET LINK NEXT BUF * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 ( P CBE DEBIN2,W0,NOMOR
0x1aa180…1aa314 (2, 154) Dummy {f00=0x0085, f01=0x0190, f02=» ^ * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 P PERF DISU,W2,DEBIN1,SYSBUF 6 P BERR RETURN Z P TBF SWIT01,CO10 n P B RETURN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,DEBIN4 P MOVE SYSBUF,=X'4600' P B NEGST
0x1aa314…1aa4a8 Dummy {f00=0x0085, f01=0x0190, f02=»ET NEXT FORMAT P SET SWIT03 P* * P* 4 PPREFMT > P MOVE FRMTPNTR,W0 L P CALL EMPTYT,FORMAT f P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 P TBT SWIT03,RRECNX P ADD PTRFMCH,W20 PRRECNX P CBN
0x1aa4a8…1aa63c Dummy {f00=0x0085, f01=0x0190, f02=» MOVE PTRFMCH,DEBIN2 P SUB PTRFMCH,W8 PRRECNZ 4 P PERF WAIT B P BERR RETURN T PRRECNY h P PERF DISU,W1,RNRFMCH,SYSBUF v P BNERR RREC01 P CBE DEBINW4,=W'30',OUTOFRAN P B RETURN POUTOFRAN P MOVE DEBINW4,W9
0x1aa63c…1aa7d0 Dummy {f00=0x0085, f01=0x0190, f02=»CH,W10 P CBE PTRFMCH,DEBIN1,RREC03 PRREC07 0 P MOVE DEBIN1,PTRFMCH > P B RREC04 Z PRREC03 l P MOVE DEBIN1,W4 z PRREC05 & P XCOPY DEBIN5,W0,W2,SYSBUF,DEBIN1 P CBE DEBIN5,W0,OUTOFRAN P MOVE RNRFMCH,DEBIN5 P T
0x1aa7d0…1aa964 Dummy {f00=0x0085, f01=0x0190, f02=» B RREC07 PRREC06 P MOVE PTRFMCH,=W'190' P MOVE DEBIN1,W2 > P B RREC05 V PRREC04 h P ADD DEBIN1,W2 v P MOVE STRG10A,=X'4600' & P COPY STRG10A,W1,W6,SYSBUF,DEBIN1 $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 P MOVE STR6A,
0x1aa964…1aaaf8 Dummy {f00=0x0085, f01=0x0190, f02=»STR6A,FORMAT P CLEAR SWIT04 P PERF SFMTCH,W4,SYSBUF,W10 * P BERR RETURN L P MOVE PINACC,DEBIN1 ` . P SUB DEBIN2,W6 DEBIN2=PTR TO ENTRY IN REC | 4 P XCOPY DEBIN1,W0,W2,SYSBUF,W6 DEBIN1=OCC. SPACE P DLETE SYSBUF,DEBIN2,W10 P S
0x1aaaf8…1aac8c Dummy {f00=0x0085, f01=0x0190, f02=»CH,SYSBUF P BERR RETURN PDELF1 & P PERF DISU,W2,PINACC,SYSBUF 4 P MOVE DEBIN2,DEBIN3 X P PERF DISU,W1,DEBIN2,SYSBUF t P BERR RETURN P PERF ALGO,W2 P BNERR DELF2 PDELF3 P MOVE DEBINW4,W9 P B RETURN
0x1aac8c…1aae20 Dummy {f00=0x0085, f01=0x0190, f02=»DISU,W1,DEBIN1,SYSBUF P BERR RETURN P COPY STR2A,W0,W2,SYSBUF,W0 2 P CBNE STR2A,=X'4600',DELF3 V P PERF RFRSP,DEBIN1,W1 x " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 P B DELF P* P* P* PENTSYS P PERF WAIT
0x1aae20…1aafb4 (2, 155) Dummy {f00=0x0085, f01=0x018e, f02=»8,SYSV(DEBIN2),W0 z P ADD DEBIN1,W18 P ADD DEBIN2,W1 2 P CBL DEBIN2,W11,CENT H P PERF DISU,W2,W5,SYSBUF d P B RETURN P* P* PGETSYS P PERF DISU,W1,W5,SYSBUF P BOK NNODA P MOVE SYSBUF,HEX00 P MOV
0x1aafb4…1ab148 Dummy {f00=0x0085, f01=0x0190, f02=» f P ADD DEBIN1,W18 P ADD DEBIN2,W1 P CBL DEBIN2,W11,CGET 6 P B RETURN R P* d P* n ENTTBL x SET SWIT01 B GETT01 ENTT01 P MOVE SYSBUF,=X'5400' PENTCOR ( P COPY SYSBUF,W8,W2,RPOOL(PINDTB),W
0x1ab148…1ab2dc Dummy {f00=0x0085, f01=0x0190, f02=»,DEBIN2,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 & P PERF DISU,W2,DEBIN4,SYSBUF L P BERR RETURN p P MOVE DEBIN4,DEBIN2 B ENTT01 * * * PDELTBL SET SWIT02 B GETT01 DELT
0x1ab2dc…1ab470 Dummy {f00=0x0085, f01=0x0190, f02=»YSBUF z BNOK RETURN " XCOPY DEBIN2,W0,W2,SYSBUF,W4 " PERF RFRSP,DEBIN1,W1 H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x1ab470…1ab604 Dummy {f00=0x0085, f01=0x405e, f02=»BINW4,=W'-1' PRETUN9 P PERF COND " RET 4 PEND @ END N@ Z H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x1ab604…1ab798 Dummy {f00=0x0085, f01=0x2008, f02=» '-1' PRETUN9 P PERF COND " RET 4 PEND @ END N@ Z H BNOK RETURN f CBE DEBIN2,W0,RETURN z MOVE DEBIN1,DEBIN2 B DELT02 * * * * PRETURN P TBF SWITFS,
0x1ab798…1ab92c Dummy {f00=0x0085, f01=0x40e4, f02=» . H IDENT D:CB50 TRA 4.1 79-07-31 F1 O1111 D:CB50 6 D:CB50C H * & B 0 * & 0 0 0 0 = B @ & [
0x1ab92c…1abac0 Dummy {f00=0x0085, f01=0x412a, f02=» . H IDENT C:CB60 TRA 4.1 79-07-31 F1 O1111 C:CB60 6 C:CB60C H * & * & * & = SYSVOLSY [ SVOLOUTPUT d
0x1abac0…1abc54 (2, 156) Opaque[0x194]
0x1abc54…1abde8 # DirEnt {nam=»DEDI03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10b8, f03=0x0000}
0x1abc54…1abde8 IdxSect {
0x1abc54…1abde8 f00 = 0x0085 // 0x1abc54 @0x0
0x1abc54…1abde8 f01 = 0x0008 // 0x1abc56 @0x2
0x1abc54…1abde8 gno = [ // 0x1abc58 @0x4
0x1abc54…1abde8 [0x00]: C0x0085.0x3.0
0x1abc54…1abde8 [0x01]: C0x0086.0x0.0
0x1abc54…1abde8 [0x02]: C0x0086.0x1.0
0x1abc54…1abde8 [0x03]: C0x0086.0x2.0
0x1abc54…1abde8 ]
0x1abc54…1abde8 }
0x1abde8…1abf7c Dummy {f00=0x0085, f01=0x0190, f02=» & P IDENT DEDI03 PRR 1.0 79-07-24/AST . P* CHANGES MADE. LINE 323 INSERTED BY DALI. . P DDUM DDINIT ` PDIV t P ENTRY ENTJOB P ENTRY GETJOB P ENTRY SCHJOB P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P E
0x1abf7c…1ac110 Dummy {f00=0x0085, f01=0x0190, f02=» EXT DLRCCH P EXT RFRSP P EXT DEPOOL & P EXT POOL : P EXT RDACC L P EXT READJB ^ P EXT SCHPOO r P EXT RELEAS P EXT EMPTYT P EXT WRFSP P EXT COND P EXT RDDS P EXT WRDS P EXT CHANFC
0x1ac110…1ac2a4 Dummy {f00=0x0085, f01=0x0190, f02=» POPNNBC P PERF WAIT P BERR RETURN $ PWUSOK 8 P SET SWIT04 F P MOVE STR6A,JOBNAME Z , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN v P BNERR OPNN01 FOUND P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWI
0x1ac2a4…1ac438 Dummy {f00=0x0085, f01=0x0190, f02=»,W12 SEARCH BATCH x P BNERR OPNN03 BATCH FOUND P CBE DEBINW4,W9,OPNN88 < P B RETURN Z POPNN88 l , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN z P B RETURN 'NOT IN SYSTEM' POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P
0x1ac438…1ac5cc Dummy {f00=0x0085, f01=0x0190, f02=»R RETURN 0 P CBE DEBIN2,W10,OPNN08 FIRST JOBCHAIN-ENTRY 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE D ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD z POPNN09 P PERF ENTR,JOBNAME $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2
0x1ac5cc…1ac760 Dummy {f00=0x0085, f01=0x0190, f02=»DEBIN2,W10 POPNN13 P MOVE RBUF,=X'424300' P XCOPY RBUF,W2,W2,DEBIN1,W0 > P XCOPY RBUF,W4,W2,W0,W0 b POPNN12 P PERF ENTR,BATCH P PERF FREESP,DEBIN1,FILINDUS P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P
0x1ac760…1ac8f4 (2, 157) Dummy {f00=0x0086, f01=0x0190, f02=» P XCOPY RBUF,W6,W2,DEBIN2,W0 P PERF WRDS,DEBIN4 ( P BERR RETURN B P MOVE RBUF,HEX00 V P XCOPY RBUF,W6,W2,W10,W0 n P B OPNN16 " POPNN08 FIRST SECTOR JOBCHAIN P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,
0x1ac8f4…1aca88 Dummy {f00=0x0086, f01=0x0190, f02=» t P XCOPY RBUF,W4,W2,DEBIN4,W0 P PERF WRDS,DEBIN1 , P BERR RETURN F P MOVE RBUF,=X'4A4300' Z P XCOPY RBUF,W2,W2,DEBIN1,W0 x P MOVE DEBIN1,DEBIN4 P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-C
0x1aca88…1acc1c Dummy {f00=0x0086, f01=0x0190, f02=» OPNN12 POPNN11 P PERF FREESP,DEBIN4,FILINDUS P BERR RETURN B P XCOPY RBUF,W4,W2,DEBIN4,W0 V P PERF WRDS,DEBIN1 z P BERR RETURN P MOVE DEBIN2,W10 P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W
0x1acc1c…1acdb0 Dummy {f00=0x0086, f01=0x0190, f02=»DL P MOVE DEBIN1,DEBIN5 P B OPNN16 & POPNNDL 8 P SUB DEBIN2,W10 F P SUB DEBIN4,W12 ^ P XCOPY RBUF,W6,W2,DEBIN4,W0 v P DLETE RBUF,DEBIN2,W12 P PERF WRDS,DEBIN1 P BERR RETURN P CBG DEBIN4,W10,DL01 P PERF
0x1acdb0…1acf44 Dummy {f00=0x0086, f01=0x0190, f02=»ERR DL02 P PERF DISU,W3,CURSEC,RBUF P BNERR DL03 2 P CBE DEBINW4,=W'30',DL04 F P B RETURN f PDL04 x P MOVE RBUF,HEX00 P MOVE DEBINW4,W0 PDL03 P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P
0x1acf44…1ad0d8 Dummy {f00=0x0086, f01=0x0190, f02=»ATSH,W1,W6,JOBNAME,W0 P COPY STATSH,W7,W6,BATCH,W0 ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH B & P BNERR EXIST IF IKAY, ALREADY OPEN n P PERF POOL P BERR RETURN * P PERF DEPOOL,W10,DKBIN1,DKBIN2,STATSH P MOVE PINACC,DKBIN1 P
0x1ad0d8…1ad26c Dummy {f00=0x0086, f01=0x0190, f02=» PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHOP . P MOVE DEBINW4,W0 R PZWIHOP j P B RETURN x PEXIST P MOVE DEBINW4,W11 'IN USE' P B RETURN P* P* P* P* PENTJOB ENTER JOBDE
0x1ad26c…1ad400 Dummy {f00=0x0086, f01=0x0190, f02=»,W9,NOTIN P B RETURN PFIRST $ P MOVE DEBIN3,W0 2 P MOVE DEBIN1,W3 J P MOVE DEBINW4,W0 b P B FST1 z PNOTIN P PERF FREESP,DEBIN1,W1 P BERR RETURN " P XCOPY SYSBUF,W4,W2,DEBIN1,W0 P PERF DISU,W2,DEBIN3,SYS
0x1ad400…1ad594 (2, 158) Dummy {f00=0x0086, f01=0x0190, f02=»,W0 z PFOUND1 , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 P PERF DISU,W2,DEBIN1,SYSBUF J P B RETURN n PFOUNDJ P MOVE DEBIN1,DEBIN3 P B FOUND1 P* P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPU
0x1ad594…1ad728 Dummy {f00=0x0086, f01=0x0190, f02=»WIT03 P BNZ RDCHJ P MOVE DEBIN1,W3 PRDCHJ 8 P PERF WAIT F P BERR RETURN X PRDCNW l P PERF DISU,W1,DEBIN1,SYSBUF z P BNERR DATA P CBE DEBINW4,=W'30',NOTEX P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NO
0x1ad728…1ad8bc Dummy {f00=0x0086, f01=0x0190, f02=»DCHJF ~ P TBF SWIT03,GTJ010 P MOVE STR6A,STR6B ( P PERF RELEAS B P B GTJ020 V PGTJ010 h " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 v P CBE DEBIN1,W0,NOTEX P B RDCNW PRDCHJF P TEST SWIT02 " P BNZ RETURN RETURN, IF SEARCH
0x1ad8bc…1ada50 Dummy {f00=0x0086, f01=0x0190, f02=»N4,W1 * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GTJOK < & P MOVE DEBINW4,W13 'NO BUFFER FREE' P P B RETURN z PGTJOK * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 ( P COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P MOVE DKBIN1,W4
0x1ada50…1adbe4 Dummy {f00=0x0086, f01=0x0190, f02=»0 . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A P MOVE PJOBCUR,DEBIN3 < P B RETURN X PLOCKED j P MOVE DEBINW4,W12 x P B RETURN PGOTFRE P TEST, IF USED P TBT SWIT02,SCH01 P MOVE DKBIN1,W5 P B GETUNL
0x1adbe4…1add78 Dummy {f00=0x0086, f01=0x0190, f02=» P B GETJOB P* P* PDELJOB DELETE JOBDEF * P PERF WAIT H P PERF READJB Z P BERR RETURN n P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P TBF BOOL9,RETURN P TBF BOOL8,RETURN P MOVE SYSBUF,HEX00 P PERF
0x1add78…1adf0c Dummy {f00=0x0086, f01=0x0190, f02=»* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W11 4 PPRE01 L & P MOVE STR6A,JOBNAME DALI 79-04-24 Z P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL . P XCOPY DEBIN1,W0,W2,RPOOL(PJOBCUR),DEBIN2 P CBE DEBIN
0x1adf0c…1ae0a0 Dummy {f00=0x0086, f01=0x4130, f02=» P* P* P* P* & PRETURN 0 P TBF SWITFS,RETUNF > P PERF WRFSP,W1 X PRETUNF n P PERF RELEAS | P CBNE DEBINW4,W0,RETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' PRETUN9 P PERF COND P R
0x1ae0a0…1ae234 (2, 159) Dummy {f00=0x0086, f01=0x2008, f02=»
0x1ae234…1ae3c8 Dummy {f00=0x0086, f01=0x0190, f02=» 3? <? 1 A 2 ? T<_ . * & ? V 1 A 2 ? ? 1 A / & * & 2 ? T=_ ? V 1 A 2 / T * & ? ? 1 A 2 ? jR86Y0j / * & R>6Y0jRD1010 R S 4 0< ? / * & ; 8? 1 A 2 ? ? 1 A /
0x1ae3c8…1ae55c Dummy {f00=0x0086, f01=0x0190, f02=» T:CAT / T:ATTF 0 T:ERAS 0 " CREVOL 0 4 T:ASSI 0 F CHVOL 0 X CHANFC 0 h T:DSC0 0 z * & UT - 0 DELFIL 0 COPYDD 0 SURVEY 0 T:DSC1 0 T:E
0x1ae55c…1ae6f0 Dummy {f00=0x0086, f01=0x0190, f02=»L 0 GETFRE 1 SETFRE 1 SETOCC 1 . T:RREA 1 @ EMPTYT 1 R T:XSTA 1 d , ( " $ & ( * , . 1 v MASK 1 T:GETA 1 T:GETF 1 T:SETC 1 T:DYKI 1 T:GETC
0x1ae6f0…1ae884 Dummy {f00=0x0086, f01=0x018e, f02=»O 1 T:TLEF 2 T:TRIG 2 T:TDOW 2 . T:TUP 2 @ T:PRIN 2 P , ( @ B D F H J L N 2 b T:DUPL 2 T:EDFL 2 T:TSTC 2 TESTB 2 RDSECT 2 CREFIL 2 $ P
0x1ae884…1aea18 Dummy {f00=0x0086, f01=0x0190, f02=» * & C > S ] [ 3 * & a 3 2 B L V ` 3 ` T:PAT 3 ~ * & # 3 * & P 3 * & :SF J T 1 =2 =3 =
0x1aea18…1aebac Dummy {f00=0x0086, f01=0x0190, f02=»LCREATE FILE 3 v * & A USERDEFINEDCOPY USERFILVOLUME- 4 * & _ NAME:CREATE VOLUMEVOLUME SURVE 4 B * & } YCHANGE VOLUME-NAMEWHOLE FILE 4 p * & ? Y/N:COPY SYSVOL TO SYSVOLPR 4 * & ESS ENT TO CONTINUEPTS DATA-EN 4 * & TRY UT
0x1aebac…1aed40 Dummy {f00=0x0086, f01=0x018e, f02=» 4 * & O 5 " * & m 5 P * & : 1 9 3 0 5 ~ * & k * & 8 V 5 * & 6 - U 4 X * 5 * &
0x1aed40…1aeed4 (2, 160) Opaque[0x194]
0x1aeed4…1af068 # DirEnt {nam=»DEDISU«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10d8, f03=0x0000}
0x1aeed4…1af068 IdxSect {
0x1aeed4…1af068 f00 = 0x0086 // 0x1aeed4 @0x0
0x1aeed4…1af068 f01 = 0x0008 // 0x1aeed6 @0x2
0x1aeed4…1af068 gno = [ // 0x1aeed8 @0x4
0x1aeed4…1af068 [0x00]: C0x0086.0x3.0
0x1aeed4…1af068 [0x01]: C0x0087.0x0.0
0x1aeed4…1af068 [0x02]: C0x0087.0x1.0
0x1aeed4…1af068 [0x03]: C0x0087.0x2.0
0x1aeed4…1af068 ]
0x1aeed4…1af068 }
0x1af068…1af1fc Dummy {f00=0x0086, f01=0x018e, f02=» & P IDENT DEDISU PRR 1.0 79-06-19/AST P* . P* 8 L P************************************************************************ B P* P* < P* THIS MODULE CONTENTS ALL SUBROUTINES, USED BY P* * P*
0x1af1fc…1af390 Dummy {f00=0x0086, f01=0x018e, f02=» P DDUM DDINIT P PDIV P EXT DISU * P EXT DEPOOL < P EXT GETFRE P P EXT SETFRE d P EXT SETOCC x P EXT REFSP P EXT WRFSP P EXT CHANFC P EXT COND P EXT RDDS P ENTRY POOL P ENTRY MATCH
0x1af390…1af524 Dummy {f00=0x0086, f01=0x018e, f02=» P ENTRY DLRCCH P ENTRY RD P ENTRY WR , P ENTRY RFRSP > P ENTRY OFRSP R P ENTRY SFMTCH f P ENTRY LOCKE | P ENTRY RDACC P ENTRY WRACC P ENTRY POOL P ENTRY READJB P ENTRY MATCH P ENTRY ENTR
0x1af524…1af6b8 Dummy {f00=0x0086, f01=0x018e, f02=» P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04 2 PUS002 H P CBL INDFIL,W2,US001 V P SET SWIT04 r PUS001 P PERF RD,DEBIN5,RBUF P BERR NOFRET P XCOPY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10
0x1af6b8…1af84c Dummy {f00=0x0086, f01=0x0190, f02=» P PEND P* P* PWAIT PROC SUBROUTINE WAIT & P TBT SWITWT,WARE H P MOVE DEBINW4,W0 ` P CLEAR SWIT08 x P MOVE DKBIN1,=X'D0' P CALL CHANFC,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 P BNERR WARE2 P MOVE DEBINW
0x1af84c…1af9e0 Dummy {f00=0x0086, f01=0x018e, f02=» P PEND $ PRELEAS PROC SUBROUTINE RELEAS P CLEAR SWITWT : P BZ RELRET P P MOVE DKBIN1,=X'D0' b P CALL CHANFC,DISK,DKBIN1 ~ P DSC1 DISK,DETACH,W0 PRELRET P RET P PEND P* B P* SUBR FREESP, GET RECORDN
0x1af9e0…1afb74 (2, 161) Dummy {f00=0x0087, f01=0x0190, f02=» P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) ( 2 P CALL GETFRE,BPOOL(DKBIN1),RPOOL(DKBIN1),RECN L P CBE RECN,W0,NOFN P SUB FNOOFREC(INDEX),W1 , P CBG FNOOFREC(INDEX),F95PROC(INDEX),FND P SET SW95PR P B FND
0x1afb74…1afd08 Dummy {f00=0x0087, f01=0x0190, f02=»FSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX & P BERR RESSY F P PERF RESTSB Z P B FREE01 n PRESSY P PERF RESTSB P B FND P B FND PEOFCHN P TBT SWIT06,NOFSP P SET SWIT06 P MOVE DKBIN3,W
0x1afd08…1afe9c Dummy {f00=0x0087, f01=0x0190, f02=» PERF COND P RET P PEND P* , ( P* SUBROUTINE SCHPOO, SEARCH POOL 6 P* b PSCHPOO PROC $IND,STRG,WX l P MOVE STRG10A,$IND P COPY STRG10A,W1,W6,STRG,W0 * P PERF DEPOOL,WX,DEBIN3,DEBIN4,STRG10A P RET P PEN
0x1afe9c…1b0030 Dummy {f00=0x0087, f01=0x0190, f02=» BOOL8 P CLEAR BOOL9 P XCOPY DEBIN2,W0,W2,BUF,W2 " P XCOPY DEBIN1,W0,W2,BUF,W4 D P CBNE DEBIN1,W0,DL001 f P SET BOOL9 P B RREPRE PDL001 P PERF RD,DEBIN1,BUF P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEB
0x1b0030…1b01c4 Dummy {f00=0x0087, f01=0x018e, f02=»F WR,DEBIN1,BUF PRREPRE P CBNE DEBIN2,W0,DL008 & P SET BOOL8 D P TBT BOOL9,DLRET V P B DLR2 n PDL008 ~ P PERF RD,DEBIN2,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W4 P XCOPY BUF,W4,W2,DEBIN1,W0 P PERF WR
0x1b01c4…1b0358 Dummy {f00=0x0087, f01=0x0190, f02=» P PERF RFRSP,DEBIN5,DEBIN1 PDLRET * P PERF COND 8 P RET J P PEND V PRD PROC BIN,BUF d P TBT SWIT04,US01 | P PERF DISU,W1,BIN,BUF P B DRET PUS01 P PERF DISU,W3,BIN,BUF PDRET P RET P PEN
0x1b0358…1b04ec Dummy {f00=0x0087, f01=0x018e, f02=»F | P B DRET P PEND P* ( 4 P* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED TO 2 2 P* FREESPACE-TABLE. RECORDNUMBER IN PM RECNO. j P* PRFRSP PROC RECNO,INDEX : P PERF GFRSPR,RECNO,INDEX GET FSP-REC WITH RECNO IN IT 2 P C
0x1b04ec…1b0680 Dummy {f00=0x0087, f01=0x0190, f02=» P* SUBROUTINE GFRSPR 8 P* GET FREESPACE-RECORD WITH RECORDNUMBER ACCORDING " P* TO RECNO IN IT ^ P* x , P* SYNTAX: PERF GFRSPR,RECNO,INDEX 2 P* INDEX = INDEX TO CURRENT FILE P* PGFRSPR PROC RECNO,INDE
0x1b0680…1b0814 (2, 162) Dummy {f00=0x0087, f01=0x0190, f02=»RS/REC p PSYSFLE : P MOVE DEBIN4,FINDEXPO(INDEX) GET INDEX TO FREESP-POOL 4 P XCOPY DKBIN2,W0,W2,RPOOL(DEBIN4),W15 OCC SPACE Z P SUB DKBIN2,W12 P MUL DKBIN2,W8 P DIV DKBIN2,DKBIN1 . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS
0x1b0814…1b09a8 Dummy {f00=0x0087, f01=0x018e, f02=» GET LAST INDICATED RNR ~ P SUB DKBIN1,W1 P CBG RECNO,DKBIN1,NEXT 6 P CBL RECNO,DKBIN3,PREV T PGFRET r P MOVE DEBIN4,FINDEXPO(INDEX) P RET " PNEXT GET NEXT FREESP-RECORD P MOVE DKBIN1,W13 PREAD 6 P XCOPY DEBIN4,
0x1b09a8…1b0b3c Dummy {f00=0x0087, f01=0x0190, f02=» P PERF REFSP,DEBIN4,INDEX P BERR GFREST $ P PERF RESTSB 8 P B ANFANG L PGFREST ^ P PERF RESTSB l P B GFRET PPREV P MOVE DKBIN1,W11 P B READ P PEND P* P* P* SUBROUTINE OFRSP 0 P*
0x1b0b3c…1b0cd0 Dummy {f00=0x0087, f01=0x0190, f02=»OL(DEBIN4),RPOOL(DEBIN4),RECNO P RET & P PEND 2 P* @ < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE J P* PSFMTCH PROC WX,BUF,STEG P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P
0x1b0cd0…1b0e64 Dummy {f00=0x0087, f01=0x0190, f02=»RID2 | P B RETR PRID1 P ADD DEBIN2,W2 ( P XCOPY DKBIN1,W0,W2,BUF,W6 > , P PERF MATCH,BUF,DEBIN2,DKBIN1,STR6A,STEG ` P BNERR FOND P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P CBE DKBIN1,W0,RID2 P MOVE DEBIN1,D
0x1b0e64…1b0ff8 Dummy {f00=0x0087, f01=0x0190, f02=» " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 PRETR * P PERF COND 6 P RET H P PEND T P* b P* l P* v PLOCKE PROC P MOVE DEBIN1,W0 ( P XCOPY DEBIN1,W1,W1,RPOOL(DEBIN3),W0 P ADD DEBIN1,W128 ( P XCOPY RPOOL(DEBIN3),W0,W1
0x1b0ff8…1b118c Dummy {f00=0x0087, f01=0x0190, f02=»WAIT P PERF DISU,W3,DEBIN1,SYSBUF P BERR RDARET 0 * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 D ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 r PRDARET P PERF COND P RET P PEND P* . P* SUBROUTINE WRACC, WRITE ACCUMULAT
0x1b118c…1b1320 Dummy {f00=0x0087, f01=0x018e, f02=» XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 P PERF DISU,W4,DEBIN1,SYSBUF , P PERF COND P P RET b P PEND n P* | * P* SUBR POOL, GET ONE BUFFER, LOCKED P* PPOOL PROC P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 * P PERF DE
0x1b1320…1b14b4 (2, 163) Dummy {f00=0x0087, f01=0x0190, f02=» P MOVE DEBIN3,DEBIN4 P PERF DISU,W1,DEBIN3,SYSBUF $ P BERR RETRED H P MOVE DEBIN5,=W'92' $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 x P CBE STR6A,JOBNAME,RETRED " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBNE DEBIN4,W0,REDJCH P M
0x1b14b4…1b1648 Dummy {f00=0x0087, f01=0x0190, f02=» PMTCH " P MATCH BUF1,START,W6,KEY,W0,W6 P BNERR MTCHED 6 P ADD START,STEP L P SUB START,W1 d P CBNG START,END,MTCH z P MOVE DEBINW4,W9 PMTCHED P PERF COND P RET P PEND P* P P* PENTR
0x1b1648…1b17dc Dummy {f00=0x0087, f01=0x0190, f02=»ET P PEND P* J P* SUBROUTINE ALGO: SET OR CHECK FORMAT-IDENTIFICATION ON DESCRIPTOR- " 4 P* RECORD FOR DIRECT DISC-ACCESS IN 'GET FORMAT' p $ P* FC = 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITI
0x1b17dc…1b1970 Dummy {f00=0x0087, f01=0x0190, f02=»ALGO PROC FC P MOVE DKBIN3,W0 P MOVE DKBIN1,W0 , PXCALGO D $ P XCOPY DKBIN2,W0,W2,STR6A,DKBIN1 R P ADD DKBIN3,DKBIN2 z P ADD DKBIN1,W2 P CBNE DKBIN1,W6,XCALGO P IB FC C P ALTO C P ALFRO PALTO " P
0x1b1970…1b1b04 Dummy {f00=0x0087, f01=0x0190, f02=»MP W1,W2 P RET PNOERR P CMP W1,W1 * P RET < P PEND H $ PSAVESB PROC SAVE SYSBUF TO POOL V P MOVE FLIND(W20),DEBINW4 ~ PSAVPOO P PERF POOL P BNERR SAVOK P SWITCH P B SAVPOO PSAVOK P MOVE
0x1b1b04…1b1c98 Dummy {f00=0x0087, f01=0x413a, f02=»W20) | P RET P PEND P* & P* 0 * PRESTSB PROC RESTORE SYSBUF FROM POOL : P MOVE DKBIN1,FLIND(W21) h ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A
0x1b1c98…1b1e2c Dummy {f00=0x0087, f01=0x2008, f02=» P RET P PEND P* & P* 0 * PRESTSB PROC RESTORE SYSBUF FROM POOL : P MOVE DKBIN1,FLIND(W21) h ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A
0x1b1e2c…1b1fc0 Dummy {f00=0x0087, f01=0x0190, f02=»
0x1b1fc0…1b2154 (2, 164) Opaque[0x194]
0x1b2154…1b22e8 # DirEnt {nam=»DEDICO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x10f8, f03=0x0000}
0x1b2154…1b22e8 IdxSect {
0x1b2154…1b22e8 f00 = 0x0087 // 0x1b2154 @0x0
0x1b2154…1b22e8 f01 = 0x0006 // 0x1b2156 @0x2
0x1b2154…1b22e8 gno = [ // 0x1b2158 @0x4
0x1b2154…1b22e8 [0x00]: C0x0087.0x3.0
0x1b2154…1b22e8 [0x01]: C0x0088.0x0.0
0x1b2154…1b22e8 [0x02]: C0x0088.0x1.0
0x1b2154…1b22e8 ]
0x1b2154…1b22e8 }
0x1b22e8…1b247c Dummy {f00=0x0087, f01=0x0190, f02=» ( P IDENT DEDICOMM REL 1.0 79-01-16/AST P* 0 B P************************************************************* : P* P* SUBROUTINE DEDISC P* , P* CALLING SEQUENCE: PERF DEDISC,FC P* P* FC ACTION
0x1b247c…1b2610 Dummy {f00=0x0087, f01=0x0190, f02=»TEN X B P* AS LAST RECORD IN JOBDEFINITION-CHAIN. NO CHECKS , P* ARE DONE ON JOBDEFINITION.G R P* @ P* 02 GET JOBDEFINITION. THE JOBDEFINITION, INDICATED B P* BY ITS NAME IN 'DEINPUT' IS GIVEN TO THE CA
0x1b2610…1b27a4 Dummy {f00=0x0087, f01=0x0190, f02=» DUMMY-ENTRY P* @ P* 04 SEARCH JOBDEFINITION. A SEARCH IS DONE, WHETHER > P* THE INDICATED JOBDEFINITION EXISTS IN SYSTEM. d P* D P* 05 DELETE JOBDEFINITION. THE JOBDEFINITION, INDICATED D P* BY
0x1b27a4…1b2938 Dummy {f00=0x0087, f01=0x0190, f02=» JOBCHAIN ON USERFILE, A NEW ENTRY IA ADDED TO ITS B P* BATCHCHAIN. ELSE, A JOBCHAIN WITH THE CURRENT JOB B F P* AND A BATCHCHAIN WITH THE CURRENT BATCH ARE CREATED. B P* THE FIRST DATARECORD AND AN ACCUMULATORRE
0x1b2938…1b2acc Dummy {f00=0x0087, f01=0x0190, f02=»RS IN CORE AND b D P* ITS INDEX WILL BE FOUND IN 'PINACC'. THE RECORDNUM- @ P* BER OF ACCUMULATORS IS SAVED IN POS 9-10 OF ITS ^ D P* RPOOL. 'CURSEC' IS LOADED WITH RECORDNUMBER OF THE " P* FIRST DATARECORD.
0x1b2acc…1b2c60 Dummy {f00=0x0087, f01=0x018e, f02=»RD AND ACCUMU- ` D P* LATORS ARE READ INTO MEMORY. A CHECK IS DONE, WHE- F P* THER THE SAME BATCH IS USED BY AN OTHER TASK. OUTPUT ^ P* AS FC 06. P* < P* 08 CLOSE BATCH. THE LAST DATARECORD OF THE CUR
0x1b2c60…1b2df4 (2, 165) Dummy {f00=0x0088, f01=0x0190, f02=» L P* A POINTER TO THE BUFFERPOOL IN 'PINDFR' IS WRITTEN TO DISC P* T > P* 10 GET FORMAT. THE FORMAT, INDICATED BY ITS NAME ^ : P* IN 'FORMAT' IS GIVEN TO THE CALLING TASK. J P* IF DATAITEM FRMTPNTR NOT ZERO
0x1b2df4…1b2f88 Dummy {f00=0x0088, f01=0x0190, f02=»FORMATCHAIN. AFTER EXECUTION, FRMTPNTR IS LOA- z J P* DED WITH A POINTER TO THE FIRST RECORD OF THE FORMAT. IF 8 J P* IF NO FORMAT-ADRESS IN FILE IS KNOWN, FRMTPNTR SHOULD BE 6 P* SET TO ZERO BEFORE DEDISC IS CALLED.
0x1b2f88…1b311c Dummy {f00=0x0088, f01=0x018e, f02=»ED FORMAT EXISTS IN SYSTEM. RETURNED & P* INFORMATION AS FC 10. , P* V < P* 13 DELETE FORMAT. THE FORMAT, INDICATED BY ITS ` @ P* NAME IN 'DEINPUT' IS REMOVED FROM FORMATCHAIN. P* * P* 14 WRITE CURRENT
0x1b311c…1b32b0 Dummy {f00=0x0088, f01=0x0190, f02=» , P* 17 DELETE CURRENT DATA-SECTOR P* 4 * P* 18 WRITE ACCUMULATOR-RECORD > P* l < P* 19 GET SYSTEM-VARIABLES. SYSTEM-VARIABLES ARE v " P* READ INTO MEMORY. P* > P* 20 ENTER SYSTEM-VARIABLE
0x1b32b0…1b3444 Dummy {f00=0x0088, f01=0x0190, f02=»ITION IN CHAIN X 2 P* IS OUTPUT TO DATA-ITEM 'JOBNAME'. P* L & P* 22 GET PREVIOUS JOBNAME. V P* $ P* 23 WRITE SECTOR (CORR) P* L P* 24 GET TABLE. INPUT:TABLE-NAME IN 'TABLE',ELEMENTNUMBER IN 'EL
0x1b3444…1b35d8 Dummy {f00=0x0088, f01=0x0190, f02=»LEMENT OF THE WANTED H P* WILL BE PASSED TO RPOOL AND BPOOL WITH INDEX 'PINDTB'. P* h P* r L P* 25 DELEWTE TABLE. THE TABLE, INDICATED BY ITS NAME IN 'TABLE' | " P* DELETED ON DISC. P* L P* 26
0x1b35d8…1b376c Dummy {f00=0x0088, f01=0x0190, f02=»L(PI L 8 P* AND RPOOL(PINDTB) ARE WRITTEN TO DISC. P* H F P* 27 DELETE BATCH. DATA-ITEM BATCH INDICATES THE BATCH TO R D P* BE DELETED. ALL RECORDS BELONGING TO THIS BATCH ARE . P* RETURNED TO FREESPACE-T
0x1b376c…1b3900 Dummy {f00=0x0088, f01=0x0190, f02=»1 IS LOADED WITH NUMBER OF h D P* FREE RECORDS IN SYSTEM-FILE AND DEBINW2 WITH NUMBER " > P* OF FREE RECORDS IN USERFILE OF RUNNING TASK. j P* @ P* 29 GET NEXT JOBDEFINITION. THE NEXT JOBDEFINITION B P* I
0x1b3900…1b3a94 (2, 166) Dummy {f00=0x0088, f01=0x0190, f02=» IS PASSED. P* > P* 30 GET PREVIOUS JOBDEFINITION. THE PREVIOUS JOB- > P* DEFINITION IN CHAIN IS PASSED TO THE CALLING b @ P* TASK. IF 'JOBNAME' IS EMPTY, THE FIRST JOBDEFI- , P* NITION IN CHAIN IS
0x1b3a94…1b3c28 Dummy {f00=0x0088, f01=0x0190, f02=». IF 'FORMAT' IS f < P* EMPTY, THE FIRST FORMAT IN CHAIN IS PASSED. P* X B P* 32 GET PREVIOUS FORMAT. THE PREVIOUS FORMAT IN CHAIN b B P* IS PASSED TO CALLING TASK. IF 'FORMAT' IS EMPTY, 6 P* THE FIRST FOR
0x1b3c28…1b3dbc Dummy {f00=0x0088, f01=0x0190, f02=» NEXT BATCH ON USERFILE IS d . P* OUTPUT TO DATA-ITEM 'BATCH'. " P* T ( P* 35 GET PREVIOUS BATCHNAME. ^ P* * P* RETURNCODE IN DEBINW4: 0 = OK L P* -1 = WARNING. 95 PROC OF FILESPACE USED
0x1b3dbc…1b3f50 Dummy {f00=0x0088, f01=0x0190, f02=» 11 = USED . P* 12 = LOCKED & < P* 13 = NO WORKSPACE IN CORE X P* F P* CONDITION-REGISTER IS SET TO 2 (=ERROR), IF DEBINW4 NOT ZERO L P*
0x1b3f50…1b40e4 Dummy {f00=0x0088, f01=0x4162, f02=» USED WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B F B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P**************************
0x1b40e4…1b4278 Dummy {f00=0x0088, f01=0x2008, f02=» WORKAREAS ARE DEBIN1, DEBIN2, DEBIN3, DEBIN4, DEBIN5, J P* SWIT01, SWIT02, SWIT03, STRG10A, STR6A, STR6B F B P* DKBIN1, DKBIN2, DKBIN3, SYSBUF, RBUF P* P* : P**************************
0x1b4278…1b440c Dummy {f00=0x0088, f01=0x018e, f02=»,STR6A P B START P EJECT P******************* , P* VOLUME SURVEY * H P******************* d PC80 P ATTFMT FSURVEY P SET DEPROMPT PC81 P PERF DECLRA P IB DEBINW2,C81,START,C82 P B C81
0x1b440c…1b45a0 Dummy {f00=0x0088, f01=0x0190, f02=» * P CALL SURVEY,PBLOCK,SBUF,SYSBUF,RETCOD P PERF HALT 2 P CBE RETCOD,W1,ERR18 D P CMP RETCOD,W0 ` P BNE ERR3 v P B START PERR18 ( P PERF DSKERR,W18 'DISK NOT OPERABLE' P B START P EJECT PHALT PROC PH10
0x1b45a0…1b4734 (2, 167) Opaque[0x194]
0x1b4734…1b48c8 # DirEnt {nam=»COPVOL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1110, f03=0x0000}
0x1b4734…1b48c8 IdxSect {
0x1b4734…1b48c8 f00 = 0x0088 // 0x1b4734 @0x0
0x1b4734…1b48c8 f01 = 0x001c // 0x1b4736 @0x2
0x1b4734…1b48c8 gno = [ // 0x1b4738 @0x4
0x1b4734…1b48c8 [0x00]: C0x0088.0x2.0
0x1b4734…1b48c8 [0x01]: C0x0088.0x3.0
0x1b4734…1b48c8 [0x02]: C0x0089.0x0.0
0x1b4734…1b48c8 [0x03]: C0x0089.0x1.0
0x1b4734…1b48c8 [0x04]: C0x0089.0x2.0
0x1b4734…1b48c8 [0x05]: C0x0089.0x3.0
0x1b4734…1b48c8 [0x06]: C0x008a.0x0.0
0x1b4734…1b48c8 [0x07]: C0x008a.0x1.0
0x1b4734…1b48c8 [0x08]: C0x008a.0x2.0
0x1b4734…1b48c8 [0x09]: C0x008a.0x3.0
0x1b4734…1b48c8 [0x0a]: C0x008b.0x0.0
0x1b4734…1b48c8 [0x0b]: C0x008b.0x1.0
0x1b4734…1b48c8 [0x0c]: C0x008b.0x2.0
0x1b4734…1b48c8 [0x0d]: C0x008b.0x3.0
0x1b4734…1b48c8 ]
0x1b4734…1b48c8 }
0x1b48c8…1b4a5c Dummy {f00=0x0088, f01=0x018e, f02=» 2 P IDENT COPVOL PRR 9.1 79-04-06 870136640910 P : P* B . P***************************************** L P* ~ . P* PHILIPS TERMINAL SYSTEM PTS * P* P* *****TOSS UTILITIES***** P* . P* COPVOL = COPY VOLU
0x1b4a5c…1b4bf0 Dummy {f00=0x0088, f01=0x0190, f02=» P* P* P* ******** P* *COPVOL* * P* ******** < P* N P* X 8 P* COPVOL WILL COPY A VOLUME TO A DISC FORMATTED WITH b P* THE CREATE VOLUME UTILITY. 6 P* OLD DISC CALLED DISC1 AND NEW DISC CALLED DISC2 P* P*
0x1b4bf0…1b4d84 Dummy {f00=0x0088, f01=0x0190, f02=» P ENTRY COPVOL P P " P * P* 2 P* < P* *********** F P* *EXTERNALS* P* *********** r P* P* P EXTRN BIDACR P EXTRN BINACR , P EXTRN ADDMOD DOUBLE PRECISION ADDITION P EXTRN VOLNAM
0x1b4d84…1b4f18 Dummy {f00=0x0088, f01=0x0190, f02=» $ PQVRECL EQU 41 VTOC RECORD LENGTH $ PQVTBLF EQU 9 VTOC BLOCK FACTOR 0 ( PQBUF1L EQU 4 BUF1 LENGTH IN SECTORS X PQBUF2 EQU 2 BUFFER 2 PQPRFC EQU 5 PRINTER FC PQFCIN EQU 6 INPUT FC PQFCOUT EQU 7 OUTPUT FC PQVOL1 EQU 8 INPU
0x1b4f18…1b50ac Dummy {f00=0x0088, f01=0x0190, f02=»SC FC t P* P EJECT COPVOL CRVOL P* 8 P* ****** B P* *DATA* R P* ****** b P* r PBADNO2 DATA 0 | $ PCOUNTR DATA 0 COUNTER IN READ11 PENTRY2 DATA 0 PEXTNO DATA 0 $ PFEN2 DATA 0 FILE EXTENT NO DISC2
0x1b50ac…1b5240 Dummy {f00=0x0088, f01=0x0190, f02=»0 FILE RECORD LENGTH PFILORG DATA 0 FILE ORG ( PFILSEC DATA 0 FILE LENGTH IN SECTORS : & PFEXB2 DATA 0 NEW FILE EXTENT BASE f ( PFEXL2 DATA 0 NEW FILE EXTENT LENGTH PFILEXT DATA 0 " PFREBAS DATA 0 FREE EXTENT BASE $ PFRELEN DATA 0 FR
0x1b5240…1b53d4 (2, 168) Dummy {f00=0x0088, f01=0x0190, f02=»C1 DATA 0 RECORD NO IN VTOC SECTOR ( PSECNO DATA 0 OFFSET IN SECREC TABLE * PSECTOR DATA 0 SECTOR NO V * PSTACKP DATA 0 STACK POINTER A14 VALUE v : PTFILEN DATA 0 TOTAL NUMBER OF SECTORS IN FILE TO COPY , PTOTFRE DATA 0 TOTAL FREE LENGTH ON DIS
0x1b53d4…1b5568 Dummy {f00=0x0088, f01=0x0190, f02=»TA 0 VTOC1 LENGTH PVLEN2 DATA 0 VTOC2 LENGTH ( PVTSEC1 DATA 0 VTOC1 SECTOR WITH REC1 < & PVLAST1 DATA 0 LAST SECTOR IN VTOC1 h & PVLAST2 DATA 0 LAST SECTOR IN VTOC2 P* PECB1 DATA 0,0 $ P DATA 410 ECB FOR OLD DISC BUF1 P DAT
0x1b5568…1b56fc Dummy {f00=0x0088, f01=0x0190, f02=»FOR OLD DISC1 BUF2 ~ P DATA 410 P DATA 0,0,0 , P* @ ( PECB4 DATA 0,0 ECB FOR NEW DISC2 BUF1 J P DATA 410 v P DATA 0,0,0 PEXTSTP DATA EXTSTP P DATA 0,0,0,0 PSECREC DATA SECREC P DATA 0,0,0,0 P EJECT COP
0x1b56fc…1b5890 Dummy {f00=0x0088, f01=0x018e, f02=»OR NO: ' ~ PSEC DATA ' ' PQSECER EQU *-SECER * P DATA 0 D PFILER DATA ' FILE NAME: ' T PFILNAM DATA 0,0,0,0 v PQFILNM EQU *-FILER P DATA 0 PDESREC DATA ' ' P DATA 'DESTROYED RECORDS:' PRECFR DATA '
0x1b5890…1b5a24 Dummy {f00=0x0088, f01=0x018e, f02=» P* PINERR DATA /2030 P DATA 'INPUT DISC' & PQINERR EQU *-INERR @ P* Z POUTERR DATA /2030 d P DATA 'OUTPUT DISC' ~ PQUOTER EQU *-OUTERR P* PPRECB DATA 0,0,0,0,0,0 P* P EJECT COPVOL CRVOL P
0x1b5a24…1b5bb8 Dummy {f00=0x0088, f01=0x018e, f02=» PFFINCC EQU * P* " PEND010 LD A4,VBAS1 VTOC1 BASE & P LD A10,VLEN1 VTOC1 LENGTH L P SUK A4,1 n P ADR A10,A4 P ADK A4,2 * P LDKL A8,QVTBLF GET VTOC BLOCK FACTOR P LDR A9,A4 P* PEND015 LDK A7,/CC
0x1b5bb8…1b5d4c Dummy {f00=0x0088, f01=0x0190, f02=» P* P EJECT COPVOL CRVOL P* 2 P* ******** < P* *FRENT2* N P* ******** ` P* r 2 P* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 | P* INPUT A9 = VBAS2+1 , P* A4 = FIRST SECTOR AFTER VTOC2 . P* OUTPUT
0x1b5d4c…1b5ee0 Dummy {f00=0x0088, f01=0x0190, f02=»L A3,400 P ADK A2,2 SKIP CYLINDER ID PCP2 ADK A2,QVRECL 2 P SUK A3,QVRECL L P LCR A7,A2 b P ANK A7,/FF t P RF(Z) CP4 P ADK A2,1 NEXT ENTRY P SUK A3,1 P RB(P) CP2 END OF SECTOR? PCP3 ADKL A9,1 NEXT SECTOR
0x1b5ee0…1b6074 (2, 169) Dummy {f00=0x0089, f01=0x0190, f02=» PCP4 SUK A2,QVRECL P* " PCOMRTN RTN A14 , P* B P EJECT COPVOL CRVOL L P* l P* ******* v P* *FSAT2* P* ******* P* * P* TAKE FIRST FREE EXTENT IN VTOC2 BUF2 2 P* OUTPUT A2 POINT TO FIRST FREE EXTE
0x1b6074…1b6208 Dummy {f00=0x0089, f01=0x0190, f02=» 50 ENTRIES IN FSAT $ P ADK A2,4 POINT TO EXTENT LENGTH P* D $ PF1 LDR* A3,A2 FREE EXTENT LENGTH N & P RB(NZ) COMRTN FIRST FREE LENGTH? v P ADK A2,8 NEXT LENGTH P SUK A4,1 P RB(P) F1 END OF SECTOR? P ABL RTN05 DISC OVERFLOW
0x1b6208…1b639c Dummy {f00=0x0089, f01=0x0190, f02=»BUF1 TO BUF2 2 P*INPUT A1 POINT TO FIRST WORD IN BUF1 TO MOVE P* A2 POINT IN BUF2 J P* A4 LENGTH IN WORDS d P* PMOVE12 EQU * P* PM1 LDR* A3,A1 P STR A3,A2 STORE IN BUF2 P ADK A1,2 NEXT WORD P ADK A2,2
0x1b639c…1b6530 Dummy {f00=0x0089, f01=0x0190, f02=»** P* *MOVERE* P* ******** P* . 6 P* STORE NEW FILE EXTENT N0, LENGTH, BASE IN BUF2 8 * P* LAST RECORD NO FROM EXTENT 1 TO BUF2 r . P*OUTPUT A1 RESP A2 POINT TO RECORD LENGTH * P*INPUT A1,A2 POINT TO FILE EXTENT NO P* $
0x1b6530…1b66c4 Dummy {f00=0x0089, f01=0x0190, f02=»ECORD NO | P* PMOVERE EQU * P STR A5,A2 FILE EXTENT NO . P ADK A2,2 P P CMR A2 b P ADK A2,2 r " P STR A3,A2 FILE EXTENT LENGTH P ADK A2,2 P CMR A2 P ADK A2,2 P STR A4,A2 FILE EXTENT BASE P ADK A
0x1b66c4…1b6858 Dummy {f00=0x0089, f01=0x0190, f02=»DK A2,2 P ADK A1,14 P RTN A14 " P* 2 P EJECT COPVOL CRVOL < P* P* ******** f P* *NXTFRE* x P* ******** P* $ P* TAKE NEXT FREE SECTOR ON VTOC2 P* PNXTFRE EQU * P LDK A4,50 P* TAKE NEX
0x1b6858…1b69ec Dummy {f00=0x0089, f01=0x018e, f02=»,FRELEN P ADK A2,4 P LDR* A6,A2 " P ST A6,FREBAS 6 P CWR A3,A7 FRELEN AND TFILEN L P RB(L) NXT01 p P LDR A4,A6 P RTN A14 P* P EJECT COPVOL CRVOL P* P* ******* P* *PRINT* P* *******
0x1b69ec…1b6b80 Dummy {f00=0x0089, f01=0x018e, f02=» P ST A5,PRECB+2 P ST A6,PRECB+4 P LDK A7,/86 0 P LKM D P DATA 1 P P RTN A14 ` P* p P EJECT COPVOL CRVOL z P* P* ******** P* *READ11* P* ******** P* P* READ FROM DISC1 TO BUF1 & P*
0x1b6b80…1b6d14 (2, 170) Dummy {f00=0x0089, f01=0x0190, f02=» P* PRD02 LDKL A8,ECB1 P LDK A7,/91 , P ST A9,ECB1+10 SECTOR NO @ P LKM ` P DATA 1 l P LDK A7,/80 | P LD A8,ECB1+8 P TM A7,A8 $ P RB(NZ) RD02 NEW VOLUME LOADED? P LDKL A7,/8201 P TM A7,A8 P
0x1b6d14…1b6ea8 Dummy {f00=0x0089, f01=0x0190, f02=» P* ERROR IN SECTOR P* " P ST A9,SECTOR , P ST A5,COUNTR B * P LD A8,NOSEC NUMBER OF SECTORS IN FILE X & P SU A8,TFILEN NO OF COPIED SECTORS P ADKL A8,QBUF1L 2 P SUR A8,A5 CORRECTION FOR LAST COPIED SECTORS P LD A5,FIL
0x1b6ea8…1b703c Dummy {f00=0x0089, f01=0x0190, f02=»RD NUMBERS OF DESTROYED RECORDS P* ( P LDK A1,0 2 ( P LDR A2,A8 GET NO OF COPIED SECTORS D P* p PRD05 SUK A5,1 z P RF(Z) RD06 FINISHED? P LDK A6,0 P LDR A7,A8 , P CF A14,ADDMOD DOUBLE PRECISION ADDITION P RB RD
0x1b703c…1b71d0 Dummy {f00=0x0089, f01=0x0190, f02=»0 JUMP IF OVERFLOW P* PRD07 LDR A7,A1 SAVE A1-A2 $ P LDR A9,A2 F P LDKL A3,RECFR TO ADR X P LDK A4,7 LENGTH v P CF A14,BINACR P LDR A1,A7 RESTORE A1-A2 P LDR A2,A9 P LDK A6,0 " P LD A7,FILBLF GET BLOCK FACTOR
0x1b71d0…1b7364 Dummy {f00=0x0089, f01=0x0190, f02=» P CF A14,BINACR P* P EJECT COPVOL CRVOL $ P* D P* N P LD A2,SECTOR X P LDKL A3,SEC n P LDK A4,5 P CF A14,BIDACR P LD A4,4,A14 RESTORE A2-A4 P LD A3,2,A14 P ADKL A14,6 P LDR* A2,A14 P
0x1b7364…1b74f8 Dummy {f00=0x0089, f01=0x0190, f02=»DKL A5,FILER P LDK A6,QFILNM P CF A14,PRINT * P LDKL A5,DESREC @ P LDK A6,QDESR X P CF A14,PRINT n P* P EJECT COPVOL CRVOL P* P* 00 IN STATUS BITS IN BUF1 P* " P LDR* A1,A12 GET BUF1 ADDRESS
0x1b74f8…1b768c Dummy {f00=0x0089, f01=0x018e, f02=» P LDK A6,0 P* $ PRD08 SCR A6,A1 00 TO STATUS BIT P ADR A1,A7 H P SUK A5,1 Z P RB(P) RD08 l P LD A5,COUNTR P LD A9,SECTOR P* PRD10 ADKL A9,1 P SUKL A10,1 P RF(Z) RD15 P SUK A5,1 P R
0x1b768c…1b7820 Dummy {f00=0x0089, f01=0x018e, f02=» P* P EJECT COPVOL COPVOL P* . P* 8 PRD20 SUKL A9,QBUF1L RESET A9 B PRD21 EQU * f P LD A10,FILSEC x P* & PRD22 LDR* A7,A12 GET BUF1 ADDRESS P ST A7,ECB1+2 RESET ECB1 P ST A7,ECB4+2 RESET ECB4 P RTN A
0x1b7820…1b79b4 (2, 171) Dummy {f00=0x0089, f01=0x0190, f02=» v P* P* ******* P* *READ1* $ P* ******* 6 P* H P* R PREAD1 EQU * P LDKL A8,ECB1 p P* PREAD12 EQU * P LDK A7,/91 READ WITH WAIT P ST A9,10,A8 SECTOR NO P LKM P DATA 1 P LD A7,8
0x1b79b4…1b7b48 Dummy {f00=0x0089, f01=0x0190, f02=»820F P ABL(NZ) RTNIE ERROR MESSAGE P RTN A14 0 P* @ P* J P* ******* T P* *READ2* f P* ******* x P* P* PREAD2 EQU * P LDKL A8,ECB2 P RB READ12 P* P EJECT COPVOL CRVOL P*
0x1b7b48…1b7cdc Dummy {f00=0x0089, f01=0x0190, f02=»TOR TO BUF1 ( P*INPUT A7=BIT TO COMPARE STATUS WITH P* A8=BLOCKFACTOR IN VTOC @ P* A9=FIRST SECTOR TO READ ` P* A10=LAST SECTOR TO READ " P*OUTPUT A6 CONTAIN STATUS BIT P* A1 POINT TO STATUS BIT P* PSEFFE1 EQU * P
0x1b7cdc…1b7e70 Dummy {f00=0x0089, f01=0x0190, f02=» SAVED VALUE TO A8 " P LDR* A1,A12 GET BUF1 ADDRESS ! P ADK A1,QVRECL+2 ! @ P* ! X PSE010 LDK A6,0 ! b P LCR A6,A1 STATUS BIT TO A6 ! x P CWR A6,A7 ! " P RF(NE) SE020 NOT EQUAL. NEXT ! P SUKL A8,1 ! P RTN A14 ! P* ! P EJECT
0x1b7e70…1b8004 Dummy {f00=0x0089, f01=0x0190, f02=»* END OF SECTOR. NEXT SECTOR ! P* " $ P ADKL A9,1 " . $ P LDR A8,A3 RESET RECORD COUNTER " @ P CWR A9,A10 " h " P RB(NG) SE005 READ NEXT SECTOR " | P* " ( P* END OF VTOC. NO MORE SECTORS LEFT " P* " P RTN A14 " P* " P EJECT COP
0x1b8004…1b8198 Dummy {f00=0x0089, f01=0x0190, f02=»<A7> " f P*INPUT SAME AS SEFFE1 # P* # * PSEFFE2 EQU * # 4 P* # H PFE005 LDR A2,A7 SAVE A7 # R P LDR A3,A8 SAVE A8 # r P CF A14,READ2 # P LDR A7,A2 SAVED VALUE TO A7 # P LDR A8,A3 SAVED VALUE TO A8 # ( P LD A2,QBUF2,A12 A2 POINTER IN
0x1b8198…1b832c Dummy {f00=0x0089, f01=0x0190, f02=»S BIT TO A6 # P CWR A6,A7 $ P RF(E) FE020 $ & P* STATUS NOT EQU $ : P ADK A2,1 $ R P SUKL A8,1 $ d P RB(P) FE010 NEXT RECORD $ v P* NEXT VTOC SECTOR $ P ADKL A9,1 $ $ P LDR A8,A3 RESET RECORD COUNTER $ P CWR A9,A10 END OF SECTORS? $
0x1b832c…1b84c0 Dummy {f00=0x0089, f01=0x0190, f02=»RITE1* $ P* ******** % P* % P* WRITE BUF1 ON DISC 1 % * P*INPUT A9=SEC TO WRITE % H P* % f PWRITE1 EQU * % p P LDKL A8,ECB1 % P LDK A7,/95 % P ST A9,ECB1+10 % P LKM % P DATA 1 % P* TEST OF RETURN CODE % $ P LD A7,ECB
0x1b84c0…1b8654 (2, 172) Dummy {f00=0x0089, f01=0x0190, f02=»L A8,/820F % P ABL(NZ) RTNIE ERROR MESSAGE & P RTN A14 & 6 P* & F P EJECT COPVOL CRVOL & P P* & p P* ******** & z P* *WRITE2* & P* ******** & P* & P* & PWRITE2 EQU * & P LDKL A8,ECB2 & P* & PWRIT22 EQU * &
0x1b8654…1b87e8 Dummy {f00=0x0089, f01=0x0190, f02=»ODE & x P ANK A7,/80 ' & P RB(NZ) WRIT22 NEW VOLUME LOADED? ' P LD A8,8,A8 GET RETURN CODE ' J P ANKL A8,/820F ' n " P ABL(NZ) RTNOE1 ERROR MESSAGE ' P RTN A14 ' P* ' P* ' P* ******** ' P* *WRITE4* ' P* ******** ' P* '
0x1b87e8…1b897c Dummy {f00=0x0089, f01=0x0190, f02=»** ' P* *VTOSEC* ( P* ******** ( P* ( . F P* TAKE SECTOR AND RECORD FROM TABLE SECREC. READ SECTOR TO BUF1. ( 8 , P*OUTPUT A1 POINT TO FIRST WORD IN RECORD ( P*INPUT A7=OFFSET IN SECREC ( P* A6=RECORD LENGTH ( P* ( PVTOSEC EQU * (
0x1b897c…1b8b10 Dummy {f00=0x0089, f01=0x0190, f02=» REC TO A5 ( P ST A5,REC1 ) & P CF A14,READ1 READ SECTOR TO BUF1 ) & " P LDR* A1,A12 GET BUF1 ADDRESS ) P P ADK A1,2 SKIP CYLINDER ID ) v P* ) PL1 SUK A5,1 ) P RF(Z) L2 RECORD FOUND ) P ADK A1,QVRECL+1 ) P RB L1 NEXT ) P* )
0x1b8b10…1b8ca4 Dummy {f00=0x0089, f01=0x0190, f02=»* LOCK INPUT,OUTPUT FLEXIBLE DISCS ) P* * , PLOCK EQU * * 6 2 P CM ENTRY2 FLEX. DISC FLAG FOR BACK-UP VERSION * H $ P LDK A3,0 INPUT/OUTPUT DISC FLAG * ~ P LDKL A8,ECB1 * P* * PLOC:10 LDR* A1,A8 FC * P CCK A1,FDFC * P RF(L) LOC:50 NOT
0x1b8ca4…1b8e38 Dummy {f00=0x0089, f01=0x018e, f02=» P LDR A1,A2 SAVE RET. CODE + P LDR A3,A3 + & P RF(NZ) LOC:15 OUTPUT DISC? + 8 P ANK A2,/21 + P RF(NZ) LOC:80 FATAL ERROR + p P RF LOC:20 + P* + PLOC:15 ANK A2,1 + P RF(NZ) LOC:80 NOT OPERABLE? + P ANKL A1,/0200 + & P ABL(NZ)
0x1b8e38…1b8fcc Dummy {f00=0x0089, f01=0x0190, f02=» P DATA 1 , P LD A2,8,A8 RET. CODE , P ANK A2,/7 , 2 P RF(NZ) LOC:80 FATAL ERROR , D & P IM ENTRY2 INDICATE FLEXIBLE DISC , f P* , PLOC:50 LDR A3,A3 , P RF(NZ) LOC:EN OUTPUT DISC , " P LDKL A8,ECB2 OUTPUT DISC ECB , " P LDK A3,1 INDI
0x1b8fcc…1b9160 Dummy {f00=0x0089, f01=0x0190, f02=» RTNOE OUTPUT I/O ERROR , P* - PLOC:EN EQU * - * P RTN A14 - > P* - N P EJECT COPVOL - X P* - p P* - z P******** - P*PHREAD* - P******** - P* - P* - * PPHREAD EQU * ROUTINE FOR PHYSICAL READ - 0 P LDK A1,QBUF1L BUF
0x1b9160…1b92f4 (2, 173) Dummy {f00=0x008a, f01=0x0190, f02=»A8,ECB1 GET ECB1 ADDRESS - P* . . PPHR:05 CW A11,ECB1+10 CHECK SECTOR NUMBER . * $ P RF(E) PHR:15 COPYING FINISHED? . , P IM ECB1+10 NO, INCREMENT SECTOR NUMBER . P LKM . P DATA 1 . " P LD A2,ECB1+8 GET RETURN CODE . P RF(Z) PHR:10 READ
0x1b92f4…1b9488 Dummy {f00=0x008a, f01=0x0190, f02=»R ADDRESS . l P SUK A1,1 / ( P RB(P) PHR:05 BUFFER NOT FILLED UP? / $ & P RTN A14 BUFFER FILLED UP, RETURN / P P* / z P EJECT COPVOL / P* / P* / 8 PPHR:15 NGR A1,A1 INDICATE <= 8 SECTORS LEFT TO COPY / P RTN A14 / P* / 0 PPH
0x1b9488…1b961c Dummy {f00=0x008a, f01=0x018e, f02=»HR:25 OUTPUT READ ERROR? / * P LDK A3,0 NO, INDICATE ERROR ON INPUT 0 P* 0 N PPHR:25 ANKL A2,/808B 0 X * P RB(NZ) LOC:80 RETURN IF SERIOUS ERROR 0 t P LD A2,8,A8 GET RETURN CODE 0 P ANKL A2,/204 0 & P RF(Z) PHR:35 ONLY RETRY BIT SET? 0 " P L
0x1b961c…1b97b0 Dummy {f00=0x008a, f01=0x0190, f02=» P* 1 6 PPHR:30 CF A14,PRINT PRINT 'INPUT' OR 'OUTPUT DISC' 1 P LDKL A5,READER 1 H P LDK A6,QREADE 1 ` $ P CF A14,PRINT PRINT 'READ ERROR' 1 v P ST A1,SAVEA1 SAVE A1 1 P* 1 P EJECT COPVOL 1 P* 1 P* 1 P LDKL A3,SEC 1 P L
0x1b97b0…1b9944 Dummy {f00=0x008a, f01=0x0190, f02=»TOR NO: XXXXX' 1 x P LDKL A1,0 RESTORE A1 2 PSAVEA1 EQU *-2 SAVE AREA A1 2 4 P LDK A7,/91 PHYSICAL READ 2 X P* 2 z PPHR:35 RTN A14 2 P* 2 PPHR:40 LDKL A5,INERR 2 P LDK A6,QINERR 2 P RB PHR:30 2 P* 2 P EJECT COPVOL 2
0x1b9944…1b9ad8 Dummy {f00=0x008a, f01=0x0190, f02=»QBUF1L BUFFER SIZE IN NO OF SECTORS 2 P* 3 , ( PBAS:05 LDKL A8,ECB2 GET ECB ADDRESS 3 6 P LDR A9,A1 SAVE A1 3 b P LDK A7,/85 BASIC WRITE 3 | $ P LDR* A4,A12 GET BUFFER ADDRESS 3 P ST A4,ECB2+2 3 P* 3 . PBAS:10 IM ECB2+10 INCREMENT SECTOR N
0x1b9ad8…1b9c6c Dummy {f00=0x008a, f01=0x0190, f02=»N BUFFER? 3 t P* 4 P LDR A1,A9 RESTORE A1 4 P NGR A9,A9 4 : P ADS A9,ECB2+10 4 L $ P LDR* A4,A12 GET BUFFER ADDRESS 4 d P ST A4,ECB2+2 4 P LDK A7,/91 PHYSICAL READ 4 P* 4 P EJECT COPVOL 4 P* 4 P* 4 . PBAS:20 IM ECB2
0x1b9c6c…1b9e00 Dummy {f00=0x008a, f01=0x0190, f02=»PHR:20 NO, CHECK OUT WHY 4 " P LDKL A8,ECB2 GET ECB2 ADDRESS 5 P* 5 F PBAS:30 SUK A1,1 5 P 2 P RB(P) BAS:20 MORE SECTORS IN BUFFER TO CHECK? 5 h P RTN A14 NO, RETURN 5 P* 5 P EJECT COPVOL 5 P* 5 P* 5 P***** 5 P*IBM* 5
0x1b9e00…1b9f94 (2, 174) Dummy {f00=0x008a, f01=0x0190, f02=»H 5 p P LDKL A9,6 SECTOR 7 6 " P CF A14,READ2 READ VOLUME NAME 6 & " P LDKL A8,ECB2 GET ECB2 ADDRESS 6 L P LDK A1,2 6 r 2 P ADS A1,2,A8 UPDATE BUFFER ADDRESS FOR VOLNAM 6 , P CF A14,VOLNAM ASK OPERATOR IF VOLUME OK 6 P ADK A1,0 SET CR 6 ( P ABL(N
0x1b9f94…1ba128 Dummy {f00=0x008a, f01=0x0190, f02=»BUFFER ADDRESS 6 ~ 0 P LDKL A1,/8081 WRITE 'TOSS' IN VOLUME LABEL 7 P ST A1,34,A2 7 J P LDKL A1,/8283 7 ^ P ST A1,36,A2 7 t P CM 10,A8 SECTOR 0 7 P LDK A7,/95 WRITE 7 P LKM 7 P DATA 1 7 P* 7 P EJECT COPVOL 7 P* 7 P* 7
0x1ba128…1ba2bc Dummy {f00=0x008a, f01=0x0190, f02=»A1,4,A8 SET TOSS SECTOR LENGTH 7 P RF BACK00 8 & P* 8 8 P EJECT COPVOL 8 B P* 8 Z P* 8 d P******** 8 n P*BACKUP* 8 ~ P******** 8 P* 8 * P* COPVOL, WITH NO REORGANIZING OF DISC 8 P* 8 PBACKUP EQU * 8 P* 8 P* CHECK OU
0x1ba2bc…1ba450 Dummy {f00=0x008a, f01=0x0190, f02=»,A8 RET. CODE 8 P ANK A2,/20 9 * P RB(NZ) IBM OUTPUT DISC IBM FORMATTED? 9 * * P CF A14,READ2 READ OUTPUT VOLUME LABEL 9 X " P LDKL A8,ECB2 GET ECB2 ADDRESS 9 , P CF A14,VOLNAM ASK OPERATOR IF VOLUME OK 9 P ADK A1,0 SET CR 9 ( P ABL(N) RTN99 ABORT
0x1ba450…1ba5e4 Dummy {f00=0x008a, f01=0x0190, f02=»1,2 SKIP CYLINDER ID 9 P LDR A3,A12 GET PBLK ADDRESS : . P ADK A3,14 POINT TO NEW OUTPUT VOLUME NAME : @ P LDK A5,3 : r P* : P EJECT COPVOL : P* : P* : * PBACK05 LDR* A4,A3 GET NEW VOLUME NAME : $ P STR A4,A1 STORE NEW VOLUME NAME
0x1ba5e4…1ba778 Dummy {f00=0x008a, f01=0x018e, f02=» $ P RF(Z) BACK07 NOT FLEXIBLE DISC? ; 0 P LDKL A11,499 NO OF SECTORS ON FLEXIBLE DISC ; , P RF BACK12 ; ` P* ; r PBACK07 EQU * ; | P ADK A1,20 ; $ P LDR* A11,A1 GET NO OF CYLINDERS ; P LDK A2,31 ; P* ; 4 PBACK10 ADR* A11,A1 COMPUTE NO OF S
0x1ba778…1ba90c Dummy {f00=0x008a, f01=0x018e, f02=» & P LDKL A10,410 SECTOR SIZE IN BYTES < 0 P LDK A1,QBUF1L BUFFER SIZE IN NO OF SECTORS < . P LDK A7,/91 PHYSICAL READ < b " P LDKL A8,ECB1 GET ECB1 ADDRESS < " P CF A14,PHR:10 READ 7 SECTORS < P SUK A1,1 < P ST A1,ECB2+10 < P* < P EJECT
0x1ba90c…1baaa0 Dummy {f00=0x008a, f01=0x0190, f02=» 0 P RB(Z) BACK15 REMAINING NO OF SECTORS >= 8? = P ADK A1,QBUF1L NO = 8 * P RF(Z) BACK20 NO MORE SECTORS TO COPY? = R 0 P CF A14,BAS:05 YES, WRITE REMAINING SECTORS = P* = ( PBACK20 LDKL A8,ECB2 GET ECB2 ADDRESS = P LDK A7,/80 TEST STATUS =
0x1baaa0…1bac34 (2, 175) Dummy {f00=0x008a, f01=0x0190, f02=»OPVOL CRVOL = P* > P* ***************** > P* * ENTRY COPVOL * > < P* ***************** > X P* > t PCOPVOL EQU * > ~ * P ST A14,STACKP SAVE STACKPOINTER VALUE > " P LDR* A1,A12 GET BUF1 ADDRESS > " P ST A1,ECB1+2 BUF1 ADR TO ECB1 >
0x1bac34…1badc8 Dummy {f00=0x008a, f01=0x0190, f02=»BUF2 ADR TO ECB3 > $ P LC A2,QPRFC,A12 LOAD PRINTER FC ? P SC A2,PRECB+1 ? @ P LC A2,QFCIN,A12 INPUT FC ? V P SC A2,ECB1+1 FC3 TO ECB1+1 ? x P SC A2,ECB3+1 FC3 TP ECB3+1 ? P LC A2,QFCOUT,A12 OUTPUT FC ? P SC A2,ECB2+1 FC4 TO ECB2+1 ? P
0x1badc8…1baf5c Dummy {f00=0x008a, f01=0x0190, f02=» P* @ P* ****** @ P* *TEST* @ P* ****** @ . P* @ > ( P* COMPARE NAMES IN PBLK AND ON DISC @ H P* @ t P* READ VL1 TO BUF1 @ ~ P* @ P SUR A9,A9 SECTOR 0 @ P CF A14,READ1 @ " P LDR* A1,A12 GET BUF1 ADDRESS @ P ADK A1,2 SKIP
0x1baf5c…1bb0f0 Dummy {f00=0x008a, f01=0x0190, f02=» P CWR* A4,A1 COMPARE ONE WORD A P ABL(NE) RTN02 ERROR MESSAGE A ( P ADK A3,2 A L P ADK A1,2 A ^ P SUK A5,1 END? A p P RB(P) TST010 NEXT A P* A . P LC A5,QREORG,A12 GET REORGANIZE PARAMETER A P ANK A5,/FF A " P ABL(Z) BACKUP NO REORGA
0x1bb0f0…1bb284 Dummy {f00=0x008a, f01=0x0190, f02=»,A12 LOAD BUF3 ADDRESS A P ADK A2,2 SKIP CYLINDER ID B P LDK A5,3 COUNTER B @ P* B Z PTST020 LDR* A4,A3 B d P CWR* A4,A2 COMPARE ONE WORD B ~ P ABL(NE) RTN02 ERROR MESSAGE B P ADK A3,2 A3 POINTER IN PBLK B P ADK A2,2 B P SUK A5,1 B
0x1bb284…1bb418 Dummy {f00=0x008a, f01=0x0190, f02=» LDR* A4,A2 'TO' TO A4 B P CWK A4,'TO' C & P ABL(NE) RTN06 FAULTY DISC FORMAT C 2 P*DISC1 C P LDR* A3,A1 VTOC LENGTH C j P ST A3,VLEN1 C P ADK A1,4 C P LDR* A3,A1 VTOC BASE C P ST A3,VBAS1 C P*DISC2 C P SUK A2,26 C P LDR*
0x1bb418…1bb5ac Dummy {f00=0x008a, f01=0x0190, f02=»TOC LENGTH+BASE C P SUK A3,1 D ( P LDR A10,A3 LAST VTOC2 SECTOR IN A10 D * ( P ST A10,VLAST2 LAST SECTOR IN VTOC2 D V P EJECT COPVOL CRVOL D P* CHECK STATUS BIT IN VTOC2 D . P ADK A4,1 SECTOR AFTER FREE SPACE ADM TAB D P LDR A9,A4 D *
0x1bb5ac…1bb740 Dummy {f00=0x008a, f01=0x0190, f02=» CWR A6,A7 D P RF(NE) TEST40 END OF VTOC2 E P* TEST FILE ORG. BADSPOT? E 6 $ PTST30 SUK A2,14 POINT TO BADSPOT E X P LDK A7,/42 'B' E P CCR A7,A2 E 0 P ABL(NE) RTN03 NOT A BADSPOT. DISC NOT EMPTY E P* BADSPOT. END OF VTOC2 E * P* WRITE FF
0x1bb740…1bb8d4 (2, 176) Dummy {f00=0x008a, f01=0x0190, f02=»TOC* E P* ****** F P* F > P* TAKE FIRST NOT COPIED FILE ENTRY IN VTOC1. SEEK THROUGH F & < P* REST OF VTOC FOR ANY MORE FILE EXTENTS. FILE RECORD IS F h ( P* STORED WITH VTOC SECTOR IN SECREC F P* F ( PVTOC01 LD A9,VBAS2 VTOC2 BASE TO A9 F *
0x1bb8d4…1bba68 Dummy {f00=0x008a, f01=0x0190, f02=» COUNTER OF ENTRIES F P* G ( PVTOC05 LDR* A3,A2 FREE LENGTH TO A3 G & P ADR A1,A3 G R $ P ADK A2,8 TAKE NEXT FREE LENGTH G d P SUK A4,1 G P RB(P) VTOC05 NEXT ENTRY G , P ST A1,TOTFRE TOTAL FREE LENGTH ON DISC2 G P* G P EJECT COPVOL
0x1bba68…1bbbfc Dummy {f00=0x008a, f01=0x018e, f02=»C RECORD LENGTH G ~ P SUK A4,1 H P ADR A10,A4 H * * P ST A10,VLAST1 LAST VTOC SECTOR DISC1 H > & P ADK A4,2 FIRST FILE ENTRY SECTOR H l 2 P* SEEK FIRST FILE ENTRY WITH /FF IN STATUS BIT H & P LDKL A8,QVTBLF VTOC BLOCK FACTOR H P LDR A9,A4 H P
0x1bbbfc…1bbd90 Dummy {f00=0x008a, f01=0x0190, f02=» P* CHECK FILE ORG I P SUK A1,14 I P LDK A6,0 I . P LDK A7,/42 'B' TO A7 I @ P LCR A6,A1 FILE ORG TO A6 I ^ P CWR A6,A7 'B' ? I P RF(NE) VTOC20 NOT A BADSPOT I 8 P* BADSPOT. BADSPOT STORED LAST IN VTOC. END OF VTOC I $ P ABL RTN00 NO MO
0x1bbd90…1bbf24 Dummy {f00=0x008a, f01=0x018e, f02=»UK A1,1 I P LDK A6,0 J P LCR A6,A1 J " P ST A6,FILBLF J 4 P SUK A1,2 J J P LDR* A6,A1 J P ST A6,FILRCL J p P SUK A1,10 J P LDR* A3,A1 J P ST A3,TFILEN J & P SUK A1,4 POINT TO FILE EXTENT NO J P LDR* A3,A1 J P ST A3,E
0x1bbf24…1bc0b8 Dummy {f00=0x008a, f01=0x0190, f02=» J ~ P SUK A1,4 K P LDK A2,6 K P* K , PVTOC22 LDR* A3,A1 K 6 P ST A3,FILNAM,A2 K P P SUK A1,2 K h P SUK A2,2 K z P RB(NN) VTOC22 K P ADK A1,2 START OF RECORD K , P* TAKE NEXT FILE ENTRY AND COMPARE NAMES K & P LDR A11,A8 A11 COUN
0x1bc0b8…1bc24c Dummy {f00=0x008a, f01=0x018e, f02=» K p P* L , PVTOC24 ADK A2,1 A2 POINT TO NEXT RECORD L PVTOC25 EQU * L B " P SUKL A11,1 COUNTER OF RECORDS L V " P RF(N) VTOC30 READ NEXT SECTOR L | P ADK A2,QVRECL STATUS BIT L P* CHECK STATUS L P LDK A7,/FF L P CCR A7,A2 L P RB(NE)
0x1bc24c…1bc3e0 Dummy {f00=0x008a, f01=0x0190, f02=» P CWR A6,A7 M 2 P RF(E) VTOC30 BADSPOT. NO MORE SECTOR IN VTOC1 M P* COMPARE FILE ORG M L P LD A3,FILORG M f P CWR A6,A3 M | P RF(E) VTOC27 M P ADK A2,14 M P RB VTOC24 M P* COMPARE NAMES M PVTOC27 LDK A6,4 COUNTER M P SUK A2,
0x1bc3e0…1bc574 (2, 177) Dummy {f00=0x008b, f01=0x0190, f02=») VTOC50 NAMES NOT EQUAL M P ADK A1,2 N P ADK A2,2 N 2 P SUK A6,1 N D P RB(P) VTOC28 N V 0 P RF STR010 NAMES EQUAL. STORE SECTOR RECORD N l P* NEXT SECTOR N PVTOC30 ADKL A9,1 NEXT SECTOR N $ P LD A10,VLAST1 LAST VTOC1 SECTOR N P CWR A
0x1bc574…1bc708 Dummy {f00=0x008b, f01=0x018e, f02=» LDKL A8,ECB3 N P LDK A7,/91 O P ST A9,ECB3+10 SECTOR NO O * P LKM O J P DATA 1 O V $ P LD A8,ECB3+8 RETURN CODE TO A8 O f P ANKL A8,/80 O & P RB(NZ) VTOC40 NEW VOLUME LOADED? O $ P LD A8,ECB3+8 RETURN CODE TO A8 O P ANKL A8,/820F O "
0x1bc708…1bc89c Dummy {f00=0x008b, f01=0x0190, f02=» O P RB VTOC25 P 6 P* NAMES NOT EQUAL. RESET POINTERS TO RECORD START P PVTOC50 LDK A3,4 P T P CWR A3,A6 P l P RF(E) VTOC52 P ~ P* P PVTOC51 SUK A1,2 P P SUK A2,2 P P SUK A3,1 P P CWR A6,A3 P P RB(NE) VTOC51 P P* P
0x1bc89c…1bca30 Dummy {f00=0x008b, f01=0x0190, f02=»******* P P* Q B P* STORE FILE EXTENT NO IN TABLE EXTSTP,VTOC SEC NO AND REC NO Q P* IN TABLE SECREC Q ` 4 P* TABLES ARE SORTED IN ASCENDING EXTENT NO ORDES Q z P* Q PSTR010 LDK A3,QVTBLF Q P SUR A3,A11 Q P LD A10,EXTNO Q P LDK
0x1bca30…1bcbc4 Dummy {f00=0x008b, f01=0x018e, f02=» FILE EXTENT NO Q ~ P LDR* A7,A2 R P LDR A10,A10 R , P RF(Z) STR040 TWO EXTENTS R @ P* R b P LDK A6,2 R l P CWR A6,A10 R ~ P RF(E) STR030 THREE EXTENTS R P* FOUR EXTENTS R P LD A6,EXTSTP+6 R P CWR A6,A7 R P RF(G) STR020 A6>A
0x1bcbc4…1bcd58 Dummy {f00=0x008b, f01=0x0190, f02=» P SC A3,SECREC+9 S P RF STR050 FOUR EXTENTS S P* A6>A7 S < PSTR020 ST A6,EXTSTP+8 S L P LD A10,SECREC+6 S j & P ST A10,SECREC+8 MOVE A10 ONE WORD S P* THREE EXTENTS LEFT S PSTR030 LD A6,EXTSTP+4 S P CWR A6,A7 S P RF(G) STR035 A6
0x1bcd58…1bceec Dummy {f00=0x008b, f01=0x0190, f02=»R035 ST A6,EXTSTP+6 S P LD A10,SECREC+4 T P ST A10,SECREC+6 T 4 P EJECT COPVOL CRVOL T L P* T l P* TWO EXTENTS LEFT T v PSTR040 LD A6,EXTSTP+2 T P CWR A6,A7 T P RF(G) STR045 A6>A7 T P* A7>A6 T P ST A7,EXTSTP+4 T P SC
0x1bceec…1bd080 Dummy {f00=0x008b, f01=0x0190, f02=»A10,SECREC+2 T P ST A10,SECREC+4 U P SC A9,SECREC+2 U , P SC A3,SECREC+3 U D P* U PSTR050 SUK A2,10 U f P LD A3,EXTNO U ~ P LDK A7,6 U P CWR A3,A7 U P RF(E) COPY10 U P SUK A1,8 RESET A1 U P ABL VTOC23 NEXT U P* U P
0x1bd080…1bd214 (2, 178) Dummy {f00=0x008b, f01=0x0190, f02=»OM DISC1 TO DISC2 U l P* V ( PCOPY10 CM FEN2 FILE EXTENT ON DISC2 V $ & P CM FEXL2 FILE EXTENT LENGTH DISC2 V P P LD A6,TFILEN V z & P ST A6,NOSEC NO OF SECTORS IN FILE V P LD A7,TOTFRE V & P CWR A6,A7 CHECK FOR DISC OVERFLOW V P ABL(G) RTN05
0x1bd214…1bd3a8 Dummy {f00=0x008b, f01=0x0190, f02=»ECREC TABLE V x ( P CF A14,VTOSEC A1 POINT TO RECORD NO W B P* FILE ENTRY:TAKE FILE EXTENT LENGTH, BASE AND LAST RECORD NO W @ PCOPY12 ADK A1,14 W * P LDR* A10,A1 FILE EXTENT LENGTH TO A10 W P ST A10,FILLEN W P ADK A1,4 W P LDR* A11,A1 W $ P
0x1bd3a8…1bd53c Dummy {f00=0x008b, f01=0x0190, f02=» & P LDR* A3,A1 LAST RECORD NO PART 2 X P ST A3,LSTRN1+2 X . P* READ FILE BASE TO BUF1 X F PCOPY14 LDR A9,A11 X f P* X PCOPY15 CF A14,READ11 X P* X PCOPY16 LD A9,VBAS2 X P CM NOCC X P CF A14,READ2 X & P CF A14,FSAT2 FREE EXTEN
0x1bd53c…1bd6d0 Dummy {f00=0x008b, f01=0x0190, f02=» X PCOPY17 LD A7,FEN2 Y P SUK A7,2 Y " P RF(N) COPY18 Y 4 P LD A7,TFILEN Y J P CWR A3,A7 Y ` P RF(NL) COPY18 Y r P CF A14,NXTFRE Y P* Y PCOPY18 ST A4,FEXB2 Y P LDK A5,QBUF1L Y P* WRITE BUF1 ON FREBAS DISC2 Y PCOPY20 LDR A
0x1bd6d0…1bd864 Dummy {f00=0x008b, f01=0x0190, f02=»CTORS TO COPY Y t P SUK A7,1 Z & P RF(E) COPY25 LAST SECTOR TO COPY Z ( * P ABL(N) VTOC10 END OF SECTORS TO COPY Z R P ST A7,TFILEN Z P* Z P EJECT COPVOL Z P* Z P* Z ( P* UPDATE FREE EXTENT LENGTH AND BASE Z P ADK A4,1 FREBAS
0x1bd864…1bd9f8 Dummy {f00=0x008b, f01=0x0190, f02=»L A10,1 REST OF LENGTH Z P RF(Z) COPY30 [ ( P* READ NEXT SECTOR TO COPY TO BUF1 [ 4 P SUK A5,1 [ ` P RF(Z) COPY22 [ r P LDKL A7,410 [ * P ADS A7,ECB4+2 UPDATE BUFFER ADDRESSES [ P RB COPY20 [ P* [ P EJECT COPVOL CRVOL [ P*
0x1bd9f8…1bdb8c Dummy {f00=0x008b, f01=0x0190, f02=» [ P CF A14,READ11 P LDK A5,QBUF1L P RB COPY20 4 P* F PCOPY25 ST A7,TFILEN P P ADKL A11,1 FILBAS+1 l P SUKL A10,1 FILLEN-1 P ADK A4,1 FREBAS+1 P SUK A3,1 FRELEN-1 P RF(Z) COP401 P* UPDATE BUF2 P STR
0x1bdb8c…1bdd20 Dummy {f00=0x008b, f01=0x0190, f02=»/CC P SCR A7,A1 ] P CF A14,WRITE1 ] P* ] 4 P EJECT COPVOL CRVOL ] > P* ] ^ P* TAKE NEXT SECTOR NO ] h P LD A7,SECNO ] P ADK A7,2 ] P ST A7,SECNO ] P CF A14,VTOSEC ] $ P* TAKE FILE BASE AND FILE LENGTH ] P ADK A1,14
0x1bdd20…1bdeb4 (2, 179) Dummy {f00=0x008b, f01=0x0190, f02=»LBAS ] P* READ FILBAS TO BUF1 ^ P RB COPY23 ^ * P* UPDATE BUF2 ^ < PCOPY40 ADKL A11,1 ^ R P SUKL A10,1 ^ l P IM NOCC NOT CC IN A1 FILE ^ P* ^ PCOP401 STR A3,A2 FREBAS=0 ^ P* ^ PCOPY41 SUK A2,4 ^ P STR A3,A2 ^ P EJECT
0x1bdeb4…1be048 Dummy {f00=0x008b, f01=0x0190, f02=»,TFILEN ^ P RF(Z) COPY45 _ " P CF A14,FSAT2 NEXT FREE EXTENT _ & P ST A3,FRELEN _ L P ADK A2,4 _ b P LDR* A4,A2 _ t P ST A4,FREBAS _ P LD A7,FEN2 _ P SUK A7,2 _ P RF(N) COPY45 _ P LD A7,TFILEN _ P* _ 6 PCOPY44 CWR A3,
0x1be048…1be1dc Dummy {f00=0x008b, f01=0x0190, f02=»SECREC (OLD) AND READ SECTOR TO BUF1 _ P CF A14,VTOSEC ` . P EJECT COPVOL CRVOL ` D 2 P* TAKE FIRST FREE FILE ENTRY ON DISC2 TO BUF2 ` d P LD A9,VBAS2 ` P LD A4,VLEN2 ` P ADR A4,A9 ` P ADKL A9,1 ` P CF A14,READ2 ` P* ` PCO
0x1be1dc…1be370 Dummy {f00=0x008b, f01=0x0190, f02=» 2 ` n P SUK A5,1 a $ P LD A3,FEXL2 FREE EXTENT LENGTH a " P LD A4,FEXB2 FREE EXTENT BASE a D P LD A7,LSTRN1 LAST RECORD NO a j P CF A14,MOVERE a P LDK A4,9 a P CF A14,MOVE12 a P SUK A1,1 a P LD A7,NOCC a ( P RF(NZ) COPY55 NOT CC
0x1be370…1be504 Dummy {f00=0x008b, f01=0x0190, f02=»PY55 CF A14,WRITE2 a P LD A9,VTSEC1 b P CF A14,WRITE1 b 0 & P CM FEXL2 FILE EXTENT 2 LENGTH =0 b F P* UPDATE FILBAS AND FILLEN b p P LDR A10,A10 b P RF(Z) COPY60 b P* READ FILBAS TO BUF1 b PCOPY58 LDR A9,A11 b P CF A14,READ11 b
0x1be504…1be698 Dummy {f00=0x008b, f01=0x0190, f02=» b P* c PCOPY64 LD A7,TFILEN c P RF(Z) COPY90 c . P LD A7,SECNO c D P CF A14,VTOSEC c X P EJECT COPVOL CRVOL c n $ P* TAKE FILE BASE AND FILE LENGTH c P ADK A1,14 c $ P LDR* A10,A1 FILE LENGTH TO A10 c P ADK A1,4 c " P LDR*
0x1be698…1be82c Dummy {f00=0x008b, f01=0x018e, f02=» VTOC10 c P* END OF FILES TO COPY d < PRTN00 CF A14,FFINCC WRITE FF IN ALL STATUS BITS WITH CC d . P LDK A1,0 NO ERROR MESSAGE d n P RF RTN99 d P* d P EJECT COPVOL CRVOL d P* d P* **************** d P* *ERROR MESSAGES* d
0x1be82c…1be9c0 Dummy {f00=0x008b, f01=0x018e, f02=» d n P* e PRTNX LDR A2,A8 e P RF RTN100 e ( P* e : PRTNOE1 LDR A2,A8 e D P CF A14,FFINCC e P LDK A1,2 OUTPUT I/O ERROR e r P RF RTN100 e P* e & PRTN02 LDK A1,3 VOLUME NAME UNKNOWN e P RF RTN99 e P* e ( PRTN03 LDK A1,4 OUT
0x1be9c0…1beb54 (2, 180) Dummy {f00=0x008b, f01=0x018e, f02=» e PRTN05 CF A14,FFINCC f P LDK A1,6 DISC OVERFLOW f $ P RF RTN99 f D P* f V & PRTN06 LDK A1,7 FAULTY DISC FORMAT f ` P RF RTN99 f P* f P EJECT COPVOL CRVOL f P* f P* f 0 PRTN08 LDK A1,8 FLEXIBLE DISC WRITE PROTECTED f
0x1beb54…1bece8 Dummy {f00=0x008b, f01=0x018a, f02=» P* g P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x1bece8…1bee7c Dummy {f00=0x008b, f01=0x4008, f02=»@ h P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x1bee7c…1bf010 Dummy {f00=0x008b, f01=0x2008, f02=» i P LDKL A8,ECB3 g P LDR* A6,A8 g $ P CCK A6,FDFC g 8 P RF(L) RTN110 NOT FD g L P LDK A7,/B8 UNLOCK g h P LKM g P DATA 1 g P* g ( PRTN110 LDKL A8,ECB2 ECB OUTPUT DISC g P LDR* A6,A8 FC g P CCK A6,FDFC g P RF(L) RTN
0x1bf010…1bf1a4 Dummy {f00=0x008b, f01=0x0190, f02=»ME p B DETC98 F12BTB . ) CBE INPF,='Y',DETC99 JUMP IF INPUT FIELD * B DETC82 NEXT FIELD BTB = 5 " DETC80 MAKE FIELD 17 CURRENT MOVE DEBINW4,W17 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB NOT ALLOWED " DETC
0x1bf1a4…1bf338 Dummy {f00=0x008b, f01=0x0190, f02=»MAKE FIELD 5 CURRENT MOVE DEBINW4,W5 GETFLD 0,DEBINW4,DEBINW3 4 B DETC98 TAB NOT ALLOWED V DETC83 MAKE FIELD 4 CURRENT x MOVE DEBINW4,W4 GETFLD 0,DEBINW4,DEBINW3 B DETC98 TAB NOT ALLOWED DETC98 $ M
0x1bf338…1bf4cc Dummy {f00=0x008b, f01=0x0190, f02=»D !!IL 576 * * MTEXT $ L G* - MAKES MATCH OF 'LINE DESIGN' UNTIL EOL OR NEXT FIELD IS FOUND : @ <* - EDIT TEXT PARTS OF 'LINE DESIGN' IN 'LINE DISPLAY' 6 1* - GENERATES 'FTEXT'- AND 'FTAB'-STATMENTS @ <
0x1bf4cc…1bf660 Dummy {f00=0x008b, f01=0x0190, f02=»LIMIT EXCEEDED ~ , (* = 4 NO AVAILABLE BUFFERS;CLEAR . )* = 5 NO AVAILABLE BUFFERS;CANCEL F , (* = 6 NO AVAILABLE BUFFERS;RETUR x * N I************************************************************************* MTE
0x1bf660…1bf7f4 (2, 181) Opaque[0x194]
0x1bf7f4…1bf988 # DirEnt {nam=»ASSPER«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1180, f03=0x0000}
0x1bf7f4…1bf988 IdxSect {
0x1bf7f4…1bf988 f00 = 0x008c // 0x1bf7f4 @0x0
0x1bf7f4…1bf988 f01 = 0x000e // 0x1bf7f6 @0x2
0x1bf7f4…1bf988 gno = [ // 0x1bf7f8 @0x4
0x1bf7f4…1bf988 [0x00]: C0x008c.0x0.0
0x1bf7f4…1bf988 [0x01]: C0x008c.0x1.0
0x1bf7f4…1bf988 [0x02]: C0x008c.0x2.0
0x1bf7f4…1bf988 [0x03]: C0x008c.0x3.0
0x1bf7f4…1bf988 [0x04]: C0x008d.0x0.0
0x1bf7f4…1bf988 [0x05]: C0x008d.0x1.0
0x1bf7f4…1bf988 [0x06]: C0x008d.0x2.0
0x1bf7f4…1bf988 ]
0x1bf7f4…1bf988 }
0x1bf988…1bfb1c Dummy {f00=0x008c, f01=0x018e, f02=» & P IDENT ASSRUT UPD 79-08-14/PEEN P UPD 79-04-24/PEEN . P UPD 79-02-28/PEEN J P UPD 79-01-30/PEEN f . ** ASSEMBLER ROUTINES USED BY PTS DE-SYSTEM ENTRY ATTWB P ENTRY ATTDB P ENTRY SAVE P ENTRY RESTOR
0x1bfb1c…1bfcb0 Dummy {f00=0x008c, f01=0x0190, f02=» P ENTRY UPDBIN P ENTRY SETB P ENTRY TESTB . P ENTRY CLEARB B P ENTRY MSKOUT X P ENTRY RCNTRL n P ENTRY WCNTRL P ENTRY GETVAL P ENTRY GETACC P ENTRY GETGEN P ENTRY GETDUP P ENTRY ATTBUF P
0x1bfcb0…1bfe44 Dummy {f00=0x008c, f01=0x0190, f02=»AS * * * CALL FORM 16=/F6A1,16 ( P* F PFVAL EQU /C5 P PFACC EQU /C7 d PFGEN EQU /C6 x PFDUP EQU /CC PFLINK EQU /DE P EJECT P* 0 P* ATTACH A STRING VARIABLE AS WORKBLOCK T
0x1bfe44…1bffd8 Dummy {f00=0x008c, f01=0x0190, f02=»K j 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE P* 'STRG'-START D 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A d P* ATTWB EQU * P LDKL A10,2 INDICATE WB PATT EQU * " CALL I:EVA0 ADDRESS TO
0x1bffd8…1c016c Dummy {f00=0x008c, f01=0x0190, f02=»R p LDR* A1,A9 SLL A1,2 TIMES 4 ADR A1,A13 ADDRESS TO DB 8 ( P ADR A1,A10 GET ADDRESS TO WB OR DB Z PATT100 EQU * & P STR A7,A1 STORE NEW WB/DB-ADDRESS P RF RETUR P* P EJECT P* 6 P* ATTACH A STRI
0x1c016c…1c0300 Dummy {f00=0x008c, f01=0x0190, f02=»TRG= STRING ITEM TO BE DISCRIPTOR BLOCK 6 P* DISPL= BIN ITEM HOLDING DISPLACEMENT RELATIVE 0 P* 'STRG'-START j 8 P* BLOCK= BIN ITEM HOLDING BLOCK NUMBER WITHIN T:A P* P* PATTDB EQU * P SUR A10,A10 INDICATE DB
0x1c0300…1c0494 (2, 182) Dummy {f00=0x008c, f01=0x0190, f02=»E l P* PCHANFC EQU * " P CF A14,T:FDSP GET ECB-ADDRESS ( & P CF A14,I:EVA0 GET ADDRESS TO BIN. N P LC A3,1,A9 GET FILE CODE x & P SC A3,1,A8 STORE FILE CODE IN ECB P RF RETUR P EJECT P* 0 P* SAVE POINTERS TO DB:S/W
0x1c0494…1c0628 Dummy {f00=0x008c, f01=0x018e, f02=» THE VERY FIRST DB:POINTER @ P* LENGTH= BIN ITEM HOLDING THE NUMBER OF BYTES TO BE MOVED ( > P* STRG= STRING VARIABLE TO STORE THE SAVED POINTERS IN l P* PSAVE EQU * P CALL GETP GET PARAMETERS PSAV100 EQU * P ADR A2,
0x1c0628…1c07bc Dummy {f00=0x008c, f01=0x0190, f02=» P RB(NZ) SAV200 P RF RETUR P* , 4 P* RESTORE DB/WB-POINTERS FROM A STRING VARIABLE 6 * P* TO THE T:A (TERMINAL CONTROL AREA) n 0 P* SYNTAX: CALL RESTOR,DISPL,LENGTH,STRG > P* DISPL= DISPLACEMENT RELATIVE THE VERY FIRST DB-POINT
0x1c07bc…1c0950 Dummy {f00=0x008c, f01=0x0190, f02=»QU * P CALL GETP P LDR A1,A2 P LDR A2,A9 CHANGE 0 P LDR A9,A1 ADDRESSES J P RB SAV100 START TO RESTORE f P* ( P* GET PARAMETERS FOR SAVE/RESTORE P* PGETP EQU * P CALL I:EVA0 " P LDR* A7,A9 START DISPLA
0x1c0950…1c0ae4 Dummy {f00=0x008c, f01=0x0190, f02=»TER /A n P RTN A14 P EJECT 0 +* GET A FREE RECORD FROM FREE-SPACE RECORD , 6 2* SYNTAX: CALL GETFRE,BPOOL(IND),RPOOL(IND),NUMB ` < 8* OUTPUT: NUMB = FOUND RECORD NUMBER (=0 IF NOT FOUND) GETFRE EQU * ( $ CALL GETPAR GET PARAMETER
0x1c0ae4…1c0c78 Dummy {f00=0x008c, f01=0x018e, f02=»F(E) NOK END OF RECORD & ! LCR A4,A7 GET BITS FOR 8 RECORDS SLL A4,8 SHIFT TO RIGHTMOST H , ' RF(NZ) SEARCH AT LEAST ONE RECORD FREE l ADK A7,1 INCREMENT POINTER " ADK A6,8 UPDATE RECORD NUMBER RB GET100 SEARCH EQU *
0x1c0c78…1c0e0c Dummy {f00=0x008c, f01=0x0190, f02=» SLL A4,1 RB SEA100 FOUND SLL A4,1 CLEAR BIT ( , ( ADR A6,A5 UPDATE RELATIVE RECORD NUMBER H FOU100 SRL A4,1 x SUK A5,1 DECREMENT POINTER RB(NN) FOU100 SRL A4,8 " SCR A4,A7 STORE UPDATED BYTE LC A7
0x1c0e0c…1c0fa0 Dummy {f00=0x008c, f01=0x0190, f02=» , ' ADRS A1,A2 DECREMENT NO. OF FREE RECS. NOK EQU * 4 CALL I:EVA0 F & "NOK100 STR A6,A9 STORE FOUND INDEX Z RETUR ABL I:RT1 EJECT 4 1* SETFRE: INDICATE RECORD FREE AND UPDATE NO.OF 6 1* FREE RECORD COUNTER. THIS I
0x1c0fa0…1c1134 (2, 183) Dummy {f00=0x008c, f01=0x0190, f02=»UMB = CURRENT RECORD NUMBER (=0 IF WRONG NUMBER) * 8 SETFRE EQU * B SUR A10,A10 INDICATE SETFRE V SET EQU * z CALL GETPAR LDR A6,A9 COPY ADDRESS ( $ CALL I:EVA0 GET ADDRESS TO REC. NO. LDR A2,A7 COPY A7 L
0x1c1134…1c12c8 Dummy {f00=0x008c, f01=0x018e, f02=»CORD NO. v " P CALL SEABIT SEARCH WANTED BIT P LDR A6,A6 6 P RB(Z) NOK100 JUMP IF ERROR H LDR A10,A10 l RF(NZ) TEST0 IF SET0CC " * SETFRE: TEST IF ALREADY FREE TEST1 LDR A4,A4 RB(N) RETUR IF ALREADY FREE " ORKL
0x1c12c8…1c145c Dummy {f00=0x008c, f01=0x0190, f02=» ~ RF(N) TES300 BYTE RESTORED SRC A4,1 , RB TES200 > * &TES300 SRL A4,8 MOVE TO RIGHTMOST BYTE P " SCR A4,A7 STORE UPDATED BYTE ~ RB RETUR * & "* SETOCC: TEST IF ALREADY OCCUPIED TEST0 EQU * LDR A4,A4
0x1c145c…1c15f0 Dummy {f00=0x008c, f01=0x018e, f02=» RB TES100 EJECT 2 -* SET RECORD OCCUPIED AND DECREMENT NUMBER OF 8 3* FREE RECORDS; THIS IS ONLY DONE IF CURRENT RECORD V * IS FREE 6 2* SYNTAX: CALL SETOCC,BPOOL(IND),RPOOL(IND),NUMB : 6* NUMB = CURRENT RECORD NUMBER (= 0
0x1c15f0…1c1784 Dummy {f00=0x008c, f01=0x0190, f02=» RB SET P EJECT P* " 2 P* MOVE CONTENTS OF BIN ITEM TO CORRESPONDING , P* 16 BOOLEAN ITEMS b P* ~ PUPDBOL EQU * ( P CALL I:EVA0 GET ADDRESS TO BIN ITEM P LDR* A1,A9 GET BIN CONTENTS P ST A1,-2,A9 STORE BOOLEANS
0x1c1784…1c1918 Dummy {f00=0x008c, f01=0x0190, f02=» ADDRESS TO BIN ITEM P LD A1,-2,A9 GET BOOLEANS P STR A1,A9 STORE IN BIN > P RB RETUR ^ P EJECT p P* ~ 0 P* SEARCH WANTED BIT IN A CHARACTER STRING P* A3 = BIT INDEX , P* A7 = CHARACTER STRING START ADDRESS P
0x1c1918…1c1aac Dummy {f00=0x008c, f01=0x0190, f02=»IN NOT EOR x * % LDK A6,0 INDICATE INCORRECT REC. NO. P RTN A14 @ * PLACED IN CURRENT BYTE P SET100 EQU * p ADK A3,8 LCR A4,A7 SLL A4,8 GET BYTE RIGHTMOST LDR A1,A3 COPY A3 RF(Z) TEST IF FIRST BIT SE
0x1c1aac…1c1c40 Dummy {f00=0x008c, f01=0x0190, f02=» SET WANTED BIT IN A STRING OR BIN ITEM & P* SYNTAX: CALL SETB,ITEM,INDEX 0 P* Z PSETB EQU * d P SUR A10,A10 INDICATE 'SET' v PSETB10 EQU * $ P CALL I:EVA0 GET ADDRESS TO ITEM P LDR A7,A9 COPY ADDRESS P LDR A8,A5 COPY EN
0x1c1c40…1c1dd4 (2, 184) Dummy {f00=0x008c, f01=0x0190, f02=»10 P RF(N) SETB30 IF TEST BIT P RF(Z) SETB20 JUMP IF SETBIT , P* CLEAR BIT P P ANKL A4,/7FFF CLEAR BIT d P RB TES200 RESTORE BYTE P* SET BIT PSETB20 EQU * P ORKL A4,/8000 SET BIT P RB TES200 RESTORE BYTE P
0x1c1dd4…1c1f68 Dummy {f00=0x008c, f01=0x0190, f02=» x PSETB40 EQU * P LD A4,2,A13 GET STACK BASE " P SC A1,-2,A4 STORE CR ON STACK @ P RF RET f P* v * P* CLEAR BIT IN STRING OR BIN VARIABLE ( P* SYNTAX: CALL CLEARB,ITEM,INDEX P* PCLEARB EQU * $ P LDKL A10,1 INDI
0x1c1f68…1c20fc Dummy {f00=0x008c, f01=0x0190, f02=»M,INDEX t & P* OUTPUT: CR = 0 (BIT IS FALSE) & P* CR = 1 (BIT IS TRUE) : P* d PTESTB EQU * n $ P LDKL A10,-1 INDICATE 'TEST BIT' P RB SETB10 CONTINUE P EJECT * P* GET VOLUME NAME TO A STRING VARIABEL 4 P* SYN
0x1c20fc…1c2290 Dummy {f00=0x008c, f01=0x0190, f02=» GET DSET-ADDRESS P CALL I:EVA0 $ P ST A9,2,A8 STORE BUFFER ADDRESS . & P CALL I:EVA0 GET ADDRESS TO VOLNAM V P LDR A10,A9 SAVE ADDRESS . P CALL I:EVA0 GET RETURN CODE ITEM ADDRESS P LDK A7,/B7 LOAD P LKM P DATA 1 P L
0x1c2290…1c2424 Dummy {f00=0x008c, f01=0x0190, f02=» SECTOR 0 ~ P LDK A7,/81 BASIC READ P LKM 0 P DATA 1 < P LD A1,8,A8 GET RETURN CODE L P RF(NZ) ERROR p & P LD A1,2,A8 GET ADDRESS TO VOLNAM P ADK A1,2 P LDK A2,6 LOAD COUNTER PLOOP EQU * " P LCR A3,A1 GET NAME-CH
0x1c2424…1c25b8 Dummy {f00=0x008c, f01=0x0190, f02=»2,1 DECREMENT COUNTER ( P RB(P) LOOP CONTINUE IF NOT FINISHED P LDR A6,A6 J P RF(NZ) UT IF STATUS OK P LDK A7,/B8 UNLOAD | P LKM P DATA 1 PUT EQU * P LDK A6,0 PVIN EQU * P STR A6,A9 STORE RETURN-CODE
0x1c25b8…1c274c Dummy {f00=0x008c, f01=0x0190, f02=»DR A7,A9 COPY ADDRESS " CALL I:EVA0 ADDRESS TO RPOOL LC A8,15,A9 D ECR A8,A8 X $ LC A8,16,A9 GET OCCUPIED BYTES j ADR A8,A7 GET END ADDRESS P SUKL A8,10 " LDR A2,A7 SAVE START ADDRESS $ ADK A7,2 ADDRESS TO FIRST
0x1c274c…1c28e0 Dummy {f00=0x008c, f01=0x0190, f02=»ESPONDING BOOLEAN AND BIN ITEMS : P* SYNTAX: CALL RCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL ( 6 P* BUFF+DISPL= START ADDRESS IN STRING ITEM f > P* BOOLBIN= FIRST BIN IN SAME WB AS CURRENT BOOLS , P* MINL= BIN FOR MIN LENGT
0x1c28e0…1c2a74 (2, 185) Dummy {f00=0x008d, f01=0x0190, f02=»NTRL CALL I:EVA0 BUFFER ADDRESS P LDR A8,A9 ( & P CALL I:EVA0 DISPLACEMENT ADDRESS : " P ADR* A8,A9 GET START POINTER d P CALL I:EVA0 P LDR A7,A9 " P SUK A7,2 ADDRESS TO BOOLEANS P CALL I:EVA0 MINL ADDRESS P LDR A6,A9
0x1c2a74…1c2c08 Dummy {f00=0x008d, f01=0x0190, f02=»OLEANS ~ P SC A1,2,A8 STORE IN BUFFER " P SRL A1,8 SHIFT OUT 8 BOOLEANS 2 P SLL A1,7 X P ADR* A1,A9 GET NEOI + MAXL j P SC A1,1,A8 STORE IN BUFFER P SRL A1,2 SHIFT IN ME + TYPE P ANK A1,/C0 P ADR* A1,A6 GET MINL P S
0x1c2c08…1c2d9c Dummy {f00=0x008d, f01=0x0190, f02=» P ANK A2,/7F MASK OUT MAXL P STR A2,A9 STORE MAXL * P LCR A2,A8 H P ANK A2,/3F MASK OUT MINL Z P STR A2,A6 STORE MINL | $ P SRL A1,7 NEOI TO RIGHTMOST POS. P ANK A1,1 MASK OUT NEOI $ P LCR A2,A8 GET ME + TYPE + MINL
0x1c2d9c…1c2f30 Dummy {f00=0x008d, f01=0x0190, f02=»RE BOOLEANS P RB RET ! P EJECT ! $ P* ! 2 0 P* WRITE CONTROLS FROM BOOLEANS AND BINS TO ! < P* STRING ITEM ! p : P* SYNTAX: CALL WCNTRL,BUFF,DISPL,BOOLBIN,MINL,MAXL ! 2 P* BUFF+DISPL= START POINT FOR WRITINGM ! B P*
0x1c2f30…1c30c4 Dummy {f00=0x008d, f01=0x018e, f02=»AX LENGTH ! r P* " PWCNTRL EQU * " ( P LDR A10,A14 INDICATE WRITE CONTROLS " 0 P RB CONTRL " P EJECT " n P* " | . P* MASK OUT WANTED BITS ACCORDING TO MASK " & P* SYNTAX: CALL MSKOUT,MASK,BIN " 6 P* MASK= BIN ITEM HOLDING THE MASK; W
0x1c30c4…1c3258 Dummy {f00=0x008d, f01=0x018e, f02=» " PMSKOUT EQU * # P CALL I:EVA0 ADDRESS TO MASK # P LDR A6,A9 # @ P CALL I:EVA0 ADDRESS TO BIN # R $ P LDR* A1,A9 GET CONTENTS OF BIN # v * P ANRS A1,A6 LOGICAL AND WITH MASK AND # P STORE RESULT IN MASK # P RB RET # P* # P E
0x1c3258…1c33ec Dummy {f00=0x008d, f01=0x0190, f02=» # f P* $ PATTBUF EQU * $ P CALL T:FDSP DSET-ADDRESS $ & P LDKL A1,/4000 $ H $ P ORRS A1,A8 INDICATE FIX BUFFER $ ^ $ P CALL I:EVA0 GET BUFFER ADDRESS $ $ P ST A9,2,A8 STORE BUFFER ADDRESS $ P SUR A5,A9 CALCULATE LENGTH $ P ST A5,14,A8 S
0x1c33ec…1c3580 Dummy {f00=0x008d, f01=0x0190, f02=»OST DIGIT IS EQUAL TO /A $ | 0 P* STRGITEM = LEFTMOST BYTE IS EQUAL TO '?' % P* % T , P* SYNTAX: CALL FORCED,ITEM % ^ 2 P* OUTPUT: CR = 0 NOT FORCED % . P* CR = 1 FORCED % P* % PFORCED E
0x1c3580…1c3714 (2, 186) Dummy {f00=0x008d, f01=0x0190, f02=»A3,-1,A5 % " P ANK A3,/F GET RIGHTMOST DIGIT & P SUK A3,/A & 6 PFOR100 EQU * & H P RF(Z) NOTFND JUMP IF FORCED & P RF UT150 NOT FORCED & PALPHA EQU * & & P LCR A3,A9 GET LEFTMOST CHARACTER & P SUK A3,'?' & P RB FOR100 & P EJECT &
0x1c3714…1c38a8 Dummy {f00=0x008d, f01=0x0190, f02=»OOL(W1)) & p , P* PLEN = POOL UNIT LENGT (BIN) ' 4 P* OUTPUT: BUFFX = CURRENT POOL UNIT INDEX (BIN) ' @ > P* START = POINTER TO STRING WIN CURRENT POOL UNIT ' x . P* LEN = LENGTh OF FOUND STRING ' , P* CR = 0 IF STRI
0x1c38a8…1c3a3c Dummy {f00=0x008d, f01=0x0190, f02=»ALIDATION ' n PVAL100 EQU * ( P LDR A10,A12 SAVE PP ( & P LD* A11,-8,A13 ( B P ADR A11,A13 GET FCB-ADDRESS ( Z $ P LDR* A6,A11 GET ADDRESS TO ITEM ( ~ . P ADKL A6,P:BAS+2 GET START SEARCH ADDRESS ( PVAL150 EQU * ( P LCR A1,A6 GET FORMAT CODE (
0x1c3a3c…1c3bd0 Dummy {f00=0x008d, f01=0x0190, f02=»0 ( P CWK A1,FGEN ) P RF(E) VAL300 ) P CWK A1,FDUP ) 4 P RF(E) VAL300 ) H P SUK A1,FLINK ) ^ P RF(NZ) VAL200 IF NOT FLINK ) t P* FLINK ) ( P LDR A12,A6 UPDATE PP TO FLINK-ITEM ) * P CALL I:EVA0 ADDRESS TO NEXT POOL UNIT ) P LDR A
0x1c3bd0…1c3d64 Dummy {f00=0x008d, f01=0x0190, f02=» EQU * ) P LDK A6,0 INDICATE NOT FOUND * P RF OUT * 2 P* FVAL,FACC OR FGEN * B PVAL300 EQU * * ^ P CWR A1,A7 * r P RF(E) OUT JUMP IF FOUND * P LCR A1,A6 GET COUNTER * $ P ADR A6,A1 UPDATE FORMAT POINTER * P ADK A6,1 * P RB VAL150 C
0x1c3d64…1c3ef8 Dummy {f00=0x008d, f01=0x0190, f02=» GET LENGTH * P LDR A11,A5 SAVE POOL LENGTH + $ P CALL I:EVA0 ADDRESS TO BUFFIND + 8 P LDR A7,A9 SAVE ADDRESS + ` * P CALL I:EVA0 ADDRESS TO START POINTER + P LDR A8,A9 SAVE ADDRESS + " P CALL I:EVA0 ADDRESS TO LENGTh + P LDR A6,A6 + P R
0x1c3ef8…1c408c Dummy {f00=0x008d, f01=0x0190, f02=» A6,A10 GET RELATIVE LENGT + P LDK A1,0 , " PUT100 EQU * , 4 P ADK A1,1 , H " P SUR A6,A11 SUB WIF POOL-LENGF , Z & P RB(P) UT100 CONTINUE IF POSITIVE , * P ADR A6,A11 RESTORE RELATIVE POSITION , ( P STR A1,A7 STORE BUFFER UNIT NUMBER , " P STR
0x1c408c…1c4220 Dummy {f00=0x008d, f01=0x0190, f02=»B40 STORE CR AND RETURN , PGREAT EQU * - PNOTFND EQU * - 4 P LDK A1,1 INDICATE CR = 1 - H " P RB UT200 STORE CR AND RETURN - j PLESS EQU * - P LDK A1,2 - P RB UT200 - P EJECT - P* - P* GET ACCUMULATION STRING - P* SEE U
0x1c4220…1c43b4 (2, 187) Dummy {f00=0x008d, f01=0x0190, f02=» P* . P* . P* GET GENERATION STRING . P* SEE UNDER GETVAL ABOVE . 8 P* . Z PGETGEN EQU * . d , P LDK A7,FGEN INDICATE GENERATION STRING . x P RB VAL100 START TO SEARC . P* . P . P* GET DUPLICATION STRING . P* SEE UND
0x1c43b4…1c4548 Dummy {f00=0x008d, f01=0x0190, f02=»MENSION OF INDEXED VARIABLE AND LENGTH . P* / . > P* SYNTAX: CALL GETIND,ITEM(W1),LENGTH,DIMENSION / 8 P* / z : P* ITEM(W1) = CURRENT ITEM / F P* LENGTH = BIN HOLDING ITEM LENGTH /
0x1c4548…1c46dc Dummy {f00=0x008d, f01=0x018e, f02=»S) / T P* 0 PGETIND EQU * 0 P CALL I:EVA0 ADDRESS TO ITEM 0 ( 4 P LD A10,I:EVA0-2 READ DIMENSION STORED BYE I:EVA 0 L P LDR A7,A5 COPY END ADDRESS 0 $ P SUR A7,A9 CALCULATE ITEM LENGTH 0 ( P CALL I:EVA0 ADDRESS TO LENGTH ITEM 0 P STR A7,A9 S
0x1c46dc…1c4870 Dummy {f00=0x008d, f01=0x018e, f02=» 0 P EJECT 1 P* 1 > P* COMPARE INDEX VARIABLE WITH DIMENSION OF INDEXED ITEM 1 P* 1 b : P* SYNTAX: CALL CMPIND,INDEX,ITEM(INDEX1) 1 l P* 1 B P* OUTPUT: CR = 0 IF INDEX=MAX. INDEX OF ITEM 1 B P*
0x1c4870…1c4a04 Dummy {f00=0x008d, f01=0x4124, f02=» P 2 PCMPIND EQU * 2 & P CALL I:EVA0 GET ADDRESS TO INDEX 2 P LDR* A6,A9 SAVE INDEX VALUE 2 J 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 2 n * P CW A6,I:EVA0-2 COMPARE WITH DIMENSION 2 P RB(E) EQUAL 2 P RB(G) GREAT 2 P RB LESS 2
0x1c4a04…1c4b98 Dummy {f00=0x008d, f01=0x2008, f02=» 3 PCMPIND EQU * 2 & P CALL I:EVA0 GET ADDRESS TO INDEX 2 P LDR* A6,A9 SAVE INDEX VALUE 2 J 2 P CALL I:EVA0 GET ADDRESS AND DIMENSION OF ITEM 2 n * P CW A6,I:EVA0-2 COMPARE WITH DIMENSION 2 P RB(E) EQUAL 2 P RB(G) GREAT 2 P RB LESS 2
0x1c4b98…1c4d2c Dummy {f00=0x008d, f01=0x0190, f02=» p * P CBE STR1A,=C'3',AOK USERDEFINED-FILE P B A6E 6 PA21 D ( P CBE PRNUM,=D'3',AOK IF DELETE FILE P P CBE VOLNAM,SYSVOL,AOK | ( P B A11E 'VOL-NAME MUST BE "SYSVOL"' P EJECT $ P******************************** " P* NO. OF RE
0x1c4d2c…1c4ec0 Dummy {f00=0x008d, f01=0x0190, f02=»LUE FOR BIN-FIELD p P MOVE BIN1,BCD13A P CBE BIN1,W0,A32 4 P CBL BIN1,W20,A6E L PA32 f P MOVE BIN2,FRESEC r P MUL BIN2,W2 P CBE BIN1,W0,A34 P CBG BIN1,BIN2,A6E P B AOK PA34 P MOVE NOREC,BIN2 P MOV
0x1c4ec0…1c5054 (2, 188) Opaque[0x194]
0x1c5054…1c51e8 # DirEnt {nam=»DEDISC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11b8, f03=0x0000}
0x1c5054…1c51e8 IdxSect {
0x1c5054…1c51e8 f00 = 0x008d // 0x1c5054 @0x0
0x1c5054…1c51e8 f01 = 0x0004 // 0x1c5056 @0x2
0x1c5054…1c51e8 gno = [ // 0x1c5058 @0x4
0x1c5054…1c51e8 [0x00]: C0x008d.0x3.0
0x1c5054…1c51e8 [0x01]: C0x008e.0x0.0
0x1c5054…1c51e8 ]
0x1c5054…1c51e8 }
0x1c51e8…1c537c Dummy {f00=0x008d, f01=0x0190, f02=» $ P IDENT DEDISC UPD 80-02-11/CHST P* , P* 6 L P************************************************************************ @ P* P* : P* ALL COMMENTS TO DEDISC ARE FOUND IN MODULE P* , P* D E
0x1c537c…1c5510 Dummy {f00=0x008d, f01=0x0190, f02=» P DDUM DDINIT P PDIV P ENTRY DEDISC & P ENTRY COND < P ENTRY RELEAS P P ENTRY SCHPOO f P ENTRY RETURN | P ENTRY WAIT P ENTRY STRT01 P* P EXT DEPOOL P EXT WRFSP P EXT CHANFC P EXT CLS
0x1c5510…1c56a4 Dummy {f00=0x008d, f01=0x0190, f02=» WRIACC P EXT WRTCO P EXT GETTBL " P EXT DELBTC 6 P EXT RECURR J P EXT ENTJOB ^ P EXT GETJOB r P EXT SCHJOB P EXT DELJOB P EXT ENTFMT P EXT DELFMT P EXT GETSYS P EXT ENTSYS P EXT NEXJO
0x1c56a4…1c5838 Dummy {f00=0x008d, f01=0x0190, f02=»PNNBC P EXT NXJOB P EXT NXBTH P* 2 P* < PATTACH EQU X'0E' F PDETACH EQU X'0F' ^ P EJECT v PDEDISC PROC FC P* * P* BRANCH TO PROGRAM INDICATED BY FC P* P PBIN FC P CLEAR SWIT01 P CLEAR
0x1c5838…1c59cc Dummy {f00=0x008d, f01=0x0190, f02=»NW4,W0 PSTRT01 P IB FC C0000000000000 P ENTJOB ENTER JOBDEF C : P GETJOB GET JOBDEF C Z P DUMMY C x P SCHJOB SEARCH JOBDEF C P DELJOB DELETE JOBDEF C P OPNNBC OPEN NEW BATCH C " P OPNEBC OPEN EXISTING BATCH
0x1c59cc…1c5b60 Dummy {f00=0x008d, f01=0x0190, f02=»FORMAT C P DELFMT DELETE FORMAT C ( P WRICUR WRITE CURRENT DATA-SECTOR C 0 $ P GTNEXT GET NEXT DATA-SECTOR C ( P GTPREV GET PREVIOUS DATA-SECTOR C ( P DLCURR DELETE CURRENT DATARECORD C ( P WRIACC WRITE ACCUMULATOR-RECORD C $ P
0x1c5b60…1c5cf4 (2, 189) Dummy {f00=0x008e, f01=0x0190, f02=» JOBNAME C | " P WRTCO WRITE SECTOR (CORR) C P GETTBL GET TABLE C 8 P DELTBL DELETE TABLE C T P ENTTBL ENTER TABLE C t P DELBTC DELETE BATCH C " P DUMMY GET NO OF FREESPACES C & P NEXJOB GET NEXT JOBDEFINITION C " P PREJ
0x1c5cf4…1c5e88 Dummy {f00=0x008e, f01=0x0190, f02=» P NXBTH GET NEXT BATCHNAME C P DUMMY GET PREV BATCHNAME ( P EJECT J P* X PDUMMY b PRETURN p P TBF SWITFS,RETUNF ~ P PERF WRFSP,W1 PRETUNF P PERF RELEAS P CBNE DEBINW4,W0,RETUN9 P TBF SW95PR,RETUN9
0x1c5e88…1c601c Dummy {f00=0x008e, f01=0x0190, f02=»NDITION-REGISTER P* PCOND PROC " P CBL DEBINW4,W0,CON1 4 P CBE DEBINW4,W0,CON0 P P CMP W1,W2 l P RET ~ PCON1 P CMP W2,W1 P RET PCON0 P CMP W1,W1 P RET P PEND P* P* PWAIT PRO
0x1c601c…1c61b0 Dummy {f00=0x008e, f01=0x0190, f02=»,DISK,DKBIN1 P DSC1 DISK,ATTACH,W128 P BNERR WARE2 2 P MOVE DEBINW4,W3 F PWARE ^ P PERF COND j P RET | PWARE2 P SET SWITWT P SWITCH P B WARE P* P* P PEND $ PRELEAS PROC SUBROUTINE REL
0x1c61b0…1c6344 Dummy {f00=0x008e, f01=0x4162, f02=» PRELRET P RET P PEND P* , P* 6 ( P* SUBROUTINE SCHPOO, SEARCH POOL @ P* l PSCHPOO PROC IND,STRG,WX v P PLIT IND P PSTRG STRG P PBIN WX P MOVE STRG10A,IND P COPY STRG10A,W1,W6,STRG,W0 *
0x1c6344…1c64d8 Dummy {f00=0x008e, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1c64d8…1c666c Dummy {f00=0x008e, f01=0x0190, f02=» ? P P P( QPjB&!P!0 P0 CH ( 0 ""0 !!!ZD !ZE (HI ? ? ? ( E ? P P"X P( RPjB'!P!0 P0 CH 40 $$0 ""_N W W$ $ = ! X 0 "#? ? X X ? ^" ^"2 ? &8 ! b ! _ "P$ P!W P# P<4 !4 "4 #4 $4 4 8
0x1c666c…1c6800 Dummy {f00=0x008e, f01=0x0190, f02=» ( 0 !!_32 #@ 4 0 : , "? o2 B0 3 2 !W 0 ( _ "0 0 2 ! W&0 A 6 *.RV .W !@ 4 "*0 _,0 W 0 W 0 W 0 W 0 W 0 W 0 W 0!X Z [ 7 HH:HH:6:::6:6?! We !0" ?! #0# X
0x1c6800…1c6994 (2, 190) Opaque[0x194]
0x1c6994…1c6b28 # DirEnt {nam=»DKRUT1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11c8, f03=0x0000}
0x1c6994…1c6b28 IdxSect {
0x1c6994…1c6b28 f00 = 0x008e // 0x1c6994 @0x0
0x1c6994…1c6b28 f01 = 0x000a // 0x1c6996 @0x2
0x1c6994…1c6b28 gno = [ // 0x1c6998 @0x4
0x1c6994…1c6b28 [0x00]: C0x008e.0x1.0
0x1c6994…1c6b28 [0x01]: C0x008e.0x2.0
0x1c6994…1c6b28 [0x02]: C0x008e.0x3.0
0x1c6994…1c6b28 [0x03]: C0x008f.0x0.0
0x1c6994…1c6b28 [0x04]: C0x008f.0x1.0
0x1c6994…1c6b28 ]
0x1c6994…1c6b28 }
0x1c6b28…1c6cbc Dummy {f00=0x008e, f01=0x0190, f02=» $ P IDENT DKRUT1 UPD 80 01 18/CHST * , > :********************************************************** 6 * x 6 2* THIS MODULE HANDLES ALL DISC IN- AND OUTPUT. * @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS
0x1c6cbc…1c6e50 Dummy {f00=0x008e, f01=0x018e, f02=»ISC IN SPECIFIED UNIT x & P* 22 = DISC I/0-ERROR * P* 23 = DISC NOT OPERABLE H * v @ ;*********************************************************** P DDUM DDINIT P PDIV P EXT WAIT P EXT RELEAS
0x1c6e50…1c6fe4 Dummy {f00=0x008e, f01=0x0190, f02=» P EXT ATTWB P EXT RESTOR P EXT COND . P EXT READDK @ P EXT WRITDK T P ENTRY RDDS h P ENTRY WRDS | P ENTRY DISU P ENTRY WRFSP P ENTRY REFSP P ENTRY WRIACC P ENTRY WRICUR P ENTRY FREESP
0x1c6fe4…1c7178 Dummy {f00=0x008e, f01=0x018e, f02=»CC P ENTRY OFRSP P ENTRY GTNEXT P ENTRY GTPREV 4 P ENTRY DLCURR J P ENTRY DLRCCH ` EJECT v PDISU PROC FUZ,RECNO,BUF P PBIN FUZ P PBIN RECNO P PSTRG BUF P IB FUZ C P READSY C P WRIT
0x1c7178…1c730c Dummy {f00=0x008e, f01=0x0190, f02=» PERF DKER P TBT NEWVOL,READSY PREADSY01 4 P PERF COND D RET V PWRITSY b 4 P CALL WRITDK,DISK,FILECODE(W1),BUF,SECLEN,RECNO p P BOK WRITSY01 PERF DKER P TBT NEWVOL,WRITSY PWRITSY01 P PERF COND
0x1c730c…1c74a0 Dummy {f00=0x008e, f01=0x0190, f02=» NEWVOL,READUS PREADUS01 P PERF COND & RET 8 PWRITUS D : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO R P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND RET PEND
0x1c74a0…1c7634 (2, 191) Dummy {f00=0x008e, f01=0x0190, f02=»SC. THE LENGTH OF THE D/E-RECORD IS GIVEN BY ' v L P* 'USELEN' IS SET AFTER FILE-ASSIGNMENT FOR RESP. TASK DEPENDING ON A 6 & P* FIRST RECORD OF THE USERFILE. P* PRDDS PROC RNR P PBIN RNR 8 P CALL READDK,DISK,FILECODE(FILINDUS),R
0x1c7634…1c77c8 Dummy {f00=0x008e, f01=0x018e, f02=»LECODE(FILINDUS),RBUF,USELEN,RNR | P PERF COND ( P RET : P PEND F EJECT T @ <************************************************************ b * * SUBROUTINE DKER * * %* PURPOSE: SPECIFIES DISK-ERROR *
0x1c77c8…1c795c Dummy {f00=0x008e, f01=0x0190, f02=» * DKER PROC P CLEAR NEWVOL P XSTAT DISK,DKBIN1 6 P MOVE BCD13A,DKBIN1 P P MOVE DKBIN2,=X'8022' l P CALL MASK,DKBIN1,DKBIN2 P BZ DKER10 P MOVE DEBINW4,W22 I/O-ERROR P RET PDKER10 P MOVE DKBIN2,=
0x1c795c…1c7af0 Dummy {f00=0x008e, f01=0x0190, f02=»N2,W128 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER30 0 " P SET NEWVOL NEW VOLUME LOADED B P RET h PDKER30 t P MOVE DKBIN2,W1 P CALL MASK,DKBIN1,DKBIN2 P BZ DKER40 * P MOVE DEBINW4,=W'23' DISC NOT OPERABLE PDKER40 P
0x1c7af0…1c7c84 Dummy {f00=0x008e, f01=0x0190, f02=»DEXPO(MAX) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 > P MOVE DKBIN1,FFSNR(MAX) l 8 P CALL WRITDK,DISK,FILECODE(MAX),SYSBUF,SECLEN,DKBIN1 P BNERR WRFRET P PERF DKER PWRFRET P PERF COND
0x1c7c84…1c7e18 Dummy {f00=0x008e, f01=0x0190, f02=»DK,DISK,FILECODE(FIND),SYSBUF,SECLEN,FSRNR P BNERR REFCOP 2 P PERF DKER H P TBT NEWVOL,REFS01 Z PREFCOP t P MOVE DKBIN1,FINDEXPO(FIND) P MOVE FFSNR(FIND),FSRNR ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P COPY BPOOL(DKBIN1),W0
0x1c7e18…1c7fac Dummy {f00=0x008e, f01=0x018e, f02=»WIT04,US01 P PERF DISU,W1,BIN,BUF P B DRET 0 PUS01 @ P PERF DISU,W3,BIN,BUF L PDRET j P RET v P PEND PWR PROC BIN,BUF P TBT SWIT04,US02 P PERF DISU,W2,BIN,BUF P B DRET PUS02 P PERF DISU,W4,
0x1c7fac…1c8140 Dummy {f00=0x008e, f01=0x0190, f02=» PRDACC PROC P PERF WAIT P PERF DISU,W3,DEBIN1,SYSBUF ( P BERR RDARET L * P COPY BPOOL(PINACC),W0,W188,SYSBUF,W10 ` ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 PRDARET P PERF COND P RET P PEND P* . P* SUBRO
0x1c8140…1c82d4 (2, 192) Dummy {f00=0x008e, f01=0x0190, f02=»188,BPOOL(PINACC),W0 ~ ( P XCOPY DEBIN1,W0,W2,RPOOL(PINACC),W9 P PERF DISU,W4,DEBIN1,SYSBUF H P PERF COND l P RET ~ P PEND P* P EJECT P* P* PDUMPROC PROC FC PWRICUR P PERF FREESP,DEBIN1,FILINDUS
0x1c82d4…1c8468 Dummy {f00=0x008e, f01=0x0190, f02=»2A,W0 | P PTR NEXT SCTR TO CURR REC P XCOPY RBUF,W4,W2,DEBIN1,W0 2 PWRIT05 V & P PERF WRDS,CURSEC WRITE RECORDAREA d P BNERR WRIT02 P* P* WRITING - ERROR P* 0 P PERF FREESP,DEBIN2,FILINDUS GET NEW FREESP 4 P
0x1c8468…1c85fc Dummy {f00=0x008e, f01=0x0190, f02=»,ENDERR FIRST RECORD? * P PERF RDDS,DEBIN3 READ PREV RECORD(S) P BERR ENDERR L $ P SET CONTINUATION IN PREV SCTR ` P XCOPY RBUF,W4,W2,CURSEC,W0 * P PERF WRDS,DEBIN3 WRITE PREV RECORD(S) P BNERR WRIT05 P GET LINK PREV OF PREV
0x1c85fc…1c8790 Dummy {f00=0x008e, f01=0x018e, f02=»ERR ENDERR " P PREV OF PREV = END OF CHAIN P XCOPY RBUF,W4,W2,W0,W0 8 ( P PERF WRDS,DEBIN3 WRITE PREV OF PREV X PENDERR * P MOVE DEBINW4,W21 INDICATE DISC-ERROR P B WRIT07 P* P* OKAY P* PWRIT02 P
0x1c8790…1c8924 Dummy {f00=0x008e, f01=0x0190, f02=» x P XCOPY RBUF,W6,W2,W10,W0 * P MOVE CURSEC,DEBIN1 SET CURRENT SCTRNO ( P TBF SWIT01,WRIT07 V . P MOVE DEBINW4,W10 'NO MORE SPACE ON DISC' p PWRIT07 P B RETURN P* P* P* P* PWRIACC P PERF WRACC
0x1c8924…1c8ab8 Dummy {f00=0x008e, f01=0x0190, f02=» B RETURN P* P* P* & PCLSBTH CLOSE BATCH 0 P MOVE DEBIN1,W0 L P B WRIT01 d P* v P* P* PRECURR " P PERF RDDS,CURSEC READ SCTR(S) P CBNE DEBINW4,=W'30',BRETTA P MOVE DEBINW4,W0 PBRET
0x1c8ab8…1c8c4c Dummy {f00=0x008e, f01=0x0190, f02=»IN1 READ SECTOR(S) P BERR RETURN & P CBE FC,W16,GT003 JUMP IF GETPREV . P GET LINK PREV FOR CONTROL X P XCOPY DEBIN2,W0,W2,RBUF,W2 | P CBE DEBIN2,W0,GT002 P CBE CURSEC,DEBIN2,GT003 " P IF NOT OK, ZEROISE LINK TO $ P NEX
0x1c8c4c…1c8de0 Dummy {f00=0x008e, f01=0x018e, f02=»URN PGT003 , P MOVE CURSEC,DEBIN1 CURRENT SECTORNUMBER P B RETURN J P* P* f P* p PGTPREV z P XCOPY DEBIN1,W0,W2,RBUF,W2 P B GT001 P* P* P* PDLCURR P SET SWIT04 P PERF DLRCCH
0x1c8de0…1c8f74 (2, 193) Dummy {f00=0x008f, f01=0x018e, f02=» B P* SUBR FREESP, GET RECORDNUMBER OF NEXT FREE RECORD IN FILE P* J P* T PFREESP PROC RECN,INDEX ^ P MOVE DEBINW4,W0 | P CLEAR SWIT06 P CLEAR SWIT07 PFREE01 P MOVE DKBIN1,FINDEXPO(INDEX) 2 P CALL GETFRE,BPOOL(DKB
0x1c8f74…1c9108 Dummy {f00=0x008f, f01=0x0190, f02=» P SET SW95PR P B FND PNOFN & * P XCOPY DKBIN3,W0,W2,RPOOL(DKBIN1),W13 2 P CBE DKBIN3,W0,EOFCHN ` PFSP02 ~ P PERF SAVESB P PERF WRFSP,INDEX P BERR RESSY P PERF REFSP,DKBIN3,INDEX P BERR RESSY P PERF
0x1c9108…1c929c Dummy {f00=0x008f, f01=0x0190, f02=» P MOVE DKBIN3,W2 P B FSP02 PNOFSP , P MOVE DEBINW4,W10 : PFND T P CBG INDEX,W1,NEFE ` P SET SWITFS z PNEFE P PERF COND P RET P PEND P* P* 4 P* SUBROUTINE RFRSP, FREE RECORDS ARE PASSED
0x1c929c…1c9430 Dummy {f00=0x008f, f01=0x0190, f02=»-REC WITH RECNO IN IT p 2 P CALL SETFRE,BPOOL(DEBIN4),RPOOL(DEBIN4),RECNO P ADD FNOOFREC(INDEX),W1 T & P CBNE INDEX,W1,RFRSP1 JUMP IF NOT t P SET SWITFS SYSTEMFILE PRFRSP1 P PERF COND P RET P PEND P* P* SUBR
0x1c9430…1c95c4 Dummy {f00=0x008f, f01=0x0190, f02=» GFRSPR,RECNO,INDEX ~ 2 P* INDEX = INDEX TO CURRENT FILE P* T PGFRSPR PROC RECNO,INDEX ^ PANFANG ~ P MOVE DKBIN1,W1 P CBE INDEX,W1,SYSFLE P MOVE DKBIN1,USELEN * P DIV DKBIN1,SECLEN GET NO OF SCTRS/REC
0x1c95c4…1c9758 Dummy {f00=0x008f, f01=0x0190, f02=»UB DKBIN2,W12 P MUL DKBIN2,W8 P DIV DKBIN2,DKBIN1 , . P MUL DKBIN2,DKBIN1 GET RID OF UNUSED BITS F < P XCOPY DKBIN1,W0,W2,RPOOL(DEBIN4),W17 1ST INDICATED RNR x . P MOVE DKBIN3,DKBIN1 SAVE 1ST INDICATED RNR . P ADD DKBIN1,DKBIN2 GET LAST IN
0x1c9758…1c98ec Dummy {f00=0x008f, f01=0x018e, f02=»O(INDEX) | P RET " PNEXT GET NEXT FREESP-RECORD P MOVE DKBIN1,W13 B PREAD Z 6 P XCOPY DEBIN4,W0,W2,RPOOL(DEBIN4),DKBIN1 GET LINK f P CBE DEBIN4,W0,GFRET P PERF SAVESB P PERF WRFSP,INDEX P BERR GFREST P PERF REFS
0x1c98ec…1c9a80 Dummy {f00=0x008f, f01=0x018e, f02=» P MOVE DKBIN1,W11 P B READ P PEND 0 P* > P* H P* SUBROUTINE OFRSP R 0 P* SET RECORD ACCORDING TO RECNO OCCUPIED p P* POFRSP PROC RECNO,INDEX P PERF GFRSPR,RECNO,INDEX 2 P CALL SETOCC,BPOOL(DEBIN4),R
0x1c9a80…1c9c14 (2, 194) Dummy {f00=0x008f, f01=0x0190, f02=» x PSAVPOO P MOVE DKBIN1,W1 P MOVE DKBIN2,W1 . * P PERF DEPOOL,W2,DKBIN1,DKBIN2,STRG10A F P BNERR SAVOK t P SWITCH P B SAVPOO PSAVOK P MOVE WORK(W2),DKBIN1 ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 * P COPY
0x1c9c14…1c9da8 Dummy {f00=0x008f, f01=0x0190, f02=» SYSBUF FROM POOL | P MOVE DKBIN1,WORK(W2) ( P COPY SYSBUF,W0,W10,RPOOL(DKBIN1),W9 8 * P COPY SYSBUF,W10,W188,BPOOL(DKBIN1),W0 d * P PERF DEPOOL,W6,DKBIN1,DKBIN1,STRG10A P RET P PEND P EJECT P* H P* SUBROUTINE DLRCCH,
0x1c9da8…1c9f3c Dummy {f00=0x008f, f01=0x0190, f02=»EBIN2,W0,W2,BUF,W2 P XCOPY DEBIN1,W0,W2,BUF,W4 P CBNE DEBIN1,W0,DL001 < P SET BOOL9 Z P B RREPRE l PDL001 ~ P PERF RD,DEBIN1,BUF P BERR DLRET P XCOPY DEBIN5,W0,W2,BUF,W2 P XCOPY BUF,W2,W2,DEBIN2,W0 P CBNE DE
0x1c9f3c…1ca0d0 Dummy {f00=0x008f, f01=0x0190, f02=» CHAIN n ( P PERF RD,DEBIN2,BUF READ NEXT RECORD ! P BERR DLRET ! : 0 P XCOPY BUF,W2,W2,DEBIN5,W0 SET LINK BACKWARD ! N 0 P PERF WR,DEBIN2,BUF WRITE WITH UPDATED LINK ! PDL003 ! P MOVE DEBIN5,DEBIN1 ! P B DL006 ! PDL004 ! P PERF WR,D
0x1ca0d0…1ca264 Dummy {f00=0x008f, f01=0x0190, f02=»008 ! P PERF RD,DEBIN2,BUF " P BERR DLRET " ( P XCOPY DEBIN5,W0,W2,BUF,W4 " < P XCOPY BUF,W4,W2,DEBIN1,W0 " ^ P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBIN1,W1 "
0x1ca264…1ca3f8 Dummy {f00=0x008f, f01=0x4010, f02=» END " @ # F RD,DEBIN2,BUF " P BERR DLRET " ( P XCOPY DEBIN5,W0,W2,BUF,W4 " < P XCOPY BUF,W4,W2,DEBIN1,W0 " ^ P PERF WR,DEBIN2,BUF " P BERR DLRET " PDLR2 " P MOVE DEBIN1,FILINDUS " P TBT SWIT04,DLR1 " P MOVE DEBIN1,W1 "
0x1ca3f8…1ca58c Dummy {f00=0x008f, f01=0x2008, f02=» $ NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x1ca58c…1ca720 Dummy {f00=0x008f, f01=0x0190, f02=» NEWVOL,READUS PREADUS01 P PERF COND & RET 8 PWRITUS D : P CALL WRITDK,DISK,FILECODE(FILINDUS),BUF,SECLEN,RECNO R P BOK WRITUS01 PERF DKER P TBT NEWVOL,WRITUS PWRITUS01 P PERF COND RET PEND
0x1ca720…1ca8b4 (2, 195) Opaque[0x194]
0x1ca8b4…1caa48 # DirEnt {nam=»DKRUT2«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x11f0, f03=0x0000}
0x1ca8b4…1caa48 IdxSect {
0x1ca8b4…1caa48 f00 = 0x008f // 0x1ca8b4 @0x0
0x1ca8b4…1caa48 f01 = 0x000a // 0x1ca8b6 @0x2
0x1ca8b4…1caa48 gno = [ // 0x1ca8b8 @0x4
0x1ca8b4…1caa48 [0x00]: C0x008f.0x2.0
0x1ca8b4…1caa48 [0x01]: C0x008f.0x3.0
0x1ca8b4…1caa48 [0x02]: C0x0090.0x0.0
0x1ca8b4…1caa48 [0x03]: C0x0090.0x1.0
0x1ca8b4…1caa48 [0x04]: C0x0090.0x2.0
0x1ca8b4…1caa48 ]
0x1ca8b4…1caa48 }
0x1caa48…1cabdc Dummy {f00=0x008f, f01=0x0190, f02=» $ P IDENT DKRUT2 UPD 80-01-21/CHST > :********************************************************** , * n * x @ P* AFTER EXECUTION, THE DATA-ITEM DEBINW4 WILL BE SET AS * FOLLOWS: * 0 = NO ERROR 0 +*
0x1cabdc…1cad70 Dummy {f00=0x008f, f01=0x0190, f02=» * P* 23 = DISC NOT OPERABLE * 2 @ ;*********************************************************** < P DDUM DDINIT P PDIV P EXT WAIT ENTRY ENTFMT ENTRY DELFMT ENTRY PREFMT ENTRY NEXFMT
0x1cad70…1caf04 Dummy {f00=0x008f, f01=0x0190, f02=» P EXT RD P EXT REFSP P EXT EMPTYT & P EXT WRFSP : P EXT NOFFRE L P EXT COND ` P EXT ALGO r P EXT RETURN P EXT EMPTYT P EXT DEPOOL P EXT GETIND P EXT DEDISC P EXT CMPIND P EXT OPENF
0x1caf04…1cb098 Dummy {f00=0x008f, f01=0x0190, f02=» P IB FUCO C P OPENSY C P CLOSSY C 0 P OPENUS C D P CLOSUS X POPENSY h P TBF BOOLA1,GOON v P SWITCH P B OPENSY PGOON P SET SWITSY P BNZ OPENSY04 P SET BOOLA1 P CLEAR SWIT04
0x1cb098…1cb22c Dummy {f00=0x008f, f01=0x0190, f02=»OVE STRG10A,=C'SYSFIL ' P MOVE JOBNAME,FVOLNAME(W1) 8 P CALL OPENF,DISK,FILECODE(W1),SYSBUF,STRG10A,JOBNAME B P BOK OPENSY02 ~ POPENSY06 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 P CLEAR SWITSY P MOVE DEBINW4,W20 P SUB
0x1cb22c…1cb3c0 Dummy {f00=0x008f, f01=0x0190, f02=»CMPIND,DKBIN1,BPOOL(W1) P BNOK DES2 OUT OF RANGE P MOVE RPOOL(DKBIN1),=X'5800' @ P ADD DKBIN1,W1 d P B DES1 z PDES2 P PERF NOFFRE,DEBIN1,W1 P MOVE FNOOFREC(W1),DEBIN1 P PERF DISU,W1,W1,SYSBUF & P XCOPY F95PROC(W1)
0x1cb3c0…1cb554 (2, 196) Dummy {f00=0x008f, f01=0x0190, f02=»KBIN2,STRG10A x P BNOK OPENSY06 P MOVE FINDEXPO(W1),DKBIN1 , P PERF REFSP,W2,W1 N P BNOK OPENSY06 h POPENSY07 ~ P READ SYSTEM VARIABLES P PERF DEDISC,W19 POPENSY04 P CLEAR BOOLA1 P PERF COND SET CONDITION-REG
0x1cb554…1cb6e8 Dummy {f00=0x008f, f01=0x0190, f02=»SSY02 x P PERF WRFSP,W1 P BNOK CLOSSY01 $ P PERF DISU,W1,W1,SYSBUF : P BNOK CLOSSY01 Z P PERF DISU,W2,W1,SYSBUF p PCLOSSY01 , P CALL CLOSEF,DISK,FILECODE(W1),SYSBUF,W0 PCLOSSY02 P PERF COND RET POPENUS
0x1cb6e8…1cb87c Dummy {f00=0x008f, f01=0x0190, f02=»F SETUSE P BERR OPENUS03 P B OPENUS01 & PGOONN : P SET SWITUS H P BNZ OPENUS0C P SET BOOLA2 r P CLEAR SWIT01 P ADD FCOUNTER(FILINDUS),W1 ( P CBG FCOUNTER(FILINDUS),W1,OPENUS0E P MOVE STRG10A,=C'PTS-DE '
0x1cb87c…1cba10 Dummy {f00=0x008f, f01=0x0190, f02=»RE,DEBIN1,FILINDUS P BOK OPENUS0D P SET SWIT01 0 POPENUS0D D $ P MOVE FNOOFREC(FILINDUS),DEBIN1 T P PERF DISU,W3,W1,RBUF | P BERR OPENUS02 POPENUS0A * P XCOPY F95PROC(FILINDUS),W0,W2,RBUF,W5 P GET FILESTATUS P
0x1cba10…1cbba4 Dummy {f00=0x008f, f01=0x0190, f02=»IN1,W0,USCLS P SET SWIT01 PUSCLS ( P XCOPY RBUF,W0,W1,W7,W1 6 P PERF DISU,W4,W1,RBUF V P BOK OPENUS0B t P SET SWIT01 POPENUS0B P PERF SETUSE P BERR OPENUS02 P MOVE DKBIN3,W1 P MOVE DKBIN2,W1 * P
0x1cbba4…1cbd38 Dummy {f00=0x008f, f01=0x0190, f02=» P PERF RELEAS P BOK OPENUS01 $ P MOVE DKBIN1,FINDEXPO(FILINDUS) . * P PERF DEPOOL,W6,DKBIN1,DKBIN2,STRG10A V OPENUS02 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 P MOVE DEBINW4,W21 POPENUS03 P CLEAR SWITUS
0x1cbd38…1cbecc Dummy {f00=0x008f, f01=0x0190, f02=» P CLEAR BOOLA2 P PERF COND RET 0 PCLOSUS < P TBF SWITUS,CLOSUS01 J P CLEAR SWITUS f P SUB FCOUNTER(FILINDUS),W1 | P BP CLOSUS01 P PERF WRFSP,FILINDUS P PERF RELEAS P BNOK CLOSUS02 $ P MOVE DKBIN1,FIN
0x1cbecc…1cc060 Dummy {f00=0x008f, f01=0x0190, f02=»,W1,W0,W1 P PERF DISU,W4,W1,RBUF P BNOK CLOSUS02 0 PCLOSUS02 F 2 P CALL CLOSEF,DISK,FILECODE(FILINDUS),SYSBUF,W0 V CLOSUS01 P PERF COND RET PEND PSETUSE PROC P XCOPY SECLEN,W0,W2,RBUF,W9 P CBNE SE
0x1cc060…1cc1f4 (2, 197) Dummy {f00=0x0090, f01=0x0190, f02=»DKBIN1,W1 PSETNOZ P MUL DKBIN1,SECLEN $ P CALL GETIND,RBUF,DKBIN2,DKBIN3 : P CBNG DKBIN1,DKBIN2,SETOKA b P MOVE DEBINW4,W22 P MOVE BCD13A,=D'0' P B SETRET PSETOKA MOVE USELEN,DKBIN1 P SUB DKBIN1,W15 P MOV
0x1cc1f4…1cc388 Dummy {f00=0x0090, f01=0x018e, f02=» ENTER FORMAT P PERF WAIT P BERR RETURN * P MOVE STR6A,FORMAT > P PERF FREESP,DEBIN1,W1 X P BERR RETURN v P MOVE WORK(W9),DEBIN1 P B WRTFMT PFMTCHAIN P MOVE DEBIN5,W4 PRDCHAIN P MOVE DEBIN3,DEBIN5
0x1cc388…1cc51c Dummy {f00=0x0090, f01=0x0190, f02=» : P XCOPY DEBIN4,W0,W2,SYSBUF,W6 OCCUPIED SPACE TO DEBIN4 : P CBG DEBIN4,=W'180',RENEXT NO SPACE FOR MORE ENTRIES? F PADDENTRY , P XCOPY STRG10A,W0,W2,W0,W0 STATUS = '00' & P COPY STRG10A,W2,W6,FORMAT,W0 NAME B P XCOPY STRG10A,W8,W2,WORK(
0x1cc51c…1cc6b0 Dummy {f00=0x0090, f01=0x0190, f02=»PY SYSBUF,W6,W2,DEBIN4,W0 SET OCCUPIED SPACE P PERF DISU,W2,DEBIN5,SYSBUF 4 P B RETURN X PFFIRST j P MOVE DEBIN3,W0 x P MOVE DEBINW4,W0 P B FFST01 PRENEXT 2 P XCOPY DEBIN5,W0,W2,SYSBUF,W4 GET LINK TO NEXT P CBNE DEBI
0x1cc6b0…1cc844 Dummy {f00=0x0090, f01=0x0190, f02=»F v PFFST01 P MOVE DEBIN4,W10 4 P MOVE SYSBUF,=X'464300' SET SCTR-IDENTIFICATION 0 2 P XCOPY SYSBUF,W2,W2,DEBIN3,W0 SET LINK TO PREV h . P XCOPY SYSBUF,W4,W2,W0,W0 LINK TO NEXT = 0 P B ADDENTRY PWRTFMT P MOVE DEBIN3,PINDFR
0x1cc844…1cc9d8 Dummy {f00=0x0090, f01=0x0190, f02=»K NEXT BUF d * P XCOPY SYSBUF,W8,W2,RPOOL(DEBIN3),W17 ( P CBE DEBIN2,W0,NOMOREC LAST RECORD? @ P PERF FREESP,DEBIN4,W1 l P BNERR COP < P MOVE DEBIN2,WORK(W9) SAVE POINTER TO 1:ST FORMAT RECORD * P MOVE WORK(W9),DEBINW4 SAVE ERROR CODE 8
0x1cc9d8…1ccb6c Dummy {f00=0x0090, f01=0x018e, f02=»,W0 SET LINK NEXT REC v * P COPY SYSBUF,W10,W188,BPOOL(DEBIN3),W0 P PERF DISU,W2,DEBIN1,SYSBUF L P BERR RETURN p P TBF SWIT01,CO10 P B FMTCHAIN PCO10 P MOVE DEBIN3,DEBIN2 P MOVE DEBIN1,=X'4600' " P XCOPY SYSBUF,W0,W
0x1ccb6c…1ccd00 Dummy {f00=0x0090, f01=0x0190, f02=» P* P* P* P* " P* , PNEXFMT GET NEXT FORMAT 6 P SET SWIT03 V P* j P* t PPREFMT ~ P MOVE FRMTPNTR,W0 P CALL EMPTYT,FORMAT P BZ RRECNX P MOVE RNRFMCH,W4 P MOVE PTRFMCH,W0 P TBT
0x1ccd00…1cce94 (2, 198) Dummy {f00=0x0090, f01=0x0190, f02=»SBUF,W10 ~ P BERR RETURN P MOVE RNRFMCH,DEBIN1 $ P MOVE PTRFMCH,DEBIN2 @ P SUB PTRFMCH,W8 PRRECNZ t P PERF WAIT P BERR RETURN PRRECNY P PERF DISU,W1,RNRFMCH,SYSBUF P BNERR RREC01 P CBE DEBINW4,=W'30',OUTO
0x1cce94…1cd028 Dummy {f00=0x0090, f01=0x0190, f02=»IN1,W0,W2,SYSBUF,W6 GET USED SPACE P TBF SWIT03,RREC02 * P ADD PTRFMCH,W10 D P CBE PTRFMCH,DEBIN1,RREC03 PRREC07 ~ P MOVE DEBIN1,PTRFMCH P B RREC04 PRREC03 P MOVE DEBIN1,W4 PRREC05 & P XCOPY DEBIN5,W0,W2,SYSBUF
0x1cd028…1cd1bc Dummy {f00=0x0090, f01=0x0190, f02=» PRREC02 P CBL PTRFMCH,W20,RREC06 6 P CBNL DEBIN1,PTRFMCH,RREC02A IF WITHIN USED SPACE 6 . P MOVE PTRFMCH,DEBIN1 UPDATE WITH MAX LIMIT p PRREC02A P SUB PTRFMCH,W10 P B RREC07 PRREC06 P MOVE PTRFMCH,=W'190' P
0x1cd1bc…1cd350 Dummy {f00=0x0090, f01=0x0190, f02=»EBIN1 t $ P COPY FORMAT,W0,W6,SYSBUF,DEBIN1 P MOVE STR6A,FORMAT 6 P B NXPRFM P P* b P* l P* v PDELFMT DELETE FORMAT P PERF WAIT P BNOK RETURN P MOVE STR6A,FORMAT P CLEAR SWIT04 P PERF SFMTCH,W4,SYSB
0x1cd350…1cd4e4 Dummy {f00=0x0090, f01=0x0190, f02=»,W6 DEBIN1=OCC. SPACE v P DLETE SYSBUF,DEBIN2,W10 P SUB DEBIN1,W10 > 0 P XCOPY SYSBUF,W6,W2,DEBIN1,W0 SET OCC SPACE V P CBG DEBIN1,W10,DELF1 P CLEAR SWIT04 P PERF DLRCCH,SYSBUF P BERR RETURN PDELF1 P PERF DISU,W
0x1cd4e4…1cd678 Dummy {f00=0x0090, f01=0x0190, f02=»,W2 P BNERR DELF2 PDELF3 P MOVE DEBINW4,W9 . PDELF31 F * P CBNE FC,W9,DELF32 JUMP IF NOT ENTFMT T 6 P MOVE DEBINW4,WORK(W9) RESTORE ORIGINAL ERROR CODE PDELF32 P B RETURN PDELF2 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4
0x1cd678…1cd80c Dummy {f00=0x0090, f01=0x413a, f02=»RSP,DEBIN2,W1 PDELF P CBE DEBIN1,W0,DELF31 " P PERF DISU,W1,DEBIN1,SYSBUF @ P BERR RETURN d P COPY STR2A,W0,W2,SYSBUF,W0 x P CBNE STR2A,=X'4600',DELF3 P PERF RFRSP,DEBIN1,W1 " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 P B DEL
0x1cd80c…1cd9a0 Dummy {f00=0x0090, f01=0x2008, f02=» NEWVOL,REFS01 PREFCOP P MOVE DKBIN1,FINDEXPO(FIND) , P MOVE FFSNR(FIND),FSRNR P ( P COPY RPOOL(DKBIN1),W9,W10,SYSBUF,W0 p * P COPY BPOOL(DKBIN1),W0,W188,SYSBUF,W10 PREFEND P PERF COND P RET P PEND END
0x1cd9a0…1cdb34 (2, 199) Dummy {f00=0x0090, f01=0x2008, f02=» 6 FCOPY STR1A 2 P FMEND 2 PFORMK FRMT 2 * P FCOPY :FMTITEM 2 < P FMEND 2 T PFDOTS FRMT 2 b P FSL 2 t P FTEXT =X'142E' 2 P FILLR X'2E',1 2 P FMEND 2 P END 2 @ 2 P B SETCREAD CONTINUE 1 P PEND 1 P* 1 PBELL F
0x1cdb34…1cdcc8 Dummy {f00=0x0090, f01=0x0190, f02=» & & RECORD * $ N @ & P TTTT9D ^ " N t & ( & & & DUPL FROM VALUESET $ U
0x1cdcc8…1cde5c Dummy {f00=0x0090, f01=0x018e, f02=» & : ( ! " & : 2 & : @ & CONFIRM RECORD INSERT: N ( r " ) ~ & & & RECOVERY OF # JOBE $ #E & : & k &
0x1cde5c…1cdff0 Dummy {f00=0x0090, f01=0x018e, f02=» & & RECORD CORRECTIONS ( 6 & B & R & ` " & RECORD MUST BE VERIFIED n ( ' & & RECOVERY RUNNING.R ( ( &
0x1cdff0…1ce184 Dummy {f00=0x0090, f01=0x0190, f02=» $ +R $ & CONVERSION OF ALL BATCHES ( < , H & X $ *O f & ON UNIT:UN v - XU " -iN ( . & - $ *N & WITHIN JOB:O &
0x1ce184…1ce318 Dummy {f00=0x0090, f01=0x4178, f02=»& FF*O ( 0 & , $ & ENTER WANTED RECORDNUMBER: : ( b 1 n & ~ ( 2 & ( 3 & ( 4 &
0x1ce318…1ce4ac Dummy {f00=0x0090, f01=0x0190, f02=» F H IDENT DENT03 TRA 4.2 - - F1 O1111 PRRR 1.0 80-01-21/DALI DEFORC DEVERI N $$$TRAN h DEFORC DEVERI : z B > DELOCKN DERRORA DESTAT FMOVE FORCED1 MASKR T:DISP0 T:EDWRD B > T:GETA T:GETCR T:KI T:SETC T:TSTC T
0x1ce4ac…1ce640 Dummy {f00=0x0090, f01=0x0190, f02=» 2 F ^ r
0x1ce640…1ce7d4 (2, 200) Opaque[0x194]
0x1ce7d4…1ce968 # DirEnt {nam=»DKRUT3«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1218, f03=0x0000}
0x1ce7d4…1ce968 IdxSect {
0x1ce7d4…1ce968 f00 = 0x0090 // 0x1ce7d4 @0x0
0x1ce7d4…1ce968 f01 = 0x0008 // 0x1ce7d6 @0x2
0x1ce7d4…1ce968 gno = [ // 0x1ce7d8 @0x4
0x1ce7d4…1ce968 [0x00]: C0x0090.0x3.0
0x1ce7d4…1ce968 [0x01]: C0x0091.0x0.0
0x1ce7d4…1ce968 [0x02]: C0x0091.0x1.0
0x1ce7d4…1ce968 [0x03]: C0x0091.0x2.0
0x1ce7d4…1ce968 ]
0x1ce7d4…1ce968 }
0x1ce968…1ceafc Dummy {f00=0x0090, f01=0x0190, f02=» $ P IDENT DKRUT3 UPD 80-01-21/CHST P* , P* 6 L P************************************************************************ @ P* P* : P* ALL COMMENTS TO DKRUT3 ARE FOUND IN MODULE P* , P* D E
0x1ceafc…1cec90 Dummy {f00=0x0090, f01=0x018e, f02=» P DDUM DDINIT P PDIV P ENTRY NXPRFM & P EXT COND < P EXT DISU N P EXT DEPOOL ` P EXT WRFSP t P EXT WAIT P EXT RELEAS P EXT FREESP P EXT SCHPOO P ENTRY GETSYS P ENTRY ENTSYS P ENTRY N
0x1cec90…1cee24 Dummy {f00=0x0090, f01=0x0190, f02=» P EXT RD P ENTRY ALGO P ENTRY GETTBL ( P ENTRY DELTBL > P ENTRY ENTTBL T P EXT RDDS j P EJECT | PDUMPROC PROC FC PGETFMT GET FORMAT P MOVE RNRFMCH,W0 P MOVE STR6A,DEINPUT P PERF WAIT P BER
0x1cee24…1cefb8 Dummy {f00=0x0090, f01=0x0190, f02=» MOVE DEBINW4,W0 P CBNE FRMTPNTR,W0,MAXI P CLEAR SWIT04 6 P PERF SFMTCH,W4,SYSBUF,W10 L P BERR RETURN n PRDDK98 P TEST SWIT02 P BNZ RETURN P READ 1ST REC OF FMT P MOVE SYSBUF,HEX00 P PERF DISU,W1,DEBIN3,SYS
0x1cefb8…1cf14c Dummy {f00=0x0090, f01=0x0190, f02=» CBE FC,=W'32',RDDK100 IF GETPREV P SET SWIT07 * P BNZ SETER > PRDDK100 P P PERF RELEAS ` P B STRT01 t PSETER P MOVE DEBINW4,W9 P B RETURN PCHOK & P MOVE FRMTPNTR,DEBIN3 SET FRMTPNTR P GET LINK NEXT
0x1cf14c…1cf2e0 Dummy {f00=0x0090, f01=0x0190, f02=»BIN1,DEBIN3 P MOVE DEBIN4,W0 P GET NO OF CONSEC , " P XCOPY DEBIN4,W1,W1,SYSBUF,W9 H * P PERF DEPOOL,W1,DEBIN3,DEBIN4,STRG10A n P BNERR GET21 ( P MOVE DEBINW4,W13 'NO BUFFERS FREE' P P B RETURN PMAXI P MOVE
0x1cf2e0…1cf474 (2, 201) Dummy {f00=0x0091, f01=0x0190, f02=»0 j * P XCOPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P SUB DEBIN1,W1 8 P CBE DEBIN1,W0,TBFAL N P PERF DISU,W1,DEBIN5,SYSBUF j P BNERR GET25 * P PERF DEPOOL,W6,DEBIN4,DEBIN3,STRG10A P B RDDK99 PGET25 P GET LINK NEXT " P
0x1cf474…1cf608 Dummy {f00=0x0091, f01=0x0190, f02=» PTBFAL * P PERF DEPOOL,W4,DEBIN4,DEBIN1,STRG10A * P PERF DEPOOL,W6,PINDFR,DEBIN1,STRG10A @ PSETPFR n P MOVE PINDFR,DEBIN4 | P B RETURN PFLOCKE P MOVE DEBINW4,W24 'LOCKED' P B RETURN PGOTFFR $ P TBF SWIT02,FG
0x1cf608…1cf79c Dummy {f00=0x0091, f01=0x0190, f02=» P B FLOCKE PFUT P B RETURN & PFGETUN 8 $ P PERF SCHPOO,=C'F ',STR6A,W5 SET F P B TBFALL n PSCHFMT SEARCH FORMAT P SET SWIT02 P B GETFMT P* P* PENTSYS P PERF WAIT P BERR RETURN
0x1cf79c…1cf930 Dummy {f00=0x0091, f01=0x0190, f02=» h P ADD DEBIN1,W17 P ADD DEBIN2,W1 P CBL DEBIN2,W11,CENT 6 P PERF DISU,W2,W5,SYSBUF R P B RETURN r P* P* PGETSYS P PERF WAIT P BERR RETURN P PERF DISU,W1,W5,SYSBUF P BOK NNODA P MOVE SYSB
0x1cf930…1cfac4 Dummy {f00=0x0091, f01=0x0190, f02=»W17,SYSBUF,DEBIN1 z P ADD DEBIN1,W17 P ADD DEBIN2,W1 2 P CBL DEBIN2,W11,CGET H P B RETURN d P* v P* P EJECT P* P* ENTTBL SET SWIT01 B GETT01 ENTT01 P MOVE SYSBUF,=X'5400'
0x1cfac4…1cfc58 Dummy {f00=0x0091, f01=0x0190, f02=» t B RETURN ENTT03 PERF FREESP,DEBIN2,W1 ( P BERR RETURN F " P XCOPY SYSBUF,W4,W2,DEBIN2,W0 Z P PERF DISU,W2,DEBIN4,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN2 B ENTT01 * * * PDELT
0x1cfc58…1cfdec Dummy {f00=0x0091, f01=0x0190, f02=»K RETURN DELT02 PERF DISU,W1,DEBIN1,SYSBUF BNOK RETURN B " XCOPY DEBIN2,W0,W2,SYSBUF,W4 V PERF RFRSP,DEBIN1,W1 | BNOK RETURN P CBE DEBIN2,W0,RETUR MOVE DEBIN1,DEBIN2 B DELT02 * *
0x1cfdec…1cff80 Dummy {f00=0x0091, f01=0x0190, f02=» GETT01 PERF WAIT P BERR RETURN $ , ' COPY STR2A,W0,W2,TABLE,W1 GET TABLE-NO 8 P MOVE BCD13A,STR2A h * P MOVE DEBIN5,BCD13A CONVERT TO BINARY CBL DEBIN5,=W'95',DKTBL $ MOVE DEBINW4,W1 INDICATE ERROR PRETUR B
0x1cff80…1d0114 (2, 202) Dummy {f00=0x0091, f01=0x0190, f02=» P MOVE DEBINW4,W0 P TBF SWIT01,NOINSY P MOVE SYSBUF,=X'544300' : P PERF DISU,W2,W7,SYSBUF Z P BERR RETURN z PMUL MUL DEBIN5,W2 ADD DEBIN5,W10 & ! XCOPY DEBIN1,W0,W2,SYSBUF,DEBIN5 P CBNE DEBIN1,W0,DT002
0x1d0114…1d02a8 Dummy {f00=0x0091, f01=0x018e, f02=»,W2,W7,SYSBUF P BERR RETURN P MOVE DEBIN4,DEBIN1 * P B ENTT01 F PDT002 X P TEST SWIT02 f P BNZ DELT01 z RDN PERF DISU,W1,DEBIN1,SYSBUF P BNOK RETURN P MOVE DEBIN4,DEBIN1 MOVE DEBIN1,W0 2 - X
0x1d02a8…1d043c Dummy {f00=0x0091, f01=0x0190, f02=» ( # CBG DEBIN1,W0,RDN READ NEXT RECORD ( P TBF SWIT01,NOINSY JUMP IF NOT ENTER 0 P MOVE DEBIN2,W17 0 P MATCH RPOOL(PINDTB),DEBIN2,W1,SYSBUF,W8,W1 t ( P BOK ENTT01 INSERT IN CURRENT SECTOR P B ENTT03 INSERT NEW SECTOR PNOINSY $ M
0x1d043c…1d05d0 Dummy {f00=0x0091, f01=0x0190, f02=»OVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN D ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 X * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DEPOOL,W6,PINDTB,DEBIN
0x1d05d0…1d0764 Dummy {f00=0x0091, f01=0x0190, f02=»* P PEND P* < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE " P* b PSFMTCH PROC WX,BUF,STEG l P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1 P B BNERR
0x1d0764…1d08f8 Dummy {f00=0x0091, f01=0x0190, f02=» ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 PMTCH 8 $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 D P BNERR FOND l P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P
0x1d08f8…1d0a8c Dummy {f00=0x0091, f01=0x0190, f02=»ETR PFOND P ADD DEBIN2,W6 " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 . PRETR T P PERF COND ` P RET r P PEND ~ P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04
0x1d0a8c…1d0c20 Dummy {f00=0x0091, f01=0x0190, f02=»PY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 P ADD CNTR,DEBIN4 D P CBNE DEBIN5,W0,US002 P MOVE FNOOFREC(INDFIL),CNTR z PNOFRET P PERF COND P RET P PEND P* P* P EJECT P* J P* S
0x1d0c20…1d0db4 (2, 203) Dummy {f00=0x0091, f01=0x0190, f02=»= 1 FOR SET (ENTER FORMAT) J P* FC = 2 FOR GET (GET FORMAT) IN THIS CASE, THE CONDITIONREGISTER IS " . P* SET TO 0 IF IDENTIFICATION OKAY p 2 P* SET TO 2 IF IDENTIFICATION NOT OKAY P* PALGO PROC FC P MOVE DKBIN3,W0
0x1d0db4…1d0f48 Dummy {f00=0x0091, f01=0x4148, f02=»E DKBIN1,W6,XCALGO P IB FC C P ALTO C , P ALFRO > PALTO N " P XCOPY SYSBUF,W0,W2,DKBIN3,W0 Z P RET PALFRO " P XCOPY DKBIN2,W0,W2,SYSBUF,W0 P CBE DKBIN2,DKBIN3,NOERR P CMP W1,W2 P RET PNOERR
0x1d0f48…1d10dc Dummy {f00=0x0091, f01=0x2008, f02=» ETUN9 P TBF SW95PR,RETUN9 P MOVE DEBINW4,=W'-1' 0 PRETUN9 L P PERF COND Z P RET l P PEND x P END @ MOVE PINDTB,DEBIN3 B RETURN LCK MOVE DEBINW4,W3 B RETURN * *
0x1d10dc…1d1270 Dummy {f00=0x0091, f01=0x0190, f02=»OVE DEBIN2,W1 * % PERF DEPOOL,W1,DEBIN3,DEBIN2,STRG10A BNOK RETURN D ( $ COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 X * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 GTF * % PERF DEPOOL,W4,DEBIN3,DEBIN2,STRG10A 8 P PERF DEPOOL,W6,PINDTB,DEBIN
0x1d1270…1d1404 Dummy {f00=0x0091, f01=0x0190, f02=»* P PEND P* < P* SUBROUTINR SFMTCH, SEARCH CHAIN. SWIT04 ON: USERFILE " P* b PSFMTCH PROC WX,BUF,STEG l P MOVE DEBIN1,WX PRID0 P MOVE DEBIN2,W10 P TBF SWIT04,RID3 P PERF RDDS,DEBIN1 P B BNERR
0x1d1404…1d1598 Dummy {f00=0x0091, f01=0x0190, f02=» ADD DEBIN2,W2 P XCOPY DKBIN1,W0,W2,BUF,W6 PMTCH 8 $ P MATCH BUF,DEBIN2,W6,STR6A,W0,W6 D P BNERR FOND l P ADD DEBIN2,STEG P SUB DEBIN2,W1 P CBNG DEBIN2,DKBIN1,MTCH P MOVE DEBINW4,W0 P XCOPY DKBIN1,W0,W2,BUF,W4 P
0x1d1598…1d172c Dummy {f00=0x0091, f01=0x0190, f02=»ETR PFOND P ADD DEBIN2,W6 " P XCOPY DEBIN3,W0,W2,BUF,DEBIN2 . PRETR T P PERF COND ` P RET r P PEND ~ P* 2 PNOFFRE PROC CNTR,INDFIL GET NO OF FREE RECORDS P MOVE CNTR,W0 P MOVE DEBIN5,W2 P CLEAR SWIT04
0x1d172c…1d18c0 Dummy {f00=0x0091, f01=0x0190, f02=»PY DEBIN5,W0,W2,RBUF,W4 P XCOPY DEBIN4,W0,W2,RBUF,W10 P ADD CNTR,DEBIN4 D P CBNE DEBIN5,W0,US002 P MOVE FNOOFREC(INDFIL),CNTR z PNOFRET P PERF COND P RET P PEND P* P* P EJECT P* J P* S
0x1d18c0…1d1a54 (2, 204) Opaque[0x194]
0x1d1a54…1d1be8 # DirEnt {nam=»DKRUT4«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1238, f03=0x0000}
0x1d1a54…1d1be8 IdxSect {
0x1d1a54…1d1be8 f00 = 0x0091 // 0x1d1a54 @0x0
0x1d1a54…1d1be8 f01 = 0x0008 // 0x1d1a56 @0x2
0x1d1a54…1d1be8 gno = [ // 0x1d1a58 @0x4
0x1d1a54…1d1be8 [0x00]: C0x0091.0x3.0
0x1d1a54…1d1be8 [0x01]: C0x0092.0x0.0
0x1d1a54…1d1be8 [0x02]: C0x0092.0x1.0
0x1d1a54…1d1be8 [0x03]: C0x0092.0x2.0
0x1d1a54…1d1be8 ]
0x1d1a54…1d1be8 }
0x1d1be8…1d1d7c Dummy {f00=0x0091, f01=0x0190, f02=» $ P IDENT DKRUT4 UPD 80-02-25/CHST P DDUM DDINIT , PDIV @ P ENTRY ENTJOB N P ENTRY GETJOB d P ENTRY SCHJOB z P ENTRY DELJOB P ENTRY NEXJOB P ENTRY PREJOB P ENTRY OPNEBC P ENTRY OPNNBC P ENTRY REA
0x1d1d7c…1d1f10 Dummy {f00=0x0091, f01=0x0190, f02=» P EXT DEPOOL P EXT RETURN P ENTRY DELBTC 0 P ENTRY NXJOB F P ENTRY NXBTH Z P EXT RDACC n P EXT SCHPOO P EXT RELEAS P EXT COND P EXT EMPTYT P EXT RDDS P EXT WRDS P EJECT PDUMM03 P
0x1d1f10…1d20a4 Dummy {f00=0x0091, f01=0x018e, f02=»SOK P SET SWIT04 P MOVE STR6A,JOBNAME , P PERF SFMTCH,W3,RBUF,W10 SEARCH JOBCHAIN < P BNERR OPNN01 FOUND l P CBE DEBINW4,W9,OPNN99 P B RETURN POPNN99 * P TBF SWIT05,OPNN02 NEW ENTRY JOBCHAIN P B RETURN 'NOT IN SY
0x1d20a4…1d2238 Dummy {f00=0x0091, f01=0x0190, f02=» P CBE DEBINW4,W9,OPNN88 P B RETURN " POPNN88 4 , P TBF SWIT05,OPNN04 NEW ENTRY BATCHCHAIN B P B RETURN 'NOT IN SYSTEM' r POPNN03 * P TBT SWIT05,OPNN06 OPEN EXISTING BATCH & P MOVE DEBINW4,W8 ALREADY DEFINED' P B RETURN
0x1d2238…1d23cc Dummy {f00=0x0091, f01=0x018e, f02=»TRY h 2 P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCCUPIED SPACE ( P CBG DEBIN2,MAXOCC,OPNN07 NEW RECORD B POPNN09 n P PERF ENTR,JOBNAME | $ P XCOPY RBUF,DEBIN2,W2,DEBIN4,W0 P ADD DEBIN2,W2 P XCOPY RBUF,W6,W2,DEBIN2,W0 P PERF WRDS,DEBIN
0x1d23cc…1d2560 Dummy {f00=0x0091, f01=0x0190, f02=» x P XCOPY RBUF,W2,W2,DEBIN1,W0 P XCOPY RBUF,W4,W2,W0,W0 , POPNN12 L P PERF ENTR,BATCH Z P PERF FREESP,DEBIN1,FILINDUS r P BERR RETURN $ P XCOPY RBUF,DEBIN2,W2,DEBIN1,W0 P ADD DEBIN2,W2 P PERF FREESP,CURSEC,FILINDUS
0x1d2560…1d26f4 (2, 205) Dummy {f00=0x0092, f01=0x0190, f02=»IN4 P BERR RETURN P MOVE RBUF,HEX00 P XCOPY RBUF,W6,W2,W10,W0 8 P B OPNN16 X " POPNN08 FIRST SECTOR JOBCHAIN j P MOVE RBUF,=X'4A4300' P MOVE DEBIN1,W3 P XCOPY RBUF,W2,W2,W0,W0 POPNN10 P XCOPY RBUF,W4,W2,W0
0x1d26f4…1d2888 Dummy {f00=0x0092, f01=0x0190, f02=»,DEBIN1 P BERR RETURN P MOVE RBUF,=X'4A4300' $ P XCOPY RBUF,W2,W2,DEBIN1,W0 B P MOVE DEBIN1,DEBIN4 f P PERF FREESP,DEBIN4,FILINDUS P B OPNN10 " POPNN04 NEW ENTRY BATCH-CHAIN . P XCOPY DEBIN2,W0,W2,RBUF,W6 GET OCC. SPACE
0x1d2888…1d2a1c Dummy {f00=0x0092, f01=0x018e, f02=»NDUS x P BERR RETURN P XCOPY RBUF,W4,W2,DEBIN4,W0 P PERF WRDS,DEBIN1 D P BERR RETURN ^ P MOVE DEBIN2,W10 r P B OPNN13 POPNN06 OPEN EXISTING BATCH $ P XCOPY DEBIN5,W0,W2,RBUF,DEBIN2 P XCOPY DEBIN4,W0,W2,RBUF,W6
0x1d2a1c…1d2bb0 Dummy {f00=0x0092, f01=0x0190, f02=» POPNNDL P SUB DEBIN2,W10 P SUB DEBIN4,W12 * P XCOPY RBUF,W6,W2,DEBIN4,W0 B P DLETE RBUF,DEBIN2,W12 f P PERF WRDS,DEBIN1 P BERR DL10 P CBG DEBIN4,W10,DL01 P PERF DLRCCH,RBUF PDL01 P PERF RFRSP,DEBIN5,FIL
0x1d2bb0…1d2d44 Dummy {f00=0x0092, f01=0x0190, f02=»RR DL03 P CBE DEBINW4,=W'30',DL04 P B DL10 0 PDL04 @ P MOVE RBUF,HEX00 L P MOVE DEBINW4,W0 d PDL03 | P XCOPY DEBIN5,W0,W2,RBUF,W4 P PERF RFRSP,CURSEC,FILINDUS P MOVE CURSEC,DEBIN5 P CBNE DEBIN5,W0,DL02 P
0x1d2d44…1d2ed8 Dummy {f00=0x0092, f01=0x018e, f02=»ORCODE n P B RETURN POPNN16 $ P XCOPY STATSH,W0,W1,FILINDUS,W0 . " P COPY STATSH,W1,W6,JOBNAME,W0 V P COPY STATSH,W7,W6,BATCH,W0 | ( P PERF DEPOOL,W9,DKBIN2,DKBIN3,STATSH & P BNERR EXIST IF IKAY, ALREADY OPEN P MOVE DKBIN1,W1
0x1d2ed8…1d306c Dummy {f00=0x0092, f01=0x0190, f02=» h P MOVE PINACC,DKBIN1 P MOVE BPOOL(DKBIN1),HEX00 $ ( P XCOPY RPOOL(PINACC),W9,W2,DEBIN1,W0 F P TBT SWIT05,EXIBAT r P B RETURN PEXIBAT P PERF RDACC P PERF RDDS,CURSEC P CBNE DEBINW4,=W'30',ZWIHOP P MOVE DEBI
0x1d306c…1d3200 Dummy {f00=0x0092, f01=0x0190, f02=»* P* PENTJOB ENTER JOBDEF P PERF WAIT 2 P BERR RETURN D P PERF READJB X P BNERR FOUNDJ l P CBE DEBINW4,=W'30',FIRST P CBE DEBINW4,W9,NOTIN P B RETURN PFIRST * P MOVE DEBIN1,DEBIN3 SAVE RECORD NUMBER
0x1d3200…1d3394 (2, 206) Dummy {f00=0x0092, f01=0x0190, f02=»FST1 ( P MOVE SYSBUF,=X'4A440000000000C600' " P XCOPY SYSBUF,W2,W2,DEBIN3,W0 8 , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 ^ P PERF DISU,W2,DEBIN1,SYSBUF P BERR RETURN ( P CBE DEBIN3,W0,ENTRET LAST IN CHAIN $ P PERF DISU,W1,DEBIN3,S
0x1d3394…1d3528 Dummy {f00=0x0092, f01=0x018e, f02=» PFOUNDJ , P COPY SYSBUF,W10,W188,BPOOL(PJOBCUR),W0 P PERF DISU,W2,DEBIN3,SYSBUF F P B RETURN j P* | P* P* PGETJOB GET JOBDEF P MOVE STR6A,DEINPUT PGTJ020 * P PERF SCHPOO,=C'J ',STR6A,W7 SCAN POOL
0x1d3528…1d36bc Dummy {f00=0x0092, f01=0x0190, f02=» P PERF WAIT P BERR RETURN PRDCNW . P PERF DISU,W1,DEBIN1,SYSBUF < P BNERR DATA ` P CBE DEBINW4,=W'30',NOTEX t P B RETURN PNOTEX $ P MOVE DEBINW4,W9 'NOT EXISTENT' P B RETURN PDATA P MOVE DEBIN2
0x1d36bc…1d3850 Dummy {f00=0x0092, f01=0x0190, f02=» SWIT03,GTJ010 P MOVE STR6A,STR6B P PERF RELEAS 0 P B GTJ020 D PGTJ010 V " P XCOPY DEBIN1,W0,W2,SYSBUF,W4 d P CBE DEBIN1,W0,NOTEX P B RDCNW PRDCHJF P TEST SWIT02 " P BNZ RETURN RETURN, IF SEARCH P TBF SWIT0
0x1d3850…1d39e4 Dummy {f00=0x0092, f01=0x0190, f02=»F DEPOOL,W1,DEBIN3,DEBIN4,STRG10A P BNERR GTJOK * & P MOVE DEBINW4,W13 'NO BUFFER FREE' > P B RETURN h PGTJOK z * P COPY BPOOL(DEBIN3),W0,W188,SYSBUF,W10 ( P COPY RPOOL(DEBIN3),W9,W10,SYSBUF,W0 P MOVE DKBIN1,W4 PGETUNL P
0x1d39e4…1d3b78 Dummy {f00=0x0092, f01=0x0190, f02=»POOL,W6,PJOBCUR,DEBIN3,STRG10A . P PERF DEPOOL,DKBIN1,DEBIN3,DEBIN2,STRG10A & P MOVE PJOBCUR,DEBIN3 X P B RETURN t PLOCKED P MOVE JOBNAME,STR6A P MOVE DEBINW4,=W'26' P B RETURN PGOTFRE P TEST, IF USED P TBT
0x1d3b78…1d3d0c Dummy {f00=0x0092, f01=0x0190, f02=» GETJOB P* P* PDELJOB DELETE JOBDEF $ P PERF WAIT B P PERF READJB T P BERR RETURN h P CLEAR SWIT04 | P PERF DLRCCH,SYSBUF P TBF BOOL9,RETUR P TBF BOOL8,RETUR P MOVE SYSBUF,HEX00 P PERF DISU,W2,W3
0x1d3d0c…1d3ea0 Dummy {f00=0x0092, f01=0x0190, f02=» P* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W2 8 PPRE01 P & P MOVE STR6A,JOBNAME DALI 79-04-24 ^ P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN & P XCOPY DEBIN1,W0
0x1d3ea0…1d4034 (2, 207) Dummy {f00=0x0092, f01=0x0190, f02=» P* P* P* P* & PNXJOB GET NEXT JOBNAME 0 P SET SWIT01 P PNXBTH GET NEXT BATCHNAME d P SET SWIT04 P CALL EMPTYT,JOBNAME P BNZ FIRJOB P MOVE STR6A,JOBNAME P PERF SFMTCH,W3,RBUF,W10 P B
0x1d4034…1d41c8 Dummy {f00=0x0092, f01=0x0190, f02=»KBIN3,W0,W2,RBUF,W4 P CBE DKBIN3,W0,NOT P PERF RDDS,DKBIN3 6 P BERR RETURN P PFIJONA d P XCOPY DEBIN1,W0,W2,RBUF,W6 r P CBNG DEBIN1,W10,NOT P MOVE DEBIN2,W12 PGTNAM P TBF SWIT01,GTNAM1 $ P COPY JOBNAME,W0,W6,RB
0x1d41c8…1d435c Dummy {f00=0x0092, f01=0x0190, f02=»3,RBUF,W12 ~ P BERR NOT P ADD DEBIN2,W6 $ P CBG DEBIN2,DKBIN1,RENER : PGTNAM1 Z " P COPY BATCH,W0,W6,RBUF,DEBIN2 h P B RETURN PFIRJOB P PERF RDDS,W3 P BOK FIJONA P CBE DEBINW4,=W'30',NOT P B RETURN
0x1d435c…1d44f0 Dummy {f00=0x0092, f01=0x0190, f02=»N2,W12 P B GTNAM1 PNOT . P MOVE DEBINW4,W9 INDICATE 'NOT IN SYSTEM' , P B RETURN ^ P* p P* z P PEND P EJECT P* P* PREADJB PROC P MOVE DEBIN4,W3 PREDJCH P MOVE DEBIN3,DEBIN4
0x1d44f0…1d4684 Dummy {f00=0x0092, f01=0x0190, f02=»P IF EMPTY v 4 P MOVE DEBINW4,=W'30' IDICATE FIRST RECORD EMPTY P B RETRED J PREDJ10 P MOVE DEBIN5,=W'92' j $ P COPY STR6A,W0,W6,SYSBUF,DEBIN5 P CBE STR6A,JOBNAME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBN
0x1d4684…1d4818 Dummy {f00=0x0092, f01=0x40be, f02=»ENTR PROC ITEM P XCOPY RBUF,DEBIN2,W2,W0,W0 P ADD DEBIN2,W2 : P COPY RBUF,DEBIN2,W6,ITEM,W0 P P ADD DEBIN2,W6 t P RET P PEND P* END @ ME,RETRED PREDJ20 " P XCOPY DEBIN4,W0,W2,SYSBUF,W4 P CBN
0x1d4818…1d49ac Dummy {f00=0x0092, f01=0x2008, f02=»
0x1d49ac…1d4b40 Dummy {f00=0x0092, f01=0x0190, f02=» P* P* PPREJOB GET PREV JOBDEF P MOVE DEBIN2,W2 8 PPRE01 P & P MOVE STR6A,JOBNAME DALI 79-04-24 ^ P MOVE DEBIN1,W3 P CALL EMPTYT,JOBNAME P BNZ BUFREL P PERF READJB P BERR RETURN & P XCOPY DEBIN1,W0
0x1d4b40…1d4cd4 (2, 208) Opaque[0x194]
0x1d4cd4…1d4e68 # DirEnt {nam=»DERR:O«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1258, f03=0x0000}
0x1d4cd4…1d4e68 IdxSect {
0x1d4cd4…1d4e68 f00 = 0x0092 // 0x1d4cd4 @0x0
0x1d4cd4…1d4e68 f01 = 0x0006 // 0x1d4cd6 @0x2
0x1d4cd4…1d4e68 gno = [ // 0x1d4cd8 @0x4
0x1d4cd4…1d4e68 [0x00]: C0x0092.0x3.0
0x1d4cd4…1d4e68 [0x01]: C0x0093.0x0.0
0x1d4cd4…1d4e68 [0x02]: C0x0093.0x1.0
0x1d4cd4…1d4e68 ]
0x1d4cd4…1d4e68 }
0x1d4e68…1d4ffc Dummy {f00=0x0092, f01=0x0190, f02=» P IDENT DERROR 78/02/01/PEEN P* ( P* USER = S:DA 2 4 P* THIS IS A GENERAL ERRORMESSAGES-ROUTINE H 2 P* IT - POSITIONS CURSOR AT THE 24TH LINE F P* - DISPLAYS CORRESPNDING ERROR MESSAGE AT THE 24TH LINE > P*
0x1d4ffc…1d5190 Dummy {f00=0x0092, f01=0x0190, f02=»M DDINIT PDIV P ENTRY DERROR P ENTRY CANC 4 P ENTRY DESTAT H P ENTRY DECHK1 ^ P ENTRY DECHK2 t P ENTRY DECHK3 P ENTRY DECHK4 P ENTRY DECHK5 P ENTRY DECHK6 P ENTRY DECHK7 P ENTRY DETCHK
0x1d5190…1d5324 Dummy {f00=0x0092, f01=0x0190, f02=», C P : P ERFM08,ERFM09,ERFM10,ERFM11,ERFM12,ERFM13,ERFM14, C : P ERFM15,ERFM16,ERFM17,ERFM18,ERFM19,ERFM20,ERFM21, C J : P ERFM22,ERFM23,ERFM24,ERFM25,ERFM26,ERFM27,ERFM28, C P ERFM29,ERFM30 P* PERFM01 FRMT P FSL & P
0x1d5324…1d54b8 Dummy {f00=0x0092, f01=0x018e, f02=» P* PERFM03 FRMT P FSL & P FTEXT 'I/O-ERROR' 2 P FMEND L P* Z PERFM04 FRMT d P FSL x $ P FTEXT 'ILLEGAL END-OF-ITEM KEY' P FMEND P* PERFM05 FRMT P FSL ( P FTEXT 'COMPULSORY FIELD NOT FILLED'
0x1d54b8…1d564c Dummy {f00=0x0092, f01=0x0190, f02=» P FSL " P FTEXT 'FILENAME ALREADY USED' P FMEND 6 P* D PERFM08 FRMT N P FSL b " P FTEXT 'OUTPUT DISK NOT EMPTY' n P FMEND P* PERFM09 FRMT P FSL $ P FTEXT 'SYSTEMFILE NOT CREATED' P FMEND P*
0x1d564c…1d57e0 Dummy {f00=0x0092, f01=0x0190, f02=»-NAME MUST BE "SYSVOL"' P FMEND P* . PERFM12 FRMT 8 P FSL L P FTEXT 'FILE NAME UNKNOWN' X P FMEND z P* PERFM13 FRMT P FSL " P FTEXT 'NO WORKSPACE IN CORE' P FMEND P* PERFM14 FRMT P FSL
0x1d57e0…1d5974 (2, 209) Dummy {f00=0x0093, f01=0x0190, f02=» RECORD FOUND' P FMEND P* $ PERFM16 FRMT . P FSL B P FTEXT 'MAXIMUM SPACE USED' N P FMEND r P* PERFM17 FRMT P FSL " P FTEXT 'OUTPUT FILE TOO SMALL' P FMEND P* PERFM18 FRMT P FSL P
0x1d5974…1d5b08 Dummy {f00=0x0093, f01=0x0190, f02=»* PERFM20 FRMT P FSL $ P FTEXT 'SYSTEMFILE ASSIGN-ERROR' * P FMEND R P* ` PERFM21 FRMT j P FSL ~ $ P FTEXT 'SYSTEMFILE CLOSE-ERROR' P FMEND P* PERFM22 FRMT P FSL " P FTEXT 'USERFILE ASSIGN-ERROR'
0x1d5b08…1d5c9c Dummy {f00=0x0093, f01=0x0190, f02=»T P FSL P FTEXT 'DISC READING-ERROR' P FMEND : P* H PERFM25 FRMT R P FSL f P FTEXT 'DISC WRITING-FAULT' r P FMEND P* PERFM26 FRMT P FSL P FTEXT 'DISC NOT OPERABLE' P FMEND P* P
0x1d5c9c…1d5e30 Dummy {f00=0x0093, f01=0x0190, f02=»FILE NOT CLOSED IN PREVIOUS SESSION.' P FMEND . PERFM29 FRMT < P FSL P 6 P FTEXT 'USERFILE NOT CLOSED IN PREVIOUS SESSION.' P FMEND P* PERFM30 FRMT P FSL 8 P FTEXT 'WRONG NO. OF SECTORS/RECORD IN OUTPUT FILE'
0x1d5e30…1d5fc4 Dummy {f00=0x0093, f01=0x0190, f02=»E DEBINW2,W1 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM P CMP DEBINW4,W0 @ P BZ DERR99 X P BP DERR00 j P ADD DEBINW4,=W'51' | PDERR00 ( P MOVE DEBINW3,=X'1801' ROW 24 COL. 1 4 P DSC1 DEDSSCRN,6,DEBINW3 SET CURSOR ON LAST ROW
0x1d5fc4…1d6158 Dummy {f00=0x0093, f01=0x0190, f02=» P* P* READ AFTER ERROR P* , PDERR05 6 ( P SETCUR SET CURSOR AT THE BEGINNING D P OF THE CURRENT FIELD p P B DERR15 NO BELL FIRST TIME PDERR10 ( P EDWRT DEDSSCRN,BELL ACOUSTIC ALARM PDERR15 & P MOVE DEBINW
0x1d6158…1d62ec Dummy {f00=0x0093, f01=0x0190, f02=»NW2,W0,DERR20 P DISPLAY 0,W1,W0 P B DERR00 . PDERR20 @ ( P MOVE DEBINW3,W24 INDICATE LAST LINE N P IB DEBINW2,DERR30,DERR30 C z P DERR30,DERR40 P B DERR10 CONTINUE P* P* CLEAR ERROR PRINTOUT P* PDE
0x1d62ec…1d6480 Dummy {f00=0x0093, f01=0x0190, f02=» , P ERASE 0,DEBINW3,DEBINW3 ERASE LAST LINE PDERR99 4 P RET B P PEND N P EJECT PCANC PROC j P MOVE DEINPUT,HEX00 | 0 P MOVE DEINPUT,:FMTITEM SAVE CURRENT CONTENTS . P CBE DEBINW1,W0,CANC10 JUMP IF LENGTH = 0 P MOVE STAT
0x1d6480…1d6614 (2, 210) Dummy {f00=0x0093, f01=0x018e, f02=»DEBINW4 CLEAR FIELD ~ PCANC10 P IB DEBINW2,CLEAR1,CLEAR2 * PCANC15 L 4 P MOVE :FMTITEM,DEINPUT RESTORE CURRENT CONTENTS Z P RET PCLEAR1 . P CBE DEBINW1,W0,CANC15 JUMP IF LENGTH = 0 ( P SET DECHANGE INDICATE CHANGED FIELD
0x1d6614…1d67a8 Dummy {f00=0x0093, f01=0x0190, f02=» PCLEA20 * P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x1d67a8…1d693c Dummy {f00=0x0093, f01=0x4010, f02=» END @ P GETABX DEBINW4 GET CURRENT TAB INDEX , P DISPLAY 1,DEBINW4,DEBINW4 DISPLAY FIELD @ P RET p P PEND | P EJECT PDESTAT PDECHK1 PDECHK2 PDECHK3 PDECHK4 PDECHK5 PDECHK6 PDECHK7 P
0x1d693c…1d6ad0 Dummy {f00=0x0093, f01=0x2008, f02=» NT DEERR 78/10/25 DDUM DEDDIV " PDIV 6 ENTRY DEERR D EXT SPCLRA X EXT SPERR l DEERR PROC ~ MOVE SPBINW4,=W'7' PERF SPERR RET PEND END @ EXT PTSDE END @
0x1d6ad0…1d6c64 Dummy {f00=0x0093, f01=0x0190, f02=» g 6BIDACR 800228 BIDAC BIDACR h JBINACR 800228 DSUMOD ADDMOD BINAC , BINACR ,ADDMOD 800228 ADDMOD J ,DSUMOD 800228 DSUMOD V lDSKERR 800228 $$$TRAK
0x1d6c64…1d6df8 Dummy {f00=0x0093, f01=0x0190, f02=»LRNC DECLRS DERR hAPP CANCE DECHK15 DECHK20 DECHK3 DECHK4R DECHK57 DECHK6 DECHK7 DERRORR DESTATC DETCHKD EMPTYT MASK T:DISP T:DUPL T:DYKIN T:EDFLK T:EDWRK T:ERASK T:GETAK T:GETCK T:GETFK T:NKI T:PRINO T:SETCA T:TBWDH T:TDOWY T:TFWD T:THOM T
0x1d6df8…1d6f8c Dummy {f00=0x0093, f01=0x0190, f02=» e ~REORGU / 800228 $$$TRAO REORGU CHANFCO CHVOL DECLRN DISU- DSKERR1 FREESPL GETVOL9 T:ATTFL T:DSC0 T:AT10 < 800228 T:AT10A T:DT10 D:CB10 C:CB10 D:CB20 C:CB20 D:CB30 C:CB30 D:CB40A C:CB40A D:CB500 C:CB50F D
0x1d6f8c…1d7120 Dummy {f00=0x0093, f01=0x0190, f02=» 4T:DT10 > 800228 T:DT10D START ( 6T:ATAB ? 800228 T:ATABA T:AT10 :A ,U:BTAB @ 800228 U:BTABB :B ,S:BTAB A 800228 S:BTABB :B ,Z:TB10 B 800228 Z:TB10T ,D:TB10 C
0x1d7120…1d72b4 (2, 211) Opaque[0x194]
0x1d72b4…1d7448 # DirEnt {nam=»CONUTI«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1270, f03=0x0000}
0x1d72b4…1d7448 IdxSect {
0x1d72b4…1d7448 f00 = 0x0093 // 0x1d72b4 @0x0
0x1d72b4…1d7448 f01 = 0x0002 // 0x1d72b6 @0x2
0x1d72b4…1d7448 gno = [ // 0x1d72b8 @0x4
0x1d72b4…1d7448 [0x00]: C0x0093.0x2.0
0x1d72b4…1d7448 ]
0x1d72b4…1d7448 }
0x1d7448…1d75dc Dummy {f00=0x0093, f01=0x00d0, f02=» T; 01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P00; P03; PSDC=S01; PSDC=S02; PSDC=S04;
0x1d75dc…1d7770 Dummy {f00=0x0093, f01=0x2008, f02=» 01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V LC=01L; f 00; v PC; P00; P03; PSDC=S01; PSDC=S02; PSDC=S04;
0x1d7770…1d7904 Dummy {f00=0x0093, f01=0x2008, f02=» AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 4 HEND h * HMES ILLEGAL PARAMETER COMBINATION !!! t * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+COU
0x1d7904…1d7a98 Dummy {f00=0x0093, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x1d7a98…1d7c2c Dummy {f00=0x0093, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x1d7c2c…1d7dc0 Dummy {f00=0x0093, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x1d7dc0…1d7f54 (2, 212) Opaque[0x194]
0x1d7f54…1d80e8 # DirEnt {nam=»CDU1 «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1d08, f03=0x0000}
0x1d7f54…1d80e8 IdxSect {
0x1d7f54…1d80e8 f00 = 0x00e8 // 0x1d7f54 @0x0
0x1d7f54…1d80e8 f01 = 0x0002 // 0x1d7f56 @0x2
0x1d7f54…1d80e8 gno = [ // 0x1d7f58 @0x4
0x1d7f54…1d80e8 [0x00]: C0x00e8.0x1.0
0x1d7f54…1d80e8 ]
0x1d7f54…1d80e8 }
0x1d80e8…1d827c Dummy {f00=0x00e8, f01=0x00b0, f02=» T; 01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V PLC=02L; f 00; v PC; P00; P01; PSDC=S01; ING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C
0x1d827c…1d8410 Dummy {f00=0x00e8, f01=0x2008, f02=» 01; TID=T1; TCL=T1; * LEV=60; : P01; J TDC=T01; V PLC=02L; f 00; v PC; P00; P01; PSDC=S01; ING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C
0x1d8410…1d85a4 Dummy {f00=0x00e8, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l * HMES ILLEGAL PARAMETER COMBINATION !!! x * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C
0x1d85a4…1d8738 Dummy {f00=0x00e8, f01=0x018e, f02=» RECADRV ECHADR DC:DIX ( DM:DIX( < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x1d8738…1d88cc Dummy {f00=0x00e8, f01=0x0190, f02=» QUEFIL TTB:STM * & C C 8W T . TTB:SA , ( 8P Y ^ 5 ) P n TDISP FNDDWT |TIO @ TIO:FM D , ( 9I U
0x1d88cc…1d8a60 Dummy {f00=0x00e8, f01=0x018e, f02=» Y Y t GETBLKS QTJOB & , ( T # P W Y (@ 6 DC:MIN@ f SAVE8 z , ( 2 @ _ > (@ X L , ( U L Q L # T R < 5 , ( ^ R < 5 Y
0x1d8a60…1d8bf4 (2, 213) Opaque[0x194]
0x1d8bf4…1d8d88 # DirEnt {nam=»CDUN «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x3228, f03=0x0000}
0x1d8bf4…1d8d88 IdxSect {
0x1d8bf4…1d8d88 f00 = 0x0191 // 0x1d8bf4 @0x0
0x1d8bf4…1d8d88 f01 = 0x0002 // 0x1d8bf6 @0x2
0x1d8bf4…1d8d88 gno = [ // 0x1d8bf8 @0x4
0x1d8bf4…1d8d88 [0x00]: C0x0191.0x1.0
0x1d8bf4…1d8d88 ]
0x1d8bf4…1d8d88 }
0x1d8d88…1d8f1c Dummy {f00=0x0191, f01=0x00b0, f02=» PT; P01; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f 00; v PC; P00; P01; PSDC=S01; G COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x1d8f1c…1d90b0 Dummy {f00=0x0191, f01=0x2008, f02=» P01; PTID=T1; PTCL=T1; * PLEV=60; : P01; J PTDC=T01; V PLC=01L; f 00; v PC; P00; P01; PSDC=S01; G COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x1d90b0…1d9244 Dummy {f00=0x0191, f01=0x2008, f02=» AND AT LEAST ONE OF THEM MUST BE CHOOSEN 0 HMES ALTERNATIVE 4 MAY BE INCLUDED IF NEEDED 8 HEND l HMES ILLEGAL PARAMETER COMBINATION !!! v * HMES FOLLOWING COMBINATIONS ARE VALID: " HMES 1 A,A+AU,A+AOUT,A+AU+AOUT " HMES 2 C,C+CU,C+C
0x1d9244…1d93d8 Dummy {f00=0x0191, f01=0x2008, f02=» +
0x1d93d8…1d956c Dummy {f00=0x0191, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l
0x1d956c…1d9700 Dummy {f00=0x0191, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R LPOP 0XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP !> A n : @ j! P P !> A n
0x1d9700…1da3a0 (3, 0) DirGranule ((3, 0)) {
0x1d9700…1da3a0 DirEnt {nam=»M:DE10«, typ=» «, f00=0x0000, f01=0x0000, f02=0x0bd0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»M:DE10«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b58, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1328, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1310, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1390, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1358, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1578, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15a0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1728, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1708, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1718, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1938, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15c0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1638, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13b0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1340, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17a8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17c0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17d8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b68, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d8, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b28, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b38, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b48, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»M:DE10«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1c40, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3230, f03=0x0000}
0x1d9700…1da3a0 DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x1d9700…1da3a0 }
0x1da3a0…1da534 (3, 1) Opaque[0x194]
0x1da534…1da6c8 # DirEnt {nam=»M:DE10«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x1298, f03=0x0000}
0x1da534…1da6c8 IdxSect {
0x1da534…1da6c8 f00 = 0x0094 // 0x1da534 @0x0
0x1da534…1da6c8 f01 = 0x000c // 0x1da536 @0x2
0x1da534…1da6c8 gno = [ // 0x1da538 @0x4
0x1da534…1da6c8 [0x00]: C0x0094.0x3.0
0x1da534…1da6c8 [0x01]: C0x0095.0x1.0
0x1da534…1da6c8 [0x02]: C0x0095.0x2.0
0x1da534…1da6c8 [0x03]: C0x0095.0x3.0
0x1da534…1da6c8 [0x04]: C0x0096.0x0.0
0x1da534…1da6c8 [0x05]: C0x0096.0x1.0
0x1da534…1da6c8 ]
0x1da534…1da6c8 }
0x1da6c8…1da85c Dummy {f00=0x0094, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x1da85c…1da9f0 Dummy {f00=0x0094, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x1da9f0…1dab84 Dummy {f00=0x0094, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR MOV ST8000,/S,TOSSWORK
0x1dab84…1dad18 Dummy {f00=0x0094, f01=0x018e, f02=»,LKMAL SCR MOV CTABX,/S,TOSSWORK KPF /S,CTABX 8 SCR L MOV TIODMX,/S,TOSSWORK X KPF /S,TIODMX v SCR INC TIODMX,TOSSWORK KPF /O MOV DSKSUB,/S,TOSSWORK KPF /S,DSKSUB SCR LED DS
0x1dad18…1daeac Dummy {f00=0x0094, f01=0x018e, f02=» ASM /S KPF /O KPF /S SCR . LED SYSTAB : ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ L ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ x !!EN ASM /S KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQ
0x1daeac…1db040 Dummy {f00=0x0094, f01=0x0190, f02=» LED LRPINT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ B !!EN n ASM /S z KPF /O KPF /S SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPA
0x1db040…1db1d4 (3, 2) Dummy {f00=0x0095, f01=0x0190, f02=»$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN 6 ASM /S B KPF /O P KPF /S ^ SCR l LED TTMJOB x ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O
0x1db1d4…1db368 Dummy {f00=0x0095, f01=0x0190, f02=»EN ASM /S KPF /O KPF /S & SCR 4 LED SYSLDM @ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ R ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ ~ !!EN ASM /S KPF /O KPF /S SCR LED SYSLDA ( #!!CH $$CRE
0x1db368…1db4fc Dummy {f00=0x0095, f01=0x0190, f02=» LED LDTASK ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ F !!EN r ASM /S ~ KPF /O KPF /S SCR LED DRSW01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$D
0x1db4fc…1db690 Dummy {f00=0x0095, f01=0x0190, f02=»U 1$$ r ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN : ASM /S F KPF /O T KPF /S b SCR p MOV DVTKB,/S,TOSSWORK | KPF /S,DVTKB SCR MOV DVTGP,/S,TOSSWORK KPF /S,DVTGP SCR MOV DVTDY,/S,TO
0x1db690…1db824 Dummy {f00=0x0095, f01=0x0190, f02=» KPF /S,DRGP01 SCR MOV DRDY01,/S,TOSSWORK & KPF /S,DRDY01 D SCR Z MOV DRLT01,/S,TOSSWORK f KPF /S,DRLT01 SCR MOV DRSOP1,/S,TOSSWORK KPF /S,DRSOP1 SCR MOV DRFD01,/S,TOSSWORK KPF
0x1db824…1db9b8 Dummy {f00=0x0095, f01=0x0190, f02=»D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ * !!CH $$ X:G$$ 1$$ D !!CH $$ X:H$$ 0$$ ^ !!CH $$ X:I$$ 0$$ x !!CH $$ X:J$$ 000$$ !!CH $$ X:K$$ 00$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$
0x1db9b8…1dbb4c Dummy {f00=0x0095, f01=0x018e, f02=»CH $$ X:B$$ 0$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ 2 !!CH $$ X:E$$ 0$$ L !!CH $$ X:F$$ 1$$ f !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$
0x1dbb4c…1dbce0 Dummy {f00=0x0095, f01=0x0190, f02=» | !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 0$$ " !!CH $$ X:E$$ 1$$ < !!CH $$ X:F$$ 0$$ V !!CH $$ X:G$$ 0$$ p !!CH $$ X:H$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN
0x1dbce0…1dbe74 (3, 3) Dummy {f00=0x0095, f01=0x018e, f02=»C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ * ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ D ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ p !!EN ASM /S KPF /O KPF /S SCR LED DRSOP1 !!CH $$ X:A$$ 0$$
0x1dbe74…1dc008 Dummy {f00=0x0095, f01=0x0190, f02=» KPF /O KPF /S SCR $ LED DRFD01 0 !!CH $$ X:A$$ 1$$ B !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ v !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$D
0x1dc008…1dc19c Dummy {f00=0x0095, f01=0x0190, f02=» SCR LED EBCDIC !!DL 34,65 " !!DL 75,91 4 !!EN F ASM /S R KPF /O ` KPF /S n SCR | LED DRKB03 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ !!CH $
0x1dc19c…1dc330 Dummy {f00=0x0095, f01=0x018e, f02=»$ 000$$ !!CH $$ X:K$$ 00$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ * ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ V !!EN ASM /S KPF /O KPF /S SCR LED DVTKB !!DL 35 DATA 0,0,0,0,0,0,0,0 DAT
0x1dc330…1dc4c4 Dummy {f00=0x0095, f01=0x0190, f02=» !!CH $$ X:B$$ 01$$ !!CH $$ X:C$$ 00$$ !!CH $$ X:D$$ 00$$ 8 !!CH $$ X:E$$ 01$$ R !!EN l ASM /S x KPF /O KPF /S SCR LED TOSSIO !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S
0x1dc4c4…1dc658 Dummy {f00=0x0095, f01=0x0190, f02=» MOV TMMLKM,/S,TOSSWORK KPF /S,TMMLKM & SCR < MOV TLDSEG,/S,TOSSWORK H KPF /S,TLDSEG f SCR | MOV TABORT,/S,TOSSWORK KPF /S,TABORT SCR MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM SCR
0x1dc658…1dc7ec Dummy {f00=0x0095, f01=0x0190, f02=»PAG EQU 0$$DSKPAG EQU 1$$ !!EN " ASM /S . KPF /O < KPF /S J SCR X LED TPROC d ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ v ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x1dc7ec…1dc980 Dummy {f00=0x0095, f01=0x018e, f02=» KPF /O KPF /S SCR LED TLDSEG , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ > ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ j !!EN ASM /S KPF /O KPF /S SCR LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQ
0x1dc980…1dcb14 (3, 4) Dummy {f00=0x0095, f01=0x0190, f02=» ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ 4 !!EN ` ASM /S l KPF /O z KPF /S SCR LED TOSSFM ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$
0x1dcb14…1dcca8 Dummy {f00=0x0095, f01=0x018e, f02=»!!DL 027 !!DL 028 !!DL 042 DATA 00 0 !!DL 045 L DATA 00 !!DL 047 x DATA 00 !!DL 050 !!DL 051 !!EN ASM /S KPF /O KPF /S SCR LE
0x1dcca8…1dce3c Dummy {f00=0x0095, f01=0x0190, f02=» KPF /S,FMTASK SCR MOV DFTAB,/S,TOSSWORK & KPF /S,DFTAB D SCR X LED FMTASK d ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ v ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x1dce3c…1dcfd0 Dummy {f00=0x0095, f01=0x018e, f02=»000' !!IL 30 DATA /0101,/0101' !!EN 6 ASM /S B KPF /O P KPF /S ^ SCR l LED SYSTAB x !!CH $$IHINPT$$TRAP$$ !!CH $$ X:A$$ 00006$$ !!CH $$ EXTRN BUG$$*$$ !!CH $$ BUG$$ 0$$ !!CH $$ X:
0x1dcfd0…1dd164 Dummy {f00=0x0095, f01=0x0190, f02=» DATA ILLINT !!DL 123 ( DATA ILLINT 8 !!DL 125 X DATA ILLINT h !!DL 126 DATA ILLINT !!DL 127 DATA ILLINT !!DL 128 DATA
0x1dd164…1dd2f8 Dummy {f00=0x0095, f01=0x0190, f02=» DATA ILLINT !!DL 134 DATA ILLINT ( !!DL 135 H DATA ILLINT X !!DL 136 x DATA ILLINT !!DL 138 DATA ILLINT !!DL 140 DATA ILLINT
0x1dd2f8…1dd48c Dummy {f00=0x0095, f01=0x0190, f02=» x !!DL 150 DATA ILLINT !!DL 155 8 DATA ILLINT H !!DL 156 h DATA ILLINT x !!DL 159 DATA ILLINT !!DL 163 DATA ILLINT !!EN ASM
0x1dd48c…1dd620 Dummy {f00=0x0095, f01=0x0190, f02=» 046 !!DL 047 !!DL 048 !!DL 050 , !!DL 051 < !!DL 052 L !!DL 053 !!DL 054 l !!DL 056 | !!DL 057 !!DL 058 !!DL 059 !!EN ASM /S KPF /O KPF /S SCR MOV CTAB01
0x1dd620…1dd7b4 (3, 5) Dummy {f00=0x0096, f01=0x0190, f02=» $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!CH $$DVTKB$$DVKB00$$ ( !!CH $$KBAD$$KBAD3$$ F !!CH $$/1111$$/1100$$ b !!CH $$BCA$$FFFF$$ !!CH $$ED0$$9B9A$$ " !!CH $$0 CODE $$CTAB01 CODE $$ !!CH $$ECH$$DVDY00$$ !!DL 5 EXT
0x1dd7b4…1dd948 Dummy {f00=0x0096, f01=0x0190, f02=»$ n ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ !!CH $$DVTDY$$DVDY00$$ 6 !!CH $$/ABC$$/1850$$ T !!CH $$/1111$$/C000$$ p !!EN ASM /S KPF /O KPF /S SCR LED DVTGP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x1dd948…1ddadc Dummy {f00=0x0096, f01=0x0190, f02=»KPF /O KPF /S SCR LED DVTGP ( ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ : ( #!!CH $$DSKPAG EQU 0$$DSKPAG EQU 1$$ f !!CH $$DVTGP$$DVGP02$$ !!CH $$/1111$$/2000$$ !!EN ASM /S KPF /O KPF /S SCR
0x1ddadc…1ddc70 Dummy {f00=0x0096, f01=0x0190, f02=» z !!CH $$/ABC$$/1850$$ ! !!CH $$/1111$$/C000$$ ! $ !!EN ! B ASM /S ! N KPF /O ! KPF /S ! j SCR ! x LED TCLASS ! !!IL 6 ! EXTRN DVKB00 ! EXTRN DVDY00 ! EXTRN DVGP01 !
0x1ddc70…1dde04 Dummy {f00=0x0096, f01=0x0190, f02=» DATA TC02 ! DATA TC03 " !!IL 12 " < TC00 DATA TC00E-* " L DATA /0020 " n DATA DVKB00 " DATA /00500 " DATA DVDY00 " TC00E EQU * "
0x1dde04…1ddf98 Dummy {f00=0x0096, f01=0x018e, f02=» DATA TC02E-* " DATA /00301 # DATA DVGP02 # : TC02E EQU * # Z TC03 DATA TC03E-* # v DATA /00512 # DATA DVDY03 # TC03E EQU * # !!EN # ASM /S #
0x1ddf98…1de12c Dummy {f00=0x0096, f01=0x0190, f02=» # v !!IL 11 $ DATA TC00 $ DATA TC01 $ 6 !!IL 12 $ T TC00 DATA TC00E-* $ d DATA /00141 $ DATA DWSI01 $ TC00E EQU * $ TC01 DATA TC01E-* $
0x1de12c…1de2c0 Dummy {f00=0x0096, f01=0x0190, f02=» DATA DWFD01 $ DATA /03FB1 % DATA DWFD01 % 6 TC01E EQU * % L !!EN % h ASM /S % t KPF /O % KPF /S % SCR % LED MONTAB % !!IL 19 % **** % EXTRN CTAB01 % !!DL 021 % !!DL 022 %
0x1de2c0…1de454 (3, 6) Dummy {f00=0x0096, f01=0x018e, f02=»DL 034 % !!DL 035 & !!DL 036 & !!IL 50 & . **** & > DATA CTAB01 & J !!DL 052 & ` !!DL 053 & p !!DL 055 & !!DL 056 & !!DL 059 & !!DL 060 & !!DL 061 & !!DL 062 & !!DL 063 & !!DL 064 & !!DL 065
0x1de454…1de5e8 Dummy {f00=0x0096, f01=0x004a, f02=» INC SYSTAB ' LKE M ' KPF /L,M:DE10 ' $ ASG /E0,TY10 ' : DATA CTAB01 & J !!DL 052 & ` !!DL 053 & p !!DL 055 & !!DL 056 & !!DL 059 & !!DL 060 & !!DL 061 & !!DL 062 & !!DL 063 & !!DL 064 & !!DL 065
0x1de5e8…1de77c Dummy {f00=0x0096, f01=0x2008, f02=» ( SYSTAB ' LKE M ' KPF /L,M:DE10 ' $ ASG /E0,TY10 ' : DATA CTAB01 & J !!DL 052 & ` !!DL 053 & p !!DL 055 & !!DL 056 & !!DL 059 & !!DL 060 & !!DL 061 & !!DL 062 & !!DL 063 & !!DL 064 & !!DL 065
0x1de77c…1de910 Dummy {f00=0x0096, f01=0x018e, f02=» !!DL 022 ) !!DL 024 ) !!DL 025 ) $ !!DL 028 ) 4 !!DL 029 ) D !!DL 030 ) T !!DL 031 ) d !!DL 032 ) t !!DL 033 ) !!DL 034 ) !!DL 035 ) !!DL 036 ) !!IL 50 ) **** ) DATA CTAB01 ) !!DL 052 ) !!
0x1de910…1deaa4 Dummy {f00=0x0096, f01=0x00e0, f02=» ) !!DL 065 * !!DL 066 * !!DL 067 * ( !!EN * 8 ASM /S * D KPF /O * R KPF /S * ` SCR * n ASG /02,LP0F * z SCR * INC SYSTAB * LKE M * KPF /L,M:DE05 * ASG /E0,TY10 * DATA CTAB01 ) !!DL 052 ) !!
0x1deaa4…1dec38 Dummy {f00=0x0096, f01=0x2008, f02=» + !!DL 065 * !!DL 066 * !!DL 067 * ( !!EN * 8 ASM /S * D KPF /O * R KPF /S * ` SCR * n ASG /02,LP0F * z SCR * INC SYSTAB * LKE M * KPF /L,M:DE05 * ASG /E0,TY10 * DATA CTAB01 ) !!DL 052 ) !!
0x1dec38…1dedcc Dummy {f00=0x0096, f01=0x0190, f02=»yPW " P X X$ C : X *! P yh vV C W @ X (T W X y 6 Y ( : X (;n v > 0 0 p * & dp:q q p, < F v Y . Y ,W v Y . X ( X ." PV X 0RzT$ Y *P U :H v p K T lW b X . X 2QH Y *T2 X :
0x1dedcc…1def60 Dummy {f00=0x0096, f01=0x0190, f02=» P & Y *T q2 : X > T X & V D ! T W X v v X >P( R Q" X & V D ! P $ ! P %_ X : v V Y " X .9H $ P & X ( " Qv Y +Q R " P W " U s Y , " Q X . X 0RvP X *:h P P4) Y (W X *:h Pl
0x1def60…1df0f4 (3, 7) Opaque[0x194]
0x1df0f4…1df288 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b58, f03=0x0000}
0x1df0f4…1df288 IdxSect {
0x1df0f4…1df288 f00 = 0x00da // 0x1df0f4 @0x0
0x1df0f4…1df288 f01 = 0x0002 // 0x1df0f6 @0x2
0x1df0f4…1df288 gno = [ // 0x1df0f8 @0x4
0x1df0f4…1df288 [0x00]: C0x00da.0x3.0
0x1df0f4…1df288 ]
0x1df0f4…1df288 }
0x1df288…1df41c Dummy {f00=0x00da, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVGP01 P EXTRN DVGP02 P
0x1df41c…1df5b0 Dummy {f00=0x00da, f01=0x0190, f02=» TC01 P DATA TC02 P DATA TC03 . PTCLASE EQU * L PTC00 DATA TC00E-* ` P DATA /0020 P DATA DVKB00 P DATA /0050 P DATA DVDY00 PTC00E
0x1df5b0…1df744 Dummy {f00=0x00da, f01=0x4118, f02=» * PTC02 DATA TC02E-* P DATA /0030 . P DATA DVGP02 N PTC02E EQU * n PTC03 DATA TC03E-* P DATA /0051 P DATA DVDY03 PTC03E EQU * P
0x1df744…1df8d8 Dummy {f00=0x00da, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x1df8d8…1dfa6c Dummy {f00=0x00da, f01=0x0190, f02=»P X _ @ l I :a A l ;a L # A A P A T #( W @ BP 2 #( : d M ^ R _ W D_ * $ @ @P P R " R Q 2 #( @ @ T R A @_. @ l
0x1dfa6c…1dfc00 Dummy {f00=0x00da, f01=0x0190, f02=» A ~ H A v ( $ P P >P P P W _ A n T >FV :A H @ nY H @ nZ >AV W _ _ @ n @ r >BV -W >AV -W >AV B j R LPOP 0XLS TK1 TK2 MT1 MT2 pqCSH @ j !NNP !YYP !> A n : @ j! P P !> A n
0x1dfc00…1dfd94 (3, 8) Opaque[0x194]
0x1dfd94…1dff28 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x12e0, f03=0x0000}
0x1dfd94…1dff28 IdxSect {
0x1dfd94…1dff28 f00 = 0x0097 // 0x1dfd94 @0x0
0x1dfd94…1dff28 f01 = 0x0066 // 0x1dfd96 @0x2
0x1dfd94…1dff28 gno = [ // 0x1dfd98 @0x4
0x1dfd94…1dff28 [0x00]: C0x0097.0x0.0
0x1dfd94…1dff28 [0x01]: C0x0097.0x1.0
0x1dfd94…1dff28 [0x02]: C0x0097.0x3.0
0x1dfd94…1dff28 [0x03]: C0x0098.0x1.0
0x1dfd94…1dff28 [0x04]: C0x00b9.0x0.0
0x1dfd94…1dff28 [0x05]: C0x00bb.0x3.0
0x1dfd94…1dff28 [0x06]: C0x00bb.0x2.0
0x1dfd94…1dff28 [0x07]: C0x00bc.0x0.0
0x1dfd94…1dff28 [0x08]: C0x00bc.0x2.0
0x1dfd94…1dff28 [0x09]: C0x009b.0x0.0
0x1dfd94…1dff28 [0x0a]: C0x00bd.0x3.0
0x1dfd94…1dff28 [0x0b]: C0x009c.0x3.0
0x1dfd94…1dff28 [0x0c]: C0x00c0.0x3.0
0x1dfd94…1dff28 [0x0d]: C0x00c1.0x0.0
0x1dfd94…1dff28 [0x0e]: C0x00c5.0x1.0
0x1dfd94…1dff28 [0x0f]: C0x00c5.0x2.0
0x1dfd94…1dff28 [0x10]: C0x00c5.0x3.0
0x1dfd94…1dff28 [0x11]: C0x00c8.0x3.0
0x1dfd94…1dff28 [0x12]: C0x00c9.0x0.0
0x1dfd94…1dff28 [0x13]: C0x00c9.0x1.0
0x1dfd94…1dff28 [0x14]: C0x00ac.0x0.0
0x1dfd94…1dff28 [0x15]: C0x00ad.0x1.0
0x1dfd94…1dff28 [0x16]: C0x00d0.0x2.0
0x1dfd94…1dff28 [0x17]: C0x00d0.0x0.0
0x1dfd94…1dff28 [0x18]: C0x00d2.0x0.0
0x1dfd94…1dff28 [0x19]: C0x00b4.0x2.0
0x1dfd94…1dff28 [0x1a]: C0x00b6.0x0.0
0x1dfd94…1dff28 [0x1b]: C0x00d4.0x0.0
0x1dfd94…1dff28 [0x1c]: C0x00d4.0x1.0
0x1dfd94…1dff28 [0x1d]: C0x00ca.0x3.0
0x1dfd94…1dff28 [0x1e]: C0x00cc.0x3.0
0x1dfd94…1dff28 [0x1f]: C0x00d5.0x1.0
0x1dfd94…1dff28 [0x20]: C0x00d5.0x2.0
0x1dfd94…1dff28 [0x21]: C0x00d6.0x3.0
0x1dfd94…1dff28 [0x22]: C0x00d7.0x0.0
0x1dfd94…1dff28 [0x23]: C0x00d6.0x2.0
0x1dfd94…1dff28 [0x24]: C0x00d7.0x2.0
0x1dfd94…1dff28 [0x25]: C0x00d8.0x1.0
0x1dfd94…1dff28 [0x26]: C0x00d4.0x3.0
0x1dfd94…1dff28 [0x27]: C0x00df.0x2.0
0x1dfd94…1dff28 [0x28]: C0x00df.0x3.0
0x1dfd94…1dff28 [0x29]: C0x0099.0x2.0
0x1dfd94…1dff28 [0x2a]: C0x00b9.0x3.0
0x1dfd94…1dff28 [0x2b]: C0x00d8.0x2.0
0x1dfd94…1dff28 [0x2c]: C0x00d9.0x0.0
0x1dfd94…1dff28 [0x2d]: C0x00d9.0x2.0
0x1dfd94…1dff28 [0x2e]: C0x00da.0x0.0
0x1dfd94…1dff28 [0x2f]: C0x00da.0x2.0
0x1dfd94…1dff28 [0x30]: C0x00db.0x0.0
0x1dfd94…1dff28 [0x31]: C0x00df.0x0.0
0x1dfd94…1dff28 [0x32]: C0x0192.0x1.0
0x1dfd94…1dff28 ]
0x1dfd94…1dff28 }
0x1dff28…1e00bc Dummy {f00=0x0097, f01=0x4168, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVGP01 , ( " P 6 DVGP02 DVDY03
0x1e00bc…1e0250 Dummy {f00=0x0097, f01=0x411a, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d DWSI01 x DWFD01 * & H `
0x1e0250…1e03e4 Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x1e03e4…1e0578 Dummy {f00=0x0097, f01=0x4110, f02=» INTRT4 SYSLOD CTAB01 0 KBAD3 B * & R GPADN DYADN INTAS INTSL " SPDLCI $ &
0x1e0578…1e070c Dummy {f00=0x0097, f01=0xc01a, f02=» 4 @ SYSLOD KBAD3 0 KBADN @ * & P TPADN ~ GPADN DNADN DIADN DYADN MSADN ODADN TPAD3 , (
0x1e070c…1e08a0 Dummy {f00=0x0097, f01=0x40b8, f02=» J F IDENT TIODMX REL 10.0 80-03-14 870105041000 TIODM FDBMEC R TIODM j FDBMEC | c @ P* 8 P**************************************************** P* (
0x1e08a0…1e0a34 (3, 9) Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x1e0a34…1e0bc8 Dummy {f00=0x0097, f01=0x0190, f02=» ) Y W X | NVLCHK H DWTORD 0 , ( 9 $ $ ^ W X Y :g B DWTNVL: r DWTTAB , ( S! H I ! P X , ( m " P ,P 9A _ H P I IHRTN
0x1e0bc8…1e0d5c Dummy {f00=0x0097, f01=0x0190, f02=» SCTFWTC FWTEW1 , ( X " $XL " EWTVOL R FWTPAR d INXDWTL v * & ( I T E _ (X _ X NVLTAB TTABFM TTABLD NVLDMT N
0x1e0d5c…1e0ef0 Dummy {f00=0x0097, f01=0x4024, f02=» T R @ X " $XL " EWTVOL R FWTPAR d INXDWTL v * & ( I T E _ (X _ X NVLTAB TTABFM TTABLD NVLDMT N
0x1e0ef0…1e1084 Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x1e1084…1e1218 Dummy {f00=0x0097, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x1e1218…1e13ac Dummy {f00=0x0097, f01=0x0190, f02=» IHRTC ILLINTM , ( " IHSOP R CHLT1 b IHFDN r , ( , ( ! , ( 1
0x1e13ac…1e1540 Dummy {f00=0x0097, f01=0x0190, f02=» r , ( q HALTN B R SCTMSZK j SCTSFA ~ SCTEFA SCTIPL SCTANO SCTADA , ( @
0x1e1540…1e16d4 (3, 10) Dummy {f00=0x0097, f01=0x0190, f02=»PSZ SCTMMC SCTLAC " SCTMMPL 6 SCTLAP0 J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x1e16d4…1e1868 Dummy {f00=0x0097, f01=0x4058, f02=» ~ _ " B@ T J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x1e1868…1e19fc Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT TDISP REL 10.0 80-03-14 870105041000 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x1e19fc…1e1b90 Dummy {f00=0x0097, f01=0x0190, f02=»SA * DISIOE 0 TENDIO DISEND` 4 2 TPAUSE 8 F , ( A W W Z TDISP 8 TTB:ST , ( 9 ^ ! Z@ (XH @ P T TTB:SB QLTDSK , ( W
0x1e1b90…1e1d24 Dummy {f00=0x0097, f01=0x0190, f02=» > t * & H [ * & H [ [ [ [ [ @ TTB:PWL n , ( [ > > [ [ Z SEG:PB PAG:QBB PAG:PA , ( D P D 0P P - I
0x1e1d24…1e1eb8 Dummy {f00=0x0097, f01=0x4094, f02=» Z $ ? @ > " 0 , )W /W QP eP iR wPj {P U P P J N ~@ > [ [ Z SEG:PB PAG:QBB PAG:PA , ( D P D 0P P - I
0x1e1eb8…1e204c Dummy {f00=0x0097, f01=0x0190, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A
0x1e204c…1e21e0 Dummy {f00=0x0097, f01=0x0190, f02=» H ( ( P c P W T RELPAGT $ TLDSEG# 6 , ( W P ,$ T T _ H LKM030 t x SWL48 , ( qI A V ( LKMAL LKMERR HALTN , ( B
0x1e21e0…1e2374 (3, 11) Dummy {f00=0x0098, f01=0x0190, f02=» #P x INIFLG PFPOSTN , IHPFARC @ SAVE8 T * & A A Q d , ( H DISQUEA , ( @ XV ) A A P
0x1e2374…1e2508 Dummy {f00=0x0098, f01=0x018e, f02=» h SWLXY , ( I A Q "_ A < Q P MONCLO x H , ( g Q Z Y _ MEXIT FREBLK , ( 8 $ Q Z P 0 9 & , ( A &_ _,
0x1e2508…1e269c Dummy {f00=0x0098, f01=0x4046, f02=» ( $ } MQ [ c z g z m z P 0@ B MONCLO x H , ( g Q Z Y _ MEXIT FREBLK , ( 8 $ Q Z P 0 9 & , ( A &_ _,
0x1e269c…1e2830 Dummy {f00=0x0098, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x1e2830…1e29c4 Dummy {f00=0x0098, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x1e29c4…1e2b58 Dummy {f00=0x0098, f01=0x0190, f02=» J F IDENT MSUBS REL 10.0 80-03-14 870105041000 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2' IHRET8V IHRET2 IHRET18
0x1e2b58…1e2cec Dummy {f00=0x0098, f01=0x0190, f02=» ! ? ? ? $P T I QMJOB N . TTMJOB @ ACTOTP X R , ( = R $ 5 % W f ACTOT ` TTB:SA * & D Y W T T U U TTB:ID TTB:SBM
0x1e2cec…1e2e80 Dummy {f00=0x0098, f01=0x0190, f02=» H 4 T - 1_& U T P 0 GETBLK . FREQUE B , ( @ U _r ? @ T FREBLKL , ( T 0 A 1 Q Q >W FNDDWT TTB:TD , ( " 0 @ 1 A P
0x1e2e80…1e3014 (3, 12) Dummy {f00=0x00b9, f01=0x0190, f02=»T , ( 1 8 R Y P _ W 8 X W ? , ( QH ` @ @ P $ H : IHRET8V n j IHRET2 z ~ IHRET18 | IHRTN ~ PFINIT PFTAB , ( i W W > > > > > > > >
0x1e3014…1e31a8 Dummy {f00=0x00b9, f01=0x0190, f02=» ^ _ t ILLINT@ HALTY ( RELPA2' : , ( A. N RELPAG ~ SEG:PB PAGQUE PAG:QB@ , ( D U W L M 0 - A PQEMTYD
0x1e31a8…1e333c Dummy {f00=0x00b9, f01=0x407e, f02=» T P T d D @ W Wp R %P 7R =P EW6 MW. _P iW mW V W P h@ z RELPAG ~ SEG:PB PAGQUE PAG:QB@ , ( D U W L M 0 - A PQEMTYD
0x1e333c…1e34d0 Dummy {f00=0x00b9, f01=0x018e, f02=» J F IDENT TTMJOB REL 10.0 80-03-14 870105041000 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTMJOB TTB:QLL TTB:ID R . * TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x1e34d0…1e3664 Dummy {f00=0x00b9, f01=0x40a8, f02=» TTB:PW TTB:SA , ( #M 1 0 TTB:TD ( ` ! t . @ TB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x1e3664…1e37f8 Dummy {f00=0x00b9, f01=0x8190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x1e37f8…1e398c Dummy {f00=0x00b9, f01=0x8190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x1e398c…1e3b20 Dummy {f00=0x00b9, f01=0x8190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x1e3b20…1e3cb4 (3, 13) Dummy {f00=0x00bb, f01=0x818e, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x1e3cb4…1e3e48 Dummy {f00=0x00bb, f01=0x8190, f02=» QUEFIL TTB:STM * & C C 8W T . TTB:SA , ( 8P Y ^ 5 ) P n TDISP FNDDWT |TIO @ TIO:FM D , ( 9I U
0x1e3e48…1e3fdc Dummy {f00=0x00bb, f01=0x818e, f02=» Y Y t GETBLKS QTJOB & , ( T # P W Y (@ 6 DC:MIN@ f SAVE8 z , ( 2 @ _ > (@ X L , ( U L Q L # T R < 5 , ( ^ R < 5 Y
0x1e3fdc…1e4170 Dummy {f00=0x00bb, f01=0x8190, f02=» , ( I (@ X P 0P , ( e X T 4 Y X 1 4 , ( 1 X P - M X P P # P d FREBLK: ACTOTPO * & 0P 1 _ " @ W Y
0x1e4170…1e4304 Dummy {f00=0x00bb, f01=0xc016, f02=» @ (@ X P 0P , ( e X T 4 Y X 1 4 , ( 1 X P - M X P P # P d FREBLK: ACTOTPO * & 0P 1 _ " @ W Y
0x1e4304…1e4498 Dummy {f00=0x00bb, f01=0x018e, f02=» J F IDENT SYSLDM REL 10.0 80-03-31 870105041000 SYSLDMK R SYSLDMK d SCTSFAD x SYSBAS SCTEFA TCLASS( , ( I A SCLASSL SAV
0x1e4498…1e462c Dummy {f00=0x00bb, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x1e462c…1e47c0 Dummy {f00=0x00bb, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x1e47c0…1e4954 (3, 14) Dummy {f00=0x00bb, f01=0x0190, f02=» " A : FREQUE " SCTBLK 4 , ( eI 4 ` & @ 6 P F BUFSIZM v , ( } _ 3 S S V 8 V SYSBUFM , ( HB W 8 : @ @ , ( @T
0x1e4954…1e4ae8 Dummy {f00=0x00bb, f01=0x0190, f02=» COP W @ > 3 V @ 3 SAVE30M 0 SCTLAC B , ( @ B 3 @ D T NUMSEG , ( # $ S @ D F V @P , ( = @ 9h !RRP @ ! T SCTADA , (
0x1e4ae8…1e4c7c Dummy {f00=0x00bb, f01=0x0190, f02=» h * & " : @ SCTDMIL 6 , ( & @ @ J #D# P ; V H , ( _ : @ " P @ P 3 x , ( @ _ @ " P V B 3 , ( S 1 S 9J S ( 3 , (
0x1e4c7c…1e4e10 Dummy {f00=0x00bb, f01=0x0190, f02=»E19E , ( o N . !TTP " SAVE16 < , ( @H W P N =H N W R V < CR N SAVE17 ~ CONVRT , ( @T N =H N W T N =H N SAVE24 , ( H@ V W X ( @ % 5 T
0x1e4e10…1e4fa4 Dummy {f00=0x00bb, f01=0x0190, f02=» " U " , ( 1 _2 P & , ( Q " U " V , ( m _2 V P * & @P R * & " S ( V X S =J
0x1e4fa4…1e5138 Dummy {f00=0x00bb, f01=0x0190, f02=» N _ r bREL , ( H N $ !TTT , ( %D : . !TTP P , ( ?H " V W P * , ( Y P , ( w _ P W T
0x1e5138…1e52cc Dummy {f00=0x00bb, f01=0x0190, f02=» K T + Y@ V , ( T _f V P Y $ !TTX @ , ( @ T " P * & # @ : W N % @ P _ * & ; @ 0 R @ 2 , ( S W N R @
0x1e52cc…1e5460 Dummy {f00=0x00bb, f01=0x0190, f02=» l , ( $ A V W SAVE15 : * & W P P W ` L SAVE14P z , ( ( W b , ( G =h G V b V < , ( V ` P W `
0x1e5460…1e55f4 (3, 15) Dummy {f00=0x00bc, f01=0x0190, f02=» $ ! | , ( TTX !CCT P V , ( @ 4 U " $ $ L , ( _. P V | , ( 4 U " $ $ SCTDCT , ( _. @ d @
0x1e55f4…1e5788 Dummy {f00=0x00bc, f01=0x0190, f02=» Q P W ` W b V b , ( k V < V ` _2 0 , ( U V ` * & 8 8 8 4 D P ^ @ , ( # P H I K , ( T + Y@
0x1e5788…1e591c Dummy {f00=0x00bc, f01=0x0190, f02=» 3 @ " : W h , ( M V h F !SST W !AAT 0 SAVE06 ` , ( k W V 0 V N 0 V jP r SAVE07 , ( _ W l $ q > R P >b SYSLOD , ( W >b &
0x1e591c…1e5ab0 Dummy {f00=0x00bc, f01=0x0190, f02=» h , ( pP V ` T @ 1 DWTSQ 8 , ( Q a r I r I r H , ( - $# P V l -W W D x , ( K @ V ` T @ 1 Q a , ( g : @ % P H I , (
0x1e5ab0…1e5c44 Dummy {f00=0x00bc, f01=0x0190, f02=» h , ( P @ @ @ D , ( (P W H $ I p % E 8 , ( , a : V h Q R h , ( - $ F !LLT # W j;I , ( K # ;b W 0;a W # T W jW , ( g # T
0x1e5c44…1e5dd8 Dummy {f00=0x00bc, f01=0x0190, f02=» , ( Z t @ tT A t V INTSL 8 , ( W Y0 Z6 v @ vT A H , ( v V L >A 8T 9 0 x , ( @ 1 8 $; # V h ;c F * & + !AAP # $ < $ :
0x1e5dd8…1e5f6c Dummy {f00=0x00bc, f01=0x0190, f02=» _ / P *_ , ( *T P _ .P _ / V * * & z U Y$ P W X V Z , ( z 3 % W INTLT1 , ( HP _ V XP V x ] |W * & @ x
0x1e5f6c…1e6100 Dummy {f00=0x00bc, f01=0x0190, f02=» (P ) @ v @ @ , ( u T " & , ( : N =H N V : N =H N V , ( V : &=H F V : F =H F , ( @ V : F =H F V : , ( @ P N =H N T
0x1e6100…1e6294 (3, 16) Dummy {f00=0x00bc, f01=0x0190, f02=» d v , ( ] * & t F @ R @ D $ D I:RSTEM F SCTIOE0 X * & y$ L ~ A CRT M " j SYSLDX H D !pC P # N / N G B WP@ P P V P T ;P$ MT wP {
0x1e6294…1e6428 Dummy {f00=0x00bc, f01=0x0190, f02=» T T W ` H D ! @ V W V P0 #U E MP0 Q _U P R T T 9P H D ! K a eP i Pd P$ P T 3P AR UWT cR W& T h H D !oJ P PT ! > )P 7 aT Tr P, U H D ! }
0x1e6428…1e65bc Dummy {f00=0x00bc, f01=0x4162, f02=» L H D !` P H V W R W PV Tp P T 1P8 AW( E H GW" MV H D ! ST qPD P( U P P: P W #Q )R =T WWR [T eW, iT uW T H D ! {T W R T W T T /P yT }P P T P$ P U P H D ! W P P W P #P
0x1e65bc…1e6750 Dummy {f00=0x00bc, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-05-29 870105041000 D @ JUMPY SYSLDX dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MULTY MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF D @ M:REL I:RSTE SAVE01 SAVE12B SAV
0x1e6750…1e68e4 Dummy {f00=0x00bc, f01=0x0190, f02=» SAVE18 SAVE19 SAVE20 SAVE21S SAVE220 v F B SAVE23 SAVE24V SAVE25 SAVE26 SAVE27 SAVE282 SAVE29 SAVE30 0 APPTYPN z I:RSTE * |REL $ W W " , ( 1 ; Z [ : : [ [
0x1e68e4…1e6a78 Dummy {f00=0x00bc, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12B SAVE1
0x1e6a78…1e6c0c Dummy {f00=0x00bc, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x1e6c0c…1e6da0 Dummy {f00=0x00bc, f01=0x018e, f02=» MMEND , ( ERROR @ MOVEY R SCTEFA d , ( W Z A. c @ v , ( V W U R $ )_ , ( : V r V , (
0x1e6da0…1e6f34 (3, 17) Dummy {f00=0x009b, f01=0x0190, f02=» f , ( @ V M : W V , ( R R Y R 8 , ( <B V x " 1 W V z : z_@ V h , ( Q : W R P L d W x , ( _ V : t " D P , ( - W
0x1e6f34…1e70c8 Dummy {f00=0x009b, f01=0x0190, f02=» _ r V , ( t_~ " V r D T E % ( , ( E : " R ;B D D " P X , ( P R P |P M M CMPADR , ( : V W 0 : V P 9a , ( - _ "
0x1e70c8…1e725c Dummy {f00=0x009b, f01=0x0190, f02=» J n SCTTCT , ( @ 0 V @ 0 H SAVE8 P SCTLAC: ` * & W : ? ? r , ( R 0 R P P ACTOT RETUR8 , ( @ B
0x1e725c…1e73f0 Dummy {f00=0x009b, f01=0x0190, f02=» @ ` V b v , ( = pP SCTOPTO F TTB:CB X , ( ]$ @ ! P I " j , ( w = 4 Q _D I = , ( P @ ! P I , (
0x1e73f0…1e7584 Dummy {f00=0x009b, f01=0x0190, f02=» j SCTNOP , ( @ @ P P SCTPSZ L , ( H P P _ _ @ ^ , ( 9 V W U P P , ( Y P V W U " @ Q V , ( w P A. V P
0x1e7584…1e7718 Dummy {f00=0x009b, f01=0x0190, f02=» $ Y& P , ( S P 3 _ . SCTBUGY ^ , ( D 3 A. @ p SCTSTB , ( # & " @ W PFINIT , ( A A $
0x1e7718…1e78ac Dummy {f00=0x009b, f01=0x0190, f02=» , ( V l W H V ]" . , ( nT z W v d W n V ~P W 4 , ( " x d , ( _v V d , V P _ , ( N L % V d V f G G U , ( @ ; d G
0x1e78ac…1e7a40 Dummy {f00=0x009b, f01=0x0190, f02=» P W t , ( $ ) ^ r V W $ , ( @ f ) G V ) W b G T , ( ) G ` " W p W ~ , ( J pP j R XP v `_ , ( 9 W ~ R XX4 v `_ `
0x1e7a40…1e7bd4 (3, 18) Dummy {f00=0x00bd, f01=0x0190, f02=» R X^ _d t , ( " W XT : L z W x `_ , ( V P I @ D D , ( ! ) @ ! P C C W z t , ( ` pP " R , ( @ 1 p E R T E D E , (
0x1e7bd4…1e7d68 Dummy {f00=0x00bd, f01=0x0190, f02=»;h 0 :C x NXTBLKL NXTCOM , , ( " # : .=H N p @ , ( .=H N p N p GETNUM , ( : d 8" R _ ZY QY SYSLDX , ( ! : "
0x1e7d68…1e7efc Dummy {f00=0x00bd, f01=0x0190, f02=» - @ - N !TTP , ( N :H N TBT W W 2 ( , ( " T @ X 2 N =H X , ( N @ ) !TTXT !CC , ( T !UUT d W , ( @ 2 .:H N R
0x1e7efc…1e8090 Dummy {f00=0x00bd, f01=0x0190, f02=» W @ W x , ( @ D p V W W , ( ` " W p @ H , ( pP " 4X 1 x , ( R Z0 % _ W l a w ` , ( :A W V d 4 W P 5 , (
0x1e8090…1e8224 Dummy {f00=0x00bd, f01=0x0190, f02=» W U R ) +V ; d H D !P R, X P ` #P ;Pv SP. [V cP uT T V T P P H D ! V W 'P IP _W gP V R P0 OPp iP Q P T l H D ! P P^ !P %PR ;V ?W CU( OP WP( [P _V cW gU qQ wP H D !
0x1e8224…1e83b8 Dummy {f00=0x00bd, f01=0x406e, f02=» PJ P H D ! =T R -P ]R P T W4 T T T WT P !V P* P T X@ j V W 'P IP _W gP V R P0 OPp iP Q P T l H D ! P P^ !P %PR ;V ?W CU( OP WP( [P _V cW gU qQ wP H D !
0x1e83b8…1e854c Dummy {f00=0x00bd, f01=0x0190, f02=» J F IDENT LDTASK REL 10.0 80-03-14 870105041000 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x1e854c…1e86e0 Dummy {f00=0x00bd, f01=0x0190, f02=» TLDS15 , ( 7 $V QMEXITL J PAGQUE PAG:QB n , ( U H A ( @ X PAG:SB , ( oH H A ( 1 ) @ H P 1 SEG:PB# S
0x1e86e0…1e8874 (3, 19) Dummy {f00=0x009c, f01=0x018e, f02=» SEG:DS TTB:CB , ( H H D $! " ECBCW1I R ECBCW2 d , ( A u C C v ECBRL ECBBA , ( V P ECBEL , (
0x1e8874…1e8a08 Dummy {f00=0x009c, f01=0x4190, f02=» f ECBRC TTB:SAV , ( CA C _,( B & T :" * RELPA2 Z SCTIOES l , ( _H U ( F * ' @ , U ~ LT:SWB z QLTSWB z LKMERR0 QLTDSK ~ QLTASK
0x1e8a08…1e8b9c Dummy {f00=0x009c, f01=0x0190, f02=» J F IDENT DRSW01 REL 10.0 80-03-14 870105041000 H D ! OUTLINK OUTPUT LDREG LDREGE LDREGF STREG GETCHR@ ECHRTN ECHOY R ECHENDN OUTLINK SAVE8 OUTLRT OUTPUT , ( A
0x1e8b9c…1e8d30 Dummy {f00=0x009c, f01=0x0190, f02=»A4 DWTA5 TDISP LDREG F * , ( 9 H Y Y X < LDREGF T l LDREGE X DWTOR , ( O$ X Y X X X X DWTECB GETCHR@ l , ( e '
0x1e8d30…1e8ec4 Dummy {f00=0x009c, f01=0x4128, f02=» DWTWAT DWTSB2 * & H X 9BV X Y $ DWTADR R ECHADR d ECHRTN v TENDIO * & X D V X T , ( W0 P T #P< 'P8 sU W V$
0x1e8ec4…1e9058 Dummy {f00=0x009c, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b SAVE8 t DWTST , ( X V TDISP LDREGE , ( I Y ! W Y
0x1e9058…1e91ec Dummy {f00=0x009c, f01=0x0190, f02=» R Q W v , ( B Y <D X ? ?: T p , ( > > P P C F , ( B T B % X * v STREG , ( $ 4 T % X (T ! W ECHON * & @ Y *
0x1e91ec…1e9380 Dummy {f00=0x009c, f01=0x0190, f02=» Y $P Y %P R _Q , ( P OR R W " ! B r $ , ( W W 0 Z ! B T , ( Z Z& X * ,T J W , ( X (P Y * 0 %_. % Y * W ECHEND , ( _p P
0x1e9380…1e9514 (3, 20) Dummy {f00=0x00c0, f01=0x0190, f02=»R ;GV P X R ;GV DWTSB2 ( , ( SH X r X ( $4 P : , ( o " X *T * W Y ( - ? X j , ( :a Z T T W P X , ( :d Y > > |V ? 8 R , ( @R
0x1e9514…1e96a8 Dummy {f00=0x00c0, f01=0x0190, f02=» > _v B 1 > JT G , _ * H D ! * & V )W< 9U =R AP I W aP kP qWT yPP R Q @ H D !&J W T , Pb P T T T W < V , !P H D ! 1P$ =R M , UW ]PH cP> iP oP s , yR }Q
0x1e96a8…1e983c Dummy {f00=0x00c0, f01=0x4066, f02=» W P Vd R R6 V W2 RB P p R P W. P #P ET , L P@ b W aP kP qWT yPP R Q @ H D !&J W T , Pb P T T T W < V , !P H D ! 1P$ =R M , UW ]PH cP> iP oP s , yR }Q
0x1e983c…1e99d0 Dummy {f00=0x00c0, f01=0x0190, f02=» J F IDENT DRGP01 REL 10.0 80-03-14 870105041000 GPADY ECHOGP R GPADY j DISIOE | , ( P P OUTPUT * & B P B L # +P ! ! , ( ;
0x1e99d0…1e9b64 Dummy {f00=0x00c0, f01=0x0190, f02=» U P , ( T Y "_. P R P O]> V , ( _F T Y Y " V Y _^ P , ( C _P " $ P DWTBC , ( $ X " X ]r ! Y , ( Y Y _
0x1e9b64…1e9cf8 Dummy {f00=0x00c0, f01=0x0190, f02=» Y " Y > B B , ( K U $ ! T _ U D ! " , ( k T _ C > X Z^<BR P R LDREG ECHOGP , ( f X _x R V ! * & P P P P R ?Q ! Y E
0x1e9cf8…1e9e8c Dummy {f00=0x00c0, f01=0x4156, f02=» X Z ! P P , ( @ X _ X " ! ! & " / X " $ V H D ! x PB P8 #P 1P AT UW cW w > U P" T P4 | H D ! R( Pj V T P . MU$ WT aU kT R P R0 V0 P*
0x1e9e8c…1ea020 Dummy {f00=0x00c0, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x1ea020…1ea1b4 (3, 21) Dummy {f00=0x00c1, f01=0x0190, f02=» ! B B U , ( $ ! T _ U D ! T . GETCHR ^ , ( _ $$ X" X& X* C p , ( X`" E P 8'0P E , ( T ! T 9 _ ! T @_ ! , ( 5
0x1ea1b4…1ea348 Dummy {f00=0x00c1, f01=0x0190, f02=» DWTBC , ( # X ] ! , ( @ B ! ! ! B @ , ( Y " ! W 8!0T 8 !@P p , ( ! $ P ! ! TENDIO , ( ! 1P X " C ,T Y
0x1ea348…1ea4dc Dummy {f00=0x00c1, f01=0x018e, f02=» LDREG SAVE8 , ( S Z2<BR > Y , ( m D ! T X ! P , ( Y " Zn T _ ! ECHODY , ( @ @ X $ P ! R V ECHRTN , (
0x1ea4dc…1ea670 Dummy {f00=0x00c1, f01=0x0190, f02=» f * & " X "" Y %U W ! ! , ( 1 ! Y 4 B 6 * & @ K U )X R X f , ( i X "" Y & X % V Y , ( ! X $ X " ! X & , ( H
0x1ea670…1ea804 Dummy {f00=0x00c1, f01=0x018e, f02=» X ## R 4 ( > H D ! P b )P -P 3 9 CP SP WP. ]T oR| yR $ H D ! D 8 U4 T U T P( P TD T )T GP M Y cP p H D !> gR P 8 W T P P ( P T IQ YR H D
0x1ea804…1ea998 Dummy {f00=0x00c1, f01=0x4008, f02=»@
0x1ea998…1eab2c Dummy {f00=0x00c1, f01=0x0190, f02=» J F IDENT DRLT01 REL 10.0 80-03-14 870105041000 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLRT CHLTON LOCHANL RECHAN REMFC R DWREMU LOCHANL RECHAN REMFC DWREMU INTLT1
0x1eab2c…1eacc0 Dummy {f00=0x00c1, f01=0x0190, f02=» INTSAV , ( A J ;h # <c$ " DWTOTQD F DWTOCH X * & ; P P 4 5 T P ? X U X j OUTLIN DWTST , ( W > P P P P 0 , ( sA X T Y
0x1eacc0…1eae54 (3, 22) Dummy {f00=0x00c5, f01=0x0190, f02=» P $P > R > 8' T Y DWTADR ( RECADR : DWTSB2 L , ( $ X ' T P X P ^ , ( @@ > Z DWTOR DWTECB * & X "X 8' T 8Z" X '
0x1eae54…1eafe8 Dummy {f00=0x00c5, f01=0x4176, f02=» , ( s@$ P P _ E W Q Y W IHRET8 4 * & 8 " E 4 % E Y F CHLTON t ( $ B @ P A V H D !@ 5 ;P ?PR IP aPZ ePF iP mP wT Wn 0 Tx Rt WP D H D ! P>
0x1eafe8…1eb17c Dummy {f00=0x00c5, f01=0x0190, f02=» J F IDENT DRSOP1 REL 10.0 80-03-14 870105041000 0 , SOPCT SOPRY IHSOP DWSI01 DWSI02A DWSO01A R SOPCT , ( T 8T 9W B DISIOE SPDLCI , ( ! D 7P P
0x1eb17c…1eb310 Dummy {f00=0x00c5, f01=0x018e, f02=» DWTECBC ECBCW ECBEL " , ( U X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 DWSO01A , ( X V 9_<
0x1eb310…1eb4a4 Dummy {f00=0x00c5, f01=0x401e, f02=» V @ ECBEL " , ( U X R C C 2 TENDIO b TDISP t SOPRY v , ( m$ A @ A. DWSI01 DWSO01A , ( X V 9_<
0x1eb4a4…1eb638 Dummy {f00=0x00c5, f01=0x0190, f02=» J F IDENT DRFD01 REL 10.0 80-03-14 870105041000 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x1eb638…1eb7cc Dummy {f00=0x00c5, f01=0x0190, f02=» A. p SETIMPT TDISP " , ( m Y W L 2 DISIOEL b , ( Y ! X &R t DISEND ECBRL , ( $ B X ; Z ECBCW2 , (
0x1eb7cc…1eb960 Dummy {f00=0x00c5, f01=0x0190, f02=» X !? P x , ( P P P ! ! , ( ; P @ 9W ! ! P P 4 H DWTSB2 x , ( [ ! # T X Y , ( y ! _ # 4 ! # & X Y PFPOST * & _0
0x1eb960…1ebaf4 (3, 23) Dummy {f00=0x00c5, f01=0x0190, f02=»U Y 8 | DWTST FDONY , SAVE8 > DWTA2 N , ( Y "_ $ Y " Y ^ , ( & X P y _, , ( % _< Y Y Y VOLCLR , ( @ A
0x1ebaf4…1ebc88 Dummy {f00=0x00c5, f01=0x0190, f02=» 0 Y 1 0B. X P Y : , ( ! ! X # P Y :A , X . DWTECB ^ , ( ! A Y @ B. Y & * p , ( @ Y X Y C '? 8 IHFDY INTSAVN , ( DD X &
0x1ebc88…1ebe1c Dummy {f00=0x00c5, f01=0x0190, f02=»Y B K * X :AZn X , ( w P Y ! P + 7P $ $ , ( P + < $ <C ! 9 9 T , ( 4 X 9C X : X X 4 VOLGET , ( ! # T X T , ( H .
0x1ebe1c…1ebfb0 Dummy {f00=0x00c5, f01=0x0190, f02=» j , ( S s : H D ! E 8 T ' 7 MP QT4 [W k L u | L W" R N P H D ! Z V V ^ X P* P P" #P 1 5 ;P AW E H D ! I M QP6 UP _ cT g
0x1ebfb0…1ec144 Dummy {f00=0x00c5, f01=0x40fa, f02=» % * / H 9 B G K UP ]W a B L P L N H D ! J P P J N N F # ) P - R 3P0 9T = T < H D ! ?T m D w F yP } F P P, P Z ^ V X T B T x @ P _ cT g
0x1ec144…1ec2d8 Dummy {f00=0x00c5, f01=0x40aa, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x1ec2d8…1ec46c Dummy {f00=0x00c5, f01=0x4136, f02=» J F IDENT DVTKB REL 10.0 80-03-14 870105041000 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x1ec46c…1ec600 Dummy {f00=0x00c5, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x1ec600…1ec794 (3, 24) Dummy {f00=0x00c5, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x1ec794…1ec928 Dummy {f00=0x00c5, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x1ec928…1ecabc Dummy {f00=0x00c5, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x1ecabc…1ecc50 Dummy {f00=0x00c5, f01=0x0190, f02=» $P n TTB:SA , ( @ $ ) U @ C W IHRTN P , ( ; 0P P T C ` , ( Y T V Y 8 P q 0 ) , ( y W X P 8 T B R P A GETBLKS SET
0x1ecc50…1ecde4 Dummy {f00=0x00c5, f01=0x0190, f02=» LKMQDI , ( 4 Y C C QUEDEV J QUEFIL ^ TTB:STM r , ( 8W T 8P Y ^ TDISP FNDDWT |TIO TIO:FM $ , ( 5
0x1ecde4…1ecf78 Dummy {f00=0x00c5, f01=0x0190, f02=» P R T X "P P H , ( T _ X I Y # C * , ( C # P Y '? Y Y Z , ( @T # P W Y (@ DC:MIN@ SAVE8 , ( 2 @ _ > (@ X L U
0x1ecf78…1ed10c Dummy {f00=0x00c5, f01=0x0190, f02=» TENDIO Z , ( ? P ( ) 1 _( , ( [@ (@ X P 0P X H , ( y T 4 Y X 1 1 X x , ( P - M X P P # P ACTOTPO , ( @$ 0P 1 _
0x1ed10c…1ed2a0 Dummy {f00=0x00c5, f01=0x40c0, f02=»T$ P T P W P P ' MP WT gP. oT& uP }P T H D ! @ P T P W U0 QL T R !R 3 Z AP kP sP yT P> P. B P& P P W @ P # P ACTOTPO , ( @$ 0P 1 _
0x1ed2a0…1ed434 (3, 25) Dummy {f00=0x00c8, f01=0x0190, f02=» J F IDENT TMMLKM REL 10.0 80-03-14 870105041000 TCHPAGK TCHMMU TLUSEG R TCHPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x1ed434…1ed5c8 Dummy {f00=0x00c8, f01=0x407a, f02=» ,$ T -_> | RELPAG Q - _H . P -U 3U IT H X d@ vPAGK t TTB:MT LKMQDI TCHMMU FNDTID , ( $' "?:B ] TLU
0x1ed5c8…1ed75c Dummy {f00=0x00c8, f01=0x0190, f02=» J F IDENT TLDSEG REL 10.0 80-03-14 870105041000 TLDSEGK TLDS15 TLDS20 R TLDSEGK t TTB:SP SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:D
0x1ed75c…1ed8f0 Dummy {f00=0x00c8, f01=0x4152, f02=» $R M A TLDS15 R $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC TTB:CB@ * & e H D u T T T $ y @ T T
0x1ed8f0…1eda84 Dummy {f00=0x00c8, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x1eda84…1edc18 Dummy {f00=0x00c8, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x1edc18…1eddac Dummy {f00=0x00c8, f01=0x0190, f02=» J F IDENT MONTIM REL 10.0 80-03-14 870105041000 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x1eddac…1edf40 Dummy {f00=0x00c8, f01=0x4076, f02=»R _ 00 > & <h$ P > ( r %P O SP wR P < `@ r l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x1edf40…1ee0d4 (3, 26) Dummy {f00=0x00c9, f01=0x018e, f02=» J F IDENT TOSSFM REL 10.0 80-03-14 870105041000 TOSSFMK FCHECK FCHEC2 R TOSSFMK t , ( " 2 P P P P P P FM:ADM TTABFM ACTDIS , ( ! T
0x1ee0d4…1ee268 Dummy {f00=0x00c9, f01=0x0190, f02=» EWTEXL , ( U T L L R Q EWTEXB J , ( o U V , , " _L , ECBRL * & S V :a B EWTVOL FNDDWD , ( # S S
0x1ee268…1ee3fc Dummy {f00=0x00c9, f01=0x0190, f02=» FCHEC2 , ( _L _< _< " SCTNOF H SCTFWT Z , ( " P @ Q " , Y ," l FWTTAB0 FWTPARL , ( P L $P T L &R :AV ' > / _ H D
0x1ee3fc…1ee590 Dummy {f00=0x00c9, f01=0x4016, f02=» 6 @ ( _L _< _< " SCTNOF H SCTFWT Z , ( " P @ Q " , Y ," l FWTTAB0 FWTPARL , ( P L $P T L &R :AV ' > / _ H D
0x1ee590…1ee724 Dummy {f00=0x00c9, f01=0x0190, f02=» J F IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x1ee724…1ee8b8 Dummy {f00=0x00c9, f01=0x4082, f02=» * & H TCHMMUC 2 # D & & l@ ~ TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT TLUSEGC * & UT
0x1ee8b8…1eea4c Dummy {f00=0x00c9, f01=0x0190, f02=» J F IDENT FMTASK REL 10.0 80-03-15 870105041000 F B FMRDWRK FM:ADM FMINIT TTABFM FWTPAR FWTFNR FWTTABL FWTEW1 R F B FWTEXB FWTVOL EWTEXL EWTEXB EWTVOL FPB:RLL FPB:BF0 FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1B
0x1eea4c…1eebe0 Dummy {f00=0x00c9, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL d FWTEXB x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BF0 FPB:FO F
0x1eebe0…1eed74 (3, 27) Dummy {f00=0x00c9, f01=0x0190, f02=» FPB:V3 & FPB:S3 , FPB:V4 0 ( FPB:S4 6 < FPB:FR : P FPB:US > d FPB:SHL @ x FPB:MN A FPB:SNI B FPB:IF C FPB:KAV D FPB:CD F FPB:RP L T
0x1eed74…1eef08 Dummy {f00=0x00c9, f01=0x0190, f02=»T SCTNOF TIODM , ( I > A H @ @ , SCTFWL , ( c @ R P % % @ n DWTST DWTADRI SCTDMT * & I I I I _4 @ NVLDM
0x1eef08…1ef09c Dummy {f00=0x00c9, f01=0x0190, f02=» ,P :A x NVLBITS A > * FM:ADM J F ECBBA Z , ( K F ' j , ( i ! A P P 8! , ( P K @P X T X !? ? , ( W
0x1ef09c…1ef230 Dummy {f00=0x00c9, f01=0x0190, f02=»(@ I V V ~ , ( " LP V : V V P GETBLK N , ( % W Y Y " V V ` , ( C T Y Y P _t , ( a (@ - $T 1 %_" Y (_ , ( @ @ 0P
0x1ef230…1ef3c4 Dummy {f00=0x00c9, f01=0x0190, f02=» Y 9 @ J ! T " Y X G ECBRC . , ( " ! P C $ > , ( P J : J < W W P X V n , ( ; C $W X ! "? K >Q , ( Y @ 9 W Y B $W _.! * ( w T
0x1ef3c4…1ef558 Dummy {f00=0x00c9, f01=0x018e, f02=» V & K D X P K @ X 9AV K , ( 9 !? K > F " G , , ( R N ! , ( 7 N P N & N T S QMEXIT * & W _ _& - M L G $ ECBCW2
0x1ef558…1ef6ec Dummy {f00=0x00c9, f01=0x0190, f02=» , ( X>_. : X P ,(@ Y Y , ( Y :" (@ X $ T ( 4 DWTVOLR d DFTAB v DFTABE , ( _ ^ . : 0 , ( 2P $ 8X 8 , FCHEC2 ,
0x1ef6ec…1ef880 Dummy {f00=0x00c9, f01=0x0190, f02=» J j , ( w V )$ T B ( * Y $ * & : " $ Y : @ : , ( P 8 T _ " h , ( & Y 4 : : $ FMRDWRK LKMERR - Y : 6
0x1ef880…1efa14 (3, 28) Dummy {f00=0x00ac, f01=0x4112, f02=» #P +W CT S H D ! 9 WP( kT P P P, P T W P T l t ( P P* l H D ! G 3P 9V AW E z WQ _ aW mW wT { ( T P V ) d H D ! ( / =P" OT US }W P P T P" 5T G n MP Q T P0 T
0x1efa14…1efba8 Dummy {f00=0x00ac, f01=0x40fa, f02=» J F IDENT DFTAB REL 10.0 80-03-14 870105041000 $ DFTAB DFTABE DMTIDP DMTIDS R DFTAB z DFTABE DMTIDP DMTIDS @ PDMTIDP E
0x1efba8…1efd3c Dummy {f00=0x00ac, f01=0x4100, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b SOPRN t CHLTONA FDONN FMINIT U @ U4Z
0x1efd3c…1efed0 Dummy {f00=0x00ac, f01=0x0190, f02=» D F IDENT CTAB01 80-08-20 E.V. DATA ENTRY CTAB01K CTAB02 L CTAB02 f CTAB01K z , ( 0123 , ( ! 456789 , ( A ' < +,-. 012345
0x1efed0…1f0064 Dummy {f00=0x00ac, f01=0x4054, f02=»nopqrstuvwxyz{|}^ ~ < | | | >@ P1K CTAB02 L CTAB02 f CTAB01K z , ( 0123 , ( ! 456789 , ( A ' < +,-. 012345
0x1f0064…1f01f8 Dummy {f00=0x00ac, f01=0x4152, f02=» J F IDENT DVKB00 REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 ( $ @ KB DVDY00 , ( !@
0x1f01f8…1f038c Dummy {f00=0x00ac, f01=0x40f0, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x & " Y ! P ( ( @ CB DATA 0,0,0,0,0,0
0x1f038c…1f0520 Dummy {f00=0x00ac, f01=0x40ec, f02=» J F IDENT DVGP01 REL 10.0 80-03-14 870105041000 DVGP01K R DVGP01K d GPADN x & " P ! $ $ @ DATA DEVECB MMU ECB ADD
0x1f0520…1f06b4 (3, 29) Dummy {f00=0x00ad, f01=0x40ec, f02=» J F IDENT DVGP02 REL 10.0 80-03-14 870105041000 DVGP02K R DVGP02K d GPADN x & " P ! $ $ @ DATA DEVECB MMU ECB ADD
0x1f06b4…1f0848 Dummy {f00=0x00ad, f01=0x40f0, f02=» J F IDENT DVDY03 REL 10.0 80-03-14 870105041000 DVDY03K R DVDY03K d DYADN x & " Y ! P ( ( @ CB DATA 0,0,0,0,0,0
0x1f0848…1f09dc Dummy {f00=0x00ad, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x1f09dc…1f0b70 Dummy {f00=0x00ad, f01=0x4112, f02=» , ( 9 " _ , ( Q ^ 4 _ 8 TIMQUEA h IHRET8A z , ( o @ 1 A _ P 9 ( $ ~ T J : - 4 1 J 3 > P
0x1f0b70…1f0d04 Dummy {f00=0x00ad, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x1f0d04…1f0e98 Dummy {f00=0x00ad, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x1f0e98…1f102c Dummy {f00=0x00ad, f01=0x2008, f02=» L = KMD21 DATE = 80 08 19 1216PACK NBR = 0021
0x1f102c…1f11c0 Dummy {f00=0x00ad, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x1f11c0…1f1354 (3, 30) Dummy {f00=0x00d0, f01=0x0000, f02=»
[…0x8…]
0x1f1ff4…1f2188 Dummy {f00=0x00d0, f01=0x0004, f02=»
0x1f2188…1f231c Dummy {f00=0x00d0, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b SAVE8 t DWTST , ( X V TDISP LDREGE , ( I Y ! W Y
0x1f231c…1f24b0 Dummy {f00=0x00d0, f01=0x0190, f02=» R Q W v , ( B Y <D X ? ?: T p , ( > > P P C F , ( B T B % X * v STREG , ( $ 4 T % X (T ! W ECHON * & @ Y *
0x1f24b0…1f2644 Dummy {f00=0x00d0, f01=0x0190, f02=» Y $P Y %P R _Q , ( P OR R W " ! B r $ , ( W W 0 Z ! B T , ( Z Z& X * ,T J W , ( X (P Y * 0 %_. % Y * W ECHEND , ( _p P
0x1f2644…1f27d8 Dummy {f00=0x00d0, f01=0x0190, f02=»R ;GV P X R ;GV DWTSB2 ( , ( SH X r X ( $4 P : , ( o " X *T * W Y ( - ? X j , ( :a Z T T W P X , ( :d Y > > |V ? 8 R , ( @R
0x1f27d8…1f296c Dummy {f00=0x00d0, f01=0x0190, f02=» > _v B 1 > JT G , _ * H D ! * & V )W< 9U =R AP I W aP kP qWT yPP R Q @ H D !&J W T , Pb P T T T W < V , !P H D ! 1P$ =R M , UW ]PH cP> iP oP s , yR }Q
0x1f296c…1f2b00 Dummy {f00=0x00d0, f01=0x4066, f02=» W P Vd R R6 V W2 RB P p R P W. P #P ET , L P@ b W aP kP qWT yPP R Q @ H D !&J W T , Pb P T T T W < V , !P H D ! 1P$ =R M , UW ]PH cP> iP oP s , yR }Q
0x1f2b00…1f2c94 (3, 32) Dummy {f00=0x00d2, f01=0x0000, f02=»
[…0x7…]
0x1f37a0…1f3934 (3, 33) Dummy {f00=0x00b4, f01=0x018e, f02=»E E x P* F PTRM190 EQU * F ( P LD A6,DCWRQ CHECK APPLICATION QUEUE F ( " P RB(Z) TRM130 NOTHING IN QUEUE F T P EJECT F z P* F P* F P* F " P* HERE TO TRANSMIT AN IFRAME F P* F PTRM300 EQU * F " P SUK A6,DWTWQ GET DWT ADDRESS
0x1f3934…1f3ac8 Dummy {f00=0x00b4, f01=0x0190, f02=» F n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH G P ADK A3,1 ADJUST LENGTH G 4 " P ST A6,WRDWT SAVE WRITING DWT G T $ P LDR* A1,A6 GET SUB-TERM ADDRESS G z P ANK A1,/FF G P* G P IFF MMUPAG=0 G * P LDKL A4,MMUBUF GET MMU BUFFER ADDRESS G P LD
0x1f3ac8…1f3c5c Dummy {f00=0x00b4, f01=0x0190, f02=»,A8 G * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER H PTRM320 EQU * H : P XIF H N P* H Z * P LD A7,ECBBA,A8 OUTPUT BUFFER ADDRESS H d ( P ADK A7,1 USE FREE-WORD TO INSERT IT H P SCR A1,A7 H $ P SUK A7,2 INIT OUTPUT ADDRESSING H P ST A7,SWITCH H
0x1f3c5c…1f3df0 Dummy {f00=0x00b4, f01=0x0190, f02=» H f P CF A5,WRFRAM I > P************** WHEN DONE,UPDATE PROTOCOL COUNTERS ***** I P LD A1,VSCNT UPDATE V(S) I ` P ADK A1,1 I P ANK A1,7 MODULO 7 I P ST A1,VSCNT I " P ST A1,CPCNT UPDATE CHECKPINT I P* I P* DISPATCH I P* I
0x1f3df0…1f3f84 Dummy {f00=0x00b4, f01=0x018e, f02=» LDR* A1,A2 GET COMMAND I P CWK A2,COMQE J $ P RF(NE) TRME10 NOT END OF QUEUE J 6 ( P LDKL A2,COMQ-2 RESET OUTPUT POINTER J ^ PTRME10 EQU * J P ADK A2,2 J P ST A2,QOUT J P ABL TRM J P EJECT J P* J " P* PREPARE C-FIELD FOR I-FRAM
0x1f3f84…1f4118 Dummy {f00=0x00b4, f01=0x0190, f02=» J P ORR A1,A2 K P LD A2,VSCNT GET N(S) K P SLL A2,1 K 8 P ORR A1,A2 K J & P STR A1,A4 STORE C-FIELD IN BUFFER K P RTN A5 K P EJECT K P* K P* K , P* QUEUEING FACILITY FOR HDLC TRANSMITTER K 2 P* ON ENTRY A1 CONTAINS REQUESTED
0x1f4118…1f42ac Dummy {f00=0x00b4, f01=0x0190, f02=»NSMITTER K P* L P CF A15,SETIME L P DATA TRM,1 AFTER 100 MS L 0 P RF QMRTN L P P* L b P* PUT COMMAND ON QUEUE L l P* L PQMTRM10 EQU * L P LD A2,QIN L P CWK A2,COMQE L ( P RF(NE) QMTRM20 STILL SPACE IN QUEUE L " P LDKL A2,C
0x1f42ac…1f4440 Dummy {f00=0x00b4, f01=0x0190, f02=» PQMRTN EQU * M P IFT CPU852=1 M P ADKL A15,4 M . P ABR* A15 M B P XIF M T P IFT CPU852=0 M ` P RTN A15 M v P XIF M P* M P EJECT M P* M P* RESET PROCEDURE COUNTERS M P* M P* M PRESCON EQU * M P CM VSCNT
0x1f4440…1f45d4 (3, 34) Dummy {f00=0x00b6, f01=0x0190, f02=» =7(=3) % P* & P* & 0 P* CHECK QUEUE AND SEND IF SOMETHING THERE & $ P* & X & P LDR* A7,A5 LAST OUTPUT DWT IN A7 & b 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
0x1f45d4…1f4768 Dummy {f00=0x00b6, f01=0x0190, f02=»ARACTER & z P LDR* A2,A15 RELOAD A2 ' P EJECT ' . P* ' < P* ' F 2 P* CHECK CONTROL CHARACTER AND UPDATE ERROR- ' P 2 P* ACKUMULATORS IF NAK, RETRANSMISSION FAULT ' ( P* OR UNDEFINED CONTROL CHARACTER ' P* ' PCLT020 EQU * ' P L
0x1f4768…1f48fc Dummy {f00=0x00b6, f01=0x0190, f02=» CLT028 ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( , P* ( F P IFT ACKMUL=1 ( P P* ( f P =1 ( p P =1 ( ~ P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025
0x1f48fc…1f4a90 Dummy {f00=0x00b6, f01=0x0190, f02=» ( P* ) P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) P P* ) x : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT
0x1f4a90…1f4c24 Dummy {f00=0x00b6, f01=0x0190, f02=»TS SET ? ) j P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * & , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * Z 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NO
0x1f4c24…1f4db8 Dummy {f00=0x00b6, f01=0x0190, f02=» N A K * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + ^ @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE
0x1f4db8…1f4f4c Dummy {f00=0x00b6, f01=0x018e, f02=»* + 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , @ P SUK A4,7 SEVEN TIMES ? , d P RB(E) CLT015 =7(=3) , * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION
0x1f4f4c…1f50e0 Dummy {f00=0x00b6, f01=0x018e, f02=» P EJECT - P* - P* - P* ACK DATA = 07 - & P* - F 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - P . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF -
0x1f50e0…1f5274 (3, 35) Dummy {f00=0x00d4, f01=0x0000, f02=»
[…0xf…]
0x1f6a20…1f6bb4 (3, 37) Dummy {f00=0x00ca, f01=0x0190, f02=» " P LD A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 * , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA B P LDR A3,A2 r P RF(NN) FD:009 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01
0x1f6bb4…1f6d48 Dummy {f00=0x00ca, f01=0x018e, f02=» SC A1,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 6 P SC A1,DWT:PA+2,A6 b P ANKL A2,/FFF | P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER A
0x1f6d48…1f6edc Dummy {f00=0x00ca, f01=0x018e, f02=» P RF(Z) FD:060 BASIC READ P SUK A1,4 $ P RF(Z) FD:015 BASIC WRITE 6 P SUK A1,12 X P RF(Z) FD:060 PHYSICAL READ j P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU *
0x1f6edc…1f7070 Dummy {f00=0x00ca, f01=0x0190, f02=» P* ! & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! 8 P ADK A4,4 ! b " PFD:015 EQU * BASIC WRITE ORDER ! t P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P I
0x1f7070…1f7204 Dummy {f00=0x00ca, f01=0x0190, f02=» ! 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS " ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " @ P LDR A7,A3 REQUESTED LENGTH " l P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU
0x1f7204…1f7398 Dummy {f00=0x00ca, f01=0x0190, f02=»TACK " r P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # * PFD:019 EQU * # ^ P XIF # r P* # ~ P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3
0x1f7398…1f752c Dummy {f00=0x00ca, f01=0x0190, f02=»* # " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ 0 P RF(Z) FD:020 $ ^ P LDK A3,/40 INDICATE ERROR $ t , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT
0x1f752c…1f76c0 Dummy {f00=0x00ca, f01=0x0190, f02=»************* $ P* % PFD:060 CF A5,BIO % P* % 8 P IFT MMUPAG=1 % B P IFT CHAN=0 % X P IFT TOSS+IBM=2 % l P LD A1,DWTFIB,A6 % P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN S
0x1f76c0…1f7854 (3, 38) Dummy {f00=0x00cc, f01=0x0190, f02=» ] P***************** ^ P* * ^ " P* BIOSQ * ^ < P* * ^ V P***************** ^ p P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD U
0x1f7854…1f79e8 Dummy {f00=0x00cc, f01=0x0190, f02=» ^ P IFT IBM=1 _ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ D & P ADR A2,A4 COMPLETE BIO WITH ORDER _ p P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _
0x1f79e8…1f7b7c Dummy {f00=0x00cc, f01=0x0190, f02=»GTH _ t P RTN A5 ` P XIF ` P* ` ( P EJECT DRFD01 ` 2 P* ` H P****************** ` R P* VO:NAM * ` l P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P*
0x1f7b7c…1f7d10 Dummy {f00=0x00cc, f01=0x018e, f02=»O ` P LDKL A4,BUF READ TO BUFFER a P CF A5,FD:REA a . P ANK A3,/17 FATAL ERROR a D P RF(NZ) VOL:40 a d P IFT IBM=1 a z P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a
0x1f7d10…1f7ea4 Dummy {f00=0x00cc, f01=0x0190, f02=» a P EJECT DRFD01 b P* b P* b * P IFT TOSS=1 b 4 P LDKL A2,BUF b H P IFT IBM=1 b P RF VOL:20 b n P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFE
0x1f7ea4…1f8038 Dummy {f00=0x00cc, f01=0x0190, f02=»L A1,/400 b , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c B 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c f 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P
0x1f8038…1f81cc Dummy {f00=0x00cc, f01=0x0190, f02=»US c t * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d 8 . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d L P LD A8,DWTECB,A6 d ~ P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d
0x1f81cc…1f8360 Dummy {f00=0x00cc, f01=0x0190, f02=» P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e $ & P* INPUT: A7 NO OF CHARACTERS e V P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P
0x1f8360…1f84f4 (3, 39) Dummy {f00=0x00d5, f01=0x0000, f02=»
[…0xf…]
0x1f9ca0…1f9e34 (3, 41) Dummy {f00=0x00d6, f01=0x0000, f02=»
[…0x7…]
0x1fa940…1faad4 (3, 42) Dummy {f00=0x00d7, f01=0x0000, f02=»
[…0x7…]
0x1fb5e0…1fb774 (3, 43) Dummy {f00=0x00d6, f01=0x0000, f02=»
0x1fb774…1fb908 Dummy {f00=0x00d6, f01=0x0002, f02=»
0x1fb908…1fba9c Dummy {f00=0x00d6, f01=0x0190, f02=» J F IDENT TLDSEG REL 10.0 80-03-14 870105041000 TLDSEGK TLDS15 TLDS20 R TLDSEGK t TTB:SP SEG:NS LKM030 , ( B T R L U 9C TTB:SB SEG:D
0x1fba9c…1fbc30 Dummy {f00=0x00d6, f01=0x4152, f02=» $R M A TLDS15 R $ SEG:PBN 8 PAG:QB@ J * & K _ D $P D % 1 I TLDS20 f PAG:PAC TTB:CB@ * & e H D u T T T $ y @ T T
0x1fbc30…1fbdc4 Dummy {f00=0x00d6, f01=0x2008, f02=»
0x1fbdc4…1fbf58 Dummy {f00=0x00d6, f01=0x0000, f02=»
[…0x2…]
0x1fc280…1fc414 (3, 44) Dummy {f00=0x00d7, f01=0x0000, f02=»
[…0x7…]
0x1fcf20…1fd0b4 (3, 45) Dummy {f00=0x00d8, f01=0x0000, f02=»
[…0x7…]
0x1fdbc0…1fdd54 (3, 46) Dummy {f00=0x00d4, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x1fdd54…1fdee8 Dummy {f00=0x00d4, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x1fdee8…1fe07c Dummy {f00=0x00d4, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x1fe07c…1fe210 Dummy {f00=0x00d4, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x1fe210…1fe3a4 Dummy {f00=0x00d4, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x1fe3a4…1fe538 Dummy {f00=0x00d4, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x1fe538…1fe6cc Dummy {f00=0x00d4, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x1fe6cc…1fe860 Dummy {f00=0x00d4, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x1fe860…1fe9f4 (3, 47) Dummy {f00=0x00df, f01=0x0000, f02=»
[…0xf…]
0x2001a0…200334 (3, 49) Dummy {f00=0x0099, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x200334…2004c8 Dummy {f00=0x0099, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x2004c8…20065c Dummy {f00=0x0099, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x20065c…2007f0 Dummy {f00=0x0099, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x2007f0…200984 Dummy {f00=0x0099, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x200984…200b18 Dummy {f00=0x0099, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x200b18…200cac Dummy {f00=0x0099, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x200cac…200e40 Dummy {f00=0x0099, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x200e40…200fd4 (3, 50) Dummy {f00=0x00b9, f01=0x0190, f02=»ASK IN SYSTEM P* P EJECT SYSTAB P* 8 P* SYSTEM CONTROL TABLE B P* ` PSCT EQU * j P | * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTI
0x200fd4…201168 Dummy {f00=0x00b9, f01=0x0190, f02=»A 0,0 APPLICATION DISC SECTOR ADDRESS . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS . PSCTTCT DATA 0 TCTAB ADDRESS ` PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF
0x201168…2012fc Dummy {f00=0x00b9, f01=0x0190, f02=»LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY & P INDEX REL TTAB P * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES j ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA X:A MONITOR OP
0x2012fc…201490 Dummy {f00=0x00b9, f01=0x0190, f02=»X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE H P EJECT SYSTAB | P* P* * PSCTFWT DATA 0 FWT CHAIN START ADDRESS $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DAT
0x201490…201624 Dummy {f00=0x00b9, f01=0x413e, f02=»X:G DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB $ P < P* D P* SYSTEM STACK N P* d P RES 143 n P DATA /FCC0 AND PSW ~ & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP
0x201624…2017b8 Dummy {f00=0x00b9, 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
0x2017b8…20194c Dummy {f00=0x00b9, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x20194c…201ae0 Dummy {f00=0x00b9, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x201ae0…201c74 (3, 51) Dummy {f00=0x00d8, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x201c74…201e08 Dummy {f00=0x00d8, f01=0x0004, f02=»
0x201e08…201f9c Dummy {f00=0x00d8, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x201f9c…202130 Dummy {f00=0x00d8, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x202130…2022c4 Dummy {f00=0x00d8, f01=0x0190, f02=» IHRTC ILLINTM , ( " IHSOP R CHLT1 b IHFDN r , ( , ( ! , ( 1
0x2022c4…202458 Dummy {f00=0x00d8, f01=0x0190, f02=» r , ( q HALTN B R SCTMSZK j SCTSFA ~ SCTEFA SCTIPL SCTANO SCTADA , ( @
0x202458…2025ec Dummy {f00=0x00d8, f01=0x0190, f02=»PSZ SCTMMC SCTLAC " SCTMMPL 6 SCTLAP0 J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x2025ec…202780 Dummy {f00=0x00d8, f01=0x4058, f02=» ~ _ " B@ T J SCTNPE ^ SCTSTB r SCTOPT SCTBUG SCTDMT~ , ( SCTDMI
0x202780…202914 (3, 52) Dummy {f00=0x00d9, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x202914…202aa8 Dummy {f00=0x00d9, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x202aa8…202c3c Dummy {f00=0x00d9, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x202c3c…202dd0 Dummy {f00=0x00d9, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x202dd0…202f64 Dummy {f00=0x00d9, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x202f64…2030f8 Dummy {f00=0x00d9, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x2030f8…20328c Dummy {f00=0x00d9, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x20328c…203420 Dummy {f00=0x00d9, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x203420…2035b4 (3, 53) Dummy {f00=0x00d9, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x2035b4…203748 Dummy {f00=0x00d9, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x203748…2038dc Dummy {f00=0x00d9, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x2038dc…203a70 Dummy {f00=0x00d9, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x203a70…203c04 Dummy {f00=0x00d9, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x203c04…203d98 Dummy {f00=0x00d9, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x203d98…203f2c Dummy {f00=0x00d9, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x203f2c…2040c0 Dummy {f00=0x00d9, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x2040c0…204254 (3, 54) Dummy {f00=0x00da, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x204254…2043e8 Dummy {f00=0x00da, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x2043e8…20457c Dummy {f00=0x00da, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x20457c…204710 Dummy {f00=0x00da, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x204710…2048a4 Dummy {f00=0x00da, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x2048a4…204a38 Dummy {f00=0x00da, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x204a38…204bcc Dummy {f00=0x00da, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x204bcc…204d60 Dummy {f00=0x00da, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x204d60…204ef4 (3, 55) Dummy {f00=0x00da, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x204ef4…205088 Dummy {f00=0x00da, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x205088…20521c Dummy {f00=0x00da, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x20521c…2053b0 Dummy {f00=0x00da, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x2053b0…205544 Dummy {f00=0x00da, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x205544…2056d8 Dummy {f00=0x00da, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x2056d8…20586c Dummy {f00=0x00da, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x20586c…205a00 Dummy {f00=0x00da, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x205a00…205b94 (3, 56) Dummy {f00=0x00db, f01=0x0000, f02=»
0x205b94…205d28 Dummy {f00=0x00db, f01=0x0002, f02=» `
0x205d28…205ebc Dummy {f00=0x00db, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x205ebc…206050 Dummy {f00=0x00db, f01=0x4138, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F0F1 h P DATA /F2F3 | P DATA /F4F5,/F6F7 P DATA /F8F9,/FAFB P DATA /FCFC P DATA /FDFD PDFTABE EQU * PDMTIDP E
0x206050…2061e4 Dummy {f00=0x00db, 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*
0x2061e4…206378 Dummy {f00=0x00db, f01=0x0190, f02=»AST OUTPUT? " ~ P RF(E) ADY125 # P SUK A1,1 NO! # * " P LDR* A7,A6 CHANNEL PARAMETER # @ P ANK A7,/30 GRAFIC DISPLAY ? # f P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PADY110 CC A2,TABSPE,A1 CHARACTER FOUND # P RF(NE) ADY128 # " P
0x206378…20650c Dummy {f00=0x00db, f01=0x0190, f02=» A4,0 # P RB ACDY50 $ $ PADY122 CCK A2,/1212 UNDERLINE ? $ P RF(NE) ADY125 $ H " P LDK A4,/40 SET UNDERLINE MODE $ ^ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A4,0 $ P RB(NE) ACDY50 NO $ P LDR A4,A2 $ ( P CF A15,GE
0x20650c…2066a0 Dummy {f00=0x00db, f01=0x0190, f02=»F(Z) ADY127 NONE $ P* % P IFT WHATDY=0 % " & P LDR* A7,A6 GET CHANNEL PARAMETER % 8 P ANK A7,/10 % b 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % v P XIF % P LDR A3,A1 NO! % P CF A5,FASTER % PADY127 EQU * % P LD A3,4,A8 REQ
0x2066a0…206834 (3, 57) Dummy {f00=0x00df, f01=0x2008, f02=»
0x206834…2069c8 Dummy {f00=0x00df, f01=0x0002, f02=»
0x2069c8…206b5c Dummy {f00=0x00df, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x206b5c…206cf0 Dummy {f00=0x00df, f01=0x4110, f02=» INTRT4 SYSLOD CTAB01 0 KBAD3 B * & R GPADN DYADN INTAS INTSL " SPDLCI $ &
0x206cf0…206e84 Dummy {f00=0x00df, f01=0x2008, f02=»
0x206e84…207018 Dummy {f00=0x00df, f01=0x0190, f02=»T SCTNOF TIODM , ( I > A H @ @ , SCTFWL , ( c @ R P % % @ n DWTST DWTADRI SCTDMT * & I I I I _4 @ NVLDM
0x207018…2071ac Dummy {f00=0x00df, f01=0x0190, f02=» ,P :A x NVLBITS A > * FM:ADM J F ECBBA Z , ( K F ' j , ( i ! A P P 8! , ( P K @P X T X !? ? , ( W
0x2071ac…207340 Dummy {f00=0x00df, f01=0x0190, f02=»(@ I V V ~ , ( " LP V : V V P GETBLK N , ( % W Y Y " V V ` , ( C T Y Y P _t , ( a (@ - $T 1 %_" Y (_ , ( @ @ 0P
0x207340…2074d4 (3, 58) Dummy {f00=0x0192, f01=0x0000, f02=»
[…0x7…]
0x207fe0…208174 (3, 59) Opaque[0x194]
0x208174…208308 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d0, f03=0x0000}
0x208174…208308 IdxSect {
0x208174…208308 f00 = 0x0096 // 0x208174 @0x0
0x208174…208308 f01 = 0x0002 // 0x208176 @0x2
0x208174…208308 gno = [ // 0x208178 @0x4
0x208174…208308 [0x00]: C0x0096.0x2.0
0x208174…208308 ]
0x208174…208308 }
0x208308…20849c Dummy {f00=0x0096, f01=0x018e, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWSI01 P EXTRN DWFD01 P* P* P* P* PSCLASS DATA TCLASE-* P
0x20849c…208630 Dummy {f00=0x0096, f01=0x416a, f02=» v P DATA DWSI01 PTC00E EQU * ( PTC01 DATA TC01E-* D P DATA /00F8 f P DATA DWFD01 P DATA /01F9 P DATA DWFD01 P DATA /02FA P DATA DWFD01 P
0x208630…2087c4 Dummy {f00=0x0096, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2087c4…208958 Dummy {f00=0x0096, f01=0x0190, f02=»DR A8,P RETURN ADDRESS & P LDKL A3,REL+2 RELOCATION ROUTINE P CFR A8,A3 H $ P LDKL A5,/5555 LOAD TEST PATTERN Z P LDK A6,64 INIT PAGE COUNTER " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU IN SYSTEM? P RF(Z) AP:100 NO! P E
0x208958…208aec Dummy {f00=0x0096, f01=0x0190, f02=» LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * $ " P LD A2,TABBE GET PAGE ADDRESS 8 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ^ P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P
0x208aec…208c80 Dummy {f00=0x0096, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x208c80…208e14 (3, 60) Opaque[0x194]
0x208e14…208fa8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12f0, f03=0x0000}
0x208e14…208fa8 IdxSect {
0x208e14…208fa8 f00 = 0x0097 // 0x208e14 @0x0
0x208e14…208fa8 f01 = 0x0002 // 0x208e16 @0x2
0x208e14…208fa8 gno = [ // 0x208e18 @0x4
0x208e14…208fa8 [0x00]: C0x0097.0x2.0
0x208e14…208fa8 ]
0x208e14…208fa8 }
0x208fa8…20913c Dummy {f00=0x0097, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x20913c…2092d0 Dummy {f00=0x0097, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN CTAB01 ^ P EXTRN KBAD3 t P EXTRN GPAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0
0x2092d0…209464 Dummy {f00=0x0097, f01=0x4112, f02=»INTRT3 DATA 0 PINTRT4 DATA 0 P DATA SYSLOD , P**** @ P DATA CTAB01 L P DATA KBAD3 b P DATA GPAD v P DATA DYAD P* PINTAS DATA 0 PINTSL DATA 0 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) P END
0x209464…2095f8 Dummy {f00=0x0097, 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
0x2095f8…20978c Dummy {f00=0x0097, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x20978c…209920 Dummy {f00=0x0097, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x209920…209ab4 (3, 61) Opaque[0x194]
0x209ab4…209c48 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1328, f03=0x0000}
0x209ab4…209c48 IdxSect {
0x209ab4…209c48 f00 = 0x0099 // 0x209ab4 @0x0
0x209ab4…209c48 f01 = 0x0006 // 0x209ab6 @0x2
0x209ab4…209c48 gno = [ // 0x209ab8 @0x4
0x209ab4…209c48 [0x00]: C0x0099.0x1.0
0x209ab4…209c48 [0x01]: C0x0099.0x3.0
0x209ab4…209c48 [0x02]: C0x00ba.0x1.0
0x209ab4…209c48 ]
0x209ab4…209c48 }
0x209c48…209ddc Dummy {f00=0x0099, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x209ddc…209f70 Dummy {f00=0x0099, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x209f70…20a104 Dummy {f00=0x0099, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x20a104…20a298 Dummy {f00=0x0099, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x20a298…20a42c Dummy {f00=0x0099, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x20a42c…20a5c0 Dummy {f00=0x0099, f01=0x0190, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x20a5c0…20a754 (3, 62) Dummy {f00=0x0099, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x20a754…20a8e8 Dummy {f00=0x0099, f01=0x0190, f02=»QU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY . $ PSWB:EL EQU 4 SWB LENGTH (BYTES) d & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB P* P* INTE
0x20a8e8…20aa7c Dummy {f00=0x0099, f01=0x0190, f02=» | P DATA ILLINT 4 P DATA ILLINT 5 $ P DATA ILLINT 6 @ P DATA ILLINT P DATA ILLINT | P DATA IHSOP 9 P DATA ILLINT P DATA ILLINT P DATA
0x20aa7c…20ac10 Dummy {f00=0x0099, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT > P DATA ILLINT ^ P DATA ILLINT ~ P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA
0x20ac10…20ada4 Dummy {f00=0x0099, f01=0x0190, f02=»ATA IHFD 30 P DATA ILLINT 31 P DATA ILLINT 32 4 P DATA ILLINT 33 P P DATA ILLINT l P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA IL
0x20ada4…20af38 Dummy {f00=0x0099, f01=0x0190, f02=» P DATA ILLINT P DATA ILLINT 45 $ P DATA ILLINT 46 @ P DATA ILLINT 47 P DATA ILLINT x P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P
0x20af38…20b0cc Dummy {f00=0x0099, f01=0x0190, f02=» P DATA ILLINT 58 P DATA ILLINT 59 P DATA ILLINT 60 < P DATA ILLINT 61 X P DATA ILLINT 62 t P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P*
0x20b0cc…20b260 Dummy {f00=0x0099, f01=0x0190, f02=»LT P P* P* DEBUG RESTART ENTRY P* : P XRR A13,A13 D P XRR A14,A14 X P LD A1,SCTBUG l P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA M
0x20b260…20b3f4 (3, 63) Dummy {f00=0x00ba, f01=0x0190, f02=» OF FILES/TASK z $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM > P* b P EJECT SYSTAB l P* P* SYSTEM CONTROL TABLE P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DAT
0x20b3f4…20b588 Dummy {f00=0x00ba, f01=0x0190, f02=» MD:F4,F5 FD:F8,F9 | $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS B . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS z PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB
0x20b588…20b71c Dummy {f00=0x00ba, f01=0x0190, f02=»MMU TABLE COMMON PART ENTRY P INDEX REL TTAB $ 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART > & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY r P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES
0x20b71c…20b8b0 Dummy {f00=0x00ba, f01=0x0190, f02=» 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA 0 DEBUGGER " & PSCTDMT DATA X:B DMTASKS IN SYSTEM @ & P BIT 12:#G, 13:#F, 14:#E, 15:#D j 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE P EJECT SYSTAB P* P* * PSCTFWT DATA 0 FWT
0x20b8b0…20ba44 Dummy {f00=0x00ba, f01=0x018a, f02=»LE WORK TABLE LENGTH | ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE H P EJECT SYSTAB x P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR I
0x20ba44…20bbd8 Dummy {f00=0x00ba, f01=0x4008, f02=»@ TABLE LENGTH | ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE H P EJECT SYSTAB x P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR I
0x20bbd8…20bd6c Dummy {f00=0x00ba, 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
0x20bd6c…20bf00 Dummy {f00=0x00ba, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x20bf00…20c094 (3, 64) Opaque[0x194]
0x20c094…20c228 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1310, f03=0x0000}
0x20c094…20c228 IdxSect {
0x20c094…20c228 f00 = 0x0098 // 0x20c094 @0x0
0x20c094…20c228 f01 = 0x0008 // 0x20c096 @0x2
0x20c094…20c228 gno = [ // 0x20c098 @0x4
0x20c094…20c228 [0x00]: C0x0098.0x2.0
0x20c094…20c228 [0x01]: C0x0098.0x3.0
0x20c094…20c228 [0x02]: C0x0099.0x0.0
0x20c094…20c228 [0x03]: C0x00ba.0x0.0
0x20c094…20c228 ]
0x20c094…20c228 }
0x20c228…20c3bc Dummy {f00=0x0098, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x20c3bc…20c550 Dummy {f00=0x0098, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x20c550…20c6e4 Dummy {f00=0x0098, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x20c6e4…20c878 Dummy {f00=0x0098, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x20c878…20ca0c Dummy {f00=0x0098, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x20ca0c…20cba0 Dummy {f00=0x0098, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x20cba0…20cd34 (3, 65) Dummy {f00=0x0098, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x20cd34…20cec8 Dummy {f00=0x0098, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x20cec8…20d05c Dummy {f00=0x0098, f01=0x0190, f02=»U852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 1 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x20d05c…20d1f0 Dummy {f00=0x0098, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x20d1f0…20d384 Dummy {f00=0x0098, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x20d384…20d518 Dummy {f00=0x0098, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x20d518…20d6ac Dummy {f00=0x0098, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x20d6ac…20d840 Dummy {f00=0x0098, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x20d840…20d9d4 (3, 66) Dummy {f00=0x0099, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x20d9d4…20db68 Dummy {f00=0x0099, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x20db68…20dcfc Dummy {f00=0x0099, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x20dcfc…20de90 Dummy {f00=0x0099, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x20de90…20e024 Dummy {f00=0x0099, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x20e024…20e1b8 Dummy {f00=0x0099, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x20e1b8…20e34c Dummy {f00=0x0099, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x20e34c…20e4e0 Dummy {f00=0x0099, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x20e4e0…20e674 (3, 67) Dummy {f00=0x00ba, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x20e674…20e808 Dummy {f00=0x00ba, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x20e808…20e99c Dummy {f00=0x00ba, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x20e99c…20eb30 Dummy {f00=0x00ba, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x20eb30…20ecc4 Dummy {f00=0x00ba, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x20ecc4…20ee58 Dummy {f00=0x00ba, 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
0x20ee58…20efec Dummy {f00=0x00ba, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTB SCTPAG SCTSWB
0x20efec…20f180 Dummy {f00=0x00ba, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x20f180…20f314 (3, 68) Opaque[0x194]
0x20f314…20f4a8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f8, f03=0x0000}
0x20f314…20f4a8 IdxSect {
0x20f314…20f4a8 f00 = 0x00b7 // 0x20f314 @0x0
0x20f314…20f4a8 f01 = 0x000a // 0x20f316 @0x2
0x20f314…20f4a8 gno = [ // 0x20f318 @0x4
0x20f314…20f4a8 [0x00]: C0x00b7.0x3.0
0x20f314…20f4a8 [0x01]: C0x00b8.0x0.0
0x20f314…20f4a8 [0x02]: C0x00c0.0x0.0
0x20f314…20f4a8 [0x03]: C0x00d5.0x0.0
0x20f314…20f4a8 [0x04]: C0x00d8.0x0.0
0x20f314…20f4a8 ]
0x20f314…20f4a8 }
0x20f4a8…20f63c Dummy {f00=0x00b7, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x20f63c…20f7d0 Dummy {f00=0x00b7, 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*
0x20f7d0…20f964 Dummy {f00=0x00b7, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x20f964…20faf8 Dummy {f00=0x00b7, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x20faf8…20fc8c Dummy {f00=0x00b7, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x20fc8c…20fe20 Dummy {f00=0x00b7, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x20fe20…20ffb4 (3, 69) Dummy {f00=0x00b8, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x20ffb4…210148 Dummy {f00=0x00b8, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x210148…2102dc Dummy {f00=0x00b8, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x2102dc…210470 Dummy {f00=0x00b8, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x210470…210604 Dummy {f00=0x00b8, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x210604…210798 Dummy {f00=0x00b8, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x210798…21092c Dummy {f00=0x00b8, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x21092c…210ac0 Dummy {f00=0x00b8, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x210ac0…210c54 (3, 70) Dummy {f00=0x00c0, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x210c54…210de8 Dummy {f00=0x00c0, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x210de8…210f7c Dummy {f00=0x00c0, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x210f7c…211110 Dummy {f00=0x00c0, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x211110…2112a4 Dummy {f00=0x00c0, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x2112a4…211438 Dummy {f00=0x00c0, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x211438…2115cc Dummy {f00=0x00c0, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x2115cc…211760 Dummy {f00=0x00c0, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x211760…2118f4 (3, 71) Dummy {f00=0x00d5, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x2118f4…211a88 Dummy {f00=0x00d5, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x211a88…211c1c Dummy {f00=0x00d5, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x211c1c…211db0 Dummy {f00=0x00d5, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x211db0…211f44 Dummy {f00=0x00d5, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x211f44…2120d8 Dummy {f00=0x00d5, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x2120d8…21226c Dummy {f00=0x00d5, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x21226c…212400 Dummy {f00=0x00d5, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x212400…212594 (3, 72) Dummy {f00=0x00d8, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x212594…212728 Dummy {f00=0x00d8, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x212728…2128bc Dummy {f00=0x00d8, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x2128bc…212a50 Dummy {f00=0x00d8, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x212a50…212be4 Dummy {f00=0x00d8, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x212be4…212d78 Dummy {f00=0x00d8, 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
0x212d78…212f0c Dummy {f00=0x00d8, f01=0x2008, f02=»
0x212f0c…2130a0 Dummy {f00=0x00d8, f01=0x0000, f02=»
0x2130a0…213234 (3, 73) Opaque[0x194]
0x213234…2133c8 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1390, f03=0x0000}
0x213234…2133c8 IdxSect {
0x213234…2133c8 f00 = 0x009c // 0x213234 @0x0
0x213234…2133c8 f01 = 0x0006 // 0x213236 @0x2
0x213234…2133c8 gno = [ // 0x213238 @0x4
0x213234…2133c8 [0x00]: C0x009c.0x2.0
0x213234…2133c8 [0x01]: C0x009d.0x0.0
0x213234…2133c8 [0x02]: C0x009d.0x1.0
0x213234…2133c8 ]
0x213234…2133c8 }
0x2133c8…21355c Dummy {f00=0x009c, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x21355c…2136f0 Dummy {f00=0x009c, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x2136f0…213884 Dummy {f00=0x009c, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x213884…213a18 Dummy {f00=0x009c, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x213a18…213bac Dummy {f00=0x009c, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P EJECT TPROC P* P* P******** P* WAIT *
0x213bac…213d40 Dummy {f00=0x009c, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x213d40…213ed4 (3, 74) Dummy {f00=0x009d, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x213ed4…214068 Dummy {f00=0x009d, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x214068…2141fc Dummy {f00=0x009d, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x2141fc…214390 Dummy {f00=0x009d, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x214390…214524 Dummy {f00=0x009d, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x214524…2146b8 Dummy {f00=0x009d, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x2146b8…21484c Dummy {f00=0x009d, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x21484c…2149e0 Dummy {f00=0x009d, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x2149e0…214b74 (3, 75) Dummy {f00=0x009d, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x214b74…214d08 Dummy {f00=0x009d, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x214d08…214e9c Dummy {f00=0x009d, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x214e9c…215030 Dummy {f00=0x009d, 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
0x215030…2151c4 Dummy {f00=0x009d, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x2151c4…215358 Dummy {f00=0x009d, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x215358…2154ec Dummy {f00=0x009d, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x2154ec…215680 Dummy {f00=0x009d, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x215680…215814 (3, 76) Opaque[0x194]
0x215814…2159a8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1358, f03=0x0000}
0x215814…2159a8 IdxSect {
0x215814…2159a8 f00 = 0x009a // 0x215814 @0x0
0x215814…2159a8 f01 = 0x000e // 0x215816 @0x2
0x215814…2159a8 gno = [ // 0x215818 @0x4
0x215814…2159a8 [0x00]: C0x009a.0x3.0
0x215814…2159a8 [0x01]: C0x009b.0x1.0
0x215814…2159a8 [0x02]: C0x009b.0x2.0
0x215814…2159a8 [0x03]: C0x009b.0x3.0
0x215814…2159a8 [0x04]: C0x00bc.0x1.0
0x215814…2159a8 [0x05]: C0x00bc.0x3.0
0x215814…2159a8 [0x06]: C0x00bd.0x0.0
0x215814…2159a8 ]
0x215814…2159a8 }
0x2159a8…215b3c Dummy {f00=0x009a, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x215b3c…215cd0 Dummy {f00=0x009a, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x215cd0…215e64 Dummy {f00=0x009a, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x215e64…215ff8 Dummy {f00=0x009a, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x215ff8…21618c Dummy {f00=0x009a, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x21618c…216320 Dummy {f00=0x009a, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x216320…2164b4 (3, 77) Dummy {f00=0x009b, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x2164b4…216648 Dummy {f00=0x009b, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x216648…2167dc Dummy {f00=0x009b, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x2167dc…216970 Dummy {f00=0x009b, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 1 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x216970…216b04 Dummy {f00=0x009b, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x216b04…216c98 Dummy {f00=0x009b, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x216c98…216e2c Dummy {f00=0x009b, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x216e2c…216fc0 Dummy {f00=0x009b, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x216fc0…217154 (3, 78) Dummy {f00=0x009b, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x217154…2172e8 Dummy {f00=0x009b, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x2172e8…21747c Dummy {f00=0x009b, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x21747c…217610 Dummy {f00=0x009b, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x217610…2177a4 Dummy {f00=0x009b, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x2177a4…217938 Dummy {f00=0x009b, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x217938…217acc Dummy {f00=0x009b, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x217acc…217c60 Dummy {f00=0x009b, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x217c60…217df4 (3, 79) Dummy {f00=0x009b, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x217df4…217f88 Dummy {f00=0x009b, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x217f88…21811c Dummy {f00=0x009b, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x21811c…2182b0 Dummy {f00=0x009b, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x2182b0…218444 Dummy {f00=0x009b, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x218444…2185d8 Dummy {f00=0x009b, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x2185d8…21876c Dummy {f00=0x009b, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x21876c…218900 Dummy {f00=0x009b, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x218900…218a94 (3, 80) Dummy {f00=0x00bc, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x218a94…218c28 Dummy {f00=0x00bc, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x218c28…218dbc Dummy {f00=0x00bc, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x218dbc…218f50 Dummy {f00=0x00bc, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x218f50…2190e4 Dummy {f00=0x00bc, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x2190e4…219278 Dummy {f00=0x00bc, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x219278…21940c Dummy {f00=0x00bc, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x21940c…2195a0 Dummy {f00=0x00bc, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x2195a0…219734 (3, 81) Dummy {f00=0x00bc, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x219734…2198c8 Dummy {f00=0x00bc, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x2198c8…219a5c Dummy {f00=0x00bc, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x219a5c…219bf0 Dummy {f00=0x00bc, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x219bf0…219d84 Dummy {f00=0x00bc, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x219d84…219f18 Dummy {f00=0x00bc, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x219f18…21a0ac Dummy {f00=0x00bc, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x21a0ac…21a240 Dummy {f00=0x00bc, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x21a240…21a3d4 (3, 82) Dummy {f00=0x00bd, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x21a3d4…21a568 Dummy {f00=0x00bd, 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. "
0x21a568…21a6fc Dummy {f00=0x00bd, f01=0x0000, f02=»
[…0x5…]
0x21aee0…21b074 (3, 83) Opaque[0x194]
0x21b074…21b208 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1380, f03=0x0000}
0x21b074…21b208 IdxSect {
0x21b074…21b208 f00 = 0x009c // 0x21b074 @0x0
0x21b074…21b208 f01 = 0x0004 // 0x21b076 @0x2
0x21b074…21b208 gno = [ // 0x21b078 @0x4
0x21b074…21b208 [0x00]: C0x009c.0x0.0
0x21b074…21b208 [0x01]: C0x009c.0x1.0
0x21b074…21b208 ]
0x21b074…21b208 }
0x21b208…21b39c Dummy {f00=0x009c, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x21b39c…21b530 Dummy {f00=0x009c, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x21b530…21b6c4 Dummy {f00=0x009c, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x21b6c4…21b858 Dummy {f00=0x009c, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x21b858…21b9ec Dummy {f00=0x009c, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x21b9ec…21bb80 Dummy {f00=0x009c, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x21bb80…21bd14 (3, 84) Dummy {f00=0x009c, f01=0x4014, f02=» P END @
0x21bd14…21bea8 Dummy {f00=0x009c, 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,
0x21bea8…21c03c Dummy {f00=0x009c, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x21c03c…21c1d0 Dummy {f00=0x009c, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x21c1d0…21c364 Dummy {f00=0x009c, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x21c364…21c4f8 Dummy {f00=0x009c, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x21c4f8…21c68c Dummy {f00=0x009c, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x21c68c…21c820 Dummy {f00=0x009c, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x21c820…21c9b4 (3, 85) Opaque[0x194]
0x21c9b4…21cb48 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1578, f03=0x0000}
0x21c9b4…21cb48 IdxSect {
0x21c9b4…21cb48 f00 = 0x00ab // 0x21c9b4 @0x0
0x21c9b4…21cb48 f01 = 0x0022 // 0x21c9b6 @0x2
0x21c9b4…21cb48 gno = [ // 0x21c9b8 @0x4
0x21c9b4…21cb48 [0x00]: C0x00ab.0x3.0
0x21c9b4…21cb48 [0x01]: C0x00ac.0x1.0
0x21c9b4…21cb48 [0x02]: C0x00ac.0x2.0
0x21c9b4…21cb48 [0x03]: C0x00ac.0x3.0
0x21c9b4…21cb48 [0x04]: C0x00cd.0x2.0
0x21c9b4…21cb48 [0x05]: C0x00cd.0x3.0
0x21c9b4…21cb48 [0x06]: C0x00ce.0x0.0
0x21c9b4…21cb48 [0x07]: C0x00ce.0x1.0
0x21c9b4…21cb48 [0x08]: C0x00ce.0x2.0
0x21c9b4…21cb48 [0x09]: C0x00ce.0x3.0
0x21c9b4…21cb48 [0x0a]: C0x00cf.0x0.0
0x21c9b4…21cb48 [0x0b]: C0x00cf.0x1.0
0x21c9b4…21cb48 [0x0c]: C0x00cf.0x2.0
0x21c9b4…21cb48 [0x0d]: C0x00cf.0x3.0
0x21c9b4…21cb48 [0x0e]: C0x00d3.0x2.0
0x21c9b4…21cb48 [0x0f]: C0x00d3.0x3.0
0x21c9b4…21cb48 [0x10]: C0x00d4.0x2.0
0x21c9b4…21cb48 ]
0x21c9b4…21cb48 }
0x21cb48…21ccdc Dummy {f00=0x00ab, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x21ccdc…21ce70 Dummy {f00=0x00ab, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x21ce70…21d004 Dummy {f00=0x00ab, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x21d004…21d198 Dummy {f00=0x00ab, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x21d198…21d32c Dummy {f00=0x00ab, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x21d32c…21d4c0 Dummy {f00=0x00ab, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x21d4c0…21d654 (3, 86) Dummy {f00=0x00ac, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x21d654…21d7e8 Dummy {f00=0x00ac, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x21d7e8…21d97c Dummy {f00=0x00ac, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x21d97c…21db10 Dummy {f00=0x00ac, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x21db10…21dca4 Dummy {f00=0x00ac, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x21dca4…21de38 Dummy {f00=0x00ac, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x21de38…21dfcc Dummy {f00=0x00ac, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 0 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P*
0x21dfcc…21e160 Dummy {f00=0x00ac, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU X:B P* P EJECT TOSSIO P* P* P*******************
0x21e160…21e2f4 (3, 87) Dummy {f00=0x00ac, f01=0x0190, f02=»* P* P********************* P* DWT DISPLACEMENTS * 2 P********************* P P* n 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART x P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU
0x21e2f4…21e488 Dummy {f00=0x00ac, f01=0x0190, f02=»CH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK ( PDWTTAB EQU /0A TTAB ADDRESS T * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR x PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB
0x21e488…21e61c Dummy {f00=0x00ac, f01=0x0190, f02=»G=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF D P* P P EJECT TOSSIO Z P* r , P* DWT DISPLACEMENTS: DRIVER DEFINED PART | P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x21e61c…21e7b0 Dummy {f00=0x00ac, f01=0x0190, f02=»TSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT 0 & PDWTTP EQU DWTDRD+/10 TIMER POINTER b 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWT
0x21e7b0…21e944 Dummy {f00=0x00ac, f01=0x0190, f02=»CT TOSSIO P* P* P********************* ( P* DAB DISPLACEMENTS * F P********************* d P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LEN
0x21e944…21ead8 Dummy {f00=0x00ac, f01=0x0190, f02=»ERRUPT ADDRESS 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) L " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE I
0x21ead8…21ec6c Dummy {f00=0x00ac, f01=0x018e, f02=» ROUTINE R F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* Z $ PDC:DIX EQU -2 DATA COMMUNICATION d PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU
0x21ec6c…21ee00 Dummy {f00=0x00ac, f01=0x0190, f02=» P* P********************* P* ECB DISPLACEMENTS * , P********************* J P* h ( P* EVENT CONTROL BLOCK DISPLACEMENTS r P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENG
0x21ee00…21ef94 (3, 88) Dummy {f00=0x00ac, f01=0x0190, f02=»OL WORD 1 | " PECBCW2 EQU /0C CONTROL WORD 2 P* 8 P EJECT TOSSIO B P* Z P* d P IFT MMUPAG=1 n P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED
0x21ef94…21f128 Dummy {f00=0x00ac, f01=0x0190, f02=»TIOPCI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT ( $ P DATA TIOKBI KEYBOARD/CTW, INPUT H 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT p P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNE
0x21f128…21f2bc Dummy {f00=0x00ac, f01=0x0190, f02=» d P DATA TIODKO DISC, OUTPUT P* * P EJECT TOSSIO 4 P* L P* V P********** ` P* TENTAB * r P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/R
0x21f2bc…21f450 Dummy {f00=0x00ac, f01=0x0190, f02=» MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT < P DATA TENDKI DISC, INPUT p , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0
0x21f450…21f5e4 Dummy {f00=0x00ac, f01=0x0190, f02=» P* P********** P* MONMMU * $ P********** 6 P* H P* MONITOR (SYSTEM) MMU TABLE R P* v PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,
0x21f5e4…21f778 Dummy {f00=0x00ac, f01=0x0190, f02=»1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* J P* T I M O U T T P* j P* INPUT: A1 = DWT ADDRESS t . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTA
0x21f778…21f90c Dummy {f00=0x00ac, f01=0x0190, f02=»TIMER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK > P LDR* A1,A4 T " P STR A1,A2 REMOVE FROM ATT:CH h P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR
0x21f90c…21faa0 Dummy {f00=0x00ac, f01=0x018e, f02=» TIM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND 0 P* P P EJECT TOSSIO Z P* r & P* TTAB FOUND - REMOVE FROM QUEUE | P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P A
0x21faa0…21fc34 (3, 89) Dummy {f00=0x00cd, f01=0x0190, f02=» r P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ( P XIF V P* b P IFT ATTDET=1 l P IFT MMUPAG=1 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD
0x21fc34…21fdc8 Dummy {f00=0x00cd, f01=0x0190, f02=» TOSSIO P* P* F N D B L K P* 2 ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH < P* h P* INPUT: A5 = TTAB ADDRESS r P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x21fdc8…21ff5c Dummy {f00=0x00cd, f01=0x018e, f02=»0 END OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND , P* L PFND:20 EQU * V P IFT CPU852=1 j P ABL IHRTN RETURN P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P*
0x21ff5c…2200f0 Dummy {f00=0x00cd, f01=0x0190, f02=» P* ATTACH * ! P********** ! P* ! ( P* ! 2 * P* THIS MODULE IS CALLED FROM TIO WITH ! < P* THE FOLLOWING PARAMETERS: ! j P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P
0x2200f0…220284 Dummy {f00=0x00cd, f01=0x0190, f02=»RIVER ADDRESS BLOCK ! | P* A13 DWT STATUS " P* " 6 PATTACH EQU * ENTRY " @ P ADK A4,0 SET CR " Z * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " r P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=
0x220284…220418 Dummy {f00=0x00cd, f01=0x018e, f02=» P IFT ATTDET=1 # P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # . P LDR A13,A13 # P RF(NN) ATT:50 DEVICE BUSY # p P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDR
0x220418…2205ac Dummy {f00=0x00cd, f01=0x0190, f02=» # ~ P* $ & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ < P CM* 2,A4 FREE TIMER $ F " P LDR* A3,A4 REMOVE FROM ATT:CH $ b P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(
0x2205ac…220740 Dummy {f00=0x00cd, f01=0x0190, f02=»TIVE $ v P* % P* SET TIMER % P* % . P IFT MMUPAG=0 % 8 P LD A1,ECBCW,A8 TIME % N P XIF % j P* % v P EJECT TOSSIO % P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* %
0x220740…2208d4 (3, 90) Dummy {f00=0x00cd, f01=0x0190, f02=»1,A5 TTAB ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & 6 P ST A4,ATT:CH UPDATE ANCHOR & R $ P ADK A4,2 TIMER POINTER ADDRESS & v P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 &
0x2208d4…220a68 Dummy {f00=0x00cd, f01=0x018e, f02=»F TIOERR RETURN & P* ' P EJECT TOSSIO ' " P* ' : P* ' D P********** ' N P* DETACH * ' ` P********** ' r P* ' * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A
0x220a68…220bfc Dummy {f00=0x00cd, f01=0x0190, f02=» ' ~ * P RF(NE) TIOERR ATTACHED TO OTHER TASK ( P XRS A10,DWTST,A6 DETACH ( 6 P LDR A3,A5 SAVE TTAB ADDRESS ( V P LD A5,DWTTQ,A6 QUEUE ANCHOR ( z P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,
0x220bfc…220d90 Dummy {f00=0x00cd, f01=0x0190, f02=»H NORMAL EXIT ( p PDETRTN LDK A3,0 RETURN CODE ) P XIF ) : P* ) F P EJECT TOSSIO ) P P* ) h P* ) r P********** ) | P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) (
0x220d90…220f24 Dummy {f00=0x00cd, f01=0x0190, f02=» ) j ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * 4 P* * @ P IFT MMUPAG=1 * J * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * ` P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEU
0x220f24…2210b8 Dummy {f00=0x00cd, f01=0x018e, f02=»********** * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + & > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + b @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTAC
0x2210b8…22124c Dummy {f00=0x00cd, f01=0x0190, f02=» + t P* , PTIOQ00 LDR A6,A2 , P* , * P* QUEUE DEVICE FIRST , 4 P* , P $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , Z P LDR A2,A6 , P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* ,
0x22124c…2213e0 Dummy {f00=0x00cd, f01=0x0190, f02=»E MANAGEMENT , r P LD A1,TTB:ST+1,A5 LEVEL - P* - 4 P EJECT TOSSIO - > P* - V * P* SEARCH QUEUE FOR PLACE OF INSERTION - ` 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,
0x2213e0…221574 (3, 91) Dummy {f00=0x00ce, f01=0x0190, f02=» LDKL A3,-4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . 6 P ADK A4,0 SET CR . H P RF(Z) TIOQ50 NO ACTIVATION . ` P SUK A3,2 ACTIVATION . P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDI
0x221574…221708 Dummy {f00=0x00ce, f01=0x018e, f02=» P* / . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / @ 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / v 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OP
0x221708…22189c Dummy {f00=0x00ce, f01=0x0190, f02=» / & P* WITH THE FOLLOWING PARAMETERS:- 0 P* 0 2 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 < P* 0 n $ P* A4 = ZERO, NORMAL I/O REQUEST 0 x ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDE
0x22189c…221a30 Dummy {f00=0x00ce, f01=0x0190, f02=»EQUESTED ACTIVATION DRIVER 0 r * P* WITH THE FOLLOWING REGISTER VAULES:- 1 " P* 1 P P* A5 = STACK BASE 2 IN DWT 1 Z P* 1 ~ P* A6 = DWT ADDRESS 1 P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS
0x221a30…221bc4 Dummy {f00=0x00ce, f01=0x0190, f02=» 1 f P* 2 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 L " P* -DWTOR DWT INDEX AND ORDER 2 V P* -DWTECB ECB ADDRESS 2 | $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2
0x221bc4…221d58 Dummy {f00=0x00ce, f01=0x0190, f02=»T 0 IN THE FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 B P* 3 ` P EJECT TOSSIO 3 j P* 3 . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU
0x221d58…221eec Dummy {f00=0x00ce, f01=0x0190, f02=»B(Z) TIOERR FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 & P LD A13,DWTST,A6 DWT STATUS 4 ` P* 4 P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDE
0x221eec…222080 Dummy {f00=0x00ce, f01=0x0190, f02=»H DETACH ORDER 4 P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 * P CW A5,DWTTAB,A6 5 L * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 d P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTI
0x222080…222214 (3, 92) Dummy {f00=0x00ce, f01=0x0190, f02=»HEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 5 z P* 6 6 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 @ P LDK A2,/40 CHECK IF ECHO 6 n P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF
0x222214…2223a8 Dummy {f00=0x00ce, f01=0x0190, f02=» ECHO DEVICE 6 $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 < P IFT ATTDET=1 7 F P TM A10,A14 7 * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 p P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ
0x2223a8…22253c Dummy {f00=0x00ce, f01=0x0190, f02=»* 7 PTIO050 TM A3,A14 8 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 " P* 8 H PTIO060 LDKL A3,/A000 8 R : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 n P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY &
0x22253c…2226d0 Dummy {f00=0x00ce, f01=0x0190, f02=»F(NZ) TIO100 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 & , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 < , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 l ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9
0x2226d0…222864 Dummy {f00=0x00ce, f01=0x0190, f02=»OAD FIRST WORD OF USER ECB 9 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : " P ESR A3,A8 : V ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : h , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR
0x222864…2229f8 Dummy {f00=0x00ce, f01=0x0190, f02=»10,A1 SAVE PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; . ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; D P ADK A2,ECBRL ; p P LDK A3,8 ; . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P I
0x2229f8…222b8c Dummy {f00=0x00ce, f01=0x0190, f02=»M ECBRC,A8 RESET RETURN CODE ; P XIF < & P* < 2 P EJECT TOSSIO < < P* < T P* < ^ PTIO110 EQU * < h P ECR A3,A7 < | P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT <
0x222b8c…222d20 Dummy {f00=0x00ce, f01=0x018e, f02=»TTAB ADDRESS IN DWTTAB < z P* = PTIO130 EQU * = ( P IFT MMUPAG=0 = < & P ST A8,DWTECB,A6 SET ECB ADDRESS = R P XIF = | P* = P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMET
0x222d20…222eb4 (3, 93) Dummy {f00=0x00ce, f01=0x0190, f02=» P LDK A4,1 INDICATE WAIT > P RF TIO230 > $ P* > 6 < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > @ P* > 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P*
0x222eb4…223048 Dummy {f00=0x00ce, f01=0x0190, f02=»MP IF SYSTEM MODE > " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? @ " P RF(Z) TIO240 DATA MANAGEMENT ? p P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P*
0x223048…2231dc Dummy {f00=0x00ce, f01=0x0190, f02=» IS READ/WRITE ? r . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ H PTIO240 EQU * @ R P ENB @ f < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ r P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 L
0x2231dc…223370 Dummy {f00=0x00ce, f01=0x0190, f02=» @ P* A P* A P********** A P* SWITCH * A . P********** A @ P* A R P* SWITCH PRIORITY LEVEL: A P* A | ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A
0x223370…223504 Dummy {f00=0x00ce, f01=0x0190, f02=» A3,/30 CPU851: LEVEL 12 A P XIF B P* B , P IFF CPU852+CPU857=0 B 6 ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B R P XIF B ~ P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P
0x223504…223698 Dummy {f00=0x00ce, f01=0x0190, f02=»CTING B Z @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C R > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C
0x223698…22382c Dummy {f00=0x00ce, f01=0x0190, f02=»ING C ^ . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D > P* A4 IS DESTROYED D n P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D
0x22382c…2239c0 Dummy {f00=0x00ce, f01=0x0190, f02=»3,A4 ADD READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E " P* E N P EJECT TOSSIO E X P* E p P* E z P********** E P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =
0x2239c0…223b54 (3, 94) Dummy {f00=0x00ce, f01=0x018e, f02=» BYTES 0,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 8 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F Z P BYTES TINDEX+1,0 /08, /09 F P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0
0x223b54…223ce8 Dummy {f00=0x00ce, f01=0x0190, f02=» P BYTES 0,0 /1A, /1B G P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G < P BYTES 0,TINDEX+1 /20, /21 G X P BYTES TINDEX+1,0 /22, /23 G z P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /
0x223ce8…223e7c Dummy {f00=0x00ce, f01=0x0190, f02=»YTES 0,0 /34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H 6 P BYTES 0,0 /3A, /3B H R P BYTES 0,0 /3C, /3D H n P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLE
0x223e7c…224010 Dummy {f00=0x00ce, f01=0x018e, f02=»* COMPLETION OF THE REQUEST IS 'TEN:DM'. H P* I 0 " P* INPUT: A8 = DWT ECB ADDRESS I : $ P* A9 = USER ECB ADDRESS I ` P* I P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUF
0x224010…2241a4 Dummy {f00=0x00ce, f01=0x0190, f02=» I ~ P* J PA15RTN EQU * J P RTN A15 J & P* J 6 P EJECT TOSSIO J @ P* J X P* T I O P C I J b P* J x B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B
0x2241a4…224338 Dummy {f00=0x00ce, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K 8 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K h P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS
0x224338…2244cc Dummy {f00=0x00ce, f01=0x0190, f02=»A1,ECBRL,A8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L $ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L Z P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L
0x2244cc…224660 Dummy {f00=0x00ce, f01=0x0190, f02=»DRESS EVEN L n P ANS A1,ECBBA,A8 M P RTN A15 M * P* M : P EJECT TOSSIO M D P* M P* T I O M X I M f P* M | B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M
0x224660…2247f4 (3, 95) Dummy {f00=0x00cf, f01=0x0190, f02=»ING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N ( N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N X P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = US
0x2247f4…224988 Dummy {f00=0x00cf, f01=0x018e, f02=» P* O PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O . P ECR A2,A1 O Z & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O l P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 P
0x224988…224b1c Dummy {f00=0x00cf, f01=0x0190, f02=» O P SRC A2,4 P P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P , P RTN A15 P b P* P r P EJECT TOSSIO P | P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* IS
0x224b1c…224cb0 Dummy {f00=0x00cf, f01=0x018e, f02=»* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q 4 , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q l P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P
0x224cb0…224e44 Dummy {f00=0x00cf, f01=0x0190, f02=» PTIOKBI EQU * KEYBOARD/CTW R $ P LD A1,ECBRL,A8 REQUESTED LENGTH R & 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R N 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK
0x224e44…224fd8 Dummy {f00=0x00cf, f01=0x0190, f02=»E R x P* S P EJECT TOSSIO S P* S , P* S 6 P LDR A1,A9 S @ P ADK A1,8 S R P ADKL A8,12 S d * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S x P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 K
0x224fd8…22516c Dummy {f00=0x00cf, f01=0x0190, f02=»DK A3,1 S 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T D P CF A15,TIPO05 T d & P SUKL A8,8 ADJUST DWT ECB ADDRESS T z P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I
0x22516c…225300 Dummy {f00=0x00cf, f01=0x0190, f02=»I DISC, INPUT T P* U P EJECT TOSSIO U P* U 8 P* T I O P C O U B P* U X B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U b > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED
0x225300…225494 (3, 96) Dummy {f00=0x00cf, f01=0x0190, f02=»ER. U x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V D 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V t F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO
0x225494…225628 Dummy {f00=0x00cf, f01=0x018e, f02=»E DESTROYED V ~ P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W N $ P LD A3,ECBRL,A8 REQUESTED LENGTH W ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x225628…2257bc Dummy {f00=0x00cf, f01=0x018e, f02=» W ~ P* X P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X Z . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X l ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE
0x2257bc…225950 Dummy {f00=0x00cf, f01=0x0190, f02=» X ~ P* Y 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y L PTIPO20 RTN A15 Y V P* Y l 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y v 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER B
0x225950…225ae4 Dummy {f00=0x00cf, f01=0x0190, f02=»FER POINTER Y x ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z @ P EJECT TOSSIO Z J P* Z b P* I O : E R R Z l P* Z , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRAN
0x225ae4…225c78 Dummy {f00=0x00cf, f01=0x0190, f02=»ACKPOINTER Z z P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ 4 P RF(NN) IO:E10 NOT ECHO [ T P LDR A1,A6 SAVE DWT ADDRESS [ t & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ P
0x225c78…225e0c Dummy {f00=0x00cf, f01=0x0190, f02=» [ P* P* T I O M X O P* ( " PTIOMXO EQU TIOMXI MUX, OUTPUT 2 P* X P* T I O K B O b P* x * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUT
0x225e0c…225fa0 Dummy {f00=0x00cf, f01=0x0190, f02=»* T E N : D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] Z D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P*
0x225fa0…226134 (3, 97) Dummy {f00=0x00cf, f01=0x018e, f02=» LD A1,DWTMEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ ( P ES A1,ECBCW2,A8 ^ T P RTN A15 ^ l P* ^ | P EJECT TOSSIO ^ P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN
0x226134…2262c8 Dummy {f00=0x00cf, f01=0x018e, f02=» ^ T P* TO THE USER BUFFER. _ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ & 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ n P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P
0x2262c8…22645c Dummy {f00=0x00cf, f01=0x0190, f02=» $ P LD A4,ECBEL,A2 EFFECTIVE LENGTH ` " P RF(NP) TEPI30 NO MOVE IF ZERO ` , & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` R P* ` | . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES `
0x22645c…2265f0 Dummy {f00=0x00cf, f01=0x0190, f02=»UFFER ADDRESS EVEN ` | P* a P EJECT TOSSIO a $ P* a < P* a F 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a P 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANK
0x2265f0…226784 Dummy {f00=0x00cf, f01=0x0190, f02=»TERS a t P ADK A2,1 b P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b 0 P RTN A15 NO, RETURN b ^ P* b z PTEPI20 TM A3,A2 b * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE
0x226784…226918 Dummy {f00=0x00cf, f01=0x0190, f02=»T TO NEXT CHARACTER b 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c T 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR
0x226918…226aac Dummy {f00=0x00cf, f01=0x0190, f02=»SER BUFFER c n P* d PTEPI30 RTN A15 d P* d 2 , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d < ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d l , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO U
0x226aac…226c40 Dummy {f00=0x00cf, f01=0x0190, f02=»ROM DWT BUFFER d t P ELR A3,A2 e P RB TEPI15 e ( P* e : . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e D " P LDR A3,A1 DWT BUFFER ADDRESS e v $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE TH
0x226c40…226dd4 (3, 98) Dummy {f00=0x00cf, f01=0x0190, f02=»PI70 MORE CHARACTERS TO MOVE e . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f $ * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f V P RB TEPI25 f P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P*
0x226dd4…226f68 Dummy {f00=0x00cf, f01=0x0190, f02=»ENPCI INTERTASK COMMUNICATION, INPUT f P* g , P* T E N D K I g 6 P* g L " PTENDKI EQU TEN:DM DISC, INPUT g V P* g | P EJECT TOSSIO g P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P*
0x226f68…2270fc Dummy {f00=0x00cf, f01=0x0190, f02=»/CTW, OUTPUT g v P* h P* T E N D K O h P* h 4 " PTENDKO EQU TEN:DM DISC, OUTPUT h > P* h d P EJECT TOSSIO h n P* h P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FO
0x2270fc…227290 Dummy {f00=0x00cf, f01=0x0190, f02=» h J , P* 'TIOPCO' IS USED FOR MOVING THE DATA. i P* i 8 P* INPUT: A6 = DWT ADDRESS i B P* i d & P* OUTPUT: A1-A4, A8 ARE DESTROYED i n P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECB
0x227290…227424 Dummy {f00=0x00cf, f01=0x018e, f02=»S i n P* j PTEIO10 RTN A15 j P* j * P EJECT TOSSIO j 4 P* j L P* D C : M O T j V P* j l < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j v < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFE
0x227424…2275b8 Dummy {f00=0x00cf, f01=0x0190, f02=» ( P* OUTPUT: NO REGISTERS ARE DESTROYED k P* k 0 , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k : " P MSR 8,A15 SAVE A1-A8 ON STACK k j $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k
0x2275b8…22774c Dummy {f00=0x00cf, f01=0x0190, f02=» P* l $ PDC:RTN EQU * RETURN TO DC DRIVER l . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l 6 $ P ADKL A15,32 ADJUST STACKPOINTER l h * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l
0x22774c…2278e0 Dummy {f00=0x00cf, f01=0x0190, f02=»TENTS OF THE DRIVER BUFFER TO THE USER BUFFER. l t P* m 6 P* INPUT: A1 = RETURN CODE m @ ( P* A4 = DRIVER BUFFER ADDRESS m b P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT
0x2278e0…227a74 (3, 99) Dummy {f00=0x00d3, f01=0x0190, f02=» SAVE A1-A8 ON STACK m P* n P IFT MMUPAG=1 n & $ P SUKL A15,32 ADJUST STACKPOINTER n < * P TS 2,A15 SAVE MMU REGISTERS ON STACK n d " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n
0x227a74…227c08 Dummy {f00=0x00d3, f01=0x0190, f02=»A6 = DWT ADDRESS n P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o " P ENB o H P LD A3,DWTECB,A6 ECB ADDRESS o T * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o x $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHEC
0x227c08…227d9c Dummy {f00=0x00d3, f01=0x018e, f02=»FER ADDRESS o x P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p & . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p R P SUK A2,2 p , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P*
0x227d9c…227f30 Dummy {f00=0x00d3, f01=0x0190, f02=» p $ P SUK A2,2 DECREMENT LOOP COUNTER q 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q 0 P* q f PMIN:20 EQU * q p P ADK A2,1 q P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOV
0x227f30…2280c4 Dummy {f00=0x00d3, f01=0x0190, f02=» q p 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE r P XIF r B P* r N P IFT MMUPAG=1 r X * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r n $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRES
0x2280c4…228258 Dummy {f00=0x00d3, f01=0x018e, f02=» EJECT TOSSIO r P* s P* s " PMIN:40 EQU * s , P INH s @ " P CF A15,TENDIO PERFORM TENDIO s L P* s r P* RELEASE BUFFER s | P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLAD
0x228258…2283ec Dummy {f00=0x00d3, f01=0x0190, f02=» s p $ P LDR* A1,A2 NEXT BUFFER ADDRESS t , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t 0 P* t ` $ P* INSERT BUFFER AT END OF CHAIN t j P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P A
0x2283ec…228580 Dummy {f00=0x00d3, f01=0x0190, f02=»PU852=0 t * P MLR 8,A15 RESTORE A1-A8 FROM STACK... u P* u > PDC:MOT RTN A15 ...AND RETURN u H P XIF u l P* u x P IFT MMUPAG=1 u " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ER
0x228580…228714 (3, 100) Dummy {f00=0x00d3, f01=0x0190, f02=» u P* v P* v P IFT MMUPAG=0 v P IFT CPU852=1 v 2 PDC:MOT EQU * v H 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v
0x228714…2288a8 Dummy {f00=0x00d3, f01=0x0190, f02=»T:- v p P* w * P* ACTOTP IS CALLED TO START THE TASK w P* w D P* -IF NORMAL I/O WITH WAIT:- w N P* w r * P* QTJOB IS CALLED TO QUEUE THE TASK w | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w
0x2288a8…228a3c Dummy {f00=0x00d3, f01=0x018e, f02=»HIS DEVICE (DWTTQ NOT ZERO) w r J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x $ P* x r P EJECT TOSSIO x | P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x
0x228a3c…228bd0 Dummy {f00=0x00d3, f01=0x0190, f02=» x ` * P* DEPENDENT SUBROUTINES ARE PERFORMED. y P* y 6 P EJECT TOSSIO y @ P* y X P* END I/O ENTRY y b P* y z PTENDIO EQU * y P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH
0x228bd0…228d64 Dummy {f00=0x00d3, f01=0x0190, f02=»4,DWTST POINT TO DWT STATUS y P INH z $ ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z 0 P RF(Z) TEN110 NO TASK QUEUED z P LDKL A2,/800 ATTACH BIT z P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z
0x228d64…228ef8 Dummy {f00=0x00d3, f01=0x0190, f02=»UPDATE QUEUE ANCHOR ADDRESS z P ST A3,DWTTQ,A6 { $ . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { < P* { n P* UPDATE ECB AND DWT { x P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDI
0x228ef8…22908c Dummy {f00=0x00d3, f01=0x0190, f02=»F(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY { P* | < P EJECT TOSSIO | F P* | ^ P* | h * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | r , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW |
0x22908c…229220 Dummy {f00=0x00d3, f01=0x0190, f02=» | $ P SUKL A15,32 ADJUST STACKPOINTER } * P TS 2,A15 SAVE MMU REGISTERS ON STACK } 0 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } ^ P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRES
0x229220…2293b4 (3, 101) Dummy {f00=0x00d4, f01=0x0190, f02=» A2,A8 } P ADK A2,ECBEL ~ P LDK A4,6 ~ $ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ 6 P* ~ n 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ x " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P R
0x2293b4…229548 Dummy {f00=0x00d4, f01=0x0190, f02=»E ~ t P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER D P* v PTEN140 EQU * P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P*
0x229548…2296dc Dummy {f00=0x00d4, f01=0x0190, f02=»ERS FROM STACK t $ P ADKL A15,32 ADJUST STACKPOINTER P XIF > P* J P EJECT TOSSIO T P* l : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION v P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z)
0x2296dc…229870 Dummy {f00=0x00d4, f01=0x0190, f02=» RF(Z) TEN230 ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* D P IFT MMUPAG=1 N * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT d P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU *
0x229870…229a04 Dummy {f00=0x00d4, f01=0x0190, f02=» LDR* A3,A4 NEXT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S $ P CMR A4 SET TO NO WAIT AGAIN H P LDR A4,A3 l P RB TEN220 ~ P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DIS
0x229a04…229b98 Dummy {f00=0x00d4, f01=0x415e, f02=»E TASK FOR DISPATCHING x P* PTEN250 EQU * ( $ P CM DWTECB,A6 RESET ECB ADDRESS < P* d PTEN260 EQU * n P IFT CPU852=1 P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P R
0x229b98…229d2c Dummy {f00=0x00d4, f01=0x2008, f02=» NT TOSSIO END @ &
0x229d2c…229ec0 Dummy {f00=0x00d4, f01=0x0000, f02=»
0x229ec0…22a054 (3, 102) Opaque[0x194]
0x22a054…22a1e8 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13c8, f03=0x0000}
0x22a054…22a1e8 IdxSect {
0x22a054…22a1e8 f00 = 0x009e // 0x22a054 @0x0
0x22a054…22a1e8 f01 = 0x003e // 0x22a056 @0x2
0x22a054…22a1e8 gno = [ // 0x22a058 @0x4
0x22a054…22a1e8 [0x00]: C0x009e.0x1.0
0x22a054…22a1e8 [0x01]: C0x009e.0x2.0
0x22a054…22a1e8 [0x02]: C0x009e.0x3.0
0x22a054…22a1e8 [0x03]: C0x009f.0x0.0
0x22a054…22a1e8 [0x04]: C0x009f.0x1.0
0x22a054…22a1e8 [0x05]: C0x009f.0x2.0
0x22a054…22a1e8 [0x06]: C0x009f.0x3.0
0x22a054…22a1e8 [0x07]: C0x00a0.0x0.0
0x22a054…22a1e8 [0x08]: C0x00a0.0x1.0
0x22a054…22a1e8 [0x09]: C0x00a0.0x2.0
0x22a054…22a1e8 [0x0a]: C0x00a0.0x3.0
0x22a054…22a1e8 [0x0b]: C0x00a1.0x0.0
0x22a054…22a1e8 [0x0c]: C0x00a1.0x1.0
0x22a054…22a1e8 [0x0d]: C0x00a1.0x2.0
0x22a054…22a1e8 [0x0e]: C0x00a1.0x3.0
0x22a054…22a1e8 [0x0f]: C0x00a2.0x0.0
0x22a054…22a1e8 [0x10]: C0x00a2.0x1.0
0x22a054…22a1e8 [0x11]: C0x00c0.0x1.0
0x22a054…22a1e8 [0x12]: C0x00c0.0x2.0
0x22a054…22a1e8 [0x13]: C0x00c1.0x1.0
0x22a054…22a1e8 [0x14]: C0x00c1.0x2.0
0x22a054…22a1e8 [0x15]: C0x00c1.0x3.0
0x22a054…22a1e8 [0x16]: C0x00c2.0x0.0
0x22a054…22a1e8 [0x17]: C0x00c2.0x1.0
0x22a054…22a1e8 [0x18]: C0x00c2.0x2.0
0x22a054…22a1e8 [0x19]: C0x00c2.0x3.0
0x22a054…22a1e8 [0x1a]: C0x00c3.0x0.0
0x22a054…22a1e8 [0x1b]: C0x00c3.0x1.0
0x22a054…22a1e8 [0x1c]: C0x00c3.0x2.0
0x22a054…22a1e8 [0x1d]: C0x00c3.0x3.0
0x22a054…22a1e8 [0x1e]: C0x00c4.0x0.0
0x22a054…22a1e8 ]
0x22a054…22a1e8 }
0x22a1e8…22a37c Dummy {f00=0x009e, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x22a37c…22a510 Dummy {f00=0x009e, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x22a510…22a6a4 Dummy {f00=0x009e, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x22a6a4…22a838 Dummy {f00=0x009e, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x22a838…22a9cc Dummy {f00=0x009e, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x22a9cc…22ab60 Dummy {f00=0x009e, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x22ab60…22acf4 (3, 103) Dummy {f00=0x009e, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x22acf4…22ae88 Dummy {f00=0x009e, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 0 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 1 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x22ae88…22b01c Dummy {f00=0x009e, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x22b01c…22b1b0 Dummy {f00=0x009e, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x22b1b0…22b344 Dummy {f00=0x009e, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x22b344…22b4d8 Dummy {f00=0x009e, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x22b4d8…22b66c Dummy {f00=0x009e, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x22b66c…22b800 Dummy {f00=0x009e, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x22b800…22b994 (3, 104) Dummy {f00=0x009e, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x22b994…22bb28 Dummy {f00=0x009e, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x22bb28…22bcbc Dummy {f00=0x009e, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x22bcbc…22be50 Dummy {f00=0x009e, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x22be50…22bfe4 Dummy {f00=0x009e, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x22bfe4…22c178 Dummy {f00=0x009e, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x22c178…22c30c Dummy {f00=0x009e, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x22c30c…22c4a0 Dummy {f00=0x009e, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x22c4a0…22c634 (3, 105) Dummy {f00=0x009f, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x22c634…22c7c8 Dummy {f00=0x009f, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x22c7c8…22c95c Dummy {f00=0x009f, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x22c95c…22caf0 Dummy {f00=0x009f, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x22caf0…22cc84 Dummy {f00=0x009f, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x22cc84…22ce18 Dummy {f00=0x009f, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x22ce18…22cfac Dummy {f00=0x009f, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x22cfac…22d140 Dummy {f00=0x009f, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x22d140…22d2d4 (3, 106) Dummy {f00=0x009f, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x22d2d4…22d468 Dummy {f00=0x009f, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x22d468…22d5fc Dummy {f00=0x009f, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x22d5fc…22d790 Dummy {f00=0x009f, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x22d790…22d924 Dummy {f00=0x009f, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x22d924…22dab8 Dummy {f00=0x009f, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x22dab8…22dc4c Dummy {f00=0x009f, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x22dc4c…22dde0 Dummy {f00=0x009f, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x22dde0…22df74 (3, 107) Dummy {f00=0x009f, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x22df74…22e108 Dummy {f00=0x009f, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x22e108…22e29c Dummy {f00=0x009f, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x22e29c…22e430 Dummy {f00=0x009f, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x22e430…22e5c4 Dummy {f00=0x009f, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x22e5c4…22e758 Dummy {f00=0x009f, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x22e758…22e8ec Dummy {f00=0x009f, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x22e8ec…22ea80 Dummy {f00=0x009f, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x22ea80…22ec14 (3, 108) Dummy {f00=0x009f, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x22ec14…22eda8 Dummy {f00=0x009f, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x22eda8…22ef3c Dummy {f00=0x009f, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x22ef3c…22f0d0 Dummy {f00=0x009f, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x22f0d0…22f264 Dummy {f00=0x009f, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x22f264…22f3f8 Dummy {f00=0x009f, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x22f3f8…22f58c Dummy {f00=0x009f, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x22f58c…22f720 Dummy {f00=0x009f, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x22f720…22f8b4 (3, 109) Dummy {f00=0x00a0, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x22f8b4…22fa48 Dummy {f00=0x00a0, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x22fa48…22fbdc Dummy {f00=0x00a0, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x22fbdc…22fd70 Dummy {f00=0x00a0, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x22fd70…22ff04 Dummy {f00=0x00a0, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x22ff04…230098 Dummy {f00=0x00a0, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x230098…23022c Dummy {f00=0x00a0, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x23022c…2303c0 Dummy {f00=0x00a0, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x2303c0…230554 (3, 110) Dummy {f00=0x00a0, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x230554…2306e8 Dummy {f00=0x00a0, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x2306e8…23087c Dummy {f00=0x00a0, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x23087c…230a10 Dummy {f00=0x00a0, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x230a10…230ba4 Dummy {f00=0x00a0, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x230ba4…230d38 Dummy {f00=0x00a0, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x230d38…230ecc Dummy {f00=0x00a0, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x230ecc…231060 Dummy {f00=0x00a0, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x231060…2311f4 (3, 111) Dummy {f00=0x00a0, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x2311f4…231388 Dummy {f00=0x00a0, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x231388…23151c Dummy {f00=0x00a0, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x23151c…2316b0 Dummy {f00=0x00a0, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x2316b0…231844 Dummy {f00=0x00a0, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x231844…2319d8 Dummy {f00=0x00a0, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x2319d8…231b6c Dummy {f00=0x00a0, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x231b6c…231d00 Dummy {f00=0x00a0, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x231d00…231e94 (3, 112) Dummy {f00=0x00a0, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x231e94…232028 Dummy {f00=0x00a0, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x232028…2321bc Dummy {f00=0x00a0, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x2321bc…232350 Dummy {f00=0x00a0, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x232350…2324e4 Dummy {f00=0x00a0, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x2324e4…232678 Dummy {f00=0x00a0, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x232678…23280c Dummy {f00=0x00a0, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x23280c…2329a0 Dummy {f00=0x00a0, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x2329a0…232b34 (3, 113) Dummy {f00=0x00a1, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x232b34…232cc8 Dummy {f00=0x00a1, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x232cc8…232e5c Dummy {f00=0x00a1, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x232e5c…232ff0 Dummy {f00=0x00a1, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x232ff0…233184 Dummy {f00=0x00a1, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x233184…233318 Dummy {f00=0x00a1, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x233318…2334ac Dummy {f00=0x00a1, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x2334ac…233640 Dummy {f00=0x00a1, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x233640…2337d4 (3, 114) Dummy {f00=0x00a1, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x2337d4…233968 Dummy {f00=0x00a1, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x233968…233afc Dummy {f00=0x00a1, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x233afc…233c90 Dummy {f00=0x00a1, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x233c90…233e24 Dummy {f00=0x00a1, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x233e24…233fb8 Dummy {f00=0x00a1, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x233fb8…23414c Dummy {f00=0x00a1, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x23414c…2342e0 Dummy {f00=0x00a1, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x2342e0…234474 (3, 115) Dummy {f00=0x00a1, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x234474…234608 Dummy {f00=0x00a1, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x234608…23479c Dummy {f00=0x00a1, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x23479c…234930 Dummy {f00=0x00a1, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x234930…234ac4 Dummy {f00=0x00a1, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x234ac4…234c58 Dummy {f00=0x00a1, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x234c58…234dec Dummy {f00=0x00a1, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x234dec…234f80 Dummy {f00=0x00a1, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x234f80…235114 (3, 116) Dummy {f00=0x00a1, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x235114…2352a8 Dummy {f00=0x00a1, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x2352a8…23543c Dummy {f00=0x00a1, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x23543c…2355d0 Dummy {f00=0x00a1, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x2355d0…235764 Dummy {f00=0x00a1, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x235764…2358f8 Dummy {f00=0x00a1, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x2358f8…235a8c Dummy {f00=0x00a1, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x235a8c…235c20 Dummy {f00=0x00a1, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x235c20…235db4 (3, 117) Dummy {f00=0x00a2, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x235db4…235f48 Dummy {f00=0x00a2, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x235f48…2360dc Dummy {f00=0x00a2, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x2360dc…236270 Dummy {f00=0x00a2, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x236270…236404 Dummy {f00=0x00a2, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x236404…236598 Dummy {f00=0x00a2, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x236598…23672c Dummy {f00=0x00a2, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x23672c…2368c0 Dummy {f00=0x00a2, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x2368c0…236a54 (3, 118) Dummy {f00=0x00a2, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x236a54…236be8 Dummy {f00=0x00a2, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x236be8…236d7c Dummy {f00=0x00a2, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x236d7c…236f10 Dummy {f00=0x00a2, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x236f10…2370a4 Dummy {f00=0x00a2, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x2370a4…237238 Dummy {f00=0x00a2, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x237238…2373cc Dummy {f00=0x00a2, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x2373cc…237560 Dummy {f00=0x00a2, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x237560…2376f4 (3, 119) Dummy {f00=0x00c0, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x2376f4…237888 Dummy {f00=0x00c0, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x237888…237a1c Dummy {f00=0x00c0, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x237a1c…237bb0 Dummy {f00=0x00c0, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x237bb0…237d44 Dummy {f00=0x00c0, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x237d44…237ed8 Dummy {f00=0x00c0, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x237ed8…23806c Dummy {f00=0x00c0, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x23806c…238200 Dummy {f00=0x00c0, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x238200…238394 (3, 120) Dummy {f00=0x00c0, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x238394…238528 Dummy {f00=0x00c0, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x238528…2386bc Dummy {f00=0x00c0, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x2386bc…238850 Dummy {f00=0x00c0, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x238850…2389e4 Dummy {f00=0x00c0, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x2389e4…238b78 Dummy {f00=0x00c0, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x238b78…238d0c Dummy {f00=0x00c0, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x238d0c…238ea0 Dummy {f00=0x00c0, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x238ea0…239034 (3, 121) Dummy {f00=0x00c1, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x239034…2391c8 Dummy {f00=0x00c1, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x2391c8…23935c Dummy {f00=0x00c1, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x23935c…2394f0 Dummy {f00=0x00c1, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x2394f0…239684 Dummy {f00=0x00c1, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x239684…239818 Dummy {f00=0x00c1, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x239818…2399ac Dummy {f00=0x00c1, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x2399ac…239b40 Dummy {f00=0x00c1, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x239b40…239cd4 (3, 122) Dummy {f00=0x00c1, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x239cd4…239e68 Dummy {f00=0x00c1, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x239e68…239ffc Dummy {f00=0x00c1, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x239ffc…23a190 Dummy {f00=0x00c1, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x23a190…23a324 Dummy {f00=0x00c1, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x23a324…23a4b8 Dummy {f00=0x00c1, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x23a4b8…23a64c Dummy {f00=0x00c1, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x23a64c…23a7e0 Dummy {f00=0x00c1, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x23a7e0…23a974 (3, 123) Dummy {f00=0x00c1, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x23a974…23ab08 Dummy {f00=0x00c1, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x23ab08…23ac9c Dummy {f00=0x00c1, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x23ac9c…23ae30 Dummy {f00=0x00c1, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x23ae30…23afc4 Dummy {f00=0x00c1, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x23afc4…23b158 Dummy {f00=0x00c1, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x23b158…23b2ec Dummy {f00=0x00c1, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x23b2ec…23b480 Dummy {f00=0x00c1, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x23b480…23b614 (3, 124) Dummy {f00=0x00c2, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x23b614…23b7a8 Dummy {f00=0x00c2, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x23b7a8…23b93c Dummy {f00=0x00c2, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x23b93c…23bad0 Dummy {f00=0x00c2, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x23bad0…23bc64 Dummy {f00=0x00c2, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x23bc64…23bdf8 Dummy {f00=0x00c2, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x23bdf8…23bf8c Dummy {f00=0x00c2, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x23bf8c…23c120 Dummy {f00=0x00c2, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x23c120…23c2b4 (3, 125) Dummy {f00=0x00c2, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x23c2b4…23c448 Dummy {f00=0x00c2, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x23c448…23c5dc Dummy {f00=0x00c2, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x23c5dc…23c770 Dummy {f00=0x00c2, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x23c770…23c904 Dummy {f00=0x00c2, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x23c904…23ca98 Dummy {f00=0x00c2, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x23ca98…23cc2c Dummy {f00=0x00c2, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x23cc2c…23cdc0 Dummy {f00=0x00c2, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x23cdc0…23cf54 (3, 126) Dummy {f00=0x00c2, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x23cf54…23d0e8 Dummy {f00=0x00c2, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x23d0e8…23d27c Dummy {f00=0x00c2, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x23d27c…23d410 Dummy {f00=0x00c2, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x23d410…23d5a4 Dummy {f00=0x00c2, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x23d5a4…23d738 Dummy {f00=0x00c2, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x23d738…23d8cc Dummy {f00=0x00c2, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x23d8cc…23da60 Dummy {f00=0x00c2, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x23da60…23dbf4 (3, 127) Dummy {f00=0x00c2, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x23dbf4…23dd88 Dummy {f00=0x00c2, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x23dd88…23df1c Dummy {f00=0x00c2, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x23df1c…23e0b0 Dummy {f00=0x00c2, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x23e0b0…23e244 Dummy {f00=0x00c2, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x23e244…23e3d8 Dummy {f00=0x00c2, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x23e3d8…23e56c Dummy {f00=0x00c2, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x23e56c…23e700 Dummy {f00=0x00c2, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x23e700…23e894 (3, 128) Dummy {f00=0x00c3, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x23e894…23ea28 Dummy {f00=0x00c3, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x23ea28…23ebbc Dummy {f00=0x00c3, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x23ebbc…23ed50 Dummy {f00=0x00c3, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x23ed50…23eee4 Dummy {f00=0x00c3, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x23eee4…23f078 Dummy {f00=0x00c3, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x23f078…23f20c Dummy {f00=0x00c3, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x23f20c…23f3a0 Dummy {f00=0x00c3, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x23f3a0…23f534 (3, 129) Dummy {f00=0x00c3, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x23f534…23f6c8 Dummy {f00=0x00c3, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x23f6c8…23f85c Dummy {f00=0x00c3, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x23f85c…23f9f0 Dummy {f00=0x00c3, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x23f9f0…23fb84 Dummy {f00=0x00c3, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x23fb84…23fd18 Dummy {f00=0x00c3, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x23fd18…23feac Dummy {f00=0x00c3, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x23feac…240040 Dummy {f00=0x00c3, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x240040…2401d4 (3, 130) Dummy {f00=0x00c3, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x2401d4…240368 Dummy {f00=0x00c3, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x240368…2404fc Dummy {f00=0x00c3, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x2404fc…240690 Dummy {f00=0x00c3, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x240690…240824 Dummy {f00=0x00c3, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x240824…2409b8 Dummy {f00=0x00c3, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x2409b8…240b4c Dummy {f00=0x00c3, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x240b4c…240ce0 Dummy {f00=0x00c3, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x240ce0…240e74 (3, 131) Dummy {f00=0x00c3, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x240e74…241008 Dummy {f00=0x00c3, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x241008…24119c Dummy {f00=0x00c3, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x24119c…241330 Dummy {f00=0x00c3, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x241330…2414c4 Dummy {f00=0x00c3, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x2414c4…241658 Dummy {f00=0x00c3, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x241658…2417ec Dummy {f00=0x00c3, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x2417ec…241980 Dummy {f00=0x00c3, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x241980…241b14 (3, 132) Dummy {f00=0x00c4, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x241b14…241ca8 Dummy {f00=0x00c4, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x241ca8…241e3c Dummy {f00=0x00c4, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x241e3c…241fd0 Dummy {f00=0x00c4, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x241fd0…242164 Dummy {f00=0x00c4, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x242164…2422f8 Dummy {f00=0x00c4, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x2422f8…24248c Dummy {f00=0x00c4, f01=0x2008, f02=» P X ` h p
0x24248c…242620 Dummy {f00=0x00c4, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x242620…2427b4 (3, 133) Opaque[0x194]
0x2427b4…242948 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1450, f03=0x0000}
0x2427b4…242948 IdxSect {
0x2427b4…242948 f00 = 0x00a2 // 0x2427b4 @0x0
0x2427b4…242948 f01 = 0x0056 // 0x2427b6 @0x2
0x2427b4…242948 gno = [ // 0x2427b8 @0x4
0x2427b4…242948 [0x00]: C0x00a2.0x2.0
0x2427b4…242948 [0x01]: C0x00a2.0x3.0
0x2427b4…242948 [0x02]: C0x00a3.0x0.0
0x2427b4…242948 [0x03]: C0x00a3.0x1.0
0x2427b4…242948 [0x04]: C0x00a3.0x2.0
0x2427b4…242948 [0x05]: C0x00a3.0x3.0
0x2427b4…242948 [0x06]: C0x00a4.0x0.0
0x2427b4…242948 [0x07]: C0x00a4.0x1.0
0x2427b4…242948 [0x08]: C0x00a4.0x2.0
0x2427b4…242948 [0x09]: C0x00a4.0x3.0
0x2427b4…242948 [0x0a]: C0x00a5.0x0.0
0x2427b4…242948 [0x0b]: C0x00a5.0x1.0
0x2427b4…242948 [0x0c]: C0x00a5.0x2.0
0x2427b4…242948 [0x0d]: C0x00a5.0x3.0
0x2427b4…242948 [0x0e]: C0x00a6.0x0.0
0x2427b4…242948 [0x0f]: C0x00a6.0x1.0
0x2427b4…242948 [0x10]: C0x00a6.0x2.0
0x2427b4…242948 [0x11]: C0x00a6.0x3.0
0x2427b4…242948 [0x12]: C0x00a7.0x0.0
0x2427b4…242948 [0x13]: C0x00a7.0x1.0
0x2427b4…242948 [0x14]: C0x00a7.0x2.0
0x2427b4…242948 [0x15]: C0x00a7.0x3.0
0x2427b4…242948 [0x16]: C0x00a8.0x0.0
0x2427b4…242948 [0x17]: C0x00a8.0x1.0
0x2427b4…242948 [0x18]: C0x00a8.0x2.0
0x2427b4…242948 [0x19]: C0x00a8.0x3.0
0x2427b4…242948 [0x1a]: C0x00a9.0x0.0
0x2427b4…242948 [0x1b]: C0x00a9.0x1.0
0x2427b4…242948 [0x1c]: C0x00a9.0x2.0
0x2427b4…242948 [0x1d]: C0x00a9.0x3.0
0x2427b4…242948 [0x1e]: C0x00aa.0x0.0
0x2427b4…242948 [0x1f]: C0x00c4.0x1.0
0x2427b4…242948 [0x20]: C0x00c4.0x2.0
0x2427b4…242948 [0x21]: C0x00c4.0x3.0
0x2427b4…242948 [0x22]: C0x00c5.0x0.0
0x2427b4…242948 [0x23]: C0x00c6.0x0.0
0x2427b4…242948 [0x24]: C0x00c6.0x1.0
0x2427b4…242948 [0x25]: C0x00c6.0x2.0
0x2427b4…242948 [0x26]: C0x00c6.0x3.0
0x2427b4…242948 [0x27]: C0x00c7.0x0.0
0x2427b4…242948 [0x28]: C0x00c7.0x1.0
0x2427b4…242948 [0x29]: C0x00c7.0x2.0
0x2427b4…242948 [0x2a]: C0x00c7.0x3.0
0x2427b4…242948 ]
0x2427b4…242948 }
0x242948…242adc Dummy {f00=0x00a2, f01=0x018e, f02=» 2 P IDENT SYSLDA REL 10.0 80-05-29 870105041000 P : P REL 10.0 80-03-14 B * P =1,FAULTY STACK BASE WHEN USING MMU ^ P P > P********************************************************** P* $ P* PHILIPS TERMINAL SYS
0x242adc…242c70 Dummy {f00=0x00a2, f01=0x0190, f02=» P* > P********************************************************** P* T P* ^ F P* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION h B P* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS F P* ENTERED AFTE
0x242c70…242e04 Dummy {f00=0x00a2, f01=0x0190, f02=» P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * F P* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S x $ P* MM-TABLES ARE FILLED IN. P* P* CREDIT APPLICATI
0x242e04…242f98 Dummy {f00=0x00a2, f01=0x0190, f02=»REAL TASKS & ^ . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE F , P* DDIV-PROTOTYPE TO FOLLOW SYSLDA. P* H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES
0x242f98…24312c Dummy {f00=0x00a2, f01=0x0190, f02=»LLOCATED AT 'BOTTOM' OF d H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSLDA. l P* H P* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES F P* IN USER TASK TTAB'S ARE FILLED. A
0x24312c…2432c0 Dummy {f00=0x00a2, f01=0x0190, f02=»* v P* * P* ENTRIES AND EXTERNALS * . P* * R P*************************** v P P* LABEL ENTRIES , P ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE P ENTRY SYSLDX P ENT
0x2432c0…243454 (3, 134) Dummy {f00=0x00a2, f01=0x0190, f02=»RROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK j * P ENTRY CONVRT CONVERSION ASCII-BINARY 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P E
0x243454…2435e8 Dummy {f00=0x00a2, f01=0x0190, f02=»BSOLUTE START ADDRESS OF WORK-TAB 1 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 , 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' d , P ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE . P ENTRY SYSBUF TEMPORARY MOVE-BUFFER START 4 P ENTRY M:REL
0x2435e8…24377c Dummy {f00=0x00a2, f01=0x0190, f02=»NTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ( & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 R & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 | & P ENTRY SAVE21,SAVE22,SAVE23,SAVE24 & P ENTRY SAVE25,SAVE26,SAVE27,SAVE28 P ENTRY SAVE29,
0x24377c…243910 Dummy {f00=0x00a2, f01=0x0190, f02=» FREE AREA z 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS H P EXTRN SCTSTB A15 STACK-BASE l " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMM
0x243910…243aa4 Dummy {f00=0x00a2, f01=0x0190, f02=» TABLE f P EXTRN SCTBUG BUGGER ADDRESS P 2 P* EXTERNAL LABELS : 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART T $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P EXTRN PFINI
0x243aa4…243c38 Dummy {f00=0x00a2, f01=0x0190, f02=»XTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS . P EJECT j P x P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P********************************
0x243c38…243dcc Dummy {f00=0x00a2, f01=0x0190, f02=»ER z P PMMUSWB EQU MMUPAG+SWPBLK P 2 PSWBMMU EQU SWPBLK-MMUPAG : P EJECT Z P h P PROGRAM STRUCTURE: p P F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x243dcc…243f60 Dummy {f00=0x00a2, f01=0x0190, f02=»-------------------------------------------! z F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! 4 F P* !-----------------------------------------------------! ~ F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.
0x243f60…2440f4 (3, 135) Dummy {f00=0x00a3, f01=0x018e, f02=» ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! j F P* ! -FILL MM-TABLE IN TTAB ! F P*
0x2440f4…244288 Dummy {f00=0x00a3, f01=0x0190, f02=» F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! N F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !--------------------------
0x244288…24441c Dummy {f00=0x00a3, f01=0x0190, f02=»OVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! F P* ! ! : F P* ! C O M D A T ! F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & U
0x24441c…2445b0 Dummy {f00=0x00a3, f01=0x0190, f02=» ! b F P* ! ! F P* ! C L A D A T ! f F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* !
0x2445b0…244744 Dummy {f00=0x00a3, f01=0x0190, f02=» ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S ! H F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F P* ! -SEARCH DBLK-TAB FOR DWB'S. MO
0x244744…2448d8 Dummy {f00=0x00a3, f01=0x0190, f02=» ! p F P* ! P R O D A T ! * F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! t F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P
0x2448d8…244a6c Dummy {f00=0x00a3, f01=0x0190, f02=» ! R F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! V F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x244a6c…244c00 Dummy {f00=0x00a3, f01=0x0190, f02=» ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! @ F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! F P* ! ! -QUEUE 1:S
0x244c00…244d94 (3, 136) Dummy {f00=0x00a3, f01=0x0190, f02=»-------------------------! h F P* ! REAL TASKS' IS BUILT AT ! " F P* ! THE END OF MONITOR. ! l F P* ! U:BTAB: ! F P*
0x244d94…244f28 Dummy {f00=0x00a3, f01=0x0190, f02=» F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! N F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U
0x244f28…2450bc Dummy {f00=0x00a3, f01=0x0190, f02=» ! v F P* ! -CONTINUE IN PART 2.A ! 0 F P* !-----------------------------------------------------! z P EJECT P P ***************** P ************
0x2450bc…245250 Dummy {f00=0x00a3, f01=0x0190, f02=»********* P P********** P* P:MTAB * 0 P********** B PT:ATAB EQU 0 T PU:BTAB EQU 2 h PP:BAS EQU 6 SEGMENT BASE | . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42
0x245250…2453e4 Dummy {f00=0x00a3, f01=0x0190, f02=»ITIAL U:BTAB p " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME : 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ^ P* . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNU
0x2453e4…245578 Dummy {f00=0x00a3, f01=0x0190, f02=»*********** | $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* < P d P* TASK DEFINITION BLOCK: p PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK ID START VALUE
0x245578…24570c Dummy {f00=0x00a3, f01=0x0190, f02=»VICE CLASSES f P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS H PTLC EQU 6 LINE CONNECTION p ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON
0x24570c…2458a0 Dummy {f00=0x00a3, f01=0x018e, f02=»+2 FIRST SDC-RECORD P* P* & & P* USER WORK BLOCK TYPE DEF. BLOCK 0 PUDBBT EQU 0 1A BLOCK TYPE Z , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES | P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL
0x2458a0…245a34 (3, 137) Dummy {f00=0x00a3, f01=0x018e, f02=» P* T:A * P********* PT:ASTA EQU -14 T:A START ( 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) H $ PCSB EQU -12 CURRENT SEGMENT BASE 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH 2 P OF ALL DSCB
0x245a34…245bc8 Dummy {f00=0x00a3, f01=0x0190, f02=» j P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END 2 PPA EQU 0 STACK POINTER P PSTKB EQU 2 STACK BASE n " PWATFST EQU 4 FIRST WAT-ELEMENT P* P* DSCB-RECORD: PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDR
0x245bc8…245d5c Dummy {f00=0x00a3, f01=0x0190, f02=» P********* P* T:D * P********* , ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A > , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) j , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FO
0x245d5c…245ef0 Dummy {f00=0x00a3, f01=0x0190, f02=»4 MASK FOR UWB'S -"- ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! " P ! N . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! V P ! P ! P**************** ! P* SOP-HANDLING * ! P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P !
0x245ef0…246084 Dummy {f00=0x00a3, f01=0x0190, f02=» /100 MEMORY OVERFLOW ! & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " H " PLMP6 EQU /20 UWB OR SWB ERROR " f " PLMP7 EQU /10 MM-TABLE OVERFLOW " PLMP8 EQU 8 " PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT "
0x246084…246218 Dummy {f00=0x00a3, f01=0x0190, f02=»OCK " r , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # < P # f $ PFCBDD1 EQU 8 DISP TO FIRST DSET # r $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # P # $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID
0x246218…2463ac Dummy {f00=0x00a3, f01=0x0190, f02=» P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ , * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ ^ P $ ( PNTPA EQU 4 INTERPRETER START ADDRESS $ & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ $ PRTCDA EQU /1B RTC DEVICE ADDRE
0x2463ac…246540 Dummy {f00=0x00a3, f01=0x018e, f02=»A13 * $ h F P* DATA [REL-ADDRESS] * % " F P* * % l F P***************************************************************** % P %
0x246540…2466d4 (3, 138) Dummy {f00=0x00a3, f01=0x0190, f02=» % 6 P************************************************** & 6 P** ** & B 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & | 6 P** ** & 6 P************************
0x2466d4…246868 Dummy {f00=0x00a3, f01=0x0190, f02=»HANDLER & p & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' : P* ADJUST FOR PSW-ROUTINE * ' N P************************** ' p 4 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ' P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS T
0x246868…2469fc Dummy {f00=0x00a3, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x2469fc…246b90 Dummy {f00=0x00a3, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x246b90…246d24 Dummy {f00=0x00a3, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x246d24…246eb8 Dummy {f00=0x00a3, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x246eb8…24704c Dummy {f00=0x00a3, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x24704c…2471e0 Dummy {f00=0x00a3, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x2471e0…247374 (3, 139) Dummy {f00=0x00a4, f01=0x0190, f02=»SS INDICATOR - v P FOR TABLE-SCANNING . P DATA 0 . 2 : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . B P DATA 0 . @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRE
0x247374…247508 Dummy {f00=0x00a4, f01=0x0190, f02=» . 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / B " PUWB EQU *-REL U.W.B. INDICATOR / R P DATA 0 / x & PAPPTYP EQU *-REL APPLICATION TYPE / P DATA 0 / $ PSAVE01 EQU *-REL TEMPORARY SAVE / P DATA 0 / PSAVE02 EQU *-R
0x247508…24769c Dummy {f00=0x00a4, f01=0x018e, f02=»0 / PSAVE06 EQU *-REL 0 P DATA 0 0 " PSAVE07 EQU *-REL 0 2 P DATA 0 0 J PSAVE08 EQU *-REL 0 Z P DATA 0 0 r PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 PSAVE10 EQU *-REL 0 P DATA 0 0 PSAVE11 EQU *-REL 0 P DATA 0 0 PSA
0x24769c…247830 Dummy {f00=0x00a4, f01=0x018e, f02=» 0 ~ P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 0 PSAVE27 EQU *-REL 1 @ P DATA 0 1 X PSAVE28 EQU *-REL 1 h P DATA 0 1 PSAVE29 EQU *-REL 1 P DATA 0 1 PSAVE30 EQU *-REL 1 P DATA 0 1 & PWBADD EQU *-REL W.B.-ADDRESS SAVE 1
0x247830…2479c4 Dummy {f00=0x00a4, f01=0x0190, f02=» 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 @ * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P P DATA 0 2 ~ ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 2 P DATA 0 2 * PM:REL EQU *-REL RELOCATION FOR SYSLDM 2 P DATA 0 2 P
0x2479c4…247b58 Dummy {f00=0x00a4, f01=0x0190, f02=» *-REL MMTABLE ADDRESS 2 P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 . P DATA 0 3 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 3 l P DATA 0 3 PFSTPAG EQU *-REL 3 ( P DATA 0 FIRST FREE PAGE (PHYSICALL) 3 ( PTTAB EQU *-REL CORRE
0x247b58…247cec Dummy {f00=0x00a4, f01=0x0190, f02=»H 3 r P 4 P 4 P 4 & P********************************* 4 " & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 L & P********************************* 4 v P 4 PSAVE14 EQU U:BTOD 4 PSAVE15 EQU U:BTNW 4 PSAVE16 EQU MOVADD 4 PSAVE17 EQU ENDADD
0x247cec…247e80 Dummy {f00=0x00a4, f01=0x0190, f02=»SAVE24 EQU FLAG 4 P EJECT 5 P 5 & P* MMU TABLES * 5 . P 5 D P 5 L . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5 T P IFT MMUPAG=1 5 P RES 16 5 P XIF 5 P 5 $ PMMTAB EQU *-REL WORK AREA MM-TAB 5 PTABBE EQU * 5 P IFT MMUPAG=
0x247e80…248014 (3, 140) Dummy {f00=0x00a4, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x248014…2481a8 Dummy {f00=0x00a4, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x2481a8…24833c Dummy {f00=0x00a4, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x24833c…2484d0 Dummy {f00=0x00a4, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x2484d0…248664 Dummy {f00=0x00a4, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x248664…2487f8 Dummy {f00=0x00a4, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x2487f8…24898c Dummy {f00=0x00a4, f01=0x0190, f02=» ; 4 P** M O V I N G ** < 4 P** ** < D 4 P** ** < | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < 4 P** ASSUMED TO BE DATA-PART
0x24898c…248b20 Dummy {f00=0x00a4, f01=0x0190, f02=» 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** = t 4 P** WORK-REG: A4 ** = 4 P************************************
0x248b20…248cb4 (3, 141) Dummy {f00=0x00a4, f01=0x0190, f02=»FE MAKE EVEN ADDRESS = P ST A11,SAVE01,A13 SAVE A11 > P ST A9,SAVE12,A13 SAVE A9 > @ P LDR A11,A2 > b * P LD A9,DATEND,A13 END OF PROTOTYP AREA > v " P CALL CMPADR COMPARE ADDRESSES > P RF(NL) MOV020 > ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW >
0x248cb4…248e48 Dummy {f00=0x00a4, f01=0x0190, f02=»A13 NEW ADDRESS > ( P LD A9,SAVE12,A13 RESTORE REGISTERS ? P LD A11,SAVE01,A13 ? D P RB MOVES ? ^ P XIF ? p P IFT CREDIT+MMUPAG=2 ? | P EJECT ? ? 4 P** X M O V E ** ? 4 P**
0x248e48…248fdc Dummy {f00=0x00a4, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** ? 4 P** -MOVE TO USER AREA ** @ 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** @ n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** @ 4 P**
0x248fdc…249170 Dummy {f00=0x00a4, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** @ 4 P** WORK.REGS:A4,A10 ** A . 4 P************************************************ A f P A PXMOVE EQU * A P ST A1,SAVE09,A13 A P ST A1,SAVE07,A13 A P ST A2,SAVE10,A13 A P
0x249170…249304 Dummy {f00=0x00a4, f01=0x0190, f02=» PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE B h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE B . P CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH B " RF(G) SPLIT
0x249304…249498 Dummy {f00=0x00a4, f01=0x0190, f02=»ER START-ADDRESS B p $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C @ 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS C p P LD A1,SYSBUF,A13 C 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS C LDR A3,A10 GET LENGTH
0x249498…24962c Dummy {f00=0x00a4, f01=0x0190, f02=»V30 NO! C P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D $ * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D X $ SUR A3,A10 SUBTRACT MOVED PART D P ST A3,SAVE11,A13 SAVE D P CWR A3,A10 D P RB(NL) XMOV10 D P LDR A10,A3 LAST L
0x24962c…2497c0 Dummy {f00=0x00a4, f01=0x0190, f02=» DV BUFSIZ,A13 AND DIVIDE E 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) E & & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 E E 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' E , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' E P LD
0x2497c0…249954 (3, 142) Dummy {f00=0x00a4, f01=0x0190, f02=»N G ** E v 4 P** ** F 4 P** ** F V 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** F 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** F 4 P** IS ALW
0x249954…249ae8 Dummy {f00=0x00a4, f01=0x0190, f02=» &FYSPAG ** F n 4 P** IS UPDATED AND CHECKED. ** G 4 P** ** G N 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** G 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** G 4 P** OUTPUT:A2=LOGI
0x249ae8…249c7c Dummy {f00=0x00a4, f01=0x0190, f02=»***** G f P H PMOVING EQU * H P ST A11,SAVE01,A13 SAVE A11 H * P ST A9,SAVE12,A13 SAVE A9 H N . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE H p & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS H 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB H " LDR*
0x249c7c…249e10 Dummy {f00=0x00a4, f01=0x0190, f02=»400 ADJUST FOR 'SETTAB' H $ P CALL SETTAB NEW PAGE IN TABLE! I 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS I H ANKL A11,/FFF I * P LDR A9,A3 GET LENGTH OF AREA TO MOVE I 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? I P RF(NL) MOV020
0x249e10…249fa4 Dummy {f00=0x00a4, f01=0x0190, f02=» ADKL A11,4096 PHYSICAL PAGE INCREMENT I P RB MOV015 J . 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J @ PMOV025 RF(NN) MOV050 J v * PMOV030 CALL SETTAB NEW PAGE IN TABLE! J & ! ADKL A11,4096 NEW PAGE INCREMENT J ( P RB(N) MOV030 NOT ENOUGH. NEW
0x249fa4…24a138 Dummy {f00=0x00a4, f01=0x0190, f02=» J t " P* A2=CURRENT ENTRY IN MM-TABLE K K . PMOV050 EQU * K 6 , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB K J 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER K z 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. K & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS
0x24a138…24a2cc Dummy {f00=0x00a4, f01=0x0190, f02=» * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE L P ANKL A2,/FFFE EVEN ADDRESS L 2 , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS L V P* CHECK ADDRESSES * L P L * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE L P ST A11,SAVE07,A13 SAVE A11 L P LD A11,FYSP
0x24a2cc…24a460 Dummy {f00=0x00a4, f01=0x0190, f02=» P LD A9,FSTADR,A13 M P CALL CMPADR M P RF(NL) MOV090 OK! M 2 PMOV070 LDKL A1,LMP3 M L P CALL ERROR M h PMOV090 EQU * M | P CALL XMOVE MOVE M P LD A9,SAVE12,A13 M ( P LD A11,SAVE01,A13 RESTORE REGISTERS M $ P TL* MMFROM,A13 RESTORE MM
0x24a460…24a5f4 (3, 143) Dummy {f00=0x00a5, f01=0x0190, f02=» ** M v 6 P** ** N 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N Z 6 P** OVERFLOW. ** N 6 P** ** N 6 P
0x24a5f4…24a788 Dummy {f00=0x00a5, f01=0x0190, f02=»S UPDATED ** N | 6 P** WORK.REG: A9 ** O & 6 P************************************************* O ` P O PSETTAB EQU * O SUKL A4,/400 GET NEXT PAGE O SUK A2,2 GET NEXT ENTRY O P O " P* CHEC
0x24a788…24a91c Dummy {f00=0x00a5, f01=0x0190, f02=» O r P RF(NN) SETT00 P P CWR A9,A2 P P RF SETT05 P 0 PSETT00 CWR A2,A9 OVERFLOW? P B PSETT05 RF(NL) SETT10 NO P d P LDK A1,LMP7 P P CALL ERROR P PSETT10 EQU * P STR A4,A2 STORE IN TABLE P RTN A14 P P XIF P P IFF CREDI
0x24a91c…24aab0 Dummy {f00=0x00a5, f01=0x018e, f02=» ** P f 4 P** ** Q 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** Q F 4 P** MENT IN T:A ** Q ~ 4 P** ** Q 4 P** INPUT : A8= POINTER TO
0x24aab0…24ac44 Dummy {f00=0x00a5, f01=0x0190, f02=» Q ^ 4 P** TADISP=A4 ** R 4 P** A11=W.B.-ADDRESS ** R @ 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** R x 4 P*********************************************** R P R PGETWB EQU * R " P
0x24ac44…24add8 Dummy {f00=0x00a5, f01=0x0190, f02=»T R n P IFT CREDIT-MMUPAG=1 S P LDR* A11,A8 GET T:A-ADDRESS S & P ADR A11,A4 ADD DISPLACEMENT S J P ST A11,WBADD,A13 SAVE S n " P LDR* A11,A11 GET W.B.-ADDRESS S P XIF S P IFT CREDIT+MMUPAG=2 S 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? S
0x24add8…24af6c Dummy {f00=0x00a5, f01=0x0190, f02=»NT S v P ST A11,WBADD,A13 SAVE T " P ELR A11,A11 GET W.B.-ADDRESS T ( & P TL* MMFROM,A13 RELOAD FROM-TABLE T N P XIF T x P IFF CREDIT=0 T P RTN A14 T P EJECT T P T P T 8 P** M O V W B ** T
0x24af6c…24b100 Dummy {f00=0x00a5, f01=0x0190, f02=»K-BLOCK. W.B.-ADDRESS IS UPDATED ** T 8 P** ** U 0 8 P** INPUT: A11=W.B.-ADDRESS ** U l 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** U 8 P** WORK-REGS: A1-A4
0x24b100…24b294 (3, 144) Dummy {f00=0x00a5, f01=0x0190, f02=»ESS U | P ADKL A1,WBLEN FROM-ADDRESS V P IFT CREDIT-MMUPAG=1 V 0 P LDR* A3,A1 LENGTH V L P CALL MOVING V f 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT V z 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P XIF V P IFT CREDIT+MMUP
0x24b294…24b428 Dummy {f00=0x00a5, f01=0x0190, f02=» DATA-PART PROCESSING? V | P RF(Z) MOVW10 NO! W P TL* MMTO,A13 LOAD TO-TABLE W 8 : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE W P XIF W P IFF CREDIT=0 W P RTN A14 W P EJECT W P
0x24b428…24b5bc Dummy {f00=0x00a5, f01=0x0190, f02=» W Z : P** ** X : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** X F : P** ** X : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** X : P** OUTP
0x24b5bc…24b750 Dummy {f00=0x00a5, f01=0x018e, f02=»********************************* X | P Y * PMOVDT EQU * Y 6 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT Y J & P SUK A1,2 POINTER TO D.T.-ADDRESS Y P IFT CREDIT-MMUPAG=1 Y P LDR* A1,A1 D.T.-ADDRESS Y * P ADKL A1,DTLEN ADJUST FOR LENG
0x24b750…24b8e4 Dummy {f00=0x00a5, f01=0x0190, f02=» Y P SUKL A1,DTLEN Z 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Z P XIF Z V P IFT CREDIT+MMUPAG=2 Z b P ELR A1,A1 D.T.-ADDRESS Z ~ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P ELR A3,A1 LENGTH Z P
0x24b8e4…24ba78 Dummy {f00=0x00a5, f01=0x0190, f02=» Z ` P XIF [ P IFF CREDIT=0 [ P RTN A14 [ * P EJECT [ : P [ H < P** M O V D W B ** [ T < P** ** [ < P**
0x24ba78…24bc0c Dummy {f00=0x00a5, f01=0x0190, f02=» < P** ** < P** INPUT : A12=T:D-ADDRESS ** D < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** < P**
0x24bc0c…24bda0 Dummy {f00=0x00a5, f01=0x0190, f02=»MOVDWB EQU * P ST A6,SAVE05,A13 SAVE A5 ] P LDK A6,0 ] 6 ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER ] H " P ADK A4,1 FIRST WAT-ELEMENT =1 ] t P IFT CREDIT-MMUPAG=1 ] P LD A2,WATLEN,A12 ] P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A1
0x24bda0…24bf34 (3, 145) Dummy {f00=0x00a5, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x24bf34…24c0c8 Dummy {f00=0x00a5, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x24c0c8…24c25c Dummy {f00=0x00a5, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x24c25c…24c3f0 Dummy {f00=0x00a5, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x24c3f0…24c584 Dummy {f00=0x00a5, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x24c584…24c718 Dummy {f00=0x00a5, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x24c718…24c8ac Dummy {f00=0x00a5, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x24c8ac…24ca40 Dummy {f00=0x00a5, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x24ca40…24cbd4 (3, 146) Dummy {f00=0x00a5, f01=0x0190, f02=» A L L B U F ** e 4 P** ** f 0 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** f h 4 P** TERMINAL STACK ** f 4 P** **
0x24cbd4…24cd68 Dummy {f00=0x00a5, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x24cd68…24cefc Dummy {f00=0x00a5, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x24cefc…24d090 Dummy {f00=0x00a5, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x24d090…24d224 Dummy {f00=0x00a5, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x24d224…24d3b8 Dummy {f00=0x00a5, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x24d3b8…24d54c Dummy {f00=0x00a5, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x24d54c…24d6e0 Dummy {f00=0x00a5, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x24d6e0…24d874 (3, 147) Dummy {f00=0x00a6, f01=0x0190, f02=» A9,A3 ALLOCATE BUFFER FROM TOP m P ADKL A9,1 n ( P ANKL A9,/FFFE EVEN ADDRESS n : P* CHECK ADDRESS: n ^ P n v " P LD A11,LSTADR,A13 DATA START n P CALL CMPADR n P RF(NL) ALLB60 OK! n P LDKL A1,LMP3 n P CALL ERROR n PALLB60 E
0x24d874…24da08 Dummy {f00=0x00a6, f01=0x0190, f02=»FROM 'BOTTOM' n n & P ES A2,BA,A1 STORE BUFFER ADDRESS o P XIF o @ P IFF CREDIT=0 o L P RB ALLB10 o b P o t , P* RESERVE STACK AND SET STACKPOINTERS * o P o PALLB70 EQU * o P IFT CREDIT-MMUPAG=1 o P LDR* A1,A8 GET T:A-ADDRESS o
0x24da08…24db9c Dummy {f00=0x00a6, f01=0x0190, f02=»E o r PALLB80 EQU * p P ST A4,STKB,A1 SET STACKBASE p P STR A4,A1 STACK POINTER p B P CALL MOVING ALLOCATE STACK p b P ST A2,STKE,A1 SET STACK-END p P XIF p P IFT CREDIT+MMUPAG=2 p P ELR A1,A8 GET T:A-ADDRESS p P EL A3,CSE,A1 GET ST
0x24db9c…24dd30 Dummy {f00=0x00a6, f01=0x0190, f02=»ZE p n P CALL MOVING ALLOCATE STACK q " P ES A2,STKE,A1 STORE STACK END q . " P EL A3,STKB,A1 GET STACK SIZE q T " P ADR A2,A3 COMPUTE STACK BASE q z . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 q $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STO
0x24dd30…24dec4 Dummy {f00=0x00a6, f01=0x0190, f02=» ** q p 4 P** ** r 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** r P 4 P** FORMAT CONTROL BLOCK ** r 4 P** ** r 4 P** INPUT : A8=T
0x24dec4…24e058 Dummy {f00=0x00a6, f01=0x0190, f02=»ART ** r h 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** s 4 P** WORKREGS: A1-A4 ** s H 4 P************************************************ s P s PMOVT:A EQU * s P IFT CREDIT-MMUPAG=1 s P LDR* A1,A8 GET T:A-ADDR
0x24e058…24e1ec Dummy {f00=0x00a6, f01=0x0190, f02=»WATFST A3=LENGTH s P AD A1,CIA,A1 FROM-ADDRESS t P CALL MOVING t : P LDR* A4,A8 t N " P SU A2,CIA,A4 NEW T:A-ADDRESS t b $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t P t P LD A3,FCD,A
0x24e1ec…24e380 Dummy {f00=0x00a6, f01=0x0190, f02=»TASK DATA PROCESSING? t z P RF(Z) MOVT05 NO! u : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) u 8 PMOVT05 EQU * u v P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u PMOVT10 RTN A14 u P XIF u P IFT CREDIT+MMUPAG=2 u P u P ELR
0x24e380…24e514 (3, 148) Dummy {f00=0x00a6, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x24e514…24e6a8 Dummy {f00=0x00a6, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x24e6a8…24e83c Dummy {f00=0x00a6, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x24e83c…24e9d0 Dummy {f00=0x00a6, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x24e9d0…24eb64 Dummy {f00=0x00a6, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x24eb64…24ecf8 Dummy {f00=0x00a6, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x24ecf8…24ee8c Dummy {f00=0x00a6, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x24ee8c…24f020 Dummy {f00=0x00a6, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x24f020…24f1b4 (3, 149) Dummy {f00=0x00a6, f01=0x0190, f02=»UK A2,1 DECREMENT BIT COUNTER } P RB IBAM10 ~ & P* ~ 8 & P* UPDATE MOVED MASK IN FIRST T:A ~ B P* ~ l P XIF ~ v P IFT CREDIT-MMUPAG=1 ~ & PIBAM20 LDR* A2,A8 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURR
0x24f1b4…24f348 Dummy {f00=0x00a6, f01=0x0190, f02=»* A2,A6 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED H * P STR A3,A2 STORE NEW MOVED BLOCK MASK x P XIF P IFT CREDIT+MMUPAG=2 $ PIBAM20 ELR A2,A8 GET T:A POINTER $ P ELR A3,A2 GET MOV
0x24f348…24f4dc Dummy {f00=0x00a6, f01=0x0190, f02=»MOVED MASK IN SECOND T:A P* P ELR A2,A6 GET T:A POINTER * $ P ELR A3,A2 GET MOVED BLOCK MASK L , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED t * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF P IFF CREDIT=0 P RTN A14 P EJE
0x24f4dc…24f670 Dummy {f00=0x00a6, f01=0x0190, f02=» * ` J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ===================================== * l J P* * J P
0x24f670…24f804 Dummy {f00=0x00a6, f01=0x0190, f02=» * V J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * b J P* * J P* EXIT:
0x24f804…24f998 Dummy {f00=0x00a6, f01=0x0190, f02=»* L J P* WORK REGISTER: A1,A2 * J P* * X J P* SUBROUTINES: * J P*
0x24f998…24fb2c Dummy {f00=0x00a6, f01=0x0190, f02=» EJECT PCHKMVD EQU * P IFT CREDIT-MMUPAG=1 " P LDR* A1,A8 GET T:A POINTER > $ P LDR* A1,A1 GET MOVED BLOCK MASK b P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P
0x24fb2c…24fcc0 Dummy {f00=0x00a6, f01=0x0190, f02=»LL A1,1 NEXT BIT IN MOVED BLOCK MASK $ P SUK A2,1 DECREMENT BIT COUNTER , P RB CHKM10 T PCHKM20 ADK A1,0 SET CR f * P CFI A14,PSW,A13 PUT CONDITION IN PSW P RTN A14 P EJECT P P : P***** S * U * P * E * R * L
0x24fcc0…24fe54 (3, 150) Dummy {f00=0x00a6, f01=0x018e, f02=» ** d : P** ** : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** P : P** INPUT : A7=MASK WORD ** : P** OUTPUT: BIT=BIT NUMBER ** :
0x24fe54…24ffe8 Dummy {f00=0x00a6, f01=0x0190, f02=» PSHIFT EQU * " P CM BIT,A13 RESET BIT COUNTER P LDR A7,A7 > P RF SHIF20 P & PSKIFTA EQU * ENTRY: CONTINUE SHIFT b PSHIF10 IM BIT,A13 P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 *
0x24ffe8…25017c Dummy {f00=0x00a6, f01=0x0190, f02=»L T ** z 4 P** ** " 4 P** ** Z 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** 4 P** ** 4 P** IN
0x25017c…250310 Dummy {f00=0x00a6, f01=0x0190, f02=»****************** r PMULT EQU * P ST A3,MUL,A13 , " P STR A2,A14 SAVE A2 TEMPORARY B P LDK A3,0 h PADD AD A3,MUL,A13 z P SUK A2,1 P RB(NZ) ADD P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT
0x250310…2504a4 Dummy {f00=0x00a6, f01=0x0190, f02=» ** 4 P** FIND LAST USED ENTRY IN MM-TAB. SCAN ** * 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** b 4 P** ** 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4
0x2504a4…250638 Dummy {f00=0x00a6, f01=0x0190, f02=»TAB=A3 ** z 4 P** A1=CONTENTS OF 1:ST USED ENTRY ** " 4 P*********************************************** Z P PMMENT EQU * P LDR A9,A3 GET TABLE ADDRESS 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)
0x250638…2507cc Dummy {f00=0x00a6, f01=0x0190, f02=»1,/FC00 P RB(Z) MMEN10 2 P ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS & P RTN A14 P XIF l P IFF CREDIT=0 x P EJECT P 2 P** G E T T A B ** 2 P** **
0x2507cc…250960 Dummy {f00=0x00a6, f01=0x0190, f02=» ** | 2 P** INPUT :A8=POINTER TO T:A IN T:ATAB ** " 2 P** OUTPUT:A2=TTAB-ADDRESS ** X 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P**************
0x250960…250af4 (3, 151) Dummy {f00=0x00a7, f01=0x018e, f02=»D A1,T:ATID,A10 GET TID TO MATCH " P LD A12,T:DAD,A10 T:D-ADDRESS ( P XIF N P IFT MMUPAG=1 Z P ELR A10,A8 T:A-ADDRESS p P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4
0x250af4…250c88 Dummy {f00=0x00a7, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTB:PP,A2 TCL EQUAL? P RB(NE) GETT10 NO! P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0
0x250c88…250e1c Dummy {f00=0x00a7, f01=0x0190, f02=» ** d 8 P** ** 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** L 8 P** 0, ENB. ** 8 P** ** 8 P** INPU
0x250e1c…250fb0 Dummy {f00=0x00a7, f01=0x0190, f02=»SS ** x 8 P*************************************************** $ P ` PQUEJOB EQU * h P* QUEUE THIS TASK (THIS TID) | P 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS P ADR A3,A13 RELOCATE P STR A3,A15 PUT
0x250fb0…251144 Dummy {f00=0x00a7, f01=0x0190, f02=»ABORT INDICATOR $ P LD A8,SCTLAC GET P:MTAB-ADDRESS P LDR A5,A2 GET TTAB-ADDRESS @ P IFT CREDIT-MMUPAG=1 d , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDR
0x251144…2512d8 Dummy {f00=0x00a7, f01=0x0190, f02=»ETT40 ALL! P LD A1,4,A4 DISP ADDRESS P LD A3,2,A4 SEGMENT NUMBER 2 , P LD A2,NTPA,A8 INTERPRETER START ADDRESS T P XIF P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK
0x2512d8…25146c Dummy {f00=0x00a7, f01=0x0190, f02=»1 DEC. NUMBER OF STARTPOINTS P RF(N) GETT40 ALL! $ P EL A1,4,A4 DISP ADDRESS > P EL A3,2,A4 SEGMENT NUMBER ^ , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT
0x25146c…251600 Dummy {f00=0x00a7, f01=0x0190, f02=» P EJECT P 4 P** M O V M M T ** 4 P** ** R 4 P** ** 4 P** MOVE MM-TABLE ** 4 P**
0x251600…251794 (3, 152) Dummy {f00=0x00a7, f01=0x0190, f02=» ** j 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** 4 P** A9=TTAB ADDRESS ** J 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** P PMOVMMT EQU *
0x251794…251928 Dummy {f00=0x00a7, f01=0x0190, f02=»T FILL LAST ENTRY ADDRESS P TL* MMFROM,A13 RELOAD TABLE " P RTN A14 F P XIF V P IFF CREDIT=0 b P EJECT x @ P************************************************************ @ P* *
0x251928…251abc Dummy {f00=0x00a7, f01=0x0190, f02=» R @ P* ====================================================== * @ P* * L @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B.
0x251abc…251c50 Dummy {f00=0x00a7, f01=0x0190, f02=» * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * @ P* * T @ P* EXIT: * @ P*
0x251c50…251de4 Dummy {f00=0x00a7, f01=0x0190, f02=» * d @ P* SUBROUTINES: GETTTB * @ P* * @ P************************************************************ PCHTAID EQU * 2 P LDR A8,A7 GET N
0x251de4…251f78 Dummy {f00=0x00a7, f01=0x0190, f02=» ENTRY IN REAL T:ATAB | P IFT CREDIT-MMUPAG=1 ( P LDR* A1,A8 GET POINTER TO REAL T:A : $ P LD A1,T:ATID,A1 GET TCL IN T:A f . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB 6 P LD A3,TTB:SA+26,A2 GET CO
0x251f78…25210c Dummy {f00=0x00a7, f01=0x0190, f02=» COMPUTE ENTRY IN AUX. TID TABLE ~ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE ( P XIF X P IFT CREDIT+MMUPAG=2 d & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR
0x25210c…2522a0 Dummy {f00=0x00a7, f01=0x0190, f02=»TID IN TTAB *79-04-11* v 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* X 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AU
0x2522a0…252434 (3, 153) Dummy {f00=0x00a7, f01=0x0190, f02=»L SAVE AREA z P SUK A1,1 DECREMENT TCL P SUKL A8,2 DECREMENT 4 ( P SUK A6,1 DECREMENT NUMBER OF COPIES P P RB(P) CHT:20 NEXT COPY | PCHT:90 RTN A14 P EJECT P P 4 P************************************************ 4 P
0x252434…2525c8 Dummy {f00=0x00a7, f01=0x0190, f02=» ** x 4 P************************************************ P X 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * ` 4 P* SHADOW TABLE * 4 P* * 4 P
0x2525c8…25275c Dummy {f00=0x00a7, f01=0x0190, f02=»A MONITOR END ADDRESS . P LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P P ADK A7,2 ~ P ST A8,SAVE03,A13 SAVE A8 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 P ADKL A8,2 P CW A8,ENDADD,A13 ALL?
0x25275c…2528f0 Dummy {f00=0x00a7, f01=0x0190, f02=»TTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB . : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) B " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA320 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL
0x2528f0…252a84 Dummy {f00=0x00a7, f01=0x0190, f02=» STORE IN REAL T:ATAB P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES 0 P EJECT X PSYA340 SUK A6,1 f P RF(P) SYA345 NEXT TASK ~ 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DA
0x252a84…252c18 Dummy {f00=0x00a7, f01=0x0190, f02=»8,A7 CHANGE T:A TO COPY 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK V 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB z " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO!
0x252c18…252dac Dummy {f00=0x00a7, f01=0x0190, f02=»48 ADK A7,2 NEXT ENTRY IN REAL T:ATAB 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S . " P CALL ALLBUF ALLOCATE BUFFERS d P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD P P LDR A1,A5 * P AD* A1,SCTSFA
0x252dac…252f40 Dummy {f00=0x00a7, f01=0x0190, f02=»GETTAB GET CORRESPONDING TTAB : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) & P LDR A1,A10 GET T:A-ADDRESS d 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST
0x252f40…2530d4 (3, 154) Dummy {f00=0x00a7, f01=0x0190, f02=»ATA TABLE | , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P B P SUK A2,2 START OF TABLE J P LDKL A12,/FC00 j PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL? P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 P
0x2530d4…253268 Dummy {f00=0x00a7, f01=0x0190, f02=»L A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES J PSYA340 SUK A6,1 r P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS PSYA345
0x253268…2533fc Dummy {f00=0x00a7, f01=0x0190, f02=» TO TTAB v P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB . @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS V P LDR A8,A2 GET T:A-ADDRESS 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE I
0x2533fc…253590 Dummy {f00=0x00a7, f01=0x0190, f02=»WB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE * . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE N P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB
0x253590…253724 Dummy {f00=0x00a7, f01=0x0190, f02=» T:A t P XIF P IFF CREDIT=0 P RB SYA340 . P XIF @ P EJECT L PFINISH EQU *-REL Z P r P* ADJUST START OF FREE AREA z P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF FREE AREA . P LD A14,SA
0x253724…2538b8 Dummy {f00=0x00a7, f01=0x0190, f02=»2 P ORR A1,A2 P XIF P IFF CREDIT=1 ( P LD A1,SCTLAC > P XIF T P IFT MMUPAG-CREDIT=1 ` P ANKL A1,/03FF | P SLL A1,2 P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CRED
0x2538b8…253a4c Dummy {f00=0x00a7, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA $ P RF(NZ) SYA355 P P XIF f P LD A1,SCTSFA r PSYA355 ST A1,SCTSFA+2 P CM SCTSFA P IFT CREDIT=1 P EJECT D ?********************************************
0x253a4c…253be0 Dummy {f00=0x00a7, f01=0x0190, f02=»E TABLE * l D ?* ========================= * $ D ?* * l D ?* REFERENCED IN: SYSLDA * D ?*
0x253be0…253d74 (3, 155) Dummy {f00=0x00a8, f01=0x0190, f02=» SCTEFA - END OF FREE AREA * D P* SAVE29 - NUMBER OF SEGMENTS * D D ?* SCTNOP - NUMBER OF PAGES * D ?* SCTPSZ - PAGE SIZE
0x253d74…253f08 Dummy {f00=0x00a8, f01=0x0190, f02=» * d D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * d D ?* * D ?* WORK REGISTERS:
0x253f08…25409c Dummy {f00=0x00a8, f01=0x0190, f02=»ES: * D ?* * < D ?* * D ?************************************************************
0x25409c…254230 Dummy {f00=0x00a8, f01=0x0190, f02=»ATION? h P ABR(Z) A2 NO! " LD A1,SCTOPT GET OPTION WORD $ ANK A1,3 PAGING? J P ABR(Z) A2 NO! d * z L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * , ' LD A11,SCTSFA+2 GET START OF FREE AREA
0x254230…2543c4 Dummy {f00=0x00a8, f01=0x0190, f02=» A7,0 RESET PAGE COUNTER PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? 4 RF(E) PAG:30 YES! d $ LDK A1,0 RESET NUMBER OF WORDS ~ PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIM
0x2543c4…254558 Dummy {f00=0x00a8, f01=0x0190, f02=»RAM OVERWRITE z " RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 < 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER N RB PAG:10 PAG:30 EQU * * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH
0x254558…2546ec Dummy {f00=0x00a8, f01=0x0190, f02=»BITS OF 18-BITS ADDRESS p 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS X & ! SRL A2,2 SKIP TWO RIGHTMOST BITS , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2
0x2546ec…254880 Dummy {f00=0x00a8, f01=0x018e, f02=»RESS h ( # ANKL A2,/0300 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT 8 ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT Z P XIF P IFT CREDIT-MMUPAG=1 $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT C
0x254880…254a14 (3, 156) Dummy {f00=0x00a8, f01=0x0190, f02=» P CWR A10,A6 P RF PAG:33 PPAG:32 CWR A6,A10 * PPAG:33 RF(NG) PAG:40 D , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE ` LDR A1,A6 GET PAGE ADDRESS P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PA
0x254a14…254ba8 Dummy {f00=0x00a8, f01=0x018e, f02=»PAG:34 LDK A1,0 END OF FREE AREA P XIF ( P IFT CREDIT=1 4 & "PAG:36 LDK A2,0 RESET WORD COUNTER J * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD t RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE?
0x254ba8…254d3c Dummy {f00=0x00a8, f01=0x0190, f02=» P RF(NN) PAG382 P CWR A11,A1 P RF PAG384 . PPAG382 CWR A1,A11 @ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! Z PPAG:39 EQU * " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP
0x254d3c…254ed0 Dummy {f00=0x00a8, f01=0x0190, f02=» RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW : HLT HALT PROGRAM h 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE
0x254ed0…255064 Dummy {f00=0x00a8, f01=0x0190, f02=»NOP SAVE NUMBER OF PAGES ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE L P XIF d P IFT CREDIT+MMUPAG=2 p * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P X
0x255064…2551f8 Dummy {f00=0x00a8, f01=0x0190, f02=»TORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * 2 LDK A1,0 < @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. N . P LD A11,SAVE30,A13 START OF SEGMENT TABLE , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START
0x2551f8…25538c Dummy {f00=0x00a8, f01=0x0190, f02=» GET STATUS . ) RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS F , ' STR A1,A12 RESET QUEUE POINTER FORWARD t . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,
0x25538c…255520 Dummy {f00=0x00a8, f01=0x0190, f02=»DKL A12,8 NEXT PAGE BLOCK 4 /PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER " RB(P) PAG:60 Z * p < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE z * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A1
0x255520…2556b4 (3, 157) Dummy {f00=0x00a8, f01=0x0190, f02=» d LDK A2,0 . *PAG:70 ST A11,2,A12 STORE BACKWARD POINTER $ ST A9,4,A12 STORE PAGE ADDRESS L $ ST A2,6,A12 INDICATE PAGE FREE t * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , '
0x2556b4…255848 Dummy {f00=0x00a8, f01=0x0190, f02=»DR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE " RB PAG:70 @ PAG:80 EQU * R & ! LDKL A1,PAGQUE POINTER TO PAGQUE f $ STR A1,A12 STORE IN LAST BLOCK & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL
0x255848…2559dc Dummy {f00=0x00a8, f01=0x0190, f02=»DIT=0 , P LD A14,SCTLAC TRUE START OF APPLICATION P XIF > P =1 J P =1 X P =1 f P SUKL A14,8 ADJUST FOR MAP t * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1
0x2559dc…255b70 Dummy {f00=0x00a8, f01=0x0190, f02=»3,SYA370 RESTORE PROGRAM BASE OINTER P* , P* INIT A15 STACK 6 P* P P LD A15,SCTSTB Z P SUKL A15,4 p P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1
0x255b70…255d04 Dummy {f00=0x00a8, f01=0x0190, f02=» INITIALIZE DEVICES P CF A15,SAVE8 SAVE REGISTERS P* @ F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER J P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH
0x255d04…255e98 Dummy {f00=0x00a8, f01=0x0190, f02=»ES =1 ~ P* =1 P CIO A1,0,SOP =1 $ P ABL TDISP BRANCH TO DISPATCHER : P =1 b P =1 p P =1 ~ P =1 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTCDA P R
0x255e98…25602c Dummy {f00=0x00a8, f01=0x0190, f02=» *** 6 P** SYSLOAD PART 2.A ** * 6 P** ** d 6 P************************************************* P 6 P* BUILD COMMON AND TASKCLASS DATA AREA
0x25602c…2561c0 Dummy {f00=0x00a8, f01=0x0190, f02=»*********************************************** P 8 PPART2A EQU *-REL @ P X 0 P******************************************** ` 0 P*** *** 0 P** S U B R O U T I N E S ** 0 P************
0x2561c0…256354 (3, 158) Dummy {f00=0x00a8, f01=0x0190, f02=» ** | 4 P** ** $ 4 P** GET T:D - ADDRESS ** 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 4 P**
0x256354…2564e8 Dummy {f00=0x00a8, f01=0x0190, f02=»DIT-MMUPAG=1 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 4 P XIF N P IFT CREDIT+MMUPAG=2 Z P ELR A12,A8 T:A ADDRESS v P EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 P AD A12,MOVADD,A13 RELOCATE P RTN A14 P E
0x2564e8…25667c Dummy {f00=0x00a8, f01=0x0190, f02=» ** f 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** J 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 6 P** TO COMMON AREA ** 6 P**
0x25667c…256810 Dummy {f00=0x00a8, f01=0x0190, f02=»ASK ** l 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** P 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** 6 P************************************************* P
0x256810…2569a4 Dummy {f00=0x00a8, f01=0x0190, f02=»A-DISPL b ( P ST A11,SAVE06,A13 SAVE W.B.-ADDRESS ( P CM MOVED,A13 CLEAR MOVED INDICATOR < P LDR A6,A8 h PMOVC10 ADK A6,2 NEXT T:A z P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1
0x2569a4…256b38 Dummy {f00=0x00a8, f01=0x0190, f02=»D A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT,A13 ENOUGHT? . 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A N . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF
0x256b38…256ccc Dummy {f00=0x00a8, f01=0x0190, f02=»,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS . P CW A2,BIT,A13 ENOUGHT? ^ 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A ~ . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P ELR A11,A11 . P CW A11,SA
0x256ccc…256e60 Dummy {f00=0x00a8, f01=0x0190, f02=»D? n . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE < & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS f P CALL MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO
0x256e60…256ff4 (3, 159) Dummy {f00=0x00a9, f01=0x0190, f02=»CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER P ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS t & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS P CALL MOVDWB
0x256ff4…257188 Dummy {f00=0x00a9, f01=0x0190, f02=» G E T P R O ** 4 P** ** . 4 P** ** f 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB **
0x257188…25731c Dummy {f00=0x00a9, f01=0x0190, f02=»T W.B. - ADDRESS ** ~ 4 P** OUTPUT: A2=NEW ADDRESS ** & 4 P** WORK-REGS: A1-A5,A9 ** ^ 4 P************************************************ P PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BT
0x25731c…2574b0 Dummy {f00=0x00a9, f01=0x0190, f02=»ENGTH d P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! $ P CALL ERROR H PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? p , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMB
0x2574b0…257644 Dummy {f00=0x00a9, f01=0x0190, f02=»11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF D , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT X . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 " P ST A4,URLENG,A9 STORE LENGTH * P ST A5,URNUMB,A9 STORE
0x257644…2577d8 Dummy {f00=0x00a9, f01=0x0190, f02=»1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 * PGETP40 CALL MOVWB @ P SUK A5,1 Z P RB(NZ) GETP40 l P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * 6 P ST A2,URADDR,A9 S
0x2577d8…25796c Dummy {f00=0x00a9, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x25796c…257b00 Dummy {f00=0x00a9, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x257b00…257c94 (3, 160) Dummy {f00=0x00a9, f01=0x0190, f02=» " P ES A4,URLENG,A9 STORE LENGTH & P TL* MMFROM,A13 RELOAD FROM TABLE * 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * T 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP
0x257c94…257e28 Dummy {f00=0x00a9, f01=0x0190, f02=»************* | PGETP50 EQU * P TL* MMTO,A13 * 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB @ P TL* MMFROM,A13 z P XIF P IFF CREDIT=0 P RTN A14 P EJECT P 2 P** M O V C L A
0x257e28…257fbc Dummy {f00=0x00a9, f01=0x0190, f02=»B. ALREADY MOVED TO COMMON ** 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** & 2 P** CHECK IF ANY DWB'S ** 2 P** ** 2 P** A LOT OF WORKREGS. ** 2 P**********
0x257fbc…258150 Dummy {f00=0x00a9, f01=0x0190, f02=»-ADDRESS TO A11 z & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! B , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING
0x258150…2582e4 Dummy {f00=0x00a9, f01=0x0190, f02=»WB'S z P RB MVCL20 P EJECT P , P 8 6 P** C H A D R ** D 6 P** ** ~ 6 P** ** 6 P** CHANGE ADDRESS TO
0x2582e4…258478 Dummy {f00=0x00a9, f01=0x0190, f02=» ** f 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS ** J 6 P** NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 6 P** WORK.REGS: A
0x258478…25860c Dummy {f00=0x00a9, f01=0x0190, f02=» CREDIT-MMUPAG=1 P LDR* A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS 8 P LD A2,NEWAD2,A13 j P STR A2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 P STR A2,A1 P XIF P IFT CREDIT+MMUP
0x25860c…2587a0 Dummy {f00=0x00a9, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P ESR A2,A1 D P XIF V P IFF CREDIT=0 b P RTN A14 x P XIF P IFT CREDIT+SWPBLK=2 P EJECT B P************************************************************** B P*
0x2587a0…258934 (3, 161) Dummy {f00=0x00a9, f01=0x0190, f02=»* B:RSWT - BUILD REAL SWB CONTROL TABLE * B P* ===================================== * F B P* * B P* REFERENCED IN: SYSLDA
0x258934…258ac8 Dummy {f00=0x00a9, f01=0x0190, f02=»BTAB * ^ B P* A5 - LENGTH OF REAL S:BTAB * B P* * Z B P* EXIT: * B P*
0x258ac8…258c5c Dummy {f00=0x00a9, f01=0x0190, f02=» * r B P* SUBROUTINES: * ( B P* * n B P************************************************************** P EJECT P
0x258c5c…258df0 Dummy {f00=0x00a9, f01=0x0190, f02=» IN APPLICATION z P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE < P LDK A6,0 Z P SUK A5,2 SKIP LENGTH WORD l PRSWB10 ADK A1,2 NEXT TYPE P LDR* A4,A1 POINTER TO BLOCK P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4
0x258df0…258f84 Dummy {f00=0x00a9, f01=0x0190, f02=»B IN BYTES r P XIF P IFT CREDIT+SWBMMU=2 & P ST A6,2,A2 STORE NUMBER OF COPIES : , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES d P XIF P IFT CREDIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLO
0x258f84…259118 Dummy {f00=0x00a9, f01=0x018e, f02=»OR EACH SWB TYPE p ( P* AND RESET ALL WORDS IN TID BLOCKS P* D PRSWB20 EQU * N ( P LDR A6,A2 GET ADDRESS TO TID BLOCK b $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO C
0x259118…2592ac Dummy {f00=0x00a9, f01=0x0190, f02=» f . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES : P RB(P) RSWB30 NEXT COPY b P XIF P IFT CREDIT+MMUSWB=3 $ P EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINT
0x2592ac…259440 Dummy {f00=0x00a9, f01=0x0190, f02=»REAL S:BTAB r ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY @ P XIF ` P IFT CREDIT+SWPBLK=2 l PRSWB50 ADKL A8,6 P CWR A8,A4 P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES P
0x259440…2595d4 (3, 162) Dummy {f00=0x00a9, f01=0x018e, f02=»********************** " P* START OF PROGRAM PART 2.A * " P***************************** D P j P* LOAD BASE ADDRESS * r P********************* P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS P* SA
0x2595d4…259768 Dummy {f00=0x00a9, f01=0x0190, f02=» ~ " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION ROUTINE . P CFR A8,A5 Z P* MOVE DDIV * l P & P LD A1,SAVE04,A13 GET FROM-ADDRESS $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV
0x259768…2598fc Dummy {f00=0x00a9, f01=0x0190, f02=»OSGMT NO! ( P LDKL A8,0 RESET FSTADR IF SEGMENTS! P RF SEGMTS > 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP P " PSEGMTS ST A8,FSTADR,A13 STORE PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2
0x2598fc…259a90 Dummy {f00=0x00a9, f01=0x0190, f02=» MM-TABLE x P " P LDR A1,A9 GET P:MTAB ADDRESS $ P SRL A1,11 ADJUST FOR ADDRESSING @ P ANK A1,/1E h & P LDK A2,MMTAB-2 GET TABLE ADDRESS | P ADR A2,A13 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 PSYA205 CWR
0x259a90…259c24 Dummy {f00=0x00a9, f01=0x0190, f02=» EQU * P* CHANGE TABLE-ADDRESSES P LD A4,MMFROM,A13 . P LD A5,MMTO,A13 H P ST A4,MMTO,A13 ` P ST A5,MMFROM,A13 x P XIF P IFF CREDIT=0 P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P
0x259c24…259db8 Dummy {f00=0x00a9, f01=0x0190, f02=»RENT MM-TABLE z P ADR A3,A13 , P* FIND LAST USED ENTRY IN REAL MMUTAB * * P Z P CALL MMENT b P ST A9,TTAB,A13 v * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE * P CALL
0x259db8…259f4c Dummy {f00=0x00a9, f01=0x0190, f02=»SAVE NEW T:ATAB ADDRESS ~ P ADK A2,2 SKIP LENGTH WORD $ P LD A9,SCTLAC GET P:MTAB ADDRESS B $ P ES A2,T:ATAB,A9 STORE IN P:MTAB j $ P* RESERVE PLACE FOR T:AID TABLE P P LDR A3,A5 GET LENGTH P CALL MOVING P TL* MMTO,A13
0x259f4c…25a0e0 Dummy {f00=0x00a9, f01=0x0190, f02=»ADJUST TABLE ADDRESS P ESR A2,A3 STORE IN P:MTAB P XIF > P IFF CREDIT=0 J ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH ` P LDR A5,A3 SAVE P CALL MOVING RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDI
0x25a0e0…25a274 (3, 163) Dummy {f00=0x00aa, f01=0x0190, f02=»,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE ( * P CALL MOVING RESERVE SPACE FOR T:ATAB @ " P STR A5,A2 STORE T:ATAB LENGTH n . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESE
0x25a274…25a408 Dummy {f00=0x00aa, f01=0x018e, f02=»ENGTH-WORD z , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB P XIF B P IFT CREDIT+MMUPAG=2 N $ P TL* MMTO,A13 SET CORRECT TABLE j P ESR A5,A2 STORE LENGTH P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P
0x25a408…25a59c Dummy {f00=0x00aa, f01=0x0190, f02=» f P LDR A5,A3 SAVE P CALL MOVING P ST A2,S:BTNW,A13 4 P XIF N P IFT CREDIT+MMUSWB=3 Z P TL* MMTO,A13 v P ESR A5,A2 P ADK A2,2 P ES A2,S:BTAB,A9 P CALL B:RSWT P XIF P IFT CREDIT+SWBMMU=2 P STR
0x25a59c…25a730 Dummy {f00=0x00aa, f01=0x018e, f02=»AD TABLE | P XIF P IFF CREDIT=0 P EJECT 4 P B P* BUILD COMMON DATA AREA * N P************************** p P* SEARCH CWB'S: P ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A3,A
0x25a730…25a8c4 Dummy {f00=0x00aa, f01=0x0190, f02=» 0 P ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS PSYA210 EQU * < & P CM UWB,A13 INDICATE CWB-SCANNING P P ADKL A8,2 z P CW A8,ENDADD,A13 ALL DONE? P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1
0x25a8c4…25aa58 Dummy {f00=0x00aa, f01=0x0190, f02=» P CALL SHIFT SUPER-LOOPA PSYA220 RF(Z) UWBCOM ALL! ( P CALL MOVCOM H P CALL SKIFTA P RB SYA220 p P EJECT P P PUWBCOM EQU * P* SEARCH UWB'S: P* & P IM UWB,A13 INDICATE UWB-SCANNING P
0x25aa58…25abec Dummy {f00=0x00aa, f01=0x0190, f02=» CREDIT=0 P CALL SHIFT " PSYA230 RB(Z) SYA210 ALL DONE! & PSYA235 CALL MOVCOM L PSYA240 CALL SKIFTA f P RB SYA230 P EJECT P * P* TASK CLASS DATA CONFIGURATION PART * * P************************************** P
0x25abec…25ad80 Dummy {f00=0x00aa, f01=0x0190, f02=»TE CWB x ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 : P RF(E) SYA270 ALL T:A'S DONE T ( P CALL T:DADD GET T:D ADDRESS TO A12 x P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB
0x25ad80…25af14 (3, 164) Dummy {f00=0x00c4, f01=0x0190, f02=»NTS n P ADR A3,A12 ADD T:D-ADDRESS P LDR* A3,A3 . 0 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH F P CALL MULT AND MULTIPLY z P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE
0x25af14…25b0a8 Dummy {f00=0x00c4, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 ( P* INITIATE MM-ADDRESS TABLE POINTER $ P P $ P LD A1,SCTSFA SHADOW TABLE START X & P AD* A1,SCTSFA ADDRESS TABLE START P ST A1,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x25b0a8…25b23c Dummy {f00=0x00c4, f01=0x0190, f02=»E MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE P 8 P LD A1,SAVE06,A13 @ & P ADK A1,2 INCREMENT TABLE POINTER Z P ST A1,SAVE06,A13 RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE '
0x25b23c…25b3d0 Dummy {f00=0x00c4, f01=0x0190, f02=» ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST 6 , P LDR A3,A1 GET NUMB. OF START-POINTS... b P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY
0x25b3d0…25b564 Dummy {f00=0x00c4, f01=0x0190, f02=»1,A8 GET T:A ADDRESS * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK J P XIF p P IFF CREDIT=0 | P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P*************************
0x25b564…25b6f8 Dummy {f00=0x00c4, f01=0x0190, f02=»DIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF . P IFF CREDIT=0 : P CALL MOVCLA P P EJECT d P r P ~ " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT CREDIT-MMUPAG=1
0x25b6f8…25b88c Dummy {f00=0x00c4, f01=0x0190, f02=»UPAG=2 P EL A7,SWBMSK,A12 P RF(Z) SYA265 NONE ( P CALL SKRITT B PSYA265 EL A7,TWBMSK,A12 V P XIF v P IFF CREDIT=0 P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P
0x25b88c…25ba20 Dummy {f00=0x00c4, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x25ba20…25bbb4 (3, 165) Dummy {f00=0x00c4, f01=0x0190, f02=» P & P* BUILD TASKDATA PROTOTYPE AREA * & P********************************* : PPRODAT EQU * d P =00001 x , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 &
0x25bbb4…25bd48 Dummy {f00=0x00c4, f01=0x018e, f02=»E MMU TABLE P XIF P IFF CREDIT=0 , P LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A 6 P CALL MOVING GET P:BAS f P IFT CREDIT-MMUPAG=1 & P LD A1,SCTLAC GET START OF P:MTAB P LD A1,P:BAS,A1 GET P:BAS $ P STR A1,A2 SAVE IN TRABUG'S
0x25bd48…25bedc Dummy {f00=0x00c4, f01=0x018e, f02=» 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER PSYA272 EQU * 8 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE L P ST A2,TTB:SA+26,A8 SAVE A13 P IFT CREDIT+MMUPAG=2 & P LD A1,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT T
0x25bedc…25c070 Dummy {f00=0x00c4, f01=0x0190, f02=» & P TL* MMFROM,A13 RELOAD DDIV TABLE P XIF =00001 . P IFF CREDIT=0 =00001 D PSYA275 EQU * b P =00001 v P =00001 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x25c070…25c204 Dummy {f00=0x00c4, f01=0x0190, f02=»T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P H " P* CALCULATE LENGTH OF DSCB'S * T " P*** *** z P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL
0x25c204…25c398 Dummy {f00=0x00c4, f01=0x0190, f02=»EMENT r P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) 0 , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD Z 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START " P LD A2,STKB,A1 GET STACK SIZE $ P ST A2,CSE,A1 AND SAVE TEMPORA
0x25c398…25c52c Dummy {f00=0x00c4, f01=0x0190, f02=»OCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB 4 P XIF b P IFT CREDIT+MMUPAG=2 n * P CALL GETTAB SET CORRECT TTAB-ADDRESS , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN
0x25c52c…25c6c0 Dummy {f00=0x00c4, f01=0x0190, f02=»A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE 4 P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P***
0x25c6c0…25c854 (3, 166) Dummy {f00=0x00c4, f01=0x018e, f02=»H x ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S 6 ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT ` P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 P
0x25c854…25c9e8 Dummy {f00=0x00c4, f01=0x0190, f02=» & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE . P EL A2,P:BAS,A2 GET P:BAS V & P TL* MMFROM,A13 RELOAD DDIV TABLE x P ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P ESR
0x25c9e8…25cb7c Dummy {f00=0x00c4, f01=0x0190, f02=»M FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA 6 P f . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS n P ADR A2,A13 ABSOLUT DITO P IFT CREDIT+MMUPAG=2 P LDR A3,A2 P ANKL A3,/F000 $ P SRL
0x25cb7c…25cd10 Dummy {f00=0x00c4, f01=0x0190, f02=» P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS " P XIF P P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS x P* MOVE T:ATAB P . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS P LDR* A1,A2 REAL L
0x25cd10…25cea4 Dummy {f00=0x00c4, f01=0x0190, f02=»1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 4 P CALL MOVE R P XIF d P IFT CREDIT+MMUPAG=2 p $ P TL* MMTO,A13 LOAD CORRECT TABLE & P ELR A1,A2 GET REAL T:ATAB LENGTH P TL* MMFROM,A13 RELOAD TABLE P ADR A
0x25cea4…25d038 Dummy {f00=0x00c4, f01=0x0190, f02=» GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 2 P CALL XMOVE P P XIF d P IFF CREDIT=0 p P P* CONTINUE IN PART 2.B * P * P LDKL A5,PART2B RELATIVE START ADDRESS P ADR A5,A13 ADD BASE ADDRESS P
0x25d038…25d1cc Dummy {f00=0x00c4, f01=0x0190, f02=»***** h 2 P******* ******* 2 P** ** D 2 P* SYSLOAD PART 1 * z 2 P** ** 2 P*****
0x25d1cc…25d360 Dummy {f00=0x00c4, f01=0x0190, f02=» 2 P* SHADOW-TABLES * 2 P* * : 2 P********************************************* p P P XIF P P * P************************************* * P***
0x25d360…25d4f4 (3, 167) Dummy {f00=0x00c5, f01=0x0190, f02=»********************************* P EJECT * P 8 P D 6 P** C O N V R T ** P 6 P** ** 6 P** ** 6 P** CONVER
0x25d4f4…25d688 Dummy {f00=0x00c5, f01=0x018e, f02=» ** r 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2 ** V 6 P************************************************** P PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG
0x25d688…25d81c Dummy {f00=0x00c5, f01=0x0190, f02=» P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 0 P ANK A3,/F GET ONE'S B P ADR A1,A3 ^ P RTN A14 p P EJECT P 6 P** N X T B L K ** 6 P** ** 6
0x25d81c…25d9b0 Dummy {f00=0x00c5, f01=0x0190, f02=» ** ~ 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ( 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** b 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** 6 P** WORKREGS: A1,A3-A5 **
0x25d9b0…25db44 Dummy {f00=0x00c5, f01=0x0190, f02=»CLASSES f 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 F P SLL A5,8 Z P LC A5,1,A11 l P CALL CONVRT P LDK A2,TDBREC P LDR A3,A1 P CALL MULT P ADR A11,A3 P ADKL A11,2 0 P LCR A5,A11 GET NU
0x25db44…25dcd8 Dummy {f00=0x00c5, f01=0x0190, f02=» P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK ( P ADKL A11,2 J $ P LC A2,TDBBT,A11 GET BLOCK TYPE ^ P RTN A14 P P 8 P** G E T N U M ** 8 P**
0x25dcd8…25de6c Dummy {f00=0x00c5, f01=0x0190, f02=» ** b 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** J 8 P** OUTPUT: A5=BINARY VALUE ** 8 P** WORK.REGS: A2,A4 ** 8 P**********
0x25de6c…25e000 Dummy {f00=0x00c5, f01=0x0190, f02=»SULT REG ~ P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT . P LCR A2,A6 GET CHAR P P ANK A2,/F l PGET050 SUK A2,1 ~ " P RF(N) GET100 THIS DIGIT READY P ADR A5,A4 ACCUMULATE P RB GET050 , PGET100 SUK A4,90 NEXT INCREM
0x25e000…25e194 (3, 168) Dummy {f00=0x00c6, f01=0x0190, f02=»JECT P P* START OF PROGRAM PART 1 * P 8 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS @ $ P* SAVE09=EXECUTION START ADDRESS x P " PSYSLDX EQU *-REL PROGRAM START P* P* INIT A15 STACK P* P LD A15,
0x25e194…25e328 Dummy {f00=0x00c6, f01=0x0190, f02=»NTIFICATION r P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## 6 P EL A2,CREID,A2 P P XIF h 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM t P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION? ( P RF(E) SYA100 YES! START CONFIGURA
0x25e328…25e4bc Dummy {f00=0x00c6, f01=0x0190, f02=»CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK 8 P LDKL A4,/00C0 X P STR A4,A15 PUT PSW ON STACK n P RTN A15 PSYA103 EQU *-REL P XIF P IFT MMUPAG-CREDIT=1 ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS
0x25e4bc…25e650 Dummy {f00=0x00c6, f01=0x0190, f02=»ENGTH OF TC:TAB | $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE @ 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER X * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN P* P* INIT UNUSED MMU ENTRIES P* P LDKL A1,/FC00 P L
0x25e650…25e7e4 Dummy {f00=0x00c6, f01=0x0190, f02=»F(E) SYA105 P SUK A4,2 P STR A1,A4 & P RB SYA:10 8 PSYA105 SUK A5,2 ALL? J P RF(N) SYA107 YES! f P LDR* A2,A6 TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE P ADK A6,2 NEXT TTAB P RB SYA105 PSYA107 EQU * P XIF
0x25e7e4…25e978 Dummy {f00=0x00c6, f01=0x0190, f02=»D A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER * P CF A15,ACTOT QUEUE TASK J " P LDKL A1,FINISH END OF SYSLDA j P ADR A1,A13 P ABR A1 P XIF PSYA100 EQU * P IFF CREDIT=0 P EJECT P , P* RE
0x25e978…25eb0c Dummy {f00=0x00c6, f01=0x018e, f02=» LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS * & P SUKL A12,2 ADJUST FOR LENGTH-WORD R P ST A12,T:ATOD,A13 SAVE | , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB " P SUK A4,2 INCLUDE LENGTH-WORD $ P ST A4,U:BTOD,A13 SAVE
0x25eb0c…25eca0 Dummy {f00=0x00c6, f01=0x0190, f02=» n P ST A4,S:BTOD,A13 SAVE P XIF & P IFT CREDIT-MMUPAG=1 2 P* T:ATAB PROCESSING: N P j P LDR* A4,A12 T:ATAB-LENGTH v P LDR A3,A4 SAVE * P AD A3,SCTSFA ADD MONITOR END ADDRESS P* CHECK ADDRESSES P " P LDR A11
0x25eca0…25ee34 (3, 169) Dummy {f00=0x00c6, f01=0x0190, f02=»RFLOW x P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS " P LDK A2,0 N P* CLEAR T:ATAB SHADOW-TABLE: ` P PZERO SUK A3,2 NEXT P STR A2,A3 CLEAR P CW A3,SCTSFA ALL? P RB(NE) ZERO NO! " P STR A4,A3 STORE TAB
0x25ee34…25efc8 Dummy {f00=0x00c6, f01=0x0190, f02=» SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR 8 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID L P SLL A2,8 . x P LC A2,TDBMC+5,A11 ... P CWK A2,'TB' BUGGER TASK? P RF(NE) SYA125 NO! : P ST A2,SAVE02,A13 INDICATE BUGGER
0x25efc8…25f15c Dummy {f00=0x00c6, f01=0x0190, f02=» ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 @ P RF(NZ) SYA135 R 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) h P CALL ERROR PSYA135 EQU * P CW A2,T:ATID,A6 TID EQUAL? P RB(NE) SYA130 NO! P SUR*
0x25f15c…25f2f0 Dummy {f00=0x00c6, f01=0x0190, f02=»DDRESS v $ P SUKL A12,2 INCLUDE LENGTH WORD ! & P ST A12,T:ATOD,A13 SAVE IN SYSLDA ! 6 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS ! ` $ P SUK A4,2 ADJUST FOR LENGTH WORD ! $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA ! P XIF ! P IFT CREDIT+MMUSWB=3 ! ( P EL A4,S
0x25f2f0…25f484 Dummy {f00=0x00c6, f01=0x0190, f02=»=2 ! ~ P* T:ATAB PROCESSING: " P " & P ELR A4,A12 T:ATAB-LENGTH " 2 P LDR A3,A4 SAVE " T 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE " l * P AD A3,SCTSFA ADD MONITOR END ADDRESS " P* CHECK ADDRESSES " P " $ P LDR A11,A3 END OF SHADO
0x25f484…25f618 Dummy {f00=0x00c6, f01=0x0190, f02=» CALL ERROR " ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS # P* CLEAR T:ATAB SHADOW-TABLE: # @ P # d PSYA115 SUK A3,2 NEXT # p P CMR A3 CLEAR # P CW A3,SCTSFA ALL? # P RB(NE) SYA115 NO! # " P STR A4,A3 STORE TABLE LENGTH # ( P LD A11,SAVE
0x25f618…25f7ac Dummy {f00=0x00c6, f01=0x0190, f02=»P4 NO TASK PRESENT # P CALL ERROR $ ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID $ . P SLL A2,8 . $ Z P LC A2,TDBMC+5,A11 ... $ n P CWK A2,'TB' BUGGER TASK? $ P RF(NE) SYA125 NO! $ 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' $ P RF SYA1
0x25f7ac…25f940 Dummy {f00=0x00c6, f01=0x0190, f02=»ET T:A ADDRESS $ P SUK A4,2 % P RF(NZ) SYA135 % ( , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) % > P CALL ERROR % n PSYA135 EQU * % P EL A10,T:ATID,A6 GET TID % P CWR A2,A10 TID EQUAL? % P RB(NE) SYA130 NO! % P ELR A10,A12 % P SUR
0x25f940…25fad4 (3, 170) Dummy {f00=0x00c6, f01=0x0190, f02=»UMBER OF TASKS % z P SLL A5,8 & P LC A5,TDBNT+1,A11 & ( P CALL CONVRT & B ( P LD A2,SCTSFA START OF SHADOW TABLE & V P ADR A2,A4 & 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE & P & P* SKIP TO NEXT BLOCK & P & PSYA136
0x25fad4…25fc68 Dummy {f00=0x00c6, f01=0x0190, f02=» & * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ' P CALL NXTCOM SKIP COMMON DEF ' 6 PSYA140 CCK A2,'UU' ' Z P RF(NE) SYA141 NO UWB'S ' t 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ' 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ' PSYA1
0x25fc68…25fdfc Dummy {f00=0x00c6, f01=0x0190, f02=» ' ~ P CALL USWBTP ( P XIF ( P IFT CREDIT=1 ( ( P RF SYA152 ( > P EJECT ( P L P*********************************************************************** ( ^ L P* * ( L P* USWBTP
0x25fdfc…25ff90 Dummy {f00=0x00c6, f01=0x0190, f02=»== * ( N L P* * ) L P* REFERENCED IN: SYSLDA * ) ^ L P* * ) L P* ENTRY:
0x25ff90…260124 Dummy {f00=0x00c6, f01=0x0190, f02=» * ) N L P* * * L P* EXIT: * * ^ L P* * * L P* WORK RE
0x260124…2602b8 Dummy {f00=0x00c6, f01=0x0190, f02=» * * N L P* SUBROUTINES: GETNUM,ERROR * + L P* * + ^ L P*********************************************************************** + P + PUS
0x2602b8…26044c Dummy {f00=0x00c6, f01=0x018e, f02=»T IN A5 + r $ P LDR A1,A5 SAVE NUMBER OF UWB'S , PSYA142 EQU * , 8 P LDR A12,A8 , L " P LDR* A3,A12 LENGTH OF U:BTAB , ` ( P ADKL A11,UDBFST-1 FIRST UDB RECORD , PSYA145 EQU * , 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG , P SLL A2,8 ,
0x26044c…2605e0 Dummy {f00=0x00c6, f01=0x0190, f02=» , h 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S - P RF(NN) SYA150 - < P LDK A1,LMP6 UWB NOT FOUND - R P CALL ERROR - t PSYA150 EQU * - ( P ADKL A12,UP:REC ADD TO NEXT RECORD - P RB SYA145 - $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR - P CC A2
0x2605e0…260774 (3, 171) Dummy {f00=0x00c6, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x260774…260908 Dummy {f00=0x00c6, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x260908…260a9c Dummy {f00=0x00c6, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x260a9c…260c30 Dummy {f00=0x00c6, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x260c30…260dc4 Dummy {f00=0x00c6, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x260dc4…260f58 Dummy {f00=0x00c6, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x260f58…2610ec Dummy {f00=0x00c6, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x2610ec…261280 Dummy {f00=0x00c6, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x261280…261414 (3, 172) Dummy {f00=0x00c7, f01=0x0190, f02=»F P:MTAB 5 v P IFT CREDIT-MMUPAG=1 6 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 , P XIF 6 X P IFT CREDIT+MMUPAG=2 6 d ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 P XIF 6 P IFF CREDIT=0 6 . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 6 P CALL MU
0x261414…2615a8 Dummy {f00=0x00c7, f01=0x0190, f02=»L,A13 AND ADJUST RELOCATION BASE 6 P IFT CREDIT+MMUPAG=2 7 ( P 7 D . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 L P XIF 7 ~ P IFT CREDIT-MMUPAG=1 7 , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 7 P XIF 7 P IFF CREDIT=0 7 " P SUR A6,A1 RELOC
0x2615a8…26173c Dummy {f00=0x00c7, f01=0x0190, f02=»L (=REAL) LENGTH * 7 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 8 " . P* A9=P:MTAB A6=MOVE-RELOC * 8 T . P***************************************** 8 P IFT CREDIT-MMUPAG=1 8 P 8 P* INITIATE POINTERS 8 P 8 ( P LD A8,T
0x26173c…2618d0 Dummy {f00=0x00c7, f01=0x0190, f02=»CTSFA GET START OF T:ATAB SHADOW-TAB 8 P LDR A4,A5 2:ND POINTER 9 , & P LDR A2,A8 2:ND POINTER IN T:ATAB 9 L & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 9 v . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 9 P 9 P* SCAN T:ATAB: 9 P 9 " PSYA160 ADKL A8,2
0x2618d0…261a64 Dummy {f00=0x00c7, f01=0x018e, f02=»A 9 ~ * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB : , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! : 8 " P ADR A11,A7 ACCUMULATE LENGTH : h , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH : , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS : ( P ADK A2,2 UPDATE 2:ND T:AT
0x261a64…261bf8 Dummy {f00=0x00c7, f01=0x018e, f02=» : z . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ; P* RELOCATE W.B.-ADDRESSES ; : P ; $ P LD A12,T:DAD,A1 GET T:D-ADDRESS ; d $ P LD A7,WATLEN,A12 LENGTH OF WAT ; . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS ; PSYA165 SUK A7,1 DEC. COUNTER ;
0x261bf8…261d8c Dummy {f00=0x00c7, f01=0x0190, f02=» ; z P < P LD A8,T:ATOD,A13 T:ATAB < P ELR A3,A8 GET LENGTH < 0 P ADR A3,A8 END OF T:ATAB < N P ST A3,ENDADD,A13 SAVE < n 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB < P LDR A4,A5 2:ND POINTER < & P LDR A2,A8 2:ND POINTER IN T:ATAB < &
0x261d8c…261f20 Dummy {f00=0x00c7, f01=0x0190, f02=»60 ADKL A8,2 TAKE NEXT T:A < $ P ADK A5,2 NEXT T:A IN SHADOW-TAB = " P CW A8,ENDADD,A13 = J P RF(E) SYA170 ALL DONE = d P ELR A1,A8 GET T:A = * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB = , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! = " P ADR A11,A7 AC
0x261f20…2620b4 (3, 173) Dummy {f00=0x00c7, f01=0x0190, f02=» 2:ND T:ATAB ADDRESS = 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) > P ELR A10,A8 GET T:A-ADDRESS > X P ADR A10,A6 RELOCATE > | . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) > P* RELOCATE W.B.-ADDRESSES > P > $ P EL A12,T:DAD,A1 GET
0x2620b4…262248 Dummy {f00=0x00c7, f01=0x0190, f02=»ER > v P RB(N) SYA160 TAKE NEXT T:A ? P ELR A10,A1 GET ADDRESS ? . P ADR A10,A6 RELOCATE ? N P ESR A10,A1 ? j P XIF ? ~ P IFF CREDIT=0 ? P ADK A1,4 NEXT W.B. ? P RB SYA165 ? P ? PSYA170 EQU * ? P ST A6,MOVADD,A13 SAVE ? 8 P
0x262248…2623dc Dummy {f00=0x00c7, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 @ $ P ST* A3,T:ATOD,A13 AND IN T:ATAB @ P XIF @ H P IFF CREDIT=0 @ T 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR @ j ( P SLL A2,1 CALC. REAL LENGTH (BYTES) @ P ADK A2,2 @ 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S
0x2623dc…262570 Dummy {f00=0x00c7, f01=0x0190, f02=» LEN.) * @ x $ P******************************** A P A 8 P IFT CREDIT-MMUPAG=1 A @ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS A P LDR* A3,A5 LENGTH A P ST A3,SAVE06,A13 A P ADK A5,2 SKIP LENGTH WORD A P SUK A3,2 -"- A " PSYA180 RF(Z) SYA185 AL
0x262570…262704 Dummy {f00=0x00c7, f01=0x0190, f02=»ABLE LENGTH A , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB B P ADK A5,2 B D P SUK A3,2 SUB LENGTH-WORD B V PSYA180 RF(Z) SYA185 B x P ELR A10,A5 GET ADDRESS B P ADR A10,A6 RELOCATE B P ESR A10,A5 B P XIF B P IFF CREDIT=0 B 8 P A
0x262704…262898 Dummy {f00=0x00c7, f01=0x0190, f02=» CREDIT+MMUSWB=3 B P* C $ P* COMPUTE REAL LENGTH OF S:BTAB C " P* C J $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS C T " P ELR A3,A5 LENGTH OF PROTOTYPE C | P LDR A2,A3 SAVE C " P SUK A3,2 EXCLUDE LENGTH WORD C , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED!
0x262898…262a2c Dummy {f00=0x00c7, f01=0x0190, f02=»BER OF COPIES C v P ANK A4,/FF GET RIGHT BYTE D . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! D 8 P ADK A2,2 INCREMENT LENGTH D j ( P SUK A4,1 DECREMENT NUMBER OF COPIES D P RB SYA192 D 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE D $ P S
0x262a2c…262bc0 Dummy {f00=0x00c7, f01=0x0190, f02=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE D P LDR A2,A3 SAVE E . " P SUK A3,2 EXCLUDE LENGTH WORD E F , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! E l $ P LD A4,2,A5 GET PROT. W.B.-ADDR. E P ADR A4,A6 RELOCATE E P ST A4,2,A5 STORE IT BACK E , P LD A4
0x262bc0…262d54 (3, 174) Dummy {f00=0x00c7, f01=0x0190, f02=»TH E x ( P SUK A4,1 DECREMENT NUMBER OF COPIES F P RB SYA196 F 6 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F H $ P SUK A3,UP:REC DECREMENT LENGTH F P RB SYA195 F P XIF F P IFT CREDIT+SWPBLK=2 F 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPU
0x262d54…262ee8 Dummy {f00=0x00c7, f01=0x0190, f02=» F P ADS A6,T:ATOD,A13 G P ADS A6,U:BTOD,A13 G " P IFT CREDIT+SWPBLK=2 G < P ADS A6,S:BTOD,A13 G X P XIF G r P IFT CREDIT-MMUPAG=1 G ~ P* CALCULATE NEW DDIV END G P G P LDR A5,A9 G P SU A5,SAVE04,A13 END-START G $ P AD A5,SAVE12,A1
0x262ee8…26307c Dummy {f00=0x00c7, f01=0x0190, f02=» G v P H P LDK A4,MMDDIV H " P ADR A4,A13 GET TABLE ADDRESS H & & P LDR A5,A13 CALC. REAL RELOCATION H L P SU A5,SAVE12,A13 H v P SU A5,MMREL1,A13 H P SUR A4,A5 RELOCATE H P ST A4,MMTO,A13 AND SAVE H P LDK A4,MMTAB H $ P ADR A4,A13
0x26307c…263210 Dummy {f00=0x00c7, f01=0x0190, f02=»D H ~ P SU A5,SAVE04,A13 ENT-START I $ P AD A5,SAVE12,A13 ADD NEW START I . P LDR A6,A5 I V 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) I h $ P SRL A6,11 ADJUST FOR ADDRESSING I . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS I P ADR A6,A13 RELOCA
0x263210…2633a4 Dummy {f00=0x00c7, f01=0x0190, f02=»3 AND SAVE I P XIF J P IFF CREDIT=0 J P* CONTINUE IN PART 2 * J 4 P J R . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) J ^ ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS J P LDR A5,A2 SAVE J 0 P LDKL A7,START2 GET EXECUTION START ADDRESS J P
0x2633a4…263538 Dummy {f00=0x00c7, f01=0x0190, f02=»DIT-MMUPAG=1 J PNXTMOV LDR* A4,A1 GET WORD K P STR A4,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x263538…2636cc Dummy {f00=0x00c7, f01=0x403c, f02=»ITOR K t P XIF L PLDAEND EQU * L P END L ,@ L 84,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x2636cc…263860 Dummy {f00=0x00c7, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x263860…2639f4 (3, 175) Dummy {f00=0x00c7, f01=0x0000, f02=»
[…0x7…]
0x264500…264694 (3, 176) Opaque[0x194]
0x264694…264828 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1548, f03=0x0000}
0x264694…264828 IdxSect {
0x264694…264828 f00 = 0x00aa // 0x264694 @0x0
0x264694…264828 f01 = 0x000c // 0x264696 @0x2
0x264694…264828 gno = [ // 0x264698 @0x4
0x264694…264828 [0x00]: C0x00aa.0x1.0
0x264694…264828 [0x01]: C0x00aa.0x2.0
0x264694…264828 [0x02]: C0x00aa.0x3.0
0x264694…264828 [0x03]: C0x00ab.0x0.0
0x264694…264828 [0x04]: C0x00ab.0x1.0
0x264694…264828 [0x05]: C0x00ab.0x2.0
0x264694…264828 ]
0x264694…264828 }
0x264828…2649bc Dummy {f00=0x00aa, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x2649bc…264b50 Dummy {f00=0x00aa, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x264b50…264ce4 Dummy {f00=0x00aa, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x264ce4…264e78 Dummy {f00=0x00aa, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x264e78…26500c Dummy {f00=0x00aa, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x26500c…2651a0 Dummy {f00=0x00aa, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x2651a0…265334 (3, 177) Dummy {f00=0x00aa, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x265334…2654c8 Dummy {f00=0x00aa, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x2654c8…26565c Dummy {f00=0x00aa, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x26565c…2657f0 Dummy {f00=0x00aa, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x2657f0…265984 Dummy {f00=0x00aa, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x265984…265b18 Dummy {f00=0x00aa, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x265b18…265cac Dummy {f00=0x00aa, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x265cac…265e40 Dummy {f00=0x00aa, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x265e40…265fd4 (3, 178) Dummy {f00=0x00aa, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x265fd4…266168 Dummy {f00=0x00aa, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x266168…2662fc Dummy {f00=0x00aa, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x2662fc…266490 Dummy {f00=0x00aa, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x266490…266624 Dummy {f00=0x00aa, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x266624…2667b8 Dummy {f00=0x00aa, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x2667b8…26694c Dummy {f00=0x00aa, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x26694c…266ae0 Dummy {f00=0x00aa, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x266ae0…266c74 (3, 179) Dummy {f00=0x00ab, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x266c74…266e08 Dummy {f00=0x00ab, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x266e08…266f9c Dummy {f00=0x00ab, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x266f9c…267130 Dummy {f00=0x00ab, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x267130…2672c4 Dummy {f00=0x00ab, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x2672c4…267458 Dummy {f00=0x00ab, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x267458…2675ec Dummy {f00=0x00ab, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x2675ec…267780 Dummy {f00=0x00ab, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x267780…267914 (3, 180) Dummy {f00=0x00ab, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x267914…267aa8 Dummy {f00=0x00ab, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x267aa8…267c3c Dummy {f00=0x00ab, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x267c3c…267dd0 Dummy {f00=0x00ab, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x267dd0…267f64 Dummy {f00=0x00ab, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x267f64…2680f8 Dummy {f00=0x00ab, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x2680f8…26828c Dummy {f00=0x00ab, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x26828c…268420 Dummy {f00=0x00ab, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x268420…2685b4 (3, 181) Dummy {f00=0x00ab, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x2685b4…268748 Dummy {f00=0x00ab, f01=0x2008, f02=» ' NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x268748…2688dc Dummy {f00=0x00ab, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x2688dc…268a70 Dummy {f00=0x00ab, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x268a70…268c04 Dummy {f00=0x00ab, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x268c04…268d98 Dummy {f00=0x00ab, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x268d98…268f2c Dummy {f00=0x00ab, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x268f2c…2690c0 Dummy {f00=0x00ab, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x2690c0…269254 (3, 182) Opaque[0x194]
0x269254…2693e8 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15a0, f03=0x0000}
0x269254…2693e8 IdxSect {
0x269254…2693e8 f00 = 0x00ad // 0x269254 @0x0
0x269254…2693e8 f01 = 0x0008 // 0x269256 @0x2
0x269254…2693e8 gno = [ // 0x269258 @0x4
0x269254…2693e8 [0x00]: C0x00ad.0x0.0
0x269254…2693e8 [0x01]: C0x00cc.0x2.0
0x269254…2693e8 [0x02]: C0x00cd.0x0.0
0x269254…2693e8 [0x03]: C0x00cd.0x1.0
0x269254…2693e8 ]
0x269254…2693e8 }
0x2693e8…26957c Dummy {f00=0x00ad, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x26957c…269710 Dummy {f00=0x00ad, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x269710…2698a4 Dummy {f00=0x00ad, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x2698a4…269a38 Dummy {f00=0x00ad, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x269a38…269bcc Dummy {f00=0x00ad, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x269bcc…269d60 Dummy {f00=0x00ad, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x269d60…269ef4 (3, 183) Dummy {f00=0x00cc, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x269ef4…26a088 Dummy {f00=0x00cc, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x26a088…26a21c Dummy {f00=0x00cc, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 1 P* P EJECT P* P* O U T L I N P
0x26a21c…26a3b0 Dummy {f00=0x00cc, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x26a3b0…26a544 Dummy {f00=0x00cc, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x26a544…26a6d8 Dummy {f00=0x00cc, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x26a6d8…26a86c Dummy {f00=0x00cc, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x26a86c…26aa00 Dummy {f00=0x00cc, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x26aa00…26ab94 (3, 184) Dummy {f00=0x00cd, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x26ab94…26ad28 Dummy {f00=0x00cd, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x26ad28…26aebc Dummy {f00=0x00cd, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x26aebc…26b050 Dummy {f00=0x00cd, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x26b050…26b1e4 Dummy {f00=0x00cd, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x26b1e4…26b378 Dummy {f00=0x00cd, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x26b378…26b50c Dummy {f00=0x00cd, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x26b50c…26b6a0 Dummy {f00=0x00cd, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x26b6a0…26b834 (3, 185) Dummy {f00=0x00cd, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x26b834…26b9c8 Dummy {f00=0x00cd, f01=0x0190, f02=»PUT DRIVE NO IN CIO INSTRUCTION n P* o ( 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o 2 P* o n P* OUTPUT: A3 CHANGED o x P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P SLL A3,4 o P ORS A
0x26b9c8…26bb5c Dummy {f00=0x00cd, f01=0x0190, f02=»**** o P* p : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p 0 P* EBCDIC-CODED DIGITS (DECIMAL) p T P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p P* A7 CHANGED
0x26bb5c…26bcf0 Dummy {f00=0x00cd, f01=0x0190, f02=»7,10 p P SLL A3,8 q * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q P ORKL A3,/F0F0 EBCDIC CODED q L P RTN A5 q p P* q P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION: PREPARE FOR READING DATA
0x26bcf0…26be84 Dummy {f00=0x00cd, f01=0x0190, f02=» A3 128 q ( P* A4 DRIVER BUFFER ADDRESS r P* A6 DWT ADDRESS r F P* A1 IS CHANGED r h P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A3,128 r P LDKL A4,B
0x26be84…26c018 Dummy {f00=0x00cd, f01=0x0190, f02=» FUNCTION: GET EOD-NO AND EOD-NO ADDRESS IN DWT r P* s 8 P* INPUT: A6 DWT ADDRESS s B P* s d P* OUTPUT: A2 EOD ADDRESS s n , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTEOD s P CF A5,DSPAD s
0x26c018…26c1ac Dummy {f00=0x00cd, f01=0x0190, f02=»* s P* t 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t J P* t P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRESS TO DATA t P*
0x26c1ac…26c340 Dummy {f00=0x00cd, f01=0x0190, f02=»2,A1 t P RTN A5 u P* u P EJECT DRFD01 u & P* u > P********* u H P* STDWT * u Z P********* u l P* u ~ : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P* INPUT: A1 OFFSET TO
0x26c340…26c4d4 (3, 186) Opaque[0x194]
0x26c4d4…26c668 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1728, f03=0x0000}
0x26c4d4…26c668 IdxSect {
0x26c4d4…26c668 f00 = 0x00b9 // 0x26c4d4 @0x0
0x26c4d4…26c668 f01 = 0x0002 // 0x26c4d6 @0x2
0x26c4d4…26c668 gno = [ // 0x26c4d8 @0x4
0x26c4d4…26c668 [0x00]: C0x00b9.0x1.0
0x26c4d4…26c668 ]
0x26c4d4…26c668 }
0x26c668…26c7fc Dummy {f00=0x00b9, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x26c7fc…26c990 Dummy {f00=0x00b9, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x26c990…26cb24 Dummy {f00=0x00b9, f01=0x0190, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x26cb24…26ccb8 Dummy {f00=0x00b9, f01=0x4022, f02=» P* P END @ AGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x26ccb8…26ce4c Dummy {f00=0x00b9, 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
0x26ce4c…26cfe0 Dummy {f00=0x00b9, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x26cfe0…26d174 (3, 187) Opaque[0x194]
0x26d174…26d308 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17f0, f03=0x0000}
0x26d174…26d308 IdxSect {
0x26d174…26d308 f00 = 0x00bf // 0x26d174 @0x0
0x26d174…26d308 f01 = 0x0004 // 0x26d176 @0x2
0x26d174…26d308 gno = [ // 0x26d178 @0x4
0x26d174…26d308 [0x00]: C0x00bf.0x2.0
0x26d174…26d308 [0x01]: C0x00bf.0x3.0
0x26d174…26d308 ]
0x26d174…26d308 }
0x26d308…26d49c Dummy {f00=0x00bf, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x26d49c…26d630 Dummy {f00=0x00bf, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l & P EXTRN TLUSEG LOCK/UNLOCK SEGMENT P EXTRN TLDSEG SEGMENT TLDSEG P EXTRN TABORT ABORT FUNCTION $ P EXTRN
0x26d630…26d7c4 Dummy {f00=0x00bf, f01=0x0190, f02=»CHPAG CHANGE MMU PAGE " P EXTRN TCHMMU CHANGE MMU TABLE P EJECT D P* R $ PLKMAL DATA LKMALE-* TABLE LENGTH P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMIN
0x26d7c4…26d958 Dummy {f00=0x00bf, f01=0x0190, f02=»NT r P DATA TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x26d958…26daec Dummy {f00=0x00bf, f01=0x4010, f02=» END @ TLDSEG SEGMENT TLDSEG P DATA TABORT ABORT FUNCTION . P DATA 0 R 4 P DATA GETTIM GET CURRENT VALUE OF MONITOR CLOCK n " P DATA SETTIM SET MONITOR CLOCK P DATA 0 P DATA TOSSFM FILE MANAGEMENT
0x26daec…26dc80 Dummy {f00=0x00bf, 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
0x26dc80…26de14 (3, 188) Dummy {f00=0x00bf, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x26de14…26dfa8 Dummy {f00=0x00bf, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x26dfa8…26e13c Dummy {f00=0x00bf, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x26e13c…26e2d0 Dummy {f00=0x00bf, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x26e2d0…26e464 Dummy {f00=0x00bf, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x26e464…26e5f8 Dummy {f00=0x00bf, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x26e5f8…26e78c Dummy {f00=0x00bf, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x26e78c…26e920 Dummy {f00=0x00bf, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x26e920…26eab4 (3, 189) Opaque[0x194]
0x26eab4…26ec48 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1708, f03=0x0000}
0x26eab4…26ec48 IdxSect {
0x26eab4…26ec48 f00 = 0x00b8 // 0x26eab4 @0x0
0x26eab4…26ec48 f01 = 0x0002 // 0x26eab6 @0x2
0x26eab4…26ec48 gno = [ // 0x26eab8 @0x4
0x26eab4…26ec48 [0x00]: C0x00b8.0x1.0
0x26eab4…26ec48 ]
0x26eab4…26ec48 }
0x26ec48…26eddc Dummy {f00=0x00b8, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x26eddc…26ef70 Dummy {f00=0x00b8, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x26ef70…26f104 Dummy {f00=0x00b8, 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 @
0x26f104…26f298 Dummy {f00=0x00b8, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x26f298…26f42c Dummy {f00=0x00b8, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x26f42c…26f5c0 Dummy {f00=0x00b8, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x26f5c0…26f754 (3, 190) Opaque[0x194]
0x26f754…26f8e8 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1710, f03=0x0000}
0x26f754…26f8e8 IdxSect {
0x26f754…26f8e8 f00 = 0x00b8 // 0x26f754 @0x0
0x26f754…26f8e8 f01 = 0x0002 // 0x26f756 @0x2
0x26f754…26f8e8 gno = [ // 0x26f758 @0x4
0x26f754…26f8e8 [0x00]: C0x00b8.0x2.0
0x26f754…26f8e8 ]
0x26f754…26f8e8 }
0x26f8e8…26fa7c Dummy {f00=0x00b8, f01=0x018e, f02=» 2 P IDENT TIODMX REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x26fa7c…26fc10 Dummy {f00=0x00b8, f01=0x403c, f02=» $ P DATA /6300 SOMETHING BAD, TRAP P END ,@ 8 : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x26fc10…26fda4 Dummy {f00=0x00b8, 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
0x26fda4…26ff38 Dummy {f00=0x00b8, f01=0x0190, f02=»ADF@ N FDBAI1 P FDBDBR: X " FDBDMIL Y 6 FDBMRO Z J FDBBLZ ^ FDBMEC ^ r FDBKEY ^ CRNTID CRNSTA CRNCDF TIODM ECBCW * & 6
0x26ff38…2700cc Dummy {f00=0x00b8, f01=0x0190, f02=» _ Y A X T X % T U , ( $P ^ =A Y 6T * CRNGETG Z , ( P H I T l , ( I $ C C T , ( / X?j ?j W _l X X , ( O # Xt
0x2700cc…270260 Dummy {f00=0x00b8, f01=0x0190, f02=»PB:FR ECBRL , ( 6P I , ( @ B Y < H H C N FNDFDB ~ , ( C _ X "" * & 6 Q X C X DT T W Y , ( H H S W
0x270260…2703f4 (3, 191) Opaque[0x194]
0x2703f4…270588 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1718, f03=0x0000}
0x2703f4…270588 IdxSect {
0x2703f4…270588 f00 = 0x00b8 // 0x2703f4 @0x0
0x2703f4…270588 f01 = 0x000a // 0x2703f6 @0x2
0x2703f4…270588 gno = [ // 0x2703f8 @0x4
0x2703f4…270588 [0x00]: C0x00b8.0x3.0
0x2703f4…270588 [0x01]: C0x00ba.0x2.0
0x2703f4…270588 [0x02]: C0x00ba.0x3.0
0x2703f4…270588 [0x03]: C0x00bb.0x0.0
0x2703f4…270588 [0x04]: C0x00bb.0x1.0
0x2703f4…270588 ]
0x2703f4…270588 }
0x270588…27071c Dummy {f00=0x00b8, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x27071c…2708b0 Dummy {f00=0x00b8, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x2708b0…270a44 Dummy {f00=0x00b8, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x270a44…270bd8 Dummy {f00=0x00b8, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x270bd8…270d6c Dummy {f00=0x00b8, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x270d6c…270f00 Dummy {f00=0x00b8, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x270f00…271094 (3, 192) Dummy {f00=0x00ba, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x271094…271228 Dummy {f00=0x00ba, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 1 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 1
0x271228…2713bc Dummy {f00=0x00ba, f01=0x018e, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU 1 P* P* 2 P* A PROG
0x2713bc…271550 Dummy {f00=0x00ba, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* VOLCLR * P P********** b P* t P* ~ 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBE
0x271550…2716e4 Dummy {f00=0x00ba, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* D PVCLR10 EQU * N P CMR A1 CLEAR ONE WORD b P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DS
0x2716e4…271878 Dummy {f00=0x00ba, f01=0x0190, f02=»E NAME OF SELECTED DISC r 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* X P* INPUT: A6 = DWT ADDRESS b P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A
0x271878…271a0c Dummy {f00=0x00ba, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x271a0c…271ba0 Dummy {f00=0x00ba, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x271ba0…271d34 (3, 193) Dummy {f00=0x00ba, f01=0x0190, f02=»****** P* VOLADR * P********** P* 2 P* < P* INPUT: A6 = DWT ADDRESS F P* j ( P* OUTPUT: A1 = VOLUME NAME ADDRESS t P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x271d34…271ec8 Dummy {f00=0x00ba, f01=0x0190, f02=»4,1 P RB(NN) VOLA10 P LDK A4,6 " P RF RETURN 4 P* F P EJECT DSKSUB P P* h P* r P********** | P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO
0x271ec8…27205c Dummy {f00=0x00ba, f01=0x0190, f02=»A6 = DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) " 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWT
0x27205c…2721f0 Dummy {f00=0x00ba, f01=0x0190, f02=»FF RESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 * P ANK A1,/FF CHECK IF NVL B " P RF(Z) RETURN RETURN IF NO NVL b " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P
0x2721f0…272384 Dummy {f00=0x00ba, f01=0x0190, f02=»,A3 CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK F * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB j P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETUR
0x272384…272518 Dummy {f00=0x00ba, f01=0x0190, f02=»* P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 < 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS R P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P**
0x272518…2726ac Dummy {f00=0x00ba, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x2726ac…272840 Dummy {f00=0x00ba, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x272840…2729d4 (3, 194) Dummy {f00=0x00bb, f01=0x0190, f02=»FFER POINTERS z P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER ( P RB(P) VGET10 P P CF A15,INXDWT f P ADK A7,0 CHECK NVL FLAG | " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST S
0x2729d4…272b68 Dummy {f00=0x00bb, f01=0x0190, f02=»THIS DISC l P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL $ P* L P EJECT DSKSUB V P* n P* x P********** P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS
0x272b68…272cfc Dummy {f00=0x00bb, f01=0x0190, f02=»THE CONCERNED FILE CODE AND FILES 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE * 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE f ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)
0x272cfc…272e90 Dummy {f00=0x00bb, f01=0x0190, f02=»* A1-A2 ARE DESTROYED P* PNEWVOL EQU * * P LD A2,NVLBIT NVL BIT MASK > 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED ` P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB
0x272e90…273024 Dummy {f00=0x00bb, f01=0x0190, f02=» POINTER r P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* PNEW:10 EQU * f P LDR* A2,A1 NEXT FWT ADDRESS z P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST E
0x273024…2731b8 Dummy {f00=0x00bb, f01=0x0190, f02=»F(NE) NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED 2 P RB NEW:10 f P* x PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTI
0x2731b8…27334c Dummy {f00=0x00bb, f01=0x0190, f02=»**** P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* l P* INPUT: A6 = DWT ADDRESS v P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x27334c…2734e0 Dummy {f00=0x00bb, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* NVLTAB * P P********** b P* t P* ~ 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS
0x2734e0…273674 (3, 195) Dummy {f00=0x00bb, f01=0x0190, f02=» | P DATA TTABLD LDTASK TTAB P XIF ( P* 4 PNVLDMT EQU * > P IFT FILMAN=1 R P IFT DATMAN=1 h P DATA 0 TTAB #D ~ P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1
0x273674…273808 Dummy {f00=0x00bb, f01=0x4164, f02=» FILMAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB . P* N PNVLEND EQU * X P* l PNVLBIT DATA 3 NVL BIT MASK v P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* P
0x273808…27399c Dummy {f00=0x00bb, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x27399c…273b30 Dummy {f00=0x00bb, f01=0x0000, f02=»
[…0x4…]
0x274180…274314 (3, 196) Opaque[0x194]
0x274314…2744a8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1988, f03=0x0000}
0x274314…2744a8 IdxSect {
0x274314…2744a8 f00 = 0x00cc // 0x274314 @0x0
0x274314…2744a8 f01 = 0x0002 // 0x274316 @0x2
0x274314…2744a8 gno = [ // 0x274318 @0x4
0x274314…2744a8 [0x00]: C0x00cc.0x1.0
0x274314…2744a8 ]
0x274314…2744a8 }
0x2744a8…27463c Dummy {f00=0x00cc, f01=0x0190, f02=» 0 P IDENT DVTKB REL 10.0 80-03-14 870105041000 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x27463c…2747d0 Dummy {f00=0x00cc, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x2747d0…274964 Dummy {f00=0x00cc, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x274964…274af8 Dummy {f00=0x00cc, f01=0x4082, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA : P XIF H PDWTEND EQU * T P* h P END r@ ~PACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x274af8…274c8c Dummy {f00=0x00cc, 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
0x274c8c…274e20 Dummy {f00=0x00cc, f01=0x4066, f02=» W P Vd R R6 V W2 RB P p R P W. P #P ET , L P@ b W aP kP qWT yPP R Q @ H D !&J W T , Pb P T T T W < V , !P H D ! 1P$ =R M , UW ]PH cP> iP oP s , yR }Q
0x274e20…274fb4 (3, 197) Opaque[0x194]
0x274fb4…275148 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b0, f03=0x0000}
0x274fb4…275148 IdxSect {
0x274fb4…275148 f00 = 0x00ad // 0x274fb4 @0x0
0x274fb4…275148 f01 = 0x0002 // 0x274fb6 @0x2
0x274fb4…275148 gno = [ // 0x274fb8 @0x4
0x274fb4…275148 [0x00]: C0x00ad.0x2.0
0x274fb4…275148 ]
0x274fb4…275148 }
0x275148…2752dc Dummy {f00=0x00ad, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x2752dc…275470 Dummy {f00=0x00ad, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x275470…275604 Dummy {f00=0x00ad, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x275604…275798 Dummy {f00=0x00ad, 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
0x275798…27592c Dummy {f00=0x00ad, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x27592c…275ac0 Dummy {f00=0x00ad, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x275ac0…275c54 (3, 198) Opaque[0x194]
0x275c54…275de8 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15b8, f03=0x0000}
0x275c54…275de8 IdxSect {
0x275c54…275de8 f00 = 0x00ad // 0x275c54 @0x0
0x275c54…275de8 f01 = 0x0002 // 0x275c56 @0x2
0x275c54…275de8 gno = [ // 0x275c58 @0x4
0x275c54…275de8 [0x00]: C0x00ad.0x3.0
0x275c54…275de8 ]
0x275c54…275de8 }
0x275de8…275f7c Dummy {f00=0x00ad, f01=0x0190, f02=» 0 P IDENT DVTDY REL 10.0 80-03-14 870105041000 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x275f7c…276110 Dummy {f00=0x00ad, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x276110…2762a4 Dummy {f00=0x00ad, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x2762a4…276438 Dummy {f00=0x00ad, f01=0x2008, f02=» S-BLOCK | P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR 4 P DATA 0 TERMINAL QUEUE P DATA 0 OUTPUT QUEUE LINK z P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-S
0x276438…2765cc Dummy {f00=0x00ad, f01=0x0190, f02=»DDRESS TO CHANNEL STATUS 3 P* A6: DWT ADDRESS 4 P* 4 : P* EXIT: 4 D P* 4 T P* A1: STATUS AFTER RECOVERY 4 ^ $ P* A2: ADDRESS TO CHANNEL STATUS 4 P* A6: DWT ADDRESS 4 P* 4 P 4 P 4 & PMTRC LDR A7,A2 CALC CHANNEL NUMBER 4 P
0x2765cc…276760 Dummy {f00=0x00ad, f01=0x0190, f02=» 4 t P CF A5,ONLI 5 P LDR* A3,A2 GET SEQ COUNTER 5 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 5 @ 8 P LDK A7,MTRBLK REVERSE TAPE TO AVOID ANY OLD BLOCKS 5 j PMTRC05 CF A5,SKPR 5 P SUK A7,1 5 P RB(NZ) MTRC05 5 P 5 * PMTRC10 CF A5,RSQN READ S
0x276760…2768f4 (3, 199) Opaque[0x194]
0x2768f4…276a88 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1938, f03=0x0000}
0x2768f4…276a88 IdxSect {
0x2768f4…276a88 f00 = 0x00c9 // 0x2768f4 @0x0
0x2768f4…276a88 f01 = 0x0010 // 0x2768f6 @0x2
0x2768f4…276a88 gno = [ // 0x2768f8 @0x4
0x2768f4…276a88 [0x00]: C0x00c9.0x3.0
0x2768f4…276a88 [0x01]: C0x00ca.0x0.0
0x2768f4…276a88 [0x02]: C0x00ca.0x2.0
0x2768f4…276a88 [0x03]: C0x00cb.0x0.0
0x2768f4…276a88 [0x04]: C0x00cb.0x1.0
0x2768f4…276a88 [0x05]: C0x00cb.0x2.0
0x2768f4…276a88 [0x06]: C0x00cb.0x3.0
0x2768f4…276a88 [0x07]: C0x00cc.0x0.0
0x2768f4…276a88 ]
0x2768f4…276a88 }
0x276a88…276c1c Dummy {f00=0x00c9, f01=0x018e, f02=» 2 P IDENT DRKB03 REL 10.0 80-03-14 870105041000 P : & P =1,CIRCULAR BUFFER SIZE CHANGED B P REL 9.1 79-05-23 l P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x276c1c…276db0 Dummy {f00=0x00c9, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, P , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS $ P* ARE HANDL
0x276db0…276f44 Dummy {f00=0x00c9, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x276f44…2770d8 Dummy {f00=0x00c9, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x2770d8…27726c Dummy {f00=0x00c9, 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
0x27726c…277400 Dummy {f00=0x00c9, 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 $
0x277400…277594 (3, 200) Dummy {f00=0x00ca, f01=0x0190, f02=»D VALUE IS 7 CHARACTERS t 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM P EJECT x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P
0x277594…277728 Dummy {f00=0x00ca, f01=0x0190, f02=»IFT-FUNCTION | , P* -----KEYBOARD LOCK IF NO KEYLOCK ON P* D P* ENTRIES N P* b P* l P ENTRY KBAD3 ADDRESS-BLOCK v P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P* P* P* $ P EXTRN DIS
0x277728…2778bc Dummy {f00=0x00ca, f01=0x018e, f02=»TRY v 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER @ , P EXTRN LDREGE RETURN FROM ECHOE HANDLING x P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P E
0x2778bc…277a50 Dummy {f00=0x00ca, f01=0x0190, f02=» r P* P* P* P* DWT PARAMETERS & P* B P* L P* V " P EXTRN DWTCHP CHANEL PARAMETER ` P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3
0x277a50…277be4 Dummy {f00=0x00ca, f01=0x018e, f02=» DEVICE DWT ~ P EXTRN DWTTP TIMER POINTER P EXTRN DWTWAT SAVE INPUT DWT 6 P EJECT Z P* h P* r P* | P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:F EQU 8 LENGTH OF
0x277be4…277d78 Dummy {f00=0x00ca, f01=0x0190, f02=» P* " PTIME EQU 300 TIME OUT CONSTANT P* 4 P EJECT > P* L P* V , P**************************************** ` , P* CONDITIONAL ASSEMBLY * , P**************************************** P* . P* TIME OUT
0x277d78…277f0c Dummy {f00=0x00ca, f01=0x0190, f02=»NCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. " P* @ PX:B EQU 1 J PCECHO EQU 1 P* p > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION z & P* IS INCLUDED IN THE DRIVER. < P* IF THERE IS A READ REQUEST
0x277f0c…2780a0 Dummy {f00=0x00ca, f01=0x0190, f02=»T V @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB N P* d P* n PX:E EQU 0 x PPOWOFF EQU 1 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
0x2780a0…278234 (3, 201) Dummy {f00=0x00ca, f01=0x0190, f02=»I EQU 0 PKBLOCK EQU 0 P* $ P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x278234…2783c8 Dummy {f00=0x00ca, f01=0x0190, f02=» PX:J EQU 10 PDVBLEN EQU 000 P* 0 P* : P* MMU KEY TABLE SIZE D P* b P* l PX:K EQU 10 v PDVBKTB EQU 00 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /
0x2783c8…27855c Dummy {f00=0x00ca, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * * PDWTCON EQU START+/00 CONVERSION TABLE 4 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE b 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTE
0x27855c…2786f0 Dummy {f00=0x00ca, f01=0x0190, f02=»ART+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER $ . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER P PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P
0x2786f0…278884 Dummy {f00=0x00ca, f01=0x0190, f02=»A 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER " P IFT POWOFF=1 F P DATA RCKB RECOVERY ROUTINE P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT P* RCKB
0x278884…278a18 Dummy {f00=0x00ca, f01=0x0190, f02=» P XIF P* P IFT POWOFF=1 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF
0x278a18…278bac Dummy {f00=0x00ca, f01=0x0190, f02=» ACKB P* : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND P* V @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER ` P* P* TO THREAT P* P* P* P* PACKB EQU * P LDKL A1
0x278bac…278d40 Dummy {f00=0x00ca, f01=0x0190, f02=» P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 ( P RF(N) AKB200 ORDER 1,2 OR 3 : P SUK A4,/2D ^ P RF(Z) AKB110 ORDER 31 r * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P* P* & P* ORD
0x278d40…278ed4 (3, 202) Dummy {f00=0x00cb, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDIO P* 2 P EJECT < P* J P* T P* ORDER 1,2,3 ^ P* x P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO
0x278ed4…279068 Dummy {f00=0x00cb, f01=0x0190, f02=»F(E) AKB205 P CM 10,A8 INDICATE POWER OFF P RF AKB218 8 P XIF J PAKB205 EQU * V P IFT CTIMUT=1 j P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING
0x279068…2791fc Dummy {f00=0x00cb, f01=0x0190, f02=»OINTER z P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 0 P CF A15,SETIMP SET TIME B 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME b . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF ANY KEY-LOCK:
0x2791fc…279390 Dummy {f00=0x00cb, f01=0x0190, f02=» IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. > P* h P* r PAKB210 EQU * | " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A
0x279390…279524 Dummy {f00=0x00cb, f01=0x0190, f02=»B212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 0 P SLL A4,4 B P AN A4,DWTST,A6 T P STR A4,A15 SAVE A4 l P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AKB213 P A
0x279524…2796b8 Dummy {f00=0x00cb, f01=0x0190, f02=»15 RESTORE A4 P CWK A7,1 $ P RF(E) AKB307 JUMP IF BASIC READ ( " PAKB214 NGR A2,A1 MAKE ECB CODE P P LDR A4,A4 KEY FLAG v P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL AKB380 ( PAKB2
0x2796b8…27984c Dummy {f00=0x00cb, f01=0x0190, f02=»A1,2,A8 BUFFER ADDRESS P SUK A1,1 P ADR A1,A2 0 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER B P SUK A1,1 l P SUK A2,1 ~ P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF
0x27984c…2799e0 Dummy {f00=0x00cb, f01=0x018e, f02=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 2 " P CF A5,STREG NOTHING IN QUEUE J P IFT CTIMUT=1 p * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT P XIF
0x2799e0…279b74 (3, 203) Dummy {f00=0x00cb, f01=0x0190, f02=» l PAKB257 EQU * P LDR A4,A7 P SUK A4,2 . P RF(NN) AKB310 ORDER 2 OR 3 @ P EJECT d P* r P* | P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO
0x279b74…279d08 Dummy {f00=0x00cb, f01=0x0190, f02=» KEYS? | P ANK A2,/F P RB(NZ) AKB210 P RB AKB225 6 P EJECT H P* V P* ` P* j 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ t P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) P* P*
0x279d08…279e9c Dummy {f00=0x00cb, f01=0x0190, f02=»ABLE LENGTH IN A4 P ANK A4,/FF & P ADR A1,A4 LAST PLACE IN KEY-TABLE . P ADK A1,1 X PAKB355 SUK A4,1 j , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1
0x279e9c…27a030 Dummy {f00=0x00cb, f01=0x0190, f02=»OR-CHARACTER z " P CF A5,ECHO ECHO EOR-CHARACTER ! P XIF ! : P RF AKB380 ! F PAKB360 EQU * ! X P LDR A4,A2 ! l P CC A4,KBMZ2,A6 ! ~ P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P
0x27a030…27a1c4 Dummy {f00=0x00cb, f01=0x018e, f02=»ED CHARACTER ! x P RF(N) AKB364 LESS THAN /20 " P SUK A4,/5F CHARACTER > /7F " 8 P RF(P) AKB364 YES " P CWK A7,2 " v $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ
0x27a1c4…27a358 Dummy {f00=0x00cb, f01=0x018e, f02=» " P XIF # P CW A3,4,A8 LENGTH OVERFLOW? # " PAKB367 ABL(L) AKB210 NO RETURN # 8 & PAKB368 LDK A1,8 YES SET ERROR CODE # ^ P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DO
0x27a358…27a4ec Dummy {f00=0x00cb, f01=0x018e, f02=» # P IFT CECHO=1 $ P CF A5,ECHO $ P XIF $ 0 P CW A3,4,A8 $ < P RB(L) KBMZ25 $ P PKBMZ27 EQU * $ f P SUK A4,1 ANY MORE ZEROES $ z $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6
0x27a4ec…27a680 Dummy {f00=0x00cb, f01=0x0190, f02=» P SUK A1,1 % P RF KBMZ40 % 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % ( P SUK A1,1 % ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % p P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STOR
0x27a680…27a814 (3, 204) Dummy {f00=0x00cb, f01=0x0190, f02=» P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & ( P LDK A1,/A SET RETURN CODE FOR BOTH & > . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & j P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18 & P RB AKB366 &
0x27a814…27a9a8 Dummy {f00=0x00cb, f01=0x0190, f02=»AR IN ECB-BUFFER & x P CF A15,STORE ' P SUK A3,1 ' . PKBSP15 LDK A2,/8 ' @ P RB AKB366 ' X P* ' j P* ' t PAKB380 LDK A1,0 RETURN CODE ' ~ P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET E
0x27a9a8…27ab3c Dummy {f00=0x00cb, f01=0x0190, f02=»NH ' P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( 8 P CM* DWTTP,A6 RESET TIMER ( f P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* ( P IFT CEC
0x27ab3c…27acd0 Dummy {f00=0x00cb, f01=0x0190, f02=» ( P* ) P EJECT ) P* ) P* ) * P* ) 4 P* IHKB ) > P* ) P P* ) Z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) d P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT
0x27acd0…27ae64 Dummy {f00=0x00cb, f01=0x0190, f02=»D A3,DWTST,A6 NORMAL CHAR ) P IFT KBLOCK=1 * " P ANK A3,/FF * 8 P RF(Z) EXIT * L P LD A3,DWTST,A6 I/O REQUEST? * ` P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15 NO, STORE CHARACTER I
0x27ae64…27aff8 Dummy {f00=0x00cb, f01=0x0190, f02=»IME * x P ST* A3,DWTTP,A6 + P XIF + $ , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + 0 , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + ` P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P
0x27aff8…27b18c Dummy {f00=0x00cb, f01=0x0190, f02=»A6 + P ABL AKB210 , P , PIHKB15 LD A1,DWTINQ,A6 , & P LCR A4,A1 , D " P XRK A4,/FF ALREADY OVERFLOW? , V P RF(E) EXIT YES , | P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ)
0x27b18c…27b320 Dummy {f00=0x00cb, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x27b320…27b4b4 (3, 205) Dummy {f00=0x00cb, f01=0x0190, f02=»ATCH IF NO REQUEST ON - , P RB IHKB07 RESTORE REGISTER AND END I/O . P XIF . N P EJECT . Z P* . h P* . r P* . | P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . P* . @ P* ON EXI
0x27b4b4…27b648 Dummy {f00=0x00cb, f01=0x0190, f02=» P LDKL A2,/100 / PSET100 SRL A2,1 / P ADK A4,2 IN A4: 1=OFF 0=ON / 2 P RB(N) SET100 / V $ P ANR A3,A2 CHEC OLD KEY POSITION / l " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 /
0x27b648…27b7dc Dummy {f00=0x00cb, f01=0x0190, f02=»DK A3,1 A3=1 IF KEY LOCK HAS CHANGED / PSET500 LDR* A4,A15 0 , P RTN A15 0 F P EJECT 0 V P* 0 d P* 0 n P* 0 x P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0
0x27b7dc…27b970 Dummy {f00=0x00cb, f01=0x0190, f02=»RL,SHIFT 0 P $ P* A5 IS DESTROYED! 1 P* 1 8 P* 1 B PKONVER EQU * 1 L P LDR A4,A2 1 ` P IFT NSHIFT=0 1 r P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARAC
0x27b970…27bb04 Dummy {f00=0x00cb, f01=0x0190, f02=»N) KON180 ALFANUMERIC 1 P SUK A4,/10 FUNCTION 2 P RF(NN) KON110 NO 2 : P SUK A2,/40 YES 2 T PKON105 EQU * 2 l P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-LOCK 2 P RF(
0x27bb04…27bc98 Dummy {f00=0x00cb, f01=0x0190, f02=»4,2 2 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 . " P RF KON160 NUMERICAL SHIFT OFF 3 V P XIF 3 | PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P R
0x27bc98…27be2c Dummy {f00=0x00cb, f01=0x0190, f02=» P LDK A2,/90 4 P RF KON150 4 P XIF 4 * PKON145 EQU * 4 6 P LDK A2,/10 SHIFT 4 J PKON150 ORR A5,A2 4 d P RB KON130 4 | PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4
0x27be2c…27bfc0 Dummy {f00=0x00cb, f01=0x0190, f02=» P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 P ANK A5,/30 5 : P SRL A5,3 5 N P ADK A5,4 5 ` 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 r P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15
0x27bfc0…27c154 (3, 206) Dummy {f00=0x00cc, f01=0x018e, f02=»15 5 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 P RB KON300 6 B P IFT NSHIFT=0 6 T PKON500 EQU * 6 j P LDR A4,A4 KEY CODE /7C 6 ~ P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 P RTN A15 6 PKON600 EQU * 6 P S
0x27c154…27c2e8 Dummy {f00=0x00cc, f01=0x0190, f02=» 6 ^ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 P* 7 B P* ON ENTRY: 7 L P* 7 b P* A2 = CHARACTER TO STORE 7 l P* A3 = BUFFER INDEX 7 P* 7 P* 7 PSTORE EQU * 7 P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD B
0x27c2e8…27c47c Dummy {f00=0x00cc, f01=0x018e, f02=»P,A15 7 P EJECT 8 P* 8 P* 8 & 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 0 P* 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x27c47c…27c610 Dummy {f00=0x00cc, f01=0x406c, f02=» * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 PEOQU10 ADR A1,A6 9 2 P RB STORTN 9 J P END 9 @ 9 h 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x27c610…27c7a4 Dummy {f00=0x00cc, f01=0x2008, f02=» : WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x27c7a4…27c938 Dummy {f00=0x00cc, f01=0x0190, f02=» MMUPAG=1 J P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K & P XIF K N P* K Z P IFF TOSS+IBM=0 K d 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K | P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* R
0x27c938…27cacc Dummy {f00=0x00cc, f01=0x0190, f02=» SC A4,DWTA3+1,A6 SAVE IT K P CF A5,SETCIO L " P LDK A2,/14 L 8 P CF A5,FD:REA LOCK L L P ANK A3,1 L f P RF(Z) FDON19 OPERABLE L x P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P*
0x27cacc…27cc60 Dummy {f00=0x00cc, f01=0x0190, f02=» PFDON21 EQU * M P LDK A2,/C M P CF A5,FD:REA UNLOCK M * P LDK A3,0 M F , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M X P SUK A3,1 M P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6
0x27cc60…27cdf4 (3, 207) Opaque[0x194]
0x27cdf4…27cf88 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15c0, f03=0x0000}
0x27cdf4…27cf88 IdxSect {
0x27cdf4…27cf88 f00 = 0x00ae // 0x27cdf4 @0x0
0x27cdf4…27cf88 f01 = 0x000e // 0x27cdf6 @0x2
0x27cdf4…27cf88 gno = [ // 0x27cdf8 @0x4
0x27cdf4…27cf88 [0x00]: C0x00ae.0x0.0
0x27cdf4…27cf88 [0x01]: C0x00ae.0x1.0
0x27cdf4…27cf88 [0x02]: C0x00ae.0x2.0
0x27cdf4…27cf88 [0x03]: C0x00ae.0x3.0
0x27cdf4…27cf88 [0x04]: C0x00af.0x0.0
0x27cdf4…27cf88 [0x05]: C0x00af.0x1.0
0x27cdf4…27cf88 [0x06]: C0x00af.0x2.0
0x27cdf4…27cf88 ]
0x27cdf4…27cf88 }
0x27cf88…27d11c Dummy {f00=0x00ae, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x27d11c…27d2b0 Dummy {f00=0x00ae, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x27d2b0…27d444 Dummy {f00=0x00ae, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x27d444…27d5d8 Dummy {f00=0x00ae, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x27d5d8…27d76c Dummy {f00=0x00ae, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x27d76c…27d900 Dummy {f00=0x00ae, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x27d900…27da94 (3, 208) Dummy {f00=0x00ae, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x27da94…27dc28 Dummy {f00=0x00ae, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x27dc28…27ddbc Dummy {f00=0x00ae, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x27ddbc…27df50 Dummy {f00=0x00ae, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x27df50…27e0e4 Dummy {f00=0x00ae, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x27e0e4…27e278 Dummy {f00=0x00ae, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 0 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x27e278…27e40c Dummy {f00=0x00ae, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x27e40c…27e5a0 Dummy {f00=0x00ae, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x27e5a0…27e734 (3, 209) Dummy {f00=0x00ae, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 1 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x27e734…27e8c8 Dummy {f00=0x00ae, f01=0x0190, f02=» d P* PCPU852 EQU 1 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 000 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x27e8c8…27ea5c Dummy {f00=0x00ae, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x27ea5c…27ebf0 Dummy {f00=0x00ae, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x27ebf0…27ed84 Dummy {f00=0x00ae, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x27ed84…27ef18 Dummy {f00=0x00ae, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x27ef18…27f0ac Dummy {f00=0x00ae, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x27f0ac…27f240 Dummy {f00=0x00ae, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x27f240…27f3d4 (3, 210) Dummy {f00=0x00ae, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x27f3d4…27f568 Dummy {f00=0x00ae, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x27f568…27f6fc Dummy {f00=0x00ae, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x27f6fc…27f890 Dummy {f00=0x00ae, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x27f890…27fa24 Dummy {f00=0x00ae, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x27fa24…27fbb8 Dummy {f00=0x00ae, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x27fbb8…27fd4c Dummy {f00=0x00ae, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x27fd4c…27fee0 Dummy {f00=0x00ae, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x27fee0…280074 (3, 211) Dummy {f00=0x00af, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x280074…280208 Dummy {f00=0x00af, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x280208…28039c Dummy {f00=0x00af, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x28039c…280530 Dummy {f00=0x00af, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x280530…2806c4 Dummy {f00=0x00af, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x2806c4…280858 Dummy {f00=0x00af, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x280858…2809ec Dummy {f00=0x00af, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x2809ec…280b80 Dummy {f00=0x00af, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x280b80…280d14 (3, 212) Dummy {f00=0x00af, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x280d14…280ea8 Dummy {f00=0x00af, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x280ea8…28103c Dummy {f00=0x00af, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x28103c…2811d0 Dummy {f00=0x00af, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x2811d0…281364 Dummy {f00=0x00af, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x281364…2814f8 Dummy {f00=0x00af, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x2814f8…28168c Dummy {f00=0x00af, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x28168c…281820 Dummy {f00=0x00af, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x281820…2819b4 (3, 213) Dummy {f00=0x00af, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x2819b4…281b48 Dummy {f00=0x00af, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x281b48…281cdc Dummy {f00=0x00af, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x281cdc…281e70 Dummy {f00=0x00af, f01=0x0190, f02=»RACTER,POS IF CTRL,SHIFT 0 ` $ P* A5 IS DESTROYED! 1 P* 1 H P* 1 R PKONVER EQU * 1 P LDR A4,A2 1 p P IFT NSHIFT=0 1 P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,
0x281e70…282004 Dummy {f00=0x00af, f01=0x0190, f02=»/40 1 P RF(N) KON180 ALFANUMERIC 2 P SUK A4,/10 FUNCTION 2 . P RF(NN) KON110 NO 2 J P SUK A2,/40 YES 2 d PKON105 EQU * 2 | P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-
0x282004…282198 Dummy {f00=0x00af, f01=0x0190, f02=»1 2 P SUK A4,2 3 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 > " P RF KON160 NUMERICAL SHIFT OFF 3 f P XIF 3 PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A
0x282198…28232c Dummy {f00=0x00af, f01=0x0190, f02=»SHIFT NOT ON 3 P LDK A2,/90 4 P RF KON150 4 ( P XIF 4 : PKON145 EQU * 4 F P LDK A2,/10 SHIFT 4 Z PKON150 ORR A5,A2 4 t P RB KON130 4 PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDK
0x28232c…2824c0 Dummy {f00=0x00af, f01=0x0190, f02=» A2,/20 CTRL 4 P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 & P ANK A5,/30 5 J P SRL A5,3 5 ^ P ADK A5,4 5 p 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5
0x2824c0…282654 (3, 214) Opaque[0x194]
0x282654…2827e8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x15f8, f03=0x0000}
0x282654…2827e8 IdxSect {
0x282654…2827e8 f00 = 0x00af // 0x282654 @0x0
0x282654…2827e8 f01 = 0x0018 // 0x282656 @0x2
0x282654…2827e8 gno = [ // 0x282658 @0x4
0x282654…2827e8 [0x00]: C0x00af.0x3.0
0x282654…2827e8 [0x01]: C0x00b0.0x0.0
0x282654…2827e8 [0x02]: C0x00b0.0x1.0
0x282654…2827e8 [0x03]: C0x00b0.0x2.0
0x282654…2827e8 [0x04]: C0x00b0.0x3.0
0x282654…2827e8 [0x05]: C0x00b1.0x0.0
0x282654…2827e8 [0x06]: C0x00b1.0x1.0
0x282654…2827e8 [0x07]: C0x00b1.0x2.0
0x282654…2827e8 [0x08]: C0x00d0.0x1.0
0x282654…2827e8 [0x09]: C0x00d0.0x3.0
0x282654…2827e8 [0x0a]: C0x00d1.0x0.0
0x282654…2827e8 [0x0b]: C0x00d1.0x1.0
0x282654…2827e8 ]
0x282654…2827e8 }
0x2827e8…28297c Dummy {f00=0x00af, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 10.0 80-03-14 870105041000 P : . P =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE B P PRR 10.0 79-12-07 t 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING P REL 10.1 79-10-19 P =5,ABORT ROUTINE P REL 1
0x28297c…282b10 Dummy {f00=0x00af, f01=0x0190, f02=».1 79-04-06 , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 D . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 ` P PRR 9.1 79-01-12 P P* 6 P************************************************** P* $ P*
0x282b10…282ca4 Dummy {f00=0x00af, f01=0x0190, f02=» P* P* 6 P************************************************** P* R P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS f @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 6 P* T
0x282ca4…282e38 Dummy {f00=0x00af, f01=0x0190, f02=»HO-FUNCTIONS d : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE R ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P*
0x282e38…282fcc Dummy {f00=0x00af, f01=0x018e, f02=»ERY ROUTINE x P* & P* E C H O D Y ECHO FUNCTIONS P* H P R P Z P b P* j * P* THE FOLLOWING ORDERS ARE TREATED: t P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE " P* 06: STANDARD
0x282fcc…283160 Dummy {f00=0x00af, f01=0x0190, f02=» P* NORMAL REGISTER USAGE P* & " P* REGISTER A1 = RETURN CODE 0 ( P* A2 = OUTPUT CHARACTER V $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6
0x283160…2832f4 (3, 215) Dummy {f00=0x00b0, f01=0x0190, f02=»* SYSTEM ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. ( P* h * P* --------------------------------- r P* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 * P* 0
0x2832f4…283488 Dummy {f00=0x00b0, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT 8 , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 p : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD
0x283488…28361c Dummy {f00=0x00b0, f01=0x0190, f02=»JECT P* P* P* P* * P*********** 4 P* ENTRIES * H P*********** P* p P* z P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* P* P*
0x28361c…2837b0 Dummy {f00=0x00b0, f01=0x0190, f02=»******************* z P* P* & $ P EXTRN DISIOE I/O REQUEST ERROR 0 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER X P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O .
0x2837b0…283944 Dummy {f00=0x00b0, f01=0x0190, f02=» ECB-BUFFER p P EJECT P* " P************************ , P* DWT PARAMETERS * L P************************ l P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P* P EJECT P**
0x283944…283ad8 Dummy {f00=0x00b0, f01=0x018e, f02=»RESS t " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP 2 & PLISTAR EQU /1E LOW INTENSITY START X & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME ( P
0x283ad8…283c6c Dummy {f00=0x00b0, f01=0x0190, f02=» z PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE , PETX EQU /03 LAST DUMMY N . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE l * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOLD FO
0x283c6c…283e00 Dummy {f00=0x00b0, f01=0x0190, f02=»** ~ P* RETURN CODES * P******************** & P* B " PCCERR EQU /4 CODE CHECK ERROR L ( POPERR EQU /1 NOT OPERABLE, POWER OFF r P* P EJECT P* P* . P***************************************** . P* CONDITI
0x283e00…283f94 (3, 216) Dummy {f00=0x00b0, f01=0x0190, f02=»VER CAN HANDLE GRAFIC MODE FOR PTS 6351 t P* 0 PX:A EQU 0 : PGRAFIC EQU 0 L P* ` < P* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 j P* PX:B EQU 1 PWHATDY EQU 1 P* P* 8 P* BY SETTING X:C TO 1 L
0x283f94…284128 Dummy {f00=0x00b0, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. : 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 v P* PX:D EQU 0 PEORECH EQU 0 P* 0 P* BY SETTING THE CONSTANT
0x284128…2842bc Dummy {f00=0x00b0, f01=0x0190, f02=» P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING R PX:F EQU 0 r PSTEADY EQU 0 P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 P*
0x2842bc…284450 Dummy {f00=0x00b0, f01=0x0190, f02=»852 EQU 0. p P* PCPU852 EQU 1 P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : < P* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. v P P P* CODE COUNTRY P P* 0 GB/NL/B P* 1 D/A/L/CH
0x284450…2845e4 Dummy {f00=0x00b0, f01=0x0190, f02=»0 PCOUNTRY EQU 0 P* & P* MEMORY MANAGEMENT BUFFER SIZE * P* T P* ^ PX:H EQU 64 h PDVBLEN EQU 000 z P* P EJECT P* P* $ P******************************** $ P* DWT-DISPLACEMENT *
0x2845e4…284778 Dummy {f00=0x00b0, f01=0x0190, f02=»G=0 PSTART EQU DWTDRD P XIF $ P* 0 P IFT MMUPAG=1 : PSTART EQU DWTDRD+4 P P XIF j P* v . PDWTAP EQU START+/12 HEAD POSITION POINTER " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES & PDWTBIN EQU STA
0x284778…28490c Dummy {f00=0x00b0, f01=0x018e, f02=»* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX , PDYAD EQU * ADDRESS BLOCK H P DATA ACDY ACTIVATION DRIVER h $ P DATA ABDY ABORT ROUTINE ADDRESS P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE . P DATA ECHODY
0x28490c…284aa0 Dummy {f00=0x00b0, f01=0x0190, f02=» P EJECT P* P* A C D Y P* 0 * P* ACDY = ACTIVATION DRIVER DISPLAY : P* h H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE r 2 P* IS SET IF DISPLAY NOT OPERABLE P* P* > P
0x284aa0…284c34 (3, 217) Dummy {f00=0x00b0, f01=0x0190, f02=» ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. H P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST O
0x284c34…284dc8 Dummy {f00=0x00b0, f01=0x0190, f02=»1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER P * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AND STANDARD W
0x284dc8…284f5c Dummy {f00=0x00b0, f01=0x0190, f02=» V @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. L P* p < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE z < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x284f5c…2850f0 Dummy {f00=0x00b0, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. 0 PACDY EQU * ^ P LDK A3,0 START BUFFER INDEX p P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MESSAGE P
0x2850f0…285284 Dummy {f00=0x00b0, f01=0x0190, f02=»NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 < P XIF R P IFT WHATDY=0 ^ . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE t P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 ORDER 5
0x285284…285418 Dummy {f00=0x00b0, f01=0x0190, f02=» SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES " P* < & PDYERR ABL DISIOE I/O REQUEST ERROR F P EJECT p : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER ~ P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD
0x285418…2855ac Dummy {f00=0x00b0, f01=0x0190, f02=», LF z P* PACDY20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH * P RF(E) ACDY25 R P LDK A3,2 START BUFFER INDEX h " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU * * P SUK
0x2855ac…285740 Dummy {f00=0x00b0, f01=0x0190, f02=»ED v " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 0 ( P ADK A4,1 INDICATE DOUBLE LINE FEED F P r P z $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIA
0x285740…2858d4 (3, 218) Dummy {f00=0x00b0, f01=0x018e, f02=»F(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES ( P CC A1,DWTAP,A6 LAST LINE ? F P RF(L) ACDY55 j ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50 ( PACDY65 L
0x2858d4…285a68 Dummy {f00=0x00b0, f01=0x018e, f02=» & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) . P* P PACDY70 EQU * Z P IFT WHATDY=0 n & 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,A8 2
0x285a68…285bfc Dummy {f00=0x00b0, f01=0x0190, f02=» P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING P IFT TRASPA=1 T ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) j ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 P RF(NG
0x285bfc…285d90 Dummy {f00=0x00b0, f01=0x0190, f02=»IP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! : P RF(NG) SKIP30 RL < 5 ! R P LC A4,-2,A1 GET CHAR ! p $ P CCK A4,/1111 TABULATION CHAR ? ! P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! P SUK A2,2 DECR RL ! P RB
0x285d90…285f24 Dummy {f00=0x00b0, f01=0x0190, f02=»P07 YES! SKIP IT! ! P SUK A4,/C LOW INT. START? " P RB(Z) SKIP07 YES! " < P SUK A4,1 LOW INT. STOP? " V P RB(Z) SKIP07 YES! " v P* " " PSKIP30 ST A2,4,A8 STORE NEW RL " P XIF " PACDY90 LDK A4,0 " 6 PADY100 CF A15,GETCHR GET CHARACTER F
0x285f24…2860b8 Dummy {f00=0x00b0, f01=0x0190, f02=»/7F " P LDK A1,5 SET TABLE POINTER # " P CC A2,TABSPE,A1 FAST OUTPUT? # 0 P RF(E) ADY125 # V P SUK A1,1 NO! # l " P LDR* A7,A6 CHANNEL PARAMETER # P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PAD
0x2860b8…28624c Dummy {f00=0x00b0, f01=0x0190, f02=»4,/80 # , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE $ P LDK A4,0 $ > P RB ACDY50 $ P $ PADY122 CCK A2,/1212 UNDERLINE ? $ b P RF(NE) ADY125 $ " P LDK A4,/40 SET UNDERLINE MODE $ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A
0x28624c…2863e0 Dummy {f00=0x00b0, f01=0x0190, f02=» LD A4,4,A8 REQ LENGTH $ P SUR A4,A3 NUMBER OF CHARS % P RF(Z) ADY127 NONE % @ P* % Z P IFT WHATDY=0 % d & P LDR* A7,A6 GET CHANNEL PARAMETER % z P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % P LDR A3,A1 NO!
0x2863e0…286574 (3, 219) Dummy {f00=0x00b1, f01=0x0190, f02=» EQU * % P SUK A1,1 GET NEXT & P RB(NN) ADY110 NOT AT END & ( P LDR A1,A2 MOVE CHARACTER & J P SUK A1,/11 TAB CHAR? (11) & l P RF(E) ADY140 & P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & P SUK A1,/3F GREATER THAN /
0x286574…286708 Dummy {f00=0x00b1, f01=0x0190, f02=»/40 TO /5F & x P XIF ' P RB ACDY70 ' P* ' 0 P* ' : P IFT WHATDY=0 ' D POTHER EQU * ' Z P************************ ' n P* A3 = INDEX ' P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' P LC A2,DWTBC,A6 ' P
0x286708…28689c Dummy {f00=0x00b1, f01=0x0190, f02=» ANK A3,/FF ' P ST A4,10,A8 SAVE LENGTH ( P SUR A3,A2 COMPARE ( 4 P RF(NN) OT030 LENGTH OK ( N P ADR A4,A3 ( n P ST A4,10,A8 SAVE LENGTH ( 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( & P LDR A3,A1 SAVE CHARACTER TO SEN
0x28689c…286a30 Dummy {f00=0x00b1, f01=0x0190, f02=»,10,A8 GET ACT. LENGTH ( POT040 LDK A2,BACKSP ) P CF A5,OUTPUT SENDBACKSPACE ) : P SUK A4,1 DECREMENT LENGTH ) ^ P RB(P) OT040 ) P RB ADY127 ) P XIF ) P EJECT ) P* ) P* CODE CHECK ERROR ) P* ) PADY130 EQU * ) P L
0x286a30…286bc4 Dummy {f00=0x00b1, f01=0x0190, f02=»QU * ) , P CF A15,GETCHR GET FIRST ASCII CHARACTER * P LDR A4,A2 * < . P CF A15,GETCHR GET SECOND ASCII CHARACTER * N 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 * P RB(NE)
0x286bc4…286d58 Dummy {f00=0x00b1, f01=0x0190, f02=»EQUESTS POSITION COUNTER * & P TO GET NUMBER OF SPACES TO SEND + P RB(NP) ADY100 + J P LDR A4,A2 + ` & PADY145 LDK A2,CURRIG CURSOR RIGHT + r PADY146 CF A5,OUTPUT + , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + P RB(NE
0x286d58…286eec Dummy {f00=0x00b1, f01=0x0190, f02=» CHAR TO ERASE + p P IFT WHATDY=0 , " P LDR* A1,A6 CHANNEL PARAMETER , , P ANK A1,/10 GRAFIC DISPLAY? , R P RF(NE) ADY166 YES =2 , v P XIF , & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , P CF A5,FASTER FAST OUTPUT , PADY165 L
0x286eec…287080 Dummy {f00=0x00b1, f01=0x0190, f02=»ET LENGTH TO ERASE =2 , P* - $ PADY170 SUK A4,1 DECR NO OF CHAR - ( P RF(N) ADY180 ERASE READY - P P LDK A2,/20 SPACE - r P CF A5,OUTPUT SEND IT - P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - P LDR A3,
0x287080…287214 (3, 220) Dummy {f00=0x00b1, f01=0x0190, f02=» RB(N) ADY165 CURSOR IN ORIGIN POSITION - P LDK A2,BACKSP CURSOR LEFT . 0 P CF A5,OUTPUT SEND IT . R P RB ADY186 AGAIN . p P XIF . P EJECT . P* . * P* ORDER /B CURSOR POSITIONING PART . P* . PADY200 EQU * . P* . P IFT W
0x287214…2873a8 Dummy {f00=0x00b1, f01=0x0190, f02=» SET CURSOR ADDRESS DIRECT . | 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 / P RF ADY380 / P IFT WHATDY=0 / P* GET LINE / * PADY205 LC A4,10,A8 GET REQUE
0x2873a8…28753c Dummy {f00=0x00b1, f01=0x0190, f02=» PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 PADY210 CWR A4,A3 0 @ . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 0 X P RF(E) ADY300 SAME LINE 0 P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 PADY230 CF A5,OUTPUT
0x28753c…2876d0 Dummy {f00=0x00b1, f01=0x0190, f02=»ME HOME 0 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3,DWTAP,A6 RESET POSITION 1 : P RB ADY230 1 ` P* 1 r P* GET POSITION 1 | P* 1 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 $ P CC A4
0x2876d0…287864 Dummy {f00=0x00b1, f01=0x0190, f02=»SITION ? 1 ~ P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ? 2 * P RF(NE) ADY305 NO 2 J P LDK A2,HOME CURSOR GO HOME 2 d P RF ADY330 2 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 2 P LDK A4,1 2 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2
0x287864…2879f8 Dummy {f00=0x00b1, f01=0x0190, f02=» ADY370 POSITION FOUND 2 P RF(N) ADY340 BACK 3 P LDK A2,CURRIG CURSOR RIGHT 3 8 & P ADK A3,1 UPDATE POSITION COUNTER 3 PADY330 CF A5,OUTPUT SEND 3 P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS W
0x2879f8…287b8c Dummy {f00=0x00b1, f01=0x0190, f02=»Y330 3 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT SEND 4 2 P SUK A3,1 LAST BACKSPACE ? 4 L P RB(NE) ADY345 4 n 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 P XIF 4 & PADY380 LDK A3,2 START BUFFER INDEX 4 P ABL ACDY90 4
0x287b8c…287d20 Dummy {f00=0x00b1, f01=0x0190, f02=» 4 P* 5 P* 5 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 5 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 5 X P* 5 PADY405 EQU * 5 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 P RF(NE) ADY407 NO 5
0x287d20…287eb4 (3, 221) Dummy {f00=0x00b1, f01=0x0190, f02=» P CF A5,OUTPUT 6 * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 6 P RF(E) ADY407 6 H & P LDK A2,LISTOP LOW INTENSITY STOP 6 ^ P CF A5,OUTPUT 6 PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 0 P CF A15,UP
0x287eb4…288048 Dummy {f00=0x00b1, f01=0x018e, f02=»F(Z) ADY415 ORDER ERASE =7 6 * P LD A4,DWTAP,A6 GET CURSOR POSITION =4 7 " , P ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 7 P PADY415 EQU * 7 P ADK A7,/31-5 =7 7 ( P RF(NE) ADY420 NOT ORDER BASIC WRITE 7 P LDKL A4,/101 HOME POSITION 7 P ST A4,DWT
0x288048…2881dc Dummy {f00=0x00b1, f01=0x018e, f02=» 7 P* 8 P EJECT 8 P* 8 P* GRAPHIC PART 8 * P* 8 D PADY500 EQU * 8 N P LDK A2,/11 8 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 8 v & PADY510 CF A15,GETCHR GET CHARACTER 8 P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 P LDR A
0x2881dc…288370 Dummy {f00=0x00b1, f01=0x0190, f02=» 8 t P* 9 P* ADDRESS MESSAGE 9 P* 9 . P* SET FIRST OUT PUT IN A2 9 8 P* AND SECOND IN A4 9 P* 9 z P SLL A1,4 9 P LDR A4,A2 9 P SRL A4,4 9 P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 P ORK A2,/20 9 , PAD
0x288370…288504 Dummy {f00=0x00b1, f01=0x0190, f02=»Y510 9 P EJECT : P* : P* DATA MESSAGE : $ P* : > " P* FIRST OUTPUT IS SET IN A2 : H P* AND SECOND IN A4 : n P* : PADY530 SLL A1,13 : P LDR A4,A2 : P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : P LDK A2,0 : P
0x288504…288698 Dummy {f00=0x00b1, f01=0x0190, f02=»ADY540 : PADY560 LDR A4,A2 ; P SRL A4,4 ; & P ANK A4,/3F ; 8 P ANK A2,/F ; L P ORK A2,/60 ; ^ P RB ADY515 ; r P* ; P XIF ; P* ; P EJECT ; P* ; , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINT
0x288698…28882c Dummy {f00=0x00b1, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER ; P LDK A3,0 < . , P SC A3,DWTBC,A6 RESET POSITION COUNTER < @ P RTN A15 < p P* < 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION < 0 P* POINTER WHEN REQUEST RUNNING. < > P* A
0x28882c…2889c0 Dummy {f00=0x00b1, f01=0x0190, f02=» < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER = P ANK A2,/FF = > " P CC A2,DWTPOS,A6 END OF ROW ? = R P RF(P) POSU10 = x , P IM DWTST,A6 INCREMENT POSITION COUNTER = PPOSU10 RTN A15 = P EJECT = P* = P* I H D Y = P* =
0x2889c0…288b54 (3, 222) Dummy {f00=0x00d0, f01=0x0190, f02=»F(N) IHDY10 = . 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* >
0x288b54…288ce8 Dummy {f00=0x00d0, f01=0x0190, f02=»T-ADDRESS > P* A7 = ORDER ? P* A8 = ECB-ADDRESS ? * PRCDY EQU * ? H P IFT CPU852=1 ? Z & P CF A15,SAVE8 SAVE A1-A8 ON STACK ? p P XIF ? P* ? P IFT CPU852=0 ? " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? P* ? P =3
0x288ce8…288e7c Dummy {f00=0x00d0, f01=0x0190, f02=» =1 ? P =1 @ P =1 @ P* @ ( P IFT WHATDY=0 @ 2 P* @ H " P LDR* A2,A6 CHANNEL PARAMETER @ R " P ANK A2,/10 GRAPHIC DISPLAY ? @ x P RF(E) RCDY10 NO @ . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ P* @ P
0x288e7c…289010 Dummy {f00=0x00d0, f01=0x0190, f02=»BLOCK ? @ x P RF(NE) RCDY20 A P IFT WHATDY=0 =1 A & P IFF STEADY+COUNTRY=0 =1 A @ * P LDR* A2,A6 GET CHANNEL PARAMETERS =1 A b " P ANK A2,/20 PTS 6385/6386 ? =1 A P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 L
0x289010…2891a4 Dummy {f00=0x00d0, f01=0x0190, f02=» SUK A3,1 DEC TRANSFER COUNTER =3 A , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B * . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B Z P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPUT =1 B P
0x2891a4…289338 Dummy {f00=0x00d0, f01=0x0190, f02=» HOME B x P CF A5,OUTPUT SEND C P LDKL A2,/101 C ( 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C > P LDR A3,A3 GET OLD STATUS C x P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P EJECT C P*
0x289338…2894cc Dummy {f00=0x00d0, f01=0x0190, f02=» LDK A1,2 INDICATE THROUGHPUT ERROR C P RB RCDY15 D , & PRCDY25 LDK A2,STX START OF MESSAGE D > P CF A5,OUTPUT D h 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D ~ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OU
0x2894cc…289660 Dummy {f00=0x00d0, f01=0x0190, f02=»CHODY = DEVICE-DEPENDENT ECHO-ROUTINE D P* E . PECHODY EQU * E 8 P LDR A7,A7 EOR? E L P RF(N) ECDY17 YES E d P LDR A3,A2 SAVE CHARACTER E ~ P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E P A
0x289660…2897f4 (3, 223) Dummy {f00=0x00d0, f01=0x0190, f02=»EAR E & PECDY10 CF A5,OUTPUT SEND CHARACTER F , P CF A15,POSUPD POSITION COUNTER UPDATING F 6 P RF ECDY20 F f 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER F x ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F P* BACKSPACE F P* F PEC
0x2897f4…289988 Dummy {f00=0x00d0, f01=0x0190, f02=» ONE BACKSTEP F ~ P CF A5,BACCAN BACK G P RB ECDY20 G 0 P EJECT G B P* G P P* CLEAR G Z P* G l PECDY50 EQU * G v ( P LC A4,DWTBC,A6 GET POSITION COUNTER G P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G & P LDR
0x289988…289b1c Dummy {f00=0x00d0, f01=0x0190, f02=» P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H > P CF A5,CURPOS SET CURSOR H x P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF A5,FASTER FAST OUT
0x289b1c…289cb0 Dummy {f00=0x00d0, f01=0x0190, f02=»CAN = SUBROUTINE TO POSITION CURSOR H 0 P* AT THE PLACE BEFORE REQUEST IF I , 0 P* CLEAR OR BACKWARDS ONE STEP IF I ` P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GET POSITION COUNTER
0x289cb0…289e44 Dummy {f00=0x00d0, f01=0x0190, f02=» RF(NP) BACA10 NO I $ P LDK A2,SPACE DESTRUCTIVE SPACE J P RF BACA20 J B " PBACA10 LDK A2,BACKSP BACKSPACE J T P CF A5,OUTPUT SEND J z $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J PBACA20 CF A5,OUTPU
0x289e44…289fd8 Dummy {f00=0x00d0, f01=0x018e, f02=» RTN A5 J P EJECT K 4 P*********************************************** K 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K V 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P*
0x289fd8…28a16c Dummy {f00=0x00d0, f01=0x0190, f02=» K P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L P ABL(NP) ACDY75 YES! L > , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L Z ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L P SUK A1,1
0x28a16c…28a300 Dummy {f00=0x00d0, f01=0x0190, f02=»S! L POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M P RF(L) NOFAST NO! M V & P********************************** M p & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M
0x28a300…28a494 (3, 224) Dummy {f00=0x00d1, f01=0x0190, f02=»/LINE M j P SUR A3,A2 AND COMPARE N P SUR A3,A4 N , P RF(NN) HIT N > P ADR A4,A3 N R P ADK A4,1 N d ( PHIT ADS A4,DWTST,A6 UPDATE POSITION N v P*********************** N P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N P C
0x28a494…28a628 Dummy {f00=0x00d1, f01=0x0190, f02=»6 INC HEAD POS POINTER N P CF A5,CURPOS O " P***************************** O 4 " P* RESTORE A3 (BUFFER INDEX) * O Z * P LD A3,DWTBIN,A6 RESTORE BUFFER INDEX O P SUK A3,1 O P ABL ACDY90 READ NEXT CHAR O P* O . PNOFAST LDR A2,A7 RESTORE OUT
0x28a628…28a7bc Dummy {f00=0x00d1, f01=0x0190, f02=» 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS P P* P < PFASTER EQU * P F P CWK A4,/60 P Z . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG P n P LDK A4,/59 P PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P
0x28a7bc…28a950 Dummy {f00=0x00d1, f01=0x0190, f02=» P P EJECT Q P* Q P* Q * P* CURPOS = SUBROUTINE TO SET CURSOR Q * > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) Q X P* Q PCURPOS EQU * Q P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q P CF A5,OUTPUT SEND
0x28a950…28aae4 Dummy {f00=0x00d1, f01=0x018e, f02=»A4 Q & P CF A5,OUTPUT OUTPUT POSITION (X) R P LDR A2,A4 R 4 P RF(NN) CURR10 Y < /80! R F P LDK A2,/7F R f P RF CURR15 R z PCURR10 EQU * R P SRL A2,8 SHIFT RIGHT R PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R P RTN A5 R P E
0x28aae4…28ac78 Dummy {f00=0x00d1, f01=0x0190, f02=» R 0 P* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 S . P* AT EXIT A4 = CHAR TO END OF SCREEN =2 S < P* =2 S n PERA EQU * =2 S | " P LD A2,DWTPOS,A6 MAX CHAR. =2 S P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2
0x28ac78…28ae0c Dummy {f00=0x00d1, f01=0x4144, f02=»SIDE SCREEN =2 S P RF(L) ERAEND NO =2 T . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 T 2 P LDKL A3,/FFFF SET OVER =4 T d " PERAEND EQU * END SUBROUTINE =2 T P RTN A5 RETURN =2 T PABDY EQU * T , P CF A15,UPDAPP UPDATE CURSOR POSITION =5 T ( P
0x28ae0c…28afa0 Dummy {f00=0x00d1, f01=0x2008, f02=» U 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
0x28afa0…28b134 (3, 225) Dummy {f00=0x00d1, f01=0x0000, f02=»
[…0x7…]
0x28bc40…28bdd4 (3, 226) Opaque[0x194]
0x28bdd4…28bf68 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1638, f03=0x0000}
0x28bdd4…28bf68 IdxSect {
0x28bdd4…28bf68 f00 = 0x00b1 // 0x28bdd4 @0x0
0x28bdd4…28bf68 f01 = 0x0014 // 0x28bdd6 @0x2
0x28bdd4…28bf68 gno = [ // 0x28bdd8 @0x4
0x28bdd4…28bf68 [0x00]: C0x00b1.0x3.0
0x28bdd4…28bf68 [0x01]: C0x00b2.0x0.0
0x28bdd4…28bf68 [0x02]: C0x00b2.0x1.0
0x28bdd4…28bf68 [0x03]: C0x00b2.0x2.0
0x28bdd4…28bf68 [0x04]: C0x00b2.0x3.0
0x28bdd4…28bf68 [0x05]: C0x00b3.0x0.0
0x28bdd4…28bf68 [0x06]: C0x00b3.0x1.0
0x28bdd4…28bf68 [0x07]: C0x00b3.0x2.0
0x28bdd4…28bf68 [0x08]: C0x00b3.0x3.0
0x28bdd4…28bf68 [0x09]: C0x00b4.0x0.0
0x28bdd4…28bf68 ]
0x28bdd4…28bf68 }
0x28bf68…28c0fc Dummy {f00=0x00b1, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 10.0 80-03-14 870105041000 P : & P =9,RTN FROM OUTLRT IN INH MODE B P PRR 10.1 79-09-03 l P =8,UPDATE TO 10.1 STATUS P REL 9.1 79-05-23 * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-1
0x28c0fc…28c290 Dummy {f00=0x00b1, f01=0x0190, f02=» =1-4, GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-04-02 ( P =4,TIMER RESET CORRECTED D P REL 8.2 79-03-22 h P =3,NAK HANDLING CORRECTED P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =
0x28c290…28c424 Dummy {f00=0x00b1, f01=0x0190, f02=»****************************** | P* & $ P* PHILIPS TERMINAL SYSTEM PTS 0 P* X $ P* DRLT01 = DRIVER CHANNEL UNIT b $ P* FOR LOCAL TERMINALS P* P* P* P* P* 2 P************************************
0x28c424…28c5b8 Dummy {f00=0x00b1, f01=0x0190, f02=»GISTER A2. IF DATA d D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER P* FOR ACTUAL DEVICE. b D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUD
0x28c5b8…28c74c Dummy {f00=0x00b1, f01=0x0190, f02=»TART ON EVERY CHLT IN SYSTEM t P* $ 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE . P* INCLUDED IN THE DRIVER. d P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE
0x28c74c…28c8e0 Dummy {f00=0x00b1, f01=0x0190, f02=»WT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS ( P* D P* N P* X P EJECT b P* p P*********** z P* ENTRIES * P*********** P* P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRU
0x28c8e0…28ca74 (3, 227) Dummy {f00=0x00b2, f01=0x0190, f02=» p P ENTRY CHLTON START OF CHLT 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS , 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ` P ENTRY REMFC DUMMY ENTRY P ENTRY DWREMU DUMMY ENTRY P* P EJECT P* . P****************
0x28ca74…28cc08 Dummy {f00=0x00b2, f01=0x018e, f02=» P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER < P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUP
0x28cc08…28cd9c Dummy {f00=0x00b2, f01=0x0190, f02=» . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE P* 6 P* @ ( P*********************************** J ( P* DWT PARAMETERS * v ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR ORDER ( P EXT
0x28cd9c…28cf30 Dummy {f00=0x00b2, f01=0x0190, f02=»TPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER < 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT ^ 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT P* P EJECT P P* P************* P*
0x28cf30…28d0c4 Dummy {f00=0x00b2, f01=0x0190, f02=» t PDRQTIM EQU 30 P* P EJECT ( P* 6 P************************ @ P* CONDITIONAL ASSEMBLY * ` P************************ P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRI
0x28d0c4…28d258 Dummy {f00=0x00b2, f01=0x0190, f02=» ` . P* CHANNELS BY SETTING X:B TO 1,2,3 OR 4 P* : PX:B EQU 1 D PLOCHAN EQU 1 V P* j 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND t 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION C
0x28d258…28d3ec Dummy {f00=0x00b2, f01=0x0190, f02=»TTING X:D = 1 A SOFTWARE TIME OUT HANDLING < P* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED 2 P* IN THE DRIVER. r < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:
0x28d3ec…28d580 Dummy {f00=0x00b2, f01=0x0190, f02=»SET IS OBTAINED BY SETTING CPU852 EQU 0. P* 0 PCPU852 EQU 1 : P* N P EJECT X P f P n PRECHAN EQU 0 v PREMFC EQU 0 PCWTRT1 EQU * PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU * PCWTRT6
0x28d580…28d714 (3, 228) Dummy {f00=0x00b2, f01=0x0190, f02=»************************* t : P* C W T L T 1 * " : P***************************************************** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 P* P* PDWA1 EQU /03 DEVICEA
0x28d714…28d8a8 Dummy {f00=0x00b2, f01=0x0190, f02=»-CWTLT1 P DATA 0 LAST OUTPUT WORD * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 0 P DATA INTLT1 ^ PCWTINR EQU *-CWTLT1 INR r P INR A2,0,DWA1 PCWTOTR EQU *-CWTLT1 OTR P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START P CIO
0x28d8a8…28da3c Dummy {f00=0x00b2, f01=0x0190, f02=» PCWTADD EQU *-CWTLT1 P* P IFT ACKMUL=1 * P* @ P DATA 0 NAK-ACKUMULATOR J $ P DATA 0 RETR. FAULT-ACKUMULATOR j , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x28da3c…28dbd0 Dummy {f00=0x00b2, f01=0x0190, f02=» * : P***************************************************** . P* l 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 v P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVICE ADDRESS
0x28dbd0…28dd64 Dummy {f00=0x00b2, f01=0x0190, f02=»DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START * " P DATA 0 RETRANSMISSION COUNTER J P DATA 0 END OF QUEUE p P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UN
0x28dd64…28def8 Dummy {f00=0x00b2, f01=0x0190, f02=»* P EJECT P XIF P IFT LOCHAN=3 $ PDWA2 EQU /13 DEVICE ADDRESS : P* ^ $ P DATA 0 LAST OUTPUT DWT-ADDRESS h P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P
0x28def8…28e08c Dummy {f00=0x00b2, f01=0x0190, f02=» P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR $ , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR L ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR | P* P XIF P* P* P XIF P IFT LOCHAN=4 P* P* 6 P
0x28e08c…28e220 Dummy {f00=0x00b2, f01=0x0190, f02=»T-ADDRESS z P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 2 P INR A2,0,DWA2 INR V P OTR A2,0,DWA2 OTR p P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMUL=1
0x28e220…28e3b4 (3, 229) Dummy {f00=0x00b2, f01=0x0190, f02=»ATA 0 PRINTER TIMEOUT ACKUMULATOR P* * P XIF 4 P EJECT @ P* N P* X 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 b P* PCWTLT3 EQU * P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P DATA 0 LA
0x28e3b4…28e548 Dummy {f00=0x00b2, f01=0x0190, f02=»A3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER . P DATA 0 END OF QUEUE T P* p P IFT ACKMUL=1 z P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULAT
0x28e548…28e6dc Dummy {f00=0x00b2, f01=0x0190, f02=»E ADDRESS ~ P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD D P DATA INTLT3 INTERRUPT TABLE d P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA
0x28e6dc…28e870 Dummy {f00=0x00b2, f01=0x0190, f02=» DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 0 P* P XIF f P EJECT r P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 P* PCWTLT4 EQU * P* P* P IFT LOCHAN=4
0x28e870…28ea04 Dummy {f00=0x00b2, f01=0x0190, f02=»ERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR . P CIO A2,1,DWA4 CIO-START H " P DATA 0 RETRANSMISSION COUNTER h P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-
0x28ea04…28eb98 Dummy {f00=0x00b2, f01=0x0190, f02=» P EJECT P* 2 P********************************************** 2 P* C H T A B * V 2 P********************************************** P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK 8 P*
0x28eb98…28ed2c Dummy {f00=0x00b2, f01=0x0190, f02=»ABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 * P IFT LOCHAN=3 > P DATA CWTLT3 T P XIF h P IFT LOCHAN=4 t P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P* P
0x28ed2c…28eec0 Dummy {f00=0x00b2, f01=0x0190, f02=»R CHLT l P* P* C H L T 1 P* INTERRUPT FROM CHLT1 . P* N P XIF X P IFT LOCHAN=2 d PCHLT3 EQU * z PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU
0x28eec0…28f054 (3, 230) Dummy {f00=0x00b2, f01=0x0190, f02=»E A1-A8 ON STACK P XIF P* $ P IFF LOCHAN=1 . . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 D P RF CLT010 v P* P* C H L T 2 P* INTERRUPT FROM CHLT2 P* PCHLT2 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x28f054…28f1e8 Dummy {f00=0x00b2, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P IFF LOCHAN=1 < . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 R P XIF P IFT LOCHAN=2 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P IFT LOCHAN=3
0x28f1e8…28f37c Dummy {f00=0x00b2, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 , & P CF A15,SAVE8 SAVE A1-A8 ON STACK B P XIF l P* x P IFT LOCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT LOCHAN=3 . P LDKL A5
0x28f37c…28f510 Dummy {f00=0x00b2, f01=0x0190, f02=» P* ! P* ! P* C H L T 2 ! P* INTERRUPT FROM CHLT3 ! 2 P* ! R PCHLT3 EQU * ! $ P ST P,INTSAV SAVE LAST INTERRUPT ! p P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P* ! P IFT LOCHAN=4 ! P IFT
0x28f510…28f6a4 Dummy {f00=0x00b2, f01=0x0190, f02=»CHLT3 ! l P RF CLT010 " P* C H L T 4 " P* INTERRUPT FROM CHLT4 " 6 P* " V PCHLT4 EQU * " ` $ P ST P,INTSAV SAVE LAST INTERRUPT " t P IFT CPU852=1 " & P CF A15,SAVE8 SAVE A1-A8 ON STACK " P XIF " P* " P IFT LOCHAN=4 " P
0x28f6a4…28f838 Dummy {f00=0x00b2, f01=0x0190, f02=»FOR CHLT4 " p $ PCLT010 EX CWTINR,A5 EXECUTE INR # P XIF # : P* # F P IFT LOCHAN=1 # P P* # f P* # p P* C H L T 1 # z P* # P* INTERRUPT FROM CHLT1 # P* # PCHLT1 EQU * # PCHLT2 EQU * # PCHLT3 EQU * # PCHLT4
0x28f838…28f9cc Dummy {f00=0x00b2, f01=0x0190, f02=» # " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ . P* $ : P IFT LOCHAN=1 $ D $ P LDKL A5,CWTLT1 GET CWT-ADDRESS $ Z $ P ST P,INTSAV SAVE LAST INTERRUPT $ P INR A2,0,DWA1 $ P* $ P XIF $ P* $ P IFT LOGING=1 $ . P CF A15,LOGG ** LO
0x28f9cc…28fb60 Dummy {f00=0x00b2, f01=0x018e, f02=»DK A1,0 RESET RETURN CODE $ P LDR A3,A2 INPUT WORD IN A3 % " P SRL A3,8 % F P LDR A4,A3 % X $ P ANK A3,/E 2 * LINE NUMBER IN A3 % j P SRL A4,3 % & P ANK A4,/E 2 * DEVICE NUMBER IN A4 % . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER % P ANK A2,
0x28fb60…28fcf4 (3, 231) Dummy {f00=0x00b3, f01=0x0190, f02=» % z 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
0x28fcf4…28fe88 Dummy {f00=0x00b3, f01=0x0190, 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
0x28fe88…29001c Dummy {f00=0x00b3, f01=0x0190, f02=» ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( $ P* ( > P IFT ACKMUL=1 ( H P* ( ^ P =1 ( h P =1 ( v P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025 ADR A7,
0x29001c…2901b0 Dummy {f00=0x00b3, f01=0x0190, f02=»* ( P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) H P* ) p : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) z 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT OPERABL
0x2901b0…290344 Dummy {f00=0x00b3, f01=0x018e, f02=» ) b P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * R 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NOERR INDI
0x290344…2904d8 Dummy {f00=0x00b3, f01=0x0190, f02=» * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + X @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE DRIVER
0x2904d8…29066c Dummy {f00=0x00b3, f01=0x0190, f02=» 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , : P SUK A4,7 SEVEN TIMES ? , ^ P RB(E) CLT015 =7(=3) , ~ * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION ,
0x29066c…290800 Dummy {f00=0x00b3, f01=0x0190, f02=»CT , P* - P* - P* ACK DATA = 07 - P* - > 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - H . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - ~ P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF - 6 P A
0x290800…290994 (3, 232) Dummy {f00=0x00b3, f01=0x0190, f02=»A7,A6 DEVICE WITHOUT DATA REQUEST? - , P RF(N) CLT110 YES. SIMULATE DATA REQUEST . * P* . Z P IFF SOFTIM=1 . d P* . z PCLT062 EQU * . P RF EXIT . P* . P XIF . P* . P* . P IFT SOFTIM=1 . P* . P EJECT . P* .
0x290994…290b28 Dummy {f00=0x00b3, f01=0x0190, f02=» BLOCK . p P RF(E) CLT060 / P* / $ P* RESTART TIMER / . P* / H " P LDKL A3,-DRQTIM RESTART TIMER / R P ST* A3,DWTTP,A6 / x P RF EXIT / P* / P* START TIMER / P* / PCLT060 LDR A1,A6 PARAMETER / P LDKL A4,DWTTP TIMER POINT
0x290b28…290cbc Dummy {f00=0x00b3, f01=0x0190, f02=»AND DELAY / ` PCLT062 EQU * 0 P RF EXIT 0 & P 0 6 P EJECT 0 > P* 0 L P* 0 V P* RESET TIMER IF STARTED 0 ` P* 0 P =4 0 P =4 0 P =4 0 P =4 0 P =4 0 P EJECT 0 P* 0 6 P* TIME-OUT ROUTINE HANDLI
0x290cbc…290e50 Dummy {f00=0x00b3, f01=0x0190, f02=»ET POINTER TO TIMER BLOCK 0 P LD A3,DWTST,A6 1 " P SLL A3,2 ECHO MODE ? 1 : P RF(N) CLT110 YES 1 X P* 1 r P IFT ACKMUL=1 1 | P IFF LOCHAN=1 1 P* 1 " P LDR* A5,A6 CHANNEL PARAMETER 1 P ANK A5,/F 1 P SLL A5,1 2 * INDEX 1 ( P A
0x290e50…290fe4 Dummy {f00=0x00b3, f01=0x0190, f02=» XIF 1 P IFT SOFTIM=1 2 P IFT ACKMUL=1 2 " P IFT LOCHAN=1 2 8 P* 2 N $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 2 X ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 2 P* 2 P XIF 2 P IFT SOFTIM=1 2 P* 2 $ P LD A7,DWTOR,A6 TEST ORDER ? =2 2
0x290fe4…291178 Dummy {f00=0x00b3, f01=0x0190, f02=» P* 3 P XIF 3 P* 3 P EJECT 3 $ P* 3 2 P* POWER ON DATA = 03 3 < P* 3 ^ 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 h 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 3 $ P* UNIT OR THOSE IN ECHO MODE. 3 P* 3
0x291178…29130c Dummy {f00=0x00b3, f01=0x0190, f02=»* A7 = ORDER 3 P* 4 PCHPOWO EQU * 4 " P CF A15,GETLIN 4 6 $ P LDR* A2,A5 GET LAST OUTPUT DWT 4 L . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 4 t P LDK A4,0 4 P LDR A3,A6 DEVICE COUNTER 4 P LDR A1,A8 ADDRESS POINTER 4 $ P RF(Z) EXIT
0x29130c…2914a0 Dummy {f00=0x00b3, f01=0x0190, f02=»F(N) CPO030 4 P SLC A6,1 5 " P LCR A7,A6 LEFT BYTE OF DWTCHP 5 & P ANK A7,1 INPUT DEVICE ? 5 L P RF(NE) CPO025 YES 5 l P LDKL A7,/EFFF 5 ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 5 P LC A7,DWTST,A6 5 P ANK A7,/20 ECHO MODE ? 5 P RF(NE)
0x2914a0…291634 (3, 233) Dummy {f00=0x00b3, f01=0x0190, f02=»ESSBLOCK IN A7 5 j . P LD A7,RECADR,A7 ADDRESS TO RECOVERY IN A7 6 P RF(E) CPO030 NO RECOVERY 6 H P LDKL A5,DWTSB2 STACKBASE 6 j P ADR A5,A6 6 P INH 6 & P CFR A15,A7 GO TO RECOVERY ROUTINE 6 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 6 P 6 P
0x291634…2917c8 Dummy {f00=0x00b3, f01=0x0190, f02=»F A15,GETLIN GET DWT-ADDRESS 6 P SUR A6,A4 VALID INTERRUPT ? 7 $ P RB(N) EXIT 7 H P LDR A8,A8 7 P RB(Z) EXIT EXIT NOT DEFINED 7 n P LDR* A6,A8 GET DWT 7 P RB(E) EXIT 7 P ANKL A6,/FFFE 7 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER 7
0x2917c8…29195c Dummy {f00=0x00b3, f01=0x0190, f02=»OR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 2 P IFT SOFTIM=1 8 ` * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 v P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO =4 8 $ P L
0x29195c…291af0 Dummy {f00=0x00b3, f01=0x0190, f02=»E) CLT120 NO =4 8 P INH =4 9 P CM* DWTTP,A6 RESET TIMER =4 9 * 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 N PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 GO TO INTERRU
0x291af0…291c84 Dummy {f00=0x00b3, f01=0x0190, f02=»:- 9 f P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : @ P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* : P* G E
0x291c84…291e18 Dummy {f00=0x00b3, f01=0x0190, f02=» P* ; P* ON ENTRY:- ; P* ; $ P* A3 = LINE NUMBER * 2 ; . P* A4 = DEVICE NUMBER * 2 ; N P* ; p P* ON EXIT:- ; z P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FO
0x291e18…291fac Dummy {f00=0x00b3, f01=0x018e, f02=»8,A3 POSITION IN TABLE ; , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < ( P RF(Z) GTL010 RETURN IF NOT DEFINED < N P LDR* A6,A8 GET ID-WORD < z , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION < PGTL010
0x291fac…292140 Dummy {f00=0x00b3, f01=0x0190, f02=» P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = L < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = V 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* = P* ON E
0x292140…2922d4 (3, 234) Dummy {f00=0x00b3, f01=0x0190, f02=» = P IFF LOCHAN=1 > P* > " P LDR* A1,A6 CHANNEL PARAMETER > ( P ANK A1,/F CHANNEL INDEX > N P SLL A1,1 > n P ADK A1,2 > * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 > P* > P XIF > P* > P* > P IFT LOCHAN=1 > P* >
0x2922d4…292468 Dummy {f00=0x00b3, f01=0x0190, f02=»0 YES > P EJECT ? P* ? P* QUEUE OUTPUT ? & P* ? @ & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE ? J P RF(E) OUL020 ? t POUL010 CWR A6,A4 ? . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE ? P LD A3,DWTOTQ,A4 ? & P RF(E) OUL030 END OF THREAD
0x292468…2925fc Dummy {f00=0x00b3, f01=0x0190, f02=»A6,DWTOTQ,A4 QUEUE DWT ? * POUL040 CM DWTOTQ,A6 SET END OF THREAD @ P RF OUL060 @ L P EJECT @ ^ P* @ l P* SEND CHARACTER @ v P* @ , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS @ P ANKL A3,/7F00 @ P ANK A2,/FF @ P ORR A2,A3 @ P
0x2925fc…292790 Dummy {f00=0x00b3, f01=0x0190, f02=»ING=1 @ 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** A P XIF A B 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) A N 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT A POUL070 EQU * A P IFT CPU852=1 A ( P ABL IHRET8 RESTORE A1-A8 AN
0x292790…292924 Dummy {f00=0x00b3, f01=0x0190, f02=»...ADJUST STACK POINTER... =9 A P LDR* P,A15 ...AND RETURN =9 B & P XIF B J P* B V P EJECT B ` P* B n P* C H L T O N B x P* B > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY B @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERE
0x292924…292ab8 Dummy {f00=0x00b3, f01=0x0190, f02=»TREATED ? B | P RF(NZ) CON020 NO TAKE NEXT C P ABL RTNA15 RETURN AND ENB C 6 * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS C X P RB(Z) CON010 C $ P EX CWTCIS,A5 EXECUTE CIO-START C P LDR* A6,A5 GET LAST DWT C P RB(Z) CON010 C P CMR A5 RESET
0x292ab8…292c4c Dummy {f00=0x00b3, f01=0x0190, f02=»* C P IFT LOCHAN=1 D P* D P CIO A2,1,DWA1 CIO-START D * P LD A6,CWTLT1 GET LAST DWT D J P RF(Z) CON010 D l P CM CWTLT1 RESET LAST OUTPUT D P LDK A2,0 D " P CF A15,OUTLIN SEND CHARACTER D $ PCON010 ABL RTNA15 RETURN AND ENB D P*
0x292c4c…292de0 Dummy {f00=0x00b3, f01=0x0190, f02=»INPUT AND D f $ P* OUTPUT CHARACTER ARE LOGGED E P* E : P* E D P* E N P IFT LOGING=1 E X P* E n PLOGG STR A1,A15 E x P LD A1,POINT E P ADK A1,2 E & P CWK A1,BUFE BUFE IS MAX LOGG AREA E P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST
0x292de0…292f74 (3, 235) Dummy {f00=0x00b4, f01=0x40b8, f02=»DR* P,A15 RETURN E P* F P* F " PPOINT DATA BUF LOGG POINTER F , P* F P PBUF RES 63 LOGG AREA F Z PBUFE EQU * F v P* F P XIF F P* F P END F @ F
0x292f74…293108 Dummy {f00=0x00b4, f01=0x2008, f02=» G 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
0x293108…29329c Dummy {f00=0x00b4, f01=0x0190, f02=» P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H " 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H P P CF A5,CURPOS SET CURSOR H P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF
0x29329c…293430 Dummy {f00=0x00b4, f01=0x0190, f02=»* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR I 0 P* AT THE PLACE BEFORE REQUEST IF I > 0 P* CLEAR OR BACKWARDS ONE STEP IF I r P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GE
0x293430…2935c4 Dummy {f00=0x00b4, f01=0x0190, f02=»T POSITION I | P RF(NP) BACA10 NO J $ P LDK A2,SPACE DESTRUCTIVE SPACE J , P RF BACA20 J T " PBACA10 LDK A2,BACKSP BACKSPACE J f P CF A5,OUTPUT SEND J $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J P
0x2935c4…293758 Dummy {f00=0x00b4, f01=0x0190, f02=»ON COUNTER J r P RTN A5 K P EJECT K " 4 P*********************************************** K 0 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K h 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 *
0x293758…2938ec Dummy {f00=0x00b4, f01=0x018e, f02=» P* L P* L P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L , P ABL(NP) ACDY75 YES! L N , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L j ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L
0x2938ec…293a80 Dummy {f00=0x00b4, f01=0x0190, f02=» P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M . P RF(L) NOFAST NO! M h & P********************************** M & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P A
0x293a80…293c14 (3, 236) Opaque[0x194]
0x293c14…293da8 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1688, f03=0x0000}
0x293c14…293da8 IdxSect {
0x293c14…293da8 f00 = 0x00b4 // 0x293c14 @0x0
0x293c14…293da8 f01 = 0x000a // 0x293c16 @0x2
0x293c14…293da8 gno = [ // 0x293c18 @0x4
0x293c14…293da8 [0x00]: C0x00b4.0x1.0
0x293c14…293da8 [0x01]: C0x00b4.0x3.0
0x293c14…293da8 [0x02]: C0x00b5.0x0.0
0x293c14…293da8 [0x03]: C0x00b5.0x1.0
0x293c14…293da8 [0x04]: C0x00b5.0x2.0
0x293c14…293da8 ]
0x293c14…293da8 }
0x293da8…293f3c Dummy {f00=0x00b4, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 10.0 80-03-14 870105041000 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x293f3c…2940d0 Dummy {f00=0x00b4, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x2940d0…294264 Dummy {f00=0x00b4, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x294264…2943f8 Dummy {f00=0x00b4, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x2943f8…29458c Dummy {f00=0x00b4, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x29458c…294720 Dummy {f00=0x00b4, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x294720…2948b4 (3, 237) Dummy {f00=0x00b4, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x2948b4…294a48 Dummy {f00=0x00b4, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x294a48…294bdc Dummy {f00=0x00b4, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x294bdc…294d70 Dummy {f00=0x00b4, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU 0 " P** 4 P** > 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS H P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P* BY
0x294d70…294f04 Dummy {f00=0x00b4, f01=0x0190, f02=»N ZERO IS STORED IN THE CONTROL WORD z P* OF THE ECB. , P** D P N PCREDIT EQU 1 V P** j P** t @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY ~ P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU 0
0x294f04…295098 Dummy {f00=0x00b4, f01=0x0190, f02=» EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION " . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x295098…29522c Dummy {f00=0x00b4, f01=0x018e, f02=» P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 4 P XIF N P* Z & PDWTTP EQU START+/00 TIMER POINTER d P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P********************
0x29522c…2953c0 Dummy {f00=0x00b4, f01=0x0190, f02=» " P* * " P* S.O.P. CHANNEL UNIT TABLE * * " P* * P " P****************************** v P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFER SI
0x2953c0…295554 (3, 238) Dummy {f00=0x00b5, f01=0x0190, f02=»TCHES ENTRY x " P DATA 0 ABORT ROUTINE ADDRESS P* : P DATA DVBLEN MMU BUFFER SIZE D P DATA DEVIND DEVICE INDEX h & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRESS
0x295554…2956e8 Dummy {f00=0x00b5, f01=0x0190, f02=» " P* * " P* S.O.P. ACTIVATION ROUTINE: * * " P* * P " P****************************** v P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P*
0x2956e8…29587c Dummy {f00=0x00b5, f01=0x0190, f02=» P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* < P* INPUT SWITCH VALUE F P* d * PSOPIN LDR* A2,A6 POWER UP INDICATION ? n P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CREDIT=
0x29587c…295a10 Dummy {f00=0x00b5, f01=0x0190, f02=»HANGES OF S.O.P. LIGHTS P* & PSOPAL EQU * ACTIVATE LIGHTS ENTRY * P* T P LD A3,10,A8 CHANGED LIGHTS ^ , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P RF(
0x295a10…295ba4 Dummy {f00=0x00b5, f01=0x0190, f02=»/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* B & P SUK A4,1 SEE IF LIGHTS OFF ORDER L P RF(Z) SOPOFF v & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS P*
0x295ba4…295d38 Dummy {f00=0x00b5, f01=0x018e, f02=»A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 2 P ST A4,DWTTP,A6 J P LDKL A1,/FFBF b P ANS A1,DWTST,A6 SET ON FLAG x PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO FLASH
0x295d38…295ecc Dummy {f00=0x00b5, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI * P RF SOPONOF @ P* T P EJECT ^ P* l PFLTUT EQU * FLASH TIME OUT v P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TIME R
0x295ecc…296060 Dummy {f00=0x00b5, f01=0x0190, f02=»EXIT END I/O P XIF P EJECT P* . PSOPOFF EQU * 8 , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD L 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF | P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPONOF
0x296060…2961f4 (3, 239) Dummy {f00=0x00b5, f01=0x0190, f02=» A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON $ P IFT WRFLA=1 V P C1R A3,A3 j * P ANS A3,FLASH STOP SOME OTHER FLASHING | P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET LIGHTS
0x2961f4…296388 Dummy {f00=0x00b5, f01=0x0190, f02=»********************** P* * P* S.O.P. INTERRUPT HANDLER * B P* * f P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS. P*
0x296388…29651c Dummy {f00=0x00b5, f01=0x018e, f02=» CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF * P* 6 P IFT CPU852=0 @ " P MSR 8,A15 SAVE A1-A8 ON STACK V P XIF | P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT CREDIT=0
0x29651c…2966b0 Dummy {f00=0x00b5, f01=0x0190, f02=» " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD * P RF(N) IHSOP2 NO N $ P LD A8,DWTECB,A6 GET ECB-ADDRESS f P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END I/O
0x2966b0…296844 Dummy {f00=0x00b5, f01=0x0190, f02=»WTECB,A6 GET ECB-ADDRESS P & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX ( P R , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH Z P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P******
0x296844…2969d8 Dummy {f00=0x00b5, f01=0x0190, f02=» * * P************************************* * P* X P* b : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE l 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWER FAILUR
0x2969d8…296b6c Dummy {f00=0x00b5, f01=0x018e, f02=»DWTCHP j P* P* PSOPR EQU * ENTRY POINT " P IFT CPU852=1 B & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVATE INPUT
0x296b6c…296d00 Dummy {f00=0x00b5, f01=0x0190, f02=» " P LDKL A2,-2 POWER UP INDICATOR P XIF . P IFT CREDIT=1 : P LDK A2,0 P P XIF b P n P IFF SOPX=0 v " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND POWER U
0x296d00…296e94 (3, 240) Dummy {f00=0x00b5, f01=0x0190, f02=» STR A2,A6 IND POWER UP P PSOPR2 RB IHSOP1 ( P EJECT @ P* N P* D W S I 0 1 : INPUT DWT X P* | PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA 0 ECB AD
0x296e94…297028 Dummy {f00=0x00b5, f01=0x0190, f02=» & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS . PDEVECI EQU * R P DATA 0,0,0,0,0,0 f P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER , P
0x297028…2971bc Dummy {f00=0x00b5, f01=0x0190, f02=» j P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR $ P DATA 0 TERMINAL QUEUE L IFT MMUPAG=1 j & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DATA 0 SAV
0x2971bc…297350 Dummy {f00=0x00b5, f01=0x0190, f02=»* * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x297350…2974e4 Dummy {f00=0x00b5, f01=0x402c, f02=» ! P* " P* " P END " @ " (DWT ! P* ! 8 P ! B PDWSI02 EQU * ! J P IFF SOPX=0 ! ^ P DATA 0 ! r P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 ! & " D
0x2974e4…297678 Dummy {f00=0x00b5, 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
0x297678…29780c Dummy {f00=0x00b5, f01=0x0190, f02=»CHTABE-* TABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 4 P IFT LOCHAN=3 H P DATA CWTLT3 ^ P XIF r P IFT LOCHAN=4 ~ P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P
0x29780c…2979a0 Dummy {f00=0x00b5, f01=0x0190, f02=»HANDLER FOR CHLT v P* P* C H L T 1 " P* INTERRUPT FROM CHLT1 8 P* X P XIF b P IFT LOCHAN=2 n PCHLT3 EQU * PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x2979a0…297b34 (3, 241) Opaque[0x194]
0x297b34…297cc8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16b8, f03=0x0000}
0x297b34…297cc8 IdxSect {
0x297b34…297cc8 f00 = 0x00b5 // 0x297b34 @0x0
0x297b34…297cc8 f01 = 0x0022 // 0x297b36 @0x2
0x297b34…297cc8 gno = [ // 0x297b38 @0x4
0x297b34…297cc8 [0x00]: C0x00b5.0x3.0
0x297b34…297cc8 [0x01]: C0x00b6.0x1.0
0x297b34…297cc8 [0x02]: C0x00b6.0x2.0
0x297b34…297cc8 [0x03]: C0x00b6.0x3.0
0x297b34…297cc8 [0x04]: C0x00b7.0x0.0
0x297b34…297cc8 [0x05]: C0x00b7.0x1.0
0x297b34…297cc8 [0x06]: C0x00c8.0x0.0
0x297b34…297cc8 [0x07]: C0x00c8.0x1.0
0x297b34…297cc8 [0x08]: C0x00c8.0x2.0
0x297b34…297cc8 [0x09]: C0x00c9.0x2.0
0x297b34…297cc8 [0x0a]: C0x00d1.0x2.0
0x297b34…297cc8 [0x0b]: C0x00d1.0x3.0
0x297b34…297cc8 [0x0c]: C0x00d2.0x1.0
0x297b34…297cc8 [0x0d]: C0x00d2.0x2.0
0x297b34…297cc8 [0x0e]: C0x00d2.0x3.0
0x297b34…297cc8 [0x0f]: C0x00d3.0x0.0
0x297b34…297cc8 [0x10]: C0x00d3.0x1.0
0x297b34…297cc8 ]
0x297b34…297cc8 }
0x297cc8…297e5c Dummy {f00=0x00b5, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-03-14 870105041000 P : P* B 2 P********************************************** L P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK P* P* P* P*
0x297e5c…297ff0 Dummy {f00=0x00b5, f01=0x0190, f02=»FOUR DAISY n . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON D & P* MULTIPLEX OR PROGRAMMED CHANNEL x P* P* P EJECT DRFD01 P* P* ORDERS: P* P* /00 TEST STATUS
0x297ff0…298184 Dummy {f00=0x00b5, f01=0x0190, f02=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ H P* /15 PHYSICAL WRITE f P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x298184…298318 Dummy {f00=0x00b5, f01=0x0190, f02=» A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER 6 P* A8 ECB-ADDRESS L P EJECT DRFD01 h P* P*********** P* * P* ENTRIES * P* * P*********** P* $ P ENTRY FDADR AC
0x298318…2984ac Dummy {f00=0x00b5, f01=0x0190, f02=»CT DRFD01 P* P************* P* * 4 P* EXTERNALS * J P* * ` P************* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERF
0x2984ac…298640 Dummy {f00=0x00b5, f01=0x018e, f02=»TO DWT AND SET NVL v . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS L EXTRN DWTECB ECB ADDRESS h " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXT
0x298640…2987d4 (3, 242) Dummy {f00=0x00b6, f01=0x0190, f02=» ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER 0 & P EXTRN INTSAV INTERRUPT SAVE AREA L & P EXTRN PFPOST PWF POST PROC. FLAG v & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/C
0x2987d4…298968 Dummy {f00=0x00b6, f01=0x0190, f02=»TIVE LENGTH z $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 < P EJECT DRFD01 d P* | P************************ P* * P* CONDITIONAL ASSEMBLY * P* * P**
0x298968…298afc Dummy {f00=0x00b6, f01=0x0190, f02=»X:A EQU 1 PCHAN EQU 1 P* $ 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT . ( P* IS OBTAINED BY SETTING TOSS EQU 1. d P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x298afc…298c90 Dummy {f00=0x00b6, f01=0x0190, f02=» * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 2 PMMUPAG EQU 0 < P* P P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT DRFD01
0x298c90…298e24 Dummy {f00=0x00b6, f01=0x0190, f02=»DED BY SETTING OPCLOS =1 h P* PX:D EQU 0 * POPCLOS EQU 1 < P* P P EJECT DRFD01 Z P* r P* | P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF P* P IFT MMUPAG=1
0x298e24…298fb8 Dummy {f00=0x00b6, f01=0x0190, f02=»ND EQU 10 P* P EJECT DRFD01 P* 4 P************* > P* * T P* CONSTANTS * j P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS (
0x298fb8…29914c Dummy {f00=0x00b6, f01=0x0190, f02=»923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION & & PEOE EQU 34 END OF EXTENT POSITION R $ PEOD EQU 74 END OF DATA POSITION | PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDERS P* $ PDIXTAB EQU *
0x29914c…2992e0 Dummy {f00=0x00b6, f01=0x0190, f02=» * P* TABLES * P* * P********** 0 P* B P IFF CHAN+IBM=0 L ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE d P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MMU BUFFER P XIF P* P
0x2992e0…299474 (3, 243) Dummy {f00=0x00b6, f01=0x0190, f02=»D01 P* P*************** P* * . P* TEST STATUS * F P* * ^ P*************** v P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR P XIF
0x299474…299608 Dummy {f00=0x00b6, f01=0x0190, f02=»7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 $ P* 8 P IFF TOSS+IBM=0 B " P CF A5,VO:NAM GET VOLUME NAME Z , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P* P
0x299608…29979c Dummy {f00=0x00b6, f01=0x0190, f02=» P* ACTIVATION * P* * P************** 4 P* J PFDAD EQU * ACTIVATION ENTRY T P IFT MMUPAG=1 x P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,A6 S
0x29979c…299930 Dummy {f00=0x00b6, f01=0x018e, f02=» P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER $ P* N P LDR A1,A7 ORDER X P SUK A1,/21 p P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********* P
0x299930…299ac4 Dummy {f00=0x00b6, f01=0x0190, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* : " P LDKL A1,/8000 MASK FOR BIT 0 D & P ORS A1,SPDLCI SET OPEN/CLOSE BIT j P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* * P
0x299ac4…299c58 Dummy {f00=0x00b6, f01=0x0190, f02=»* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT B P* n POPEN10 EQU * x 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DRIVE TO B
0x299c58…299dec Dummy {f00=0x00b6, f01=0x0190, f02=»DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME , P ABL TDISP EXIT ^ P* v POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE ( P RF DI
0x299dec…299f80 Dummy {f00=0x00b6, f01=0x018e, f02=»FD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK , P* P IFT IBM+TOSS=2 f P AN A2,DWTLAB,A6 ~ ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P* P E
0x299f80…29a114 (3, 244) Dummy {f00=0x00b6, f01=0x0190, f02=» " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 * P ABL(NP) LOAD LOAD/UNLOAD < P XIF ^ P* j P IFT IBM=1 t P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL READ P SUK A3,3 P RF(Z)
0x29a114…29a2a8 Dummy {f00=0x00b6, f01=0x0190, f02=» n P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK A3,7 6 P ABL(NP) LOAD LOAD/UNLOAD H P XIF j P* v PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF P* P IFT
0x29a2a8…29a43c Dummy {f00=0x00b6, f01=0x0190, f02=»REQERR ABL DISIOE REQUEST ERROR P* ( 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT 2 P LDKL A1,/8008 RETURN CODE f P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P EJECT DRFD01 P* P* INPU
0x29a43c…29a5d0 Dummy {f00=0x00b6, f01=0x018e, f02=»1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF 4 P* @ P LD A3,ECBRL,A8 J 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL b ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL P CWK A3,/01FF
0x29a5d0…29a764 Dummy {f00=0x00b6, f01=0x0190, f02=» P LD A4,DWTFIB,A6 P RF(NZ) INTES5 IBM-DISC P XIF < P* H P IFT TOSS=1 R P LDR A4,A3 f 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS x 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P SLL A2,1 TRANSFER TOSS-SEC. NO
0x29a764…29a8f8 Dummy {f00=0x00b6, f01=0x018e, f02=»ECTOR NUMBER v P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC 8 P RB(NN) REQERR REQUEST ERROR P P ADR A4,A3 t " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC
0x29a8f8…29aa8c Dummy {f00=0x00b6, f01=0x0190, f02=» P ANK A2,/30 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS P XIF T P* ` P EJECT DRFD01 j P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P IFT CHAN=0 P LD A2,DWT:BF,A6
0x29aa8c…29ac20 Dummy {f00=0x00b6, f01=0x0190, f02=»05 FOUR PHYS. SEC. IO P* PFD:003 SUK A2,128 ( P SUK A4,1 B P ADK A3,1 T P RB(NZ) FD:003 f P* | PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO . P ST A3,DWTNOS,A6
0x29ac20…29adb4 (3, 245) Dummy {f00=0x00b7, f01=0x0190, f02=»D A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 $ , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA < P LDR A3,A2 l P RF(NN) FD:009 ~ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01 P*
0x29adb4…29af48 Dummy {f00=0x00b7, f01=0x0190, f02=»,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 0 P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF v P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS
0x29af48…29b0dc Dummy {f00=0x00b7, f01=0x0190, f02=»Z) FD:060 BASIC READ P SUK A1,4 P RF(Z) FD:015 BASIC WRITE . P SUK A1,12 P P RF(Z) FD:060 PHYSICAL READ b P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU * P
0x29b0dc…29b270 Dummy {f00=0x00b7, f01=0x0190, f02=» & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! . P ADK A4,4 ! X " PFD:015 EQU * BASIC WRITE ORDER ! j P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P IFT TOSS+IB
0x29b270…29b404 Dummy {f00=0x00b7, f01=0x018e, f02=»D A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ! ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " 6 P LDR A7,A3 REQUESTED LENGTH " b P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU " ( P T
0x29b404…29b598 Dummy {f00=0x00b7, f01=0x018e, f02=» P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # " PFD:019 EQU * # V P XIF # j P* # v P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3 NO OF C
0x29b598…29b72c Dummy {f00=0x00b7, f01=0x0190, f02=» " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ * P RF(Z) FD:020 $ X P LDK A3,/40 INDICATE ERROR $ n , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT DRF
0x29b72c…29b8c0 Dummy {f00=0x00b7, f01=0x0190, f02=»******* $ P* % PFD:060 CF A5,BIO % P* % 2 P IFT MMUPAG=1 % < P IFT CHAN=0 % R P IFT TOSS+IBM=2 % f P LD A1,DWTFIB,A6 % ~ P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM
0x29b8c0…29ba54 (3, 246) Dummy {f00=0x00b7, f01=0x0190, f02=»FFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & F P XIF & z P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6
0x29ba54…29bbe8 Dummy {f00=0x00b7, f01=0x0190, f02=»M=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' $ P XIF ' B P* ' N P IFT IBM=1 ' X P IFT MMUPAG=0 ' j ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII ' P
0x29bbe8…29bd7c Dummy {f00=0x00b7, f01=0x0190, f02=»S+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( ( P XIF ( H P* ( T P IFT MMUPAG=1 ( ^ P IFF CHAN+IBM=0 ( t 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 REQUESTE
0x29bd7c…29bf10 Dummy {f00=0x00b7, f01=0x0190, f02=»E ( n 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) @ P XIF ) j PFD:100 EQU * ) v P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* * )
0x29bf10…29c0a4 Dummy {f00=0x00b7, f01=0x0190, f02=»Z) LOAD00 LOAD ORDER ) P ADK A3,17 * $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * . P* * V PLOAD00 EQU * * ` P LDK A2,/14 LOCK * t P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P LD A1,D
0x29c0a4…29c238 Dummy {f00=0x00b7, f01=0x018e, f02=» * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + ( " P CF A5,LD:RC CHECK RETURN CODE + > P EJECT DRFD01 + d P* + | P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR + P S
0x29c238…29c3cc Dummy {f00=0x00b7, f01=0x0190, f02=» P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , > 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , ` PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS ,
0x29c3cc…29c560 Dummy {f00=0x00b7, f01=0x0190, f02=» $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - , P LDK A1,DWTCRN - B P CF A5,STDWT - X P ADK A4,EOE-BOE EOE ADDRESS - l P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS - P
0x29c560…29c6f4 (3, 247) Dummy {f00=0x00c8, f01=0x0190, f02=» EOD NO IN DWT - ~ P* . PLOA:65 EQU * . P LDKL A3,/400 . 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . J P* . z PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLOA:80 EQU * . P ABL END:RC .
0x29c6f4…29c888 Dummy {f00=0x00c8, f01=0x0190, f02=» . P* / P EJECT DRFD01 / P* / * P* / 4 P IFF TOSS+IBM=0 / > P* / V P* ERROR , UNLOCK / ` P* / z PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:80 /
0x29c888…29ca1c Dummy {f00=0x00c8, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS / P RTN A5 0 $ P XIF 0 4 P* 0 @ P EJECT DRFD01 0 J P* 0 b P********** 0 l P* * 0 ~ P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P IFT IBM=1 0 P* 0 P* DAT
0x29ca1c…29cbb0 Dummy {f00=0x00c8, f01=0x018e, f02=»2,A8 STORE EOD-NO IN CONTROL WORD OF ECB 0 P* 1 0 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 : P* 1 j P CF A5,DSLIO PREPARE FOR I/O 1 t & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 1 P ENB 1 P* 1 < P* TRANS
0x29cbb0…29cd44 Dummy {f00=0x00c8, f01=0x0190, f02=» P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 8 P ADK A1,1 2 N P RB UNL:10 2 ` P* 2 r P EJECT DRFD01 2 | P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2 * P* A7 = SECTOR NO WITHIN TRAC
0x29cd44…29ced8 Dummy {f00=0x00c8, f01=0x0190, f02=» A4,1 2 P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 * P LDR A7,A1 TRACK 3 L ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 d P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS INHIBIT 3
0x29ced8…29d06c Dummy {f00=0x00c8, f01=0x0190, f02=»WRITE WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 " P CF A5,DSOPCH 4 J P CMR A2 INDICATE NOT OPEN 4 ` P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P C
0x29d06c…29d200 Dummy {f00=0x00c8, f01=0x0190, f02=»LOCK IN DWT 4 t P RB LOA:80 END:IO 5 P* 5 . P IFT IBM=1 5 8 P* 5 J P* UNLOAD RETURN CODE CHECK 5 T P* 5 x PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 & P RF(Z) RTN:A5 NOT WRITE PROTECTED
0x29d200…29d394 (3, 248) Dummy {f00=0x00c8, f01=0x0190, f02=»EMPORARY RETURN CODE 5 | PRTN:A5 EQU * 6 P RTN A5 6 0 P* 6 @ P EJECT DRFD01 6 J P* 6 b P* 6 l ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 v P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6 P ADK A1,0 6 & P ABL(NZ) END:IO
0x29d394…29d528 Dummy {f00=0x00c8, f01=0x0190, f02=»,DWTOR+1,A6 ORDER CODE 6 P SUK A1,49 7 P RF(Z) REWIND REWIND FILE 7 0 * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 R P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUENTIAL WRITE 7 P ADK A1,4 7 0
0x29d528…29d6bc Dummy {f00=0x00c8, f01=0x0190, f02=»AL READ * 7 P******************* 8 P* 8 . . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 8 P LDR* A3,A2 CRN 8 j P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) FD:DIS REQUEST ERROR 8 P CWR A3,
0x29d6bc…29d850 Dummy {f00=0x00c8, f01=0x0190, f02=» 8 b P* 9 P IFT MMUPAG=0 9 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 ( P XIF 9 T P* 9 ` P IFT IBM=1 9 j P LDK A7,SECLEN 9 | $ P CF A5,ASCII TRANSFORM TO ASCII 9 P* 9 P EJECT DRFD01 9 P* 9 P* 9 P IFT MMUPAG=1 9 ( P T
0x29d850…29d9e4 Dummy {f00=0x00c8, f01=0x0190, f02=»BUFFER ADDRESS 9 | & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : @ P LDK A7,SECLEN LENGTH : l ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK : P XIF : P* : P IFT IBM=1 :
0x29d9e4…29db78 Dummy {f00=0x00c8, f01=0x0190, f02=»,/1000 RETURN CODE : P RF END:IO ; P* ; , P EJECT DRFD01 ; 6 P* ; N P******************* ; X P* SEQUENTIAL WRITE * ; t P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF END OF EXTENT ; P* ; P LDK A1,
0x29db78…29dd0c Dummy {f00=0x00c8, f01=0x0190, f02=»DIS REQUEST ERROR ; P CWR* A7,A2 < P RF(G) ENDEOE END OF EXTENT < . P* < R P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < r " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE < & P LD A1,DWTUEC,A6 USER ECB ADDRES
0x29dd0c…29dea0 Dummy {f00=0x00c8, f01=0x0190, f02=»OVE SECTOR TO DRIVER BUFFER < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = $ P XIF = T P* = ` P IFT IBM=1 = j P LDK A4,5 BIO WRITE = | P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF = P* = P EJECT DRFD
0x29dea0…29e034 (3, 249) Dummy {f00=0x00c8, f01=0x0190, f02=»S A1,A6 UPDATE TEMPORARY RETURN CODE = PSQW:05 EQU * > , P CF A5,DSOPCH > @ PSQW:10 EQU * > V 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > j P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT > P LDK A2,SECLEN > , P ST A2,ECBEL,A
0x29e034…29e1c8 Dummy {f00=0x00c8, f01=0x0190, f02=»RFD01 > P* ? P********** ? P* REWIND * ? * P********** ? < P* ? N PREWIND EQU * ? X P LDR A3,A2 SAVE EOD ADDRESS ? l P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD = BOE ? P LDK A1,DWTCRN ? P CF
0x29e1c8…29e35c Dummy {f00=0x00c8, f01=0x018e, f02=» ? P EJECT DRFD01 @ P* @ P***************** @ * P* * @ D P* PERFORM ORDER * @ ^ P* * @ x P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @ 0 P* A3 NO OF BYTES TO BE TRA
0x29e35c…29e4f0 Dummy {f00=0x00c8, f01=0x0190, f02=» P XIF A P IFT CHAN=1 A " P LDK A1,0 INDICATOR WRITE MODE A $ P XIF A J P RF FD:800 A V P* A h PFD:REA EQU * A r P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/8000 WORDS READ A P XIF A PFD:8
0x29e4f0…29e684 Dummy {f00=0x00c8, f01=0x0190, f02=»PAG=1 A 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B D 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B p P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B P* B P IFT CHAN=0 B P O
0x29e684…29e818 Dummy {f00=0x00c8, f01=0x0190, f02=»JECT DRFD01 B P* C . P* PUT BUFFER START AND END ADDRESS IN DWT C P* C R " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P ST A5,DWTA5,A6 SAVE STACK POINTER C P
0x29e818…29e9ac Dummy {f00=0x00c8, f01=0x0190, f02=»R CIO START C ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D P RF T:DISP D @ P* D R P EJECT DRFD01 D P* D t * P************************************* D ~ P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * D * P*
0x29e9ac…29eb40 Dummy {f00=0x00c8, f01=0x0190, f02=»ER D p P LDR* A1,A6 RETURN CODE E & P ANK A1,/7F GET ERROR RETURN CODE E * P RF(NZ) END:RC E T 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E j $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P ADS A2,ECBEL,A8 UPDATE ECBEL E P LD
0x29eb40…29ecd4 (3, 250) Dummy {f00=0x00c9, f01=0x0190, f02=»PDATE BUFFER POINTER E P ST A2,DWTBA,A6 F & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F 4 P ADK A4,0 F ^ ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F p P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1 EQU * F P XIF F P* F P IFT
0x29ecd4…29ee68 Dummy {f00=0x00c9, f01=0x0190, f02=» P EJECT DRFD01 G P* G P********** G & P* * G 8 P* END:IO * G J P* * G P********** G n P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G P RF END:IO G P XIF G P* G
0x29ee68…29effc Dummy {f00=0x00c9, f01=0x0190, f02=»D:30 EQU * CU ADDRESS UNKNOWN G P LDK A1,1 NOT OPERABLE H & * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H D P RB END:IO H r P EJECT DRFD01 H P* H P******************** H P* * H P* RECOVERY ROUTINE * H P*
0x29effc…29f190 Dummy {f00=0x00c9, f01=0x0190, f02=»IF H P* I P IFT CPU852=0 I " P MSR 8,A15 SAVE A1-A8 ON STACK I * P XIF I P P* I P LDKL A6,DWFD01 DWT ADDRESS I f P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I P* DELAY 2 SEC I P* I P LD A4
0x29f190…29f324 Dummy {f00=0x00c9, f01=0x018e, f02=» LDK A4,DWTTP I P ADR A4,A6 J P LDR A1,A6 SAVE A6 J ( P CF A15,SETIMP J B P DATA FDON20,TIME J X P* J r PF:DISP EQU * J | P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,A1 J P CM DWTTP,A6 J P LDKL A5,D
0x29f324…29f4b8 Dummy {f00=0x00c9, f01=0x0190, f02=» P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K P XIF K @ P* K L P IFF TOSS+IBM=0 K V 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K n P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* READ VOLUME NAM
0x29f4b8…29f64c Dummy {f00=0x00c9, f01=0x0190, f02=»,A6 SAVE IT K P CF A5,SETCIO L P LDK A2,/14 L * P CF A5,FD:REA LOCK L > P ANK A3,1 L X P RF(Z) FDON19 OPERABLE L j P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P* L PFDON19
0x29f64c…29f7e0 Dummy {f00=0x00c9, f01=0x0190, f02=» * L P LDK A2,/C M P CF A5,FD:REA UNLOCK M P LDK A3,0 M 8 , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M J P SUK A3,1 M z P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6 INDICATE VOLU
0x29f7e0…29f974 (3, 251) Dummy {f00=0x00d1, f01=0x0190, f02=» ORDER IF RUNNING M l P* N " P LD A4,DWTTP2,A6 TIMER POINTER N $ P RF(Z) FDON09 NOT RUNNING N J P CMR A4 STOP TIMER N l $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE N P*
0x29f974…29fb08 Dummy {f00=0x00d1, f01=0x018e, f02=» N p P ORS A2,DWTOCF,A6 SAVE O ( P XRRS A2,A4 SET STATUS WORD TO OPEN O & P LDR* A2,A4 O R & P OTR A2,0,SOPDA SET DRIVE TO OPEN O f P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* LOCK DOORS O P* O P LDK A2,1 O
0x29fb08…29fc9c Dummy {f00=0x00d1, f01=0x0190, f02=» O z P* P P EJECT P P* P P* PUT DRIVE NO IN CIO INSTR P * P* P N P SRN A2,A3 DRIVE NO IN A3 P X * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P z P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3,A6 DRIVE IND. P P ANK A3,1 P
0x29fc9c…29fe30 Dummy {f00=0x00d1, f01=0x018e, f02=»ON25 P P* Q P IFT OPCLOS=1 Q P* Q , D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q 6 P* Q ~ $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF,A6 CLEAR FLAG Q $ P LD A2,SPDLCI OPEN
0x29fe30…29ffc4 Dummy {f00=0x00d1, f01=0x0190, f02=» Q P* R P CM DWTA2,A6 RESET FDON FLAG R PFDON60 EQU * R 6 P LD A8,DWTECB,A6 R J 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R b P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R P LD A7,DWTORD,A6 R , P ST A7,DWT
0x29ffc4…2a0158 Dummy {f00=0x00d1, f01=0x0190, f02=»* R P EJECT DRFD01 S P* S " P******************** S , P* * S H P* READY INTERRUPT * S d P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP POWER ON ROUT
0x2a0158…2a02ec Dummy {f00=0x00d1, f01=0x0190, f02=»* S P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T " P RB FDONVL READ VOLUME NAMES T D P XIF T h P* T t P EJECT DRFD01 T ~ P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x2a02ec…2a0480 Dummy {f00=0x00d1, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS ON STACK T P XIF U . P* U : P IFT CPU852=0 U D " P MSR 8,A15 SAVE A1-A8 ON STACK U Z P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER U " P LD
0x2a0480…2a0614 (3, 252) Dummy {f00=0x00d1, f01=0x0190, f02=»RRUPT U x P LD A3,PFPOST V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V $ ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V T P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P LDR* A3,A1 ONE WORD FROM BUFFER V
0x2a0614…2a07a8 Dummy {f00=0x00d1, f01=0x018e, f02=» A2,0,CUADR CIO HALT V PIHDISP EQU * W P ABL TDISP GOTO DISPATCHER W 0 P* W R PIH050 EQU * W P INR A3,0,CUADR READ W p P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER POINTER W P SUK A2,2 W P RB(P)
0x2a07a8…2a093c Dummy {f00=0x00d1, f01=0x0190, f02=» P* X P EJECT DRFD01 X P* X & P* X 0 P IFT CHAN=0 X : P SST A3,CUADR STATUS X N P XIF X j P LD A8,DWTECB,A6 ECB ADDRESS X v " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1 X P RB(N) FDRE READY INTERRUPT
0x2a093c…2a0ad0 Dummy {f00=0x00d1, f01=0x0190, f02=»LT, NOT OPERABLE X ~ P RF(Z) IH:10 RETURN CODE OK Y P ORK A3,4 Y < PIH:10 EQU * Y N P* Y b P EJECT DRFD01 Y l P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80 Y P LDR A1,A3 Y " P ANKL A3,/
0x2a0ad0…2a0c64 Dummy {f00=0x00d1, f01=0x0190, f02=»O Y x PIH:70 EQU * Z P LDR A4,A1 Z P ANKL A4,/0400 BIT 5 Z 0 P SLC A4,7 TO BIT 14 Z L P ORR A3,A4 Z h P* Z z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P ORR A3,A4 Z P XIF Z P* Z
0x2a0c64…2a0df8 Dummy {f00=0x00d1, f01=0x018e, f02=» Z ~ P ORR A3,A1 [ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ P ANKL A3,/F7FF [ J PIH:80 EQU * [ ` P LDR A1,A3 [ t P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P******************************************* [ 0 P*
0x2a0df8…2a0f8c Dummy {f00=0x00d1, f01=0x0190, f02=» 0 P******************************************* P* 8 P******* B P* * R P* BIO * b P* * r P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P* OUTPUT: A2 BITS 0-12 OF CONTRO
0x2a0f8c…2a1120 Dummy {f00=0x00d1, f01=0x0190, f02=»EQU * & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] 8 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] d P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BIO WITH ORDER ] " P LD A4,DWTBA,A
0x2a1120…2a12b4 (3, 253) Dummy {f00=0x00d2, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x2a12b4…2a1448 Dummy {f00=0x00d2, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x2a1448…2a15dc Dummy {f00=0x00d2, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x2a15dc…2a1770 Dummy {f00=0x00d2, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x2a1770…2a1904 Dummy {f00=0x00d2, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x2a1904…2a1a98 Dummy {f00=0x00d2, f01=0x0190, f02=» , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c 4 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c X 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P* c PVOL:
0x2a1a98…2a1c2c Dummy {f00=0x00d2, f01=0x0190, f02=»L A3,/8000 INDICATE NO NEW NVL SET c PVOL:30 EQU * d * . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d > P LD A8,DWTECB,A6 d p P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d P* d P
0x2a1c2c…2a1dc0 Dummy {f00=0x00d2, f01=0x0190, f02=» ASCII CODE d . P* INPUT STRING ADDRESS IS BUF e & P* INPUT: A7 NO OF CHARACTERS e H P* A4 = BUFFER ADDRESS e r P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P* e PASCI
0x2a1dc0…2a1f54 (3, 254) Dummy {f00=0x00d2, f01=0x0190, f02=» A4,A7 e PASC:10 EQU * f P SUK A4,1 f " P LCR A1,A4 EBCDIC CHARACTER f 4 P ANK A1,/FF f X ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f l 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC:10 f P RF EBC:90 f P*
0x2a1f54…2a20e8 Dummy {f00=0x00d2, f01=0x0190, f02=»ES A STRING FROM ASCII TO f r P* EBCDIC CODE g " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g D P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUTPUT: A1 CHANGED g P*
0x2a20e8…2a227c Dummy {f00=0x00d2, f01=0x018e, f02=»BUFFER ADDRESS g | P XIF h P* h " P IFT IBM=1 h , P ADR A4,A7 h > PEBC:10 EQU * h P P SUK A4,1 h d P LCR A1,A4 GET ASCII CHAR. h v P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,1 h P RB(P) EBC:10 h & P L
0x2a227c…2a2410 Dummy {f00=0x00d2, f01=0x0190, f02=» h ~ P* i P********** i P* LOGSEC * i $ P********* i 6 P* i H @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i R , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) i * P*
0x2a2410…2a25a4 Dummy {f00=0x00d2, f01=0x0190, f02=»SECTOR NO i x . P* A4 ADDRESS TO PHYS. SEC. + 4 j P* j D PLOGSEC EQU * j N P CF A5,DECBIN j b P LDR A3,A1 SAVE j x P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P LDR A2,A1 j P SLL A2,2 j
0x2a25a4…2a2738 Dummy {f00=0x00d2, f01=0x018e, f02=»CT DRFD01 j P* k P* CHECK SECTOR NO k P* k 8 P LDR A1,A3 k B P SUK A1,25 k T P RF(NP) LOG:10 k f P CWK A4,BUF+EOD+4 EOD k | P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k " P* CHECK EOD LESS/EQUAL 74001 k
0x2a2738…2a28cc Dummy {f00=0x00d2, f01=0x0190, f02=» P RTN A5 l P* l P* FATAL ERROR l P* l 4 ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l > " PLOG:10 LDK A1,/10 RETURN CODE l j , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL LOA:90 ERROR ROUTINE l P* l
0x2a28cc…2a2a60 Dummy {f00=0x00d2, f01=0x0190, f02=»O EBCDIC CODED DIGITS TO l n D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m , P* INPUT: A4 ADDRESS TO FIRST DIGIT m h P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN LDK A1,0 m P LDK A7,2 m
0x2a2a60…2a2bf4 (3, 255) Dummy {f00=0x00d2, f01=0x0190, f02=» m x P ADK A2,9 n P SUK A7,1 n P RF(Z) DEC:30 n , & P ADK A4,1 ADDRESS TO SECOND DIGIT n B PDEC:20 SUK A2,1 n l P RB(N) DEC:10 NEXT DIGIT n P ADK A1,/A MULTIPLY BY 10 n P RB DEC:20 n PDEC:30 ADR A1,A2 n P RTN A5 n P XIF n
0x2a2bf4…2a2d88 Dummy {f00=0x00d2, f01=0x018e, f02=»NO IN CIO INSTRUCTION n x P* o 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o ( P* o d P* OUTPUT: A3 CHANGED o n P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P SLL A3,4 o P ORS A3,FD:CIO o
0x2a2d88…2a2f1c Dummy {f00=0x00d2, f01=0x0190, f02=» P* p : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p 0 P* EBCDIC-CODED DIGITS (DECIMAL) p L P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p P* A7 CHANGED p P
0x2a2f1c…2a30b0 Dummy {f00=0x00d2, f01=0x0190, f02=» P SLL A3,8 q * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q P ORKL A3,/F0F0 EBCDIC CODED q D P RTN A5 q h P* q x P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION: PREPARE FOR READING DATA SET LAB
0x2a30b0…2a3244 Dummy {f00=0x00d2, f01=0x0190, f02=» A3 128 q ( P* A4 DRIVER BUFFER ADDRESS r P* A6 DWT ADDRESS r > P* A1 IS CHANGED r ` P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A3,128 r P LDKL A4,BUF r
0x2a3244…2a33d8 Dummy {f00=0x00d2, f01=0x018e, f02=»N: GET EOD-NO AND EOD-NO ADDRESS IN DWT r P* s 0 P* INPUT: A6 DWT ADDRESS s : P* s P* OUTPUT: A2 EOD ADDRESS s f , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTEOD s P CF A5,DSPAD s P L
0x2a33d8…2a356c Dummy {f00=0x00d2, f01=0x018e, f02=» P* t 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t D P* t ~ P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRESS TO DATA t P* A
0x2a356c…2a3700 Dummy {f00=0x00d2, f01=0x0190, f02=» t P RTN A5 u P* u P EJECT DRFD01 u " P* u : P********* u D P* STDWT * u V P********* u h P* u z : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P* INPUT: A1 OFFSET TO DWT
0x2a3700…2a3894 (3, 256) Dummy {f00=0x00d3, f01=0x0190, f02=» u v 0 P* A2 ADDRESS TO WORD IN DWT AREA v P* A3 UNCHANGED v < P* A6 UNCHANGED v ^ P* v PSTDWT EQU * v P CF A5,DSPAD v P STR A3,A2 v P RTN A5 v P XIF v P* v P EJECT DRFD01 v P* v
0x2a3894…2a3a28 Dummy {f00=0x00d3, f01=0x018e, f02=»OSS=1 v P IFT IBM=0 w " P DATA 0,0,0 VOLUME NAME BUFFER w P IFT MMUPAG+CHAN=2 w F P RES DVBLEN-3 MMU BUFFER w ` P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P XIF w P* w P EJECT DRF
0x2a3a28…2a3bbc Dummy {f00=0x00d3, f01=0x0190, f02=» w x P********************* x P* x & PDWFD01 EQU * x 0 ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x D P DATA 0 x p P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADDRESS x P DATA 0 TTAB-ADDRE
0x2a3bbc…2a3d50 Dummy {f00=0x00d3, f01=0x0190, f02=»CB ADDRESS x x DATA DEVECB MMU ECB ADDRESS y XIF y 6 P* y B PDWTA3 EQU *-DWFD01 y L P DATA 0 y f P DATA 0 SAVE AREA y v P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE AREA y P* y P EJECT
0x2a3d50…2a3ee4 Dummy {f00=0x00d3, f01=0x0190, f02=»A /8000 NVL INDICATOR 2 y P DATA /8000 NVL INDICATOR 3 z ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z D P DATA /FFFF,/FFFF,/FFFF z p ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z P
0x2a3ee4…2a4078 Dummy {f00=0x00d3, f01=0x0190, f02=»TUS WORD z t P DATA 0 { P XIF { PDWTA5 EQU *-DWFD01 { , P DATA 0 { F * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { V P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 { P* { P* { P IFT I
0x2a4078…2a420c Dummy {f00=0x00d3, f01=0x0190, f02=»R { j P DATA 0 | P* | P IFT OPCLOS=1 | $ . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | : P DATA 0 | l 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | | P DATA 0 | P XIF | P* | P EJECT DRFD01 | P* | P* | P I
0x2a420c…2a43a0 Dummy {f00=0x00d3, f01=0x0190, f02=» P DATA 0 } , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } P DATA 0 } D P XIF } T P* } ` P IFT IBM=1 } j , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } | P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA } P DATA 0,0,0,0 } & PDWTEOE E
0x2a43a0…2a4534 (3, 257) Dummy {f00=0x00d3, f01=0x0190, f02=»-DWFD01 DATA SET LABEL SECTOR } P DATA 0,0,0,0 ~ & P XIF ~ < P* ~ H P EJECT DRFD01 ~ R P* ~ j P* ~ t & PDWTBA EQU *-DWFD01 BUFFER POINTER ~ ~ P DATA 0 ~ ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO ~ P DATA 0 ~ & PDWTCW2 EQU *-DWFD01
0x2a4534…2a46c8 Dummy {f00=0x00d3, f01=0x0190, f02=»CTORS IN SUB IO ~ p P DATA 0 P* ( P IFT IBM+TOSS=2 2 & PDWTFIB EQU *-DWFD01 IBM INDICATOR J P DATA 0 t P XIF P* P EJECT DRFD01 P* P* P IFT MMUPAG=1 PDWT:BF EQU *-DWFD01 $ P DATA 0 SAVE ARE
0x2a46c8…2a485c Dummy {f00=0x00d3, f01=0x4132, f02=»0 6 BIT PHYSICAL BUFFER ADDRESS P DATA 0 SECOND MMU ENTRY ( P* H PDWT:LA EQU *-DWFD01 R * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS n P XIF P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0,0 P XIF P*
0x2a485c…2a49f0 Dummy {f00=0x00d3, f01=0x2008, f02=» END @
0x2a49f0…2a4b84 Dummy {f00=0x00d3, f01=0x0000, f02=»
[…0x3…]
0x2a5040…2a51d4 (3, 258) Opaque[0x194]
0x2a51d4…2a5368 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1948, f03=0x0000}
0x2a51d4…2a5368 IdxSect {
0x2a51d4…2a5368 f00 = 0x00ca // 0x2a51d4 @0x0
0x2a51d4…2a5368 f01 = 0x0002 // 0x2a51d6 @0x2
0x2a51d4…2a5368 gno = [ // 0x2a51d8 @0x4
0x2a51d4…2a5368 [0x00]: C0x00ca.0x1.0
0x2a51d4…2a5368 ]
0x2a51d4…2a5368 }
0x2a5368…2a54fc Dummy {f00=0x00ca, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 10.0 80-03-14 870105041000 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x2a54fc…2a5690 Dummy {f00=0x00ca, 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*
0x2a5690…2a5824 Dummy {f00=0x00ca, f01=0x40b0, f02=» P* P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* R P* PTEBCDIC EQU * f P IFF CODE+RCOM=0 | P XIF P END @ MAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x2a5824…2a59b8 Dummy {f00=0x00ca, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x2a59b8…2a5b4c Dummy {f00=0x00ca, f01=0x0190, f02=»A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME 4 P ABL TDISP EXIT f P* ~ POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE (
0x2a5b4c…2a5ce0 Dummy {f00=0x00ca, f01=0x0190, f02=» PFD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK 4 P* d P IFT IBM+TOSS=2 n P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P*
0x2a5ce0…2a5e74 (3, 259) Opaque[0x194]
0x2a5e74…2a6008 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ab8, f03=0x0000}
0x2a5e74…2a6008 IdxSect {
0x2a5e74…2a6008 f00 = 0x00d5 // 0x2a5e74 @0x0
0x2a5e74…2a6008 f01 = 0x0006 // 0x2a5e76 @0x2
0x2a5e74…2a6008 gno = [ // 0x2a5e78 @0x4
0x2a5e74…2a6008 [0x00]: C0x00d5.0x3.0
0x2a5e74…2a6008 [0x01]: C0x00d6.0x0.0
0x2a5e74…2a6008 [0x02]: C0x00d6.0x1.0
0x2a5e74…2a6008 ]
0x2a5e74…2a6008 }
0x2a6008…2a619c Dummy {f00=0x00d5, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x2a619c…2a6330 Dummy {f00=0x00d5, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x2a6330…2a64c4 Dummy {f00=0x00d5, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x2a64c4…2a6658 Dummy {f00=0x00d5, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x2a6658…2a67ec Dummy {f00=0x00d5, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x2a67ec…2a6980 Dummy {f00=0x00d5, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x2a6980…2a6b14 (3, 260) Dummy {f00=0x00d6, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x2a6b14…2a6ca8 Dummy {f00=0x00d6, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x2a6ca8…2a6e3c Dummy {f00=0x00d6, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x2a6e3c…2a6fd0 Dummy {f00=0x00d6, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x2a6fd0…2a7164 Dummy {f00=0x00d6, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x2a7164…2a72f8 Dummy {f00=0x00d6, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x2a72f8…2a748c Dummy {f00=0x00d6, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x2a748c…2a7620 Dummy {f00=0x00d6, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x2a7620…2a77b4 (3, 261) Dummy {f00=0x00d6, 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
0x2a77b4…2a7948 Dummy {f00=0x00d6, f01=0x0000, f02=»
[…0x6…]
0x2a82c0…2a8454 (3, 262) Opaque[0x194]
0x2a8454…2a85e8 # DirEnt {nam=»TMMLKM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x13b0, f03=0x0000}
0x2a8454…2a85e8 IdxSect {
0x2a8454…2a85e8 f00 = 0x009d // 0x2a8454 @0x0
0x2a8454…2a85e8 f01 = 0x0006 // 0x2a8456 @0x2
0x2a8454…2a85e8 gno = [ // 0x2a8458 @0x4
0x2a8454…2a85e8 [0x00]: C0x009d.0x2.0
0x2a8454…2a85e8 [0x01]: C0x009d.0x3.0
0x2a8454…2a85e8 [0x02]: C0x009e.0x0.0
0x2a8454…2a85e8 ]
0x2a8454…2a85e8 }
0x2a85e8…2a877c Dummy {f00=0x009d, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x2a877c…2a8910 Dummy {f00=0x009d, f01=0x0190, f02=»WING n P* TOSS MMU LKM PROCESSORS: P* 0 " P* - TCHPAG = CHANGE MMU PAGE : P* ` $ P* - TCHMMU = CHANGE MMU TABLE j P* & P* - TLUSEG = LOCK/UNLOCK SEGMENT P* P* P EJECT TMMLKM P* P* P**
0x2a8910…2a8aa4 Dummy {f00=0x009d, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x2a8aa4…2a8c38 Dummy {f00=0x009d, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x2a8c38…2a8dcc Dummy {f00=0x009d, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x2a8dcc…2a8f60 Dummy {f00=0x009d, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x2a8f60…2a90f4 (3, 263) Dummy {f00=0x009d, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x2a90f4…2a9288 Dummy {f00=0x009d, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x2a9288…2a941c Dummy {f00=0x009d, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x2a941c…2a95b0 Dummy {f00=0x009d, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x2a95b0…2a9744 Dummy {f00=0x009d, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x2a9744…2a98d8 Dummy {f00=0x009d, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x2a98d8…2a9a6c Dummy {f00=0x009d, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x2a9a6c…2a9c00 Dummy {f00=0x009d, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x2a9c00…2a9d94 (3, 264) Dummy {f00=0x009e, f01=0x2008, f02=» NT TCHPAG PRR 9.1 78-10-16 870105040910 END <@ H
0x2a9d94…2a9f28 Dummy {f00=0x009e, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x2a9f28…2aa0bc Dummy {f00=0x009e, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x2aa0bc…2aa250 Dummy {f00=0x009e, 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
0x2aa250…2aa3e4 Dummy {f00=0x009e, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x2aa3e4…2aa578 Dummy {f00=0x009e, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x2aa578…2aa70c Dummy {f00=0x009e, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x2aa70c…2aa8a0 Dummy {f00=0x009e, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x2aa8a0…2aaa34 (3, 265) Opaque[0x194]
0x2aaa34…2aabc8 # DirEnt {nam=»TLDSEG«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1340, f03=0x0000}
0x2aaa34…2aabc8 IdxSect {
0x2aaa34…2aabc8 f00 = 0x009a // 0x2aaa34 @0x0
0x2aaa34…2aabc8 f01 = 0x0006 // 0x2aaa36 @0x2
0x2aaa34…2aabc8 gno = [ // 0x2aaa38 @0x4
0x2aaa34…2aabc8 [0x00]: C0x009a.0x0.0
0x2aaa34…2aabc8 [0x01]: C0x009a.0x1.0
0x2aaa34…2aabc8 [0x02]: C0x009a.0x2.0
0x2aaa34…2aabc8 ]
0x2aaa34…2aabc8 }
0x2aabc8…2aad5c Dummy {f00=0x009a, f01=0x0190, f02=» 2 P IDENT TLDSEG REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x2aad5c…2aaef0 Dummy {f00=0x009a, f01=0x0190, f02=»M PROCESSOR, d 0 P* USED IN TOSS MEMORY MANAGEMENT SYSTEMS. P* H P* R P EJECT TLDSEG P* t P* ~ P*********** P* ENTRIES * P*********** P* P* P ENTRY TLDSEG LOAD SEGMENT & P ENTRY TLDS15
0x2aaef0…2ab084 Dummy {f00=0x009a, f01=0x0190, f02=»* EXTERNALS * P************* P* , P* 6 0 P EXTRN PRUN TTAB ADDRESS OF RUNNING PROGRAM @ P EXTRN TDISP DISPATCHER t $ P EXTRN LKM030 LKM REQUEST ERROR & P EXTRN PAG:QB QUEUE LINK BACKWARDS $ P EXTRN SEG:NS NUMBER OF SEGMENTS
0x2ab084…2ab218 Dummy {f00=0x009a, f01=0x0190, f02=»TTAB SAVE AREA P EXTRN TTB:MT MMU TABLE & P EXTRN TTB:CB CURRENT SEGMENT BASE 6 ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS ` ( P EXTRN TTB:SB SEGMENT BLOCK ADDRESS 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK & P EXTRN SCTMMP MMU TABLE PA
0x2ab218…2ab3ac Dummy {f00=0x009a, f01=0x0190, f02=» P* . P***************************************** P* @ P* CONDITIONAL ASSEMBLY J P* h . P***************************************** r P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1.
0x2ab3ac…2ab540 Dummy {f00=0x009a, f01=0x0190, f02=»ETTING CPU852 EQU 0. z P* PCPU852 EQU 1 & P* : * D . ** A PROGRAM VERSION USING TOSS DISC PAGING N * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * PDSKPAG EQU 1 * P EJECT TLDSEG P* P* P******
0x2ab540…2ab6d4 (3, 266) Dummy {f00=0x009a, f01=0x0190, f02=» IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: ( P* R 4 P* A2 = DISPATCH ADDRESS (NOT UPDATED BY IHLKM) P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER P* ( P* IT RETURNS TO CALLING TASK WITH " P
0x2ab6d4…2ab868 Dummy {f00=0x009a, f01=0x0190, f02=» ERROR, ELSE z ( P* A7 = -2 IF DISC I/O ERROR, ELSE $ P* A7 = -3 IF DISC NOT OPERABLE @ P* h 2 P* WHEN REQUESTED SEGMENT IS ALREADY IN CORE: r < P* THE REQUEST WILL NOT GO THROUGH THE DISPATCHER AFTER > P* COMPLETION, THUS NO TASK SWI
0x2ab868…2ab9fc Dummy {f00=0x009a, f01=0x0190, f02=»S NOT IN CORE TLDSEG WILL t : P* ACTIVATE LDTASK WHICH WILL LOAD SEGMENT INTO CORE. " P* ` P* j P EJECT TLDSEG t P* & P* CHECK VALIDITY OF SEGMENT NUMBER P* PTLDSEG EQU * LOAD SEGMENT $ P LD A3,TTB:SP,A5 SEGTAB ADDR
0x2ab9fc…2abb90 Dummy {f00=0x009a, f01=0x0190, f02=»OO BIG f P RF(NG) TLDS00 OK P* ( $ PTLDERR LDK A6,/FF INDICATE ERROR 2 , P ABL LKM030 BRANCH TO LKM REQUEST ERROR Z P* P* GET SEGMENT BLOCK ADDRESS. P* UPDATE RETURN ADDRESS P* PTLDS00 EQU * , P SLL A1,3 ADJUST F
0x2abb90…2abd24 Dummy {f00=0x009a, f01=0x0190, f02=»S v P* P IFT DSKPAG=0 $ P SUKL A15,4 ADJUST STACKPOINTER * . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK R P XIF P* " P ADK A7,0 CHECK SEGMENT NUMBER P RF(NZ) TLDS05 NOT SEGMENT 0 0 P ST A7,TTB:SB,A3 RESET SEGMENT BLOCK
0x2abd24…2abeb8 Dummy {f00=0x009a, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x2abeb8…2ac04c Dummy {f00=0x009a, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x2ac04c…2ac1e0 Dummy {f00=0x009a, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x2ac1e0…2ac374 (3, 267) Dummy {f00=0x009a, f01=0x0190, f02=»NTRY USED BY LDTASK & P LD A1,PAG:PA,A1 GET PAGE ADDRESS P* F P IFT MMUPAG=1 P P ECR A2,A1 f P ANK A2,/FC x P* 4 P* GET PAGE ENTRY/ENTRIES TO UPDATE IN MMU TABLE P* 0 P AD A3,SCTMMP POINT TO FIRST USED PAGE ENTRY
0x2ac374…2ac508 Dummy {f00=0x009a, f01=0x0190, f02=»A3 UPDATE PAGE ENTRY P SUK A4,1 ( P RF(NP) TLDS30 NO MORE PAGE ENTRIES . & P ADK A3,2 POINT TO NEXT PAGE ENTRY Z " P ADK A2,4 UPDATE PAGE ADDRESS P RB TLDS25 P* P EJECT TLDSEG P* P* 4 PTLDS30 ANKL A1,/300 CO
0x2ac508…2ac69c Dummy {f00=0x009a, f01=0x018e, f02=» 2 P ES* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE P XIF > P* J P IFT MMUPAG=0 T PTLDS40 EQU * j 2 P ST* A1,TTB:CB,A5 UPDATE CURRENT SEGMENT BASE ~ P XIF P* P IFT CPU852=0 P LDR A6,A5 $ P ML 6,TTB:SA+2,A6 REST
0x2ac69c…2ac830 Dummy {f00=0x009a, f01=0x40f0, f02=» n P LD A2,TTB:SA+4,A5 P LD A3,TTB:SA+6,A5 " P LD A4,TTB:SA+8,A5 < P LD A6,TTB:SA+12,A5 V P LD A5,TTB:SA+10,A5 r $ P RTN A15 RETURN TO CALLING TASK P XIF P* P* P* END @ P ML 6,TTB:SA+2,A6 REST
0x2ac830…2ac9c4 Dummy {f00=0x009a, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x2ac9c4…2acb58 Dummy {f00=0x009a, f01=0x0190, f02=»** r b 4 P************************************************ s P s B PMOVT:A EQU * s J P IFT CREDIT-MMUPAG=1 s ^ P LDR* A1,A8 GET T:A-ADDRESS s z ( P LD A3,WATLEN,A12 GET LENGTH OF WAT s P SLL A3,2 BYTES s , P SU A3,CIA,A1 ADD DISPLACEMENT TO STAR
0x2acb58…2accec Dummy {f00=0x009a, f01=0x0190, f02=»A-ADDRESS s | $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t : 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t B P t ~ P LD A3,FCD,A12 ANY FCD? t P RF(Z) MOVT10 NO! t P ADR A3,A2 START OF FCB t P LDR A4,A2 SAVE T:A-ADDRESS t 0 P LD
0x2accec…2ace80 Dummy {f00=0x009a, f01=0x0190, f02=»MOVT05 EQU * t P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u . PMOVT10 RTN A14 u H P XIF u ^ P IFT CREDIT+MMUPAG=2 u j P u P ELR A1,A8 GET T:A-ADDRESS u ( P EL A3,WATLEN,A12 GET LENGTH OF WAT u P SLL A3,2 BYTES u P EL A10,CIA,A1 u $
0x2ace80…2ad014 (3, 268) Opaque[0x194]
0x2ad014…2ad1a8 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17a8, f03=0x0000}
0x2ad014…2ad1a8 IdxSect {
0x2ad014…2ad1a8 f00 = 0x00bd // 0x2ad014 @0x0
0x2ad014…2ad1a8 f01 = 0x0004 // 0x2ad016 @0x2
0x2ad014…2ad1a8 gno = [ // 0x2ad018 @0x4
0x2ad014…2ad1a8 [0x00]: C0x00bd.0x1.0
0x2ad014…2ad1a8 [0x01]: C0x00bd.0x2.0
0x2ad014…2ad1a8 ]
0x2ad014…2ad1a8 }
0x2ad1a8…2ad33c Dummy {f00=0x00bd, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x2ad33c…2ad4d0 Dummy {f00=0x00bd, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x2ad4d0…2ad664 Dummy {f00=0x00bd, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x2ad664…2ad7f8 Dummy {f00=0x00bd, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x2ad7f8…2ad98c Dummy {f00=0x00bd, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x2ad98c…2adb20 Dummy {f00=0x00bd, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x2adb20…2adcb4 (3, 269) Dummy {f00=0x00bd, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST
0x2adcb4…2ade48 Dummy {f00=0x00bd, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x2ade48…2adfdc Dummy {f00=0x00bd, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x2adfdc…2ae170 Dummy {f00=0x00bd, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x2ae170…2ae304 Dummy {f00=0x00bd, f01=0x2008, f02=»
0x2ae304…2ae498 Dummy {f00=0x00bd, f01=0x0190, f02=»R r . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF < P RF TLDS40 H P* Z P EJECT TLDSEG d P* | P* PTLDS05 EQU * P IFT DSKPAG=1 2 P ST A1,TTB:SB,A3 UPDATE SEGMENT BLOCK ADDRESS " P LDR* A4,A1 GET SEGMENT
0x2ae498…2ae62c Dummy {f00=0x00bd, f01=0x0190, f02=»* 6 P CF A15,QLTDSK ACTIVATE LOAD TASK AT ENTRY LT:DSK P ABL TDISP GO TO DISPATCHER D P* h PTLDS10 EQU * r $ P SUKL A15,4 ADJUST STACKPOINTER . P ST A2,4,A15 SET DISPATCH ADDRESS ON STACK P XIF P* & PTLDS15 EQU * ENTRY
0x2ae62c…2ae7c0 Dummy {f00=0x00bd, f01=0x0190, f02=» l P* & P LDR* A2,A1 GET QUEUE LINK FORWARD * P RF(Z) TLDS20 PAGE BLOCK NOT IN QUEUE < , P LD A4,PAG:QB,A1 GET QUEUE LINK BACKWARD j 4 P CMR A1 RESET QUEUE LINK FORWARD OF REMOVED BLK " P STR A2,A4 UPDATE QUEUE LINKS P ST A4,PAG:QB,A2
0x2ae7c0…2ae954 (3, 270) Opaque[0x194]
0x2ae954…2aeae8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17c0, f03=0x0000}
0x2ae954…2aeae8 IdxSect {
0x2ae954…2aeae8 f00 = 0x00be // 0x2ae954 @0x0
0x2ae954…2aeae8 f01 = 0x0006 // 0x2ae956 @0x2
0x2ae954…2aeae8 gno = [ // 0x2ae958 @0x4
0x2ae954…2aeae8 [0x00]: C0x00be.0x0.0
0x2ae954…2aeae8 [0x01]: C0x00be.0x1.0
0x2ae954…2aeae8 [0x02]: C0x00be.0x2.0
0x2ae954…2aeae8 ]
0x2ae954…2aeae8 }
0x2aeae8…2aec7c Dummy {f00=0x00be, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x2aec7c…2aee10 Dummy {f00=0x00be, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x2aee10…2aefa4 Dummy {f00=0x00be, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x2aefa4…2af138 Dummy {f00=0x00be, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 0 P* P EJECT MONTIM P* P* P* G E T T I
0x2af138…2af2cc Dummy {f00=0x00be, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x2af2cc…2af460 Dummy {f00=0x00be, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x2af460…2af5f4 (3, 271) Dummy {f00=0x00be, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x2af5f4…2af788 Dummy {f00=0x00be, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x2af788…2af91c Dummy {f00=0x00be, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x2af91c…2afab0 Dummy {f00=0x00be, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x2afab0…2afc44 Dummy {f00=0x00be, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x2afc44…2afdd8 Dummy {f00=0x00be, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x2afdd8…2aff6c Dummy {f00=0x00be, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x2aff6c…2b0100 Dummy {f00=0x00be, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x2b0100…2b0294 (3, 272) Dummy {f00=0x00be, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x2b0294…2b0428 Dummy {f00=0x00be, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x2b0428…2b05bc Dummy {f00=0x00be, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x2b05bc…2b0750 Dummy {f00=0x00be, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x2b0750…2b08e4 Dummy {f00=0x00be, f01=0x2008, f02=»
0x2b08e4…2b0a78 Dummy {f00=0x00be, f01=0x0190, f02=» v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DATA /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVTAB DATA /1909,/1101,/082
0x2b0a78…2b0c0c Dummy {f00=0x00be, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x2b0c0c…2b0da0 Dummy {f00=0x00be, f01=0x0190, f02=»**************** P* CONDITIONAL ASSEMBLY * P************************** : 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC 8 PMFDISC EQU 1
0x2b0da0…2b0f34 (3, 273) Opaque[0x194]
0x2b0f34…2b10c8 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x17d8, f03=0x0000}
0x2b0f34…2b10c8 IdxSect {
0x2b0f34…2b10c8 f00 = 0x00be // 0x2b0f34 @0x0
0x2b0f34…2b10c8 f01 = 0x000a // 0x2b0f36 @0x2
0x2b0f34…2b10c8 gno = [ // 0x2b0f38 @0x4
0x2b0f34…2b10c8 [0x00]: C0x00be.0x3.0
0x2b0f34…2b10c8 [0x01]: C0x00bf.0x0.0
0x2b0f34…2b10c8 [0x02]: C0x00bf.0x1.0
0x2b0f34…2b10c8 [0x03]: C0x00d7.0x1.0
0x2b0f34…2b10c8 [0x04]: C0x00d7.0x3.0
0x2b0f34…2b10c8 ]
0x2b0f34…2b10c8 }
0x2b10c8…2b125c Dummy {f00=0x00be, f01=0x0190, f02=» 2 P IDENT TOSSFM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TOSSFM = TOSS FILE MANAGEMENT LKM PROC
0x2b125c…2b13f0 Dummy {f00=0x00be, f01=0x0190, f02=» TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 4 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE l " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TOSSFM P* P* P
0x2b13f0…2b1584 Dummy {f00=0x00be, f01=0x018e, f02=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P ENTRY FCHEC2 FCHECK 2ND ENTRY > P EJECT TOSSFM d P* | P* P************* P* EXTERNALS * P************* P* P* P EXTRN FMRDWR FM READ/WRITE .
0x2b1584…2b1718 Dummy {f00=0x00be, f01=0x0190, f02=» " P EXTRN TIO:FM FM ENTRY IN TIO , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * " P EXTRN FNDDWD FIND DWT ADDRESS Z 0 P EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH * P EXTRN SCTFWT FWT CHAIN START ADDRESS " P EXTRN SCTNOF NUMBER OF FILES ( P
0x2b1718…2b18ac Dummy {f00=0x00be, f01=0x0190, f02=»LOCK IN FWT n P EXTRN EWTEXL EXTENT LENGTH P EXTRN EWTEXB EXTENT BASE 8 " P EXTRN EWTVOL VOLUME FILE CODE Z & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN DWTST D
0x2b18ac…2b1a40 Dummy {f00=0x00be, f01=0x0190, f02=»L ASSEMBLY P* , P**************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EX
0x2b1a40…2b1bd4 (3, 274) Dummy {f00=0x00bf, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x2b1bd4…2b1d68 Dummy {f00=0x00bf, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x2b1d68…2b1efc Dummy {f00=0x00bf, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x2b1efc…2b2090 Dummy {f00=0x00bf, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x2b2090…2b2224 Dummy {f00=0x00bf, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x2b2224…2b23b8 Dummy {f00=0x00bf, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x2b23b8…2b254c Dummy {f00=0x00bf, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x2b254c…2b26e0 Dummy {f00=0x00bf, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x2b26e0…2b2874 (3, 275) Dummy {f00=0x00bf, f01=0x0190, f02=»RE d P LDKL A14,/7FFF P* " P EJECT TOSSFM , P* D ( P* SEARCH THE FILE EXTENT THAT HOLDS N P* THE REQUESTED SECTORS z * PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH P LD A7,EWTEXL,A3 " P CWR A1,A6
0x2b2874…2b2a08 Dummy {f00=0x00bf, f01=0x0190, f02=»ENT FOUND ~ * PFM:080 EQU * P IFT CPU852=0 0 . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER F P XIF x P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7 P RF(NN) FM:090 NOT UNDERFLOW
0x2b2a08…2b2b9c Dummy {f00=0x00bf, f01=0x0190, f02=»DRESS TO 2ND EWT BLOCK . ) LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE $ P RB(NZ) FM:070 CHECK NEXT EXTENT P * x 4 /FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT P LDKL A1,/A000 REQUEST ERROR P RB FM:040 * EJECT TOSSF
0x2b2b9c…2b2d30 Dummy {f00=0x00bf, f01=0x0190, f02=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE P LD A11,EWTEXB,A4 , * F IFT CPU852=0 P " P DAR A10 COMPUTE SECTOR NUMBER f XIF * IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR NUMBER P ADR A2,A11 RF(O) FM:140 OVER
0x2b2d30…2b2ec4 Dummy {f00=0x00bf, f01=0x018e, f02=»ON t SUK A1,1 * EJECT TOSSFM & * > * H PFM:115 EQU * R " P LDR A12,A1 SAVE SECTOR NUMBER f P LDR A13,A2 P* IFT MMUPAG=0 . P LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF *
0x2b2ec4…2b3058 Dummy {f00=0x00bf, f01=0x0190, f02=» . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW 6 * T PFM:120 EQU * ^ 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT r P ADR A7,A11 P RF(O) FM:160 OVERFLOW * PFM:125 EQU * P CWR A6,A1 0 P
0x2b3058…2b31ec Dummy {f00=0x00bf, f01=0x0190, f02=» P CWR A7,A2 4 P RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT P XIF N P* Z P IFT XTSPLI=1 d 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT z P CWR A7,A2 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT P XIF
0x2b31ec…2b3380 Dummy {f00=0x00bf, f01=0x0190, f02=» = DISC INDEX (FROM FNDDWD) 0 P* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) $ P* A5 = TTAB ADDRESS X * P* A6 = DISC DWT ADDRESS (FROM FNDDWD) t P* A7 = ORDER CODE P* A8 = ECB ADDRESS * PFM:130 EQU * $ P LC A2,EWTVOL,A4 FIL
0x2b3380…2b3514 (3, 276) Dummy {f00=0x00d7, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x2b3514…2b36a8 Dummy {f00=0x00d7, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x2b36a8…2b383c Dummy {f00=0x00d7, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x2b383c…2b39d0 Dummy {f00=0x00d7, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x2b39d0…2b3b64 Dummy {f00=0x00d7, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x2b3b64…2b3cf8 Dummy {f00=0x00d7, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x2b3cf8…2b3e8c Dummy {f00=0x00d7, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x2b3e8c…2b4020 Dummy {f00=0x00d7, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x2b4020…2b41b4 (3, 277) Dummy {f00=0x00d7, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x2b41b4…2b4348 Dummy {f00=0x00d7, f01=0x2008, f02=» O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x2b4348…2b44dc Dummy {f00=0x00d7, f01=0x0000, f02=»
[…0x5…]
0x2b4cc0…2b4e54 (3, 278) Opaque[0x194]
0x2b4e54…2b4fe8 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b68, f03=0x0000}
0x2b4e54…2b4fe8 IdxSect {
0x2b4e54…2b4fe8 f00 = 0x00db // 0x2b4e54 @0x0
0x2b4e54…2b4fe8 f01 = 0x001e // 0x2b4e56 @0x2
0x2b4e54…2b4fe8 gno = [ // 0x2b4e58 @0x4
0x2b4e54…2b4fe8 [0x00]: C0x00db.0x1.0
0x2b4e54…2b4fe8 [0x01]: C0x00db.0x2.0
0x2b4e54…2b4fe8 [0x02]: C0x00db.0x3.0
0x2b4e54…2b4fe8 [0x03]: C0x00dc.0x0.0
0x2b4e54…2b4fe8 [0x04]: C0x00dc.0x1.0
0x2b4e54…2b4fe8 [0x05]: C0x00dc.0x2.0
0x2b4e54…2b4fe8 [0x06]: C0x00dc.0x3.0
0x2b4e54…2b4fe8 [0x07]: C0x00dd.0x0.0
0x2b4e54…2b4fe8 [0x08]: C0x00dd.0x1.0
0x2b4e54…2b4fe8 [0x09]: C0x00dd.0x2.0
0x2b4e54…2b4fe8 [0x0a]: C0x00dd.0x3.0
0x2b4e54…2b4fe8 [0x0b]: C0x00de.0x0.0
0x2b4e54…2b4fe8 [0x0c]: C0x00de.0x1.0
0x2b4e54…2b4fe8 [0x0d]: C0x00de.0x2.0
0x2b4e54…2b4fe8 [0x0e]: C0x00de.0x3.0
0x2b4e54…2b4fe8 ]
0x2b4e54…2b4fe8 }
0x2b4fe8…2b517c Dummy {f00=0x00db, f01=0x0190, f02=» 2 P IDENT FMTASK REL 10.0 80-03-15 870105041000 P : * B * L 6 2************************************************** V * 6 2* PHILIPS TERMINAL SYSTEM PTS * * 6 2* FMTASK = TOSS FILE MANAGEMENT TASK
0x2b517c…2b5310 Dummy {f00=0x00db, f01=0x0190, f02=» TOSS FILE MANAGEMENT TASK CONTAINS THE . ** FOLLOWING FILE ADMINISTRATION MODULES: 0 * b * &* - FMOPEN OPEN/CREATE/EXTEND FILE l $ * - FMCLOS CLOSE/DELETE FILE ( #* - FMRDFP READ FILE PARAMETERS * ( P* A SPECIAL EN
0x2b5310…2b54a4 Dummy {f00=0x00db, f01=0x0190, f02=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * 4 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT > . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. r P* * EJECT FMTASK * * *********** * ENTRIES *
0x2b54a4…2b5638 Dummy {f00=0x00db, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x2b5638…2b57cc Dummy {f00=0x00db, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x2b57cc…2b5960 Dummy {f00=0x00db, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x2b5960…2b5af4 (3, 279) Dummy {f00=0x00db, f01=0x0190, f02=»F NUMBER OF INDEX FILES ( # ENTRY FPB:KA KEY ADDRESS IN RECORD P ENTRY FPB:CD CREATION DATE L " P ENTRY FPB:RP RETENTION PERIOD p EJECT FMTASK * * ************* * EXTERNALS * ************* *
0x2b5af4…2b5c88 Dummy {f00=0x00db, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x2b5c88…2b5e1c Dummy {f00=0x00db, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x2b5e1c…2b5fb0 Dummy {f00=0x00db, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x2b5fb0…2b6144 Dummy {f00=0x00db, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x2b6144…2b62d8 Dummy {f00=0x00db, f01=0x0190, f02=»AG EQU 0 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * CPU852 EQU 1 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x2b62d8…2b646c Dummy {f00=0x00db, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x2b646c…2b6600 Dummy {f00=0x00db, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x2b6600…2b6794 (3, 280) Dummy {f00=0x00db, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x2b6794…2b6928 Dummy {f00=0x00db, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x2b6928…2b6abc Dummy {f00=0x00db, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x2b6abc…2b6c50 Dummy {f00=0x00db, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x2b6c50…2b6de4 Dummy {f00=0x00db, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x2b6de4…2b6f78 Dummy {f00=0x00db, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x2b6f78…2b710c Dummy {f00=0x00db, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x2b710c…2b72a0 Dummy {f00=0x00db, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x2b72a0…2b7434 (3, 281) Dummy {f00=0x00dc, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x2b7434…2b75c8 Dummy {f00=0x00dc, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x2b75c8…2b775c Dummy {f00=0x00dc, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x2b775c…2b78f0 Dummy {f00=0x00dc, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x2b78f0…2b7a84 Dummy {f00=0x00dc, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x2b7a84…2b7c18 Dummy {f00=0x00dc, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x2b7c18…2b7dac Dummy {f00=0x00dc, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x2b7dac…2b7f40 Dummy {f00=0x00dc, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x2b7f40…2b80d4 (3, 282) Dummy {f00=0x00dc, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x2b80d4…2b8268 Dummy {f00=0x00dc, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x2b8268…2b83fc Dummy {f00=0x00dc, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x2b83fc…2b8590 Dummy {f00=0x00dc, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x2b8590…2b8724 Dummy {f00=0x00dc, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x2b8724…2b88b8 Dummy {f00=0x00dc, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x2b88b8…2b8a4c Dummy {f00=0x00dc, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x2b8a4c…2b8be0 Dummy {f00=0x00dc, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x2b8be0…2b8d74 (3, 283) Dummy {f00=0x00dc, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x2b8d74…2b8f08 Dummy {f00=0x00dc, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x2b8f08…2b909c Dummy {f00=0x00dc, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x2b909c…2b9230 Dummy {f00=0x00dc, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x2b9230…2b93c4 Dummy {f00=0x00dc, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x2b93c4…2b9558 Dummy {f00=0x00dc, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x2b9558…2b96ec Dummy {f00=0x00dc, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x2b96ec…2b9880 Dummy {f00=0x00dc, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x2b9880…2b9a14 (3, 284) Dummy {f00=0x00dc, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x2b9a14…2b9ba8 Dummy {f00=0x00dc, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x2b9ba8…2b9d3c Dummy {f00=0x00dc, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x2b9d3c…2b9ed0 Dummy {f00=0x00dc, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x2b9ed0…2ba064 Dummy {f00=0x00dc, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x2ba064…2ba1f8 Dummy {f00=0x00dc, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x2ba1f8…2ba38c Dummy {f00=0x00dc, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x2ba38c…2ba520 Dummy {f00=0x00dc, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x2ba520…2ba6b4 (3, 285) Dummy {f00=0x00dd, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x2ba6b4…2ba848 Dummy {f00=0x00dd, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x2ba848…2ba9dc Dummy {f00=0x00dd, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x2ba9dc…2bab70 Dummy {f00=0x00dd, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x2bab70…2bad04 Dummy {f00=0x00dd, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x2bad04…2bae98 Dummy {f00=0x00dd, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x2bae98…2bb02c Dummy {f00=0x00dd, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x2bb02c…2bb1c0 Dummy {f00=0x00dd, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x2bb1c0…2bb354 (3, 286) Dummy {f00=0x00dd, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x2bb354…2bb4e8 Dummy {f00=0x00dd, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x2bb4e8…2bb67c Dummy {f00=0x00dd, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x2bb67c…2bb810 Dummy {f00=0x00dd, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x2bb810…2bb9a4 Dummy {f00=0x00dd, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x2bb9a4…2bbb38 Dummy {f00=0x00dd, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x2bbb38…2bbccc Dummy {f00=0x00dd, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x2bbccc…2bbe60 Dummy {f00=0x00dd, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x2bbe60…2bbff4 (3, 287) Dummy {f00=0x00dd, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x2bbff4…2bc188 Dummy {f00=0x00dd, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x2bc188…2bc31c Dummy {f00=0x00dd, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x2bc31c…2bc4b0 Dummy {f00=0x00dd, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x2bc4b0…2bc644 Dummy {f00=0x00dd, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x2bc644…2bc7d8 Dummy {f00=0x00dd, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x2bc7d8…2bc96c Dummy {f00=0x00dd, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x2bc96c…2bcb00 Dummy {f00=0x00dd, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x2bcb00…2bcc94 (3, 288) Dummy {f00=0x00dd, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x2bcc94…2bce28 Dummy {f00=0x00dd, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x2bce28…2bcfbc Dummy {f00=0x00dd, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x2bcfbc…2bd150 Dummy {f00=0x00dd, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x2bd150…2bd2e4 Dummy {f00=0x00dd, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x2bd2e4…2bd478 Dummy {f00=0x00dd, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x2bd478…2bd60c Dummy {f00=0x00dd, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x2bd60c…2bd7a0 Dummy {f00=0x00dd, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x2bd7a0…2bd934 (3, 289) Dummy {f00=0x00de, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x2bd934…2bdac8 Dummy {f00=0x00de, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x2bdac8…2bdc5c Dummy {f00=0x00de, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x2bdc5c…2bddf0 Dummy {f00=0x00de, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x2bddf0…2bdf84 Dummy {f00=0x00de, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x2bdf84…2be118 Dummy {f00=0x00de, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x2be118…2be2ac Dummy {f00=0x00de, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x2be2ac…2be440 Dummy {f00=0x00de, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x2be440…2be5d4 (3, 290) Dummy {f00=0x00de, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x2be5d4…2be768 Dummy {f00=0x00de, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x2be768…2be8fc Dummy {f00=0x00de, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x2be8fc…2bea90 Dummy {f00=0x00de, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x2bea90…2bec24 Dummy {f00=0x00de, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x2bec24…2bedb8 Dummy {f00=0x00de, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x2bedb8…2bef4c Dummy {f00=0x00de, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x2bef4c…2bf0e0 Dummy {f00=0x00de, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x2bf0e0…2bf274 (3, 291) Dummy {f00=0x00de, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x2bf274…2bf408 Dummy {f00=0x00de, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x2bf408…2bf59c Dummy {f00=0x00de, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x2bf59c…2bf730 Dummy {f00=0x00de, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x2bf730…2bf8c4 Dummy {f00=0x00de, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x2bf8c4…2bfa58 Dummy {f00=0x00de, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x2bfa58…2bfbec Dummy {f00=0x00de, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x2bfbec…2bfd80 Dummy {f00=0x00de, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x2bfd80…2bff14 (3, 292) Dummy {f00=0x00de, f01=0x0190, f02=» P* n EJECT FMTASK n * n & * n 0 ********** n : * FMRDWR * n L ********** n ^ * n p P* n z $ * FILE MANAGEMENT I/O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x2bff14…2c00a8 Dummy {f00=0x00de, f01=0x4098, f02=»SION n l XIF o * o IFT XTSPLI=1 o " " ABL LKMERR TO BE IMPLEMENTED o 8 XIF o ^ * o j * o t * o ~ END o @ o O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x2c00a8…2c023c Dummy {f00=0x00de, f01=0x2008, f02=» p FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x2c023c…2c03d0 Dummy {f00=0x00de, f01=0x0000, f02=»
[…0x4…]
0x2c0a20…2c0bb4 (3, 293) Opaque[0x194]
0x2c0bb4…2c0d48 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x12d8, f03=0x0000}
0x2c0bb4…2c0d48 IdxSect {
0x2c0bb4…2c0d48 f00 = 0x0096 // 0x2c0bb4 @0x0
0x2c0bb4…2c0d48 f01 = 0x0002 // 0x2c0bb6 @0x2
0x2c0bb4…2c0d48 gno = [ // 0x2c0bb8 @0x4
0x2c0bb4…2c0d48 [0x00]: C0x0096.0x3.0
0x2c0bb4…2c0d48 ]
0x2c0bb4…2c0d48 }
0x2c0d48…2c0edc Dummy {f00=0x0096, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x2c0edc…2c1070 Dummy {f00=0x0096, f01=0x4102, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F8F9,/FAFB h PDFTABE EQU * PDMTIDP EQU * P DATA /0000,/0000 PDMTIDS EQU * P DATA /0101,/0101 P END @ 8
0x2c1070…2c1204 Dummy {f00=0x0096, 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*
0x2c1204…2c1398 Dummy {f00=0x0096, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x2c1398…2c152c Dummy {f00=0x0096, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x2c152c…2c16c0 Dummy {f00=0x0096, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x2c16c0…2c1854 (3, 294) Opaque[0x194]
0x2c1854…2c19e8 # DirEnt {nam=»CTAB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x16f0, f03=0x0000}
0x2c1854…2c19e8 IdxSect {
0x2c1854…2c19e8 f00 = 0x00b7 // 0x2c1854 @0x0
0x2c1854…2c19e8 f01 = 0x0002 // 0x2c1856 @0x2
0x2c1854…2c19e8 gno = [ // 0x2c1858 @0x4
0x2c1854…2c19e8 [0x00]: C0x00b7.0x2.0
0x2c1854…2c19e8 ]
0x2c1854…2c19e8 }
0x2c19e8…2c1b7c Dummy {f00=0x00b7, f01=0x0190, f02=» * P IDENT CTAB01 80-08-20 E.V. DATA ENTRY ENTRY CTAB01 2 P ENTRY CTAB02 H PCTAB02 EQU * ^ 0 ,CTAB01 DATA FUNC,FUNC,UNSC,SHIFT,SHIFT,SHIFT r > 9FUNC DATA /8081,/8283,/8485,/8687,/8889,/8A8B,/8C8D,/8E8F : P DATA /3031,/3233,/3435,/3637,/3
0x2c1b7c…2c1d10 Dummy {f00=0x00b7, f01=0x0190, f02=»B,/2C2D,/2EFF d : P DATA /3031,/3233,/3435,/3637,/3839,/8A86,/8584,/868B : P DATA /6041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F T : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E7F > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FF3E,/FF3F,/3B5F,/3A
0x2c1d10…2c1ea4 Dummy {f00=0x00b7, f01=0x404c, f02=»ATA /7071,/7273,/7475,/7677,/7879,/7A7B,/7C7D,/5E7F END <@ H : P DATA /6041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F T : P DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/7E7F > PSHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FF3E,/FF3F,/3B5F,/3A
0x2c1ea4…2c2038 Dummy {f00=0x00b7, f01=0x2008, f02=» C7D,/7E7F l END @ & : 5 DATA /4041,/4243,/4445,/4647,/4849,/4A4B,/4C4D,/4E4F 2 : 5 DATA /5051,/5253,/5455,/5657,/5859,/5A5B,/5C5D,/5E5F p > :SHIFT DATA /20FF,/FFFF,/FFFF,/FF2A,/FFFF,/FF3F,/3B5F,/3AFF : 5 DATA /3D21,/2223,/2425,
0x2c2038…2c21cc Dummy {f00=0x00b7, f01=0x40ac, f02=» @ H IDENT T:ATAB TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 T:ATAB H T:ATABA Z T:AT10 n @ :A @ * * @ @ T1
0x2c21cc…2c2360 Dummy {f00=0x00b7, f01=0x40b0, f02=» @ H IDENT U:BTAB TRA 10.0 80-08-20 F1 O1111 REL 10.0 80-04-11 U:BTAB H U:BTABB Z U:CB10 n @ CB1 :C @ * * @ @ T1
0x2c2360…2c24f4 (3, 295) Opaque[0x194]
0x2c24f4…2c2688 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1730, f03=0x0000}
0x2c24f4…2c2688 IdxSect {
0x2c24f4…2c2688 f00 = 0x00b9 // 0x2c24f4 @0x0
0x2c24f4…2c2688 f01 = 0x0002 // 0x2c24f6 @0x2
0x2c24f4…2c2688 gno = [ // 0x2c24f8 @0x4
0x2c24f4…2c2688 [0x00]: C0x00b9.0x2.0
0x2c24f4…2c2688 ]
0x2c24f4…2c2688 }
0x2c2688…2c281c Dummy {f00=0x00b9, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 0 P*
0x2c281c…2c29b0 Dummy {f00=0x00b9, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x2c29b0…2c2b44 Dummy {f00=0x00b9, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /FFFF BACKSPACE AND CANCEL $ P DATA /9B9A EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x2c2b44…2c2cd8 Dummy {f00=0x00b9, f01=0x40a4, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA P XIF j PDWTEND EQU * v P* P END @ E AND CANCEL $ P DATA /9B9A EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x2c2cd8…2c2e6c Dummy {f00=0x00b9, 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
0x2c2e6c…2c3000 Dummy {f00=0x00b9, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x2c3000…2c3194 (3, 296) Opaque[0x194]
0x2c3194…2c3328 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b18, f03=0x0000}
0x2c3194…2c3328 IdxSect {
0x2c3194…2c3328 f00 = 0x00d8 // 0x2c3194 @0x0
0x2c3194…2c3328 f01 = 0x0002 // 0x2c3196 @0x2
0x2c3194…2c3328 gno = [ // 0x2c3198 @0x4
0x2c3194…2c3328 [0x00]: C0x00d8.0x3.0
0x2c3194…2c3328 ]
0x2c3194…2c3328 }
0x2c3328…2c34bc Dummy {f00=0x00d8, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY00 EQU * T
0x2c34bc…2c3650 Dummy {f00=0x00d8, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c3650…2c37e4 Dummy {f00=0x00d8, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c37e4…2c3978 Dummy {f00=0x00d8, 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
0x2c3978…2c3b0c Dummy {f00=0x00d8, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x2c3b0c…2c3ca0 Dummy {f00=0x00d8, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x2c3ca0…2c3e34 (3, 297) Opaque[0x194]
0x2c3e34…2c3fc8 # DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b28, f03=0x0000}
0x2c3e34…2c3fc8 IdxSect {
0x2c3e34…2c3fc8 f00 = 0x00d9 // 0x2c3e34 @0x0
0x2c3e34…2c3fc8 f01 = 0x0002 // 0x2c3e36 @0x2
0x2c3e34…2c3fc8 gno = [ // 0x2c3e38 @0x4
0x2c3e34…2c3fc8 [0x00]: C0x00d9.0x1.0
0x2c3e34…2c3fc8 ]
0x2c3e34…2c3fc8 }
0x2c3fc8…2c415c Dummy {f00=0x00d9, f01=0x018e, f02=» 2 P IDENT DVGP01 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP01 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVGP01 EQU *
0x2c415c…2c42f0 Dummy {f00=0x00d9, f01=0x0190, f02=» P DATA DWTEND-DVGP01 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x2c42f0…2c4484 Dummy {f00=0x00d9, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x2c4484…2c4618 Dummy {f00=0x00d9, 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
0x2c4618…2c47ac Dummy {f00=0x00d9, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x2c47ac…2c4940 Dummy {f00=0x00d9, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x2c4940…2c4ad4 (3, 298) Opaque[0x194]
0x2c4ad4…2c4c68 # DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b38, f03=0x0000}
0x2c4ad4…2c4c68 IdxSect {
0x2c4ad4…2c4c68 f00 = 0x00d9 // 0x2c4ad4 @0x0
0x2c4ad4…2c4c68 f01 = 0x0002 // 0x2c4ad6 @0x2
0x2c4ad4…2c4c68 gno = [ // 0x2c4ad8 @0x4
0x2c4ad4…2c4c68 [0x00]: C0x00d9.0x3.0
0x2c4ad4…2c4c68 ]
0x2c4ad4…2c4c68 }
0x2c4c68…2c4dfc Dummy {f00=0x00d9, f01=0x018e, f02=» 2 P IDENT DVGP02 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP02 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVGP02 EQU *
0x2c4dfc…2c4f90 Dummy {f00=0x00d9, f01=0x0190, f02=» P DATA DWTEND-DVGP02 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x2c4f90…2c5124 Dummy {f00=0x00d9, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x2c5124…2c52b8 Dummy {f00=0x00d9, 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
0x2c52b8…2c544c Dummy {f00=0x00d9, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x2c544c…2c55e0 Dummy {f00=0x00d9, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x2c55e0…2c5774 (3, 299) Opaque[0x194]
0x2c5774…2c5908 # DirEnt {nam=»DVDY03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1b48, f03=0x0000}
0x2c5774…2c5908 IdxSect {
0x2c5774…2c5908 f00 = 0x00da // 0x2c5774 @0x0
0x2c5774…2c5908 f01 = 0x0002 // 0x2c5776 @0x2
0x2c5774…2c5908 gno = [ // 0x2c5778 @0x4
0x2c5774…2c5908 [0x00]: C0x00da.0x1.0
0x2c5774…2c5908 ]
0x2c5774…2c5908 }
0x2c5908…2c5a9c Dummy {f00=0x00da, f01=0x0190, f02=» 2 P IDENT DVDY03 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY03 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY03 EQU * T
0x2c5a9c…2c5c30 Dummy {f00=0x00da, f01=0x0190, f02=» DATA DWTEND-DVDY03 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x2c5c30…2c5dc4 Dummy {f00=0x00da, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x2c5dc4…2c5f58 Dummy {f00=0x00da, 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
0x2c5f58…2c60ec Dummy {f00=0x00da, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x2c60ec…2c6280 Dummy {f00=0x00da, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x2c6280…2c6414 (3, 300) Opaque[0x194]
0x2c6414…2c65a8 # DirEnt {nam=»M:DE10«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x1c40, f03=0x0000}
0x2c6414…2c65a8 IdxSect {
0x2c6414…2c65a8 f00 = 0x00e2 // 0x2c6414 @0x0
0x2c6414…2c65a8 f01 = 0x0010 // 0x2c6416 @0x2
0x2c6414…2c65a8 gno = [ // 0x2c6418 @0x4
0x2c6414…2c65a8 [0x00]: C0x00e2.0x0.0
0x2c6414…2c65a8 [0x01]: C0x00e2.0x1.0
0x2c6414…2c65a8 [0x02]: C0x00e2.0x2.0
0x2c6414…2c65a8 [0x03]: C0x00e2.0x3.0
0x2c6414…2c65a8 [0x04]: C0x00e3.0x0.0
0x2c6414…2c65a8 [0x05]: C0x00e3.0x1.0
0x2c6414…2c65a8 [0x06]: C0x00e3.0x2.0
0x2c6414…2c65a8 [0x07]: C0x00e3.0x3.0
0x2c6414…2c65a8 ]
0x2c6414…2c65a8 }
0x2c65a8…2c673c Dummy {f00=0x00e2, f01=0x0190, f02=»* :S 0 : : c @ ^ z ^ ^ j X H 2 Z i% z
0x2c673c…2c68d0 Dummy {f00=0x00e2, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A > & ? ? ? ? ? ? ? @ > > U H ( ( P c P WN T P ,$ T T _ v A
0x2c68d0…2c6a64 Dummy {f00=0x00e2, f01=0x0190, f02=» @ XV ) A A _b A A ` A _t A A Q > A ( A Q _ A < Q P Q Z Y _ 8 Q Z P 0 9 _ x _, _ P H H ? ? ? ? ? ^ A _ _
0x2c6a64…2c6bf8 Dummy {f00=0x00e2, f01=0x0190, f02=» 4 T - 1_& U T P 0 U _r ? @ T 0 A 1 Q Q >W 0 @ 1 A P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ $V ? $
0x2c6bf8…2c6d8c Dummy {f00=0x00e2, f01=0x0190, f02=»P A : > _ #M 1 A A Q _ A < Q P Q Z Y _ 8 Q Z P 0 9 _ _, _ P H H ? ? ? ? ? ^ A _ _
0x2c6d8c…2c6f20 Dummy {f00=0x00e2, f01=0x0190, f02=» $V A :( @ X H A ( 1 ) @ H P 1 % E I (@ @ <a D >a H D $! u " C C 6 V P C j U4 B 0 C # C C S j Y ' C
0x2c6f20…2c70b4 (3, 301) Dummy {f00=0x00e2, f01=0x0190, f02=» ;h # <c$ " P PR 4 5 T P ? X U X > PZ PF P P 0 X T Y Wn U U T X^ T E Y Tx 8RtWP 4 U P> $P4> R0> 8' T Y X ' T P X P > Z X "X 8' T
0x2c70b4…2c7248 Dummy {f00=0x00e2, f01=0x0190, f02=» % E Y HB @ P A | T 8TX 9WF B 7P P A W A @ A.W A I.9 X R C C A @ A. X V 9_< p @ x Z & 9 ! ! T 9 ! X Y
0x2c7248…2c73dc Dummy {f00=0x00e2, f01=0x0190, f02=» p & B X ; Z Y B < Z*:A Z4 ^: Y: Y Y Z B Y V V Y ^ Y X Y X !? P* P P" P ! ! P @ 9W ! ! P6 P 4 ! # T X Y J ! _ # 4 4 ! # & X Y J_0 W Y T
0x2c73dc…2c7570 Dummy {f00=0x00e2, f01=0x0190, f02=» H_, H z L _< Y H Y B Y L " Y ! $ ! # P W ! 9 ! X ^< Y Y B Y X LP 1 Y L 0 Y N 1 0B. X J P Y : ! $ ! X # P Y J:A , X N A Y N @ B. Y Y F X Y C '? Z X Y _ A
0x2c7570…2c7704 Dummy {f00=0x00e2, f01=0x0190, f02=» $ P + < $ <C ! 9 9 4 X Z9C X ^: X V X X 4 4 ! # T 4 X BT l 4 A ;D A 4 * ( H 0 ) $P
0x2c7704…2c7898 Dummy {f00=0x00e2, f01=0x0190, f02=»RPP" A H @ A z WD @W( T$ P X T X P 4 Y C C 8W T 8P Y ^ 5 ) P U ~ XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I
0x2c7898…2c7a2c Dummy {f00=0x00e2, f01=0x0190, f02=» # T R < 5 ^ R < 5 Y X D D P ( ) 1 H _( X (@ X P 0P X T 4 Y X 1 1 X P> - M X P. P& # P 0P 1 _ 2W Y H T R L U ~9C T M D _ W8
0x2c7a2c…2c7bc0 Dummy {f00=0x00e2, f01=0x0190, f02=»"" " !2!F V # T > x h ( b x l _ ^ 4 _ @ 1 A _ P 9 H * ) % Y Wz B Tr C B $ ) Y WX X $ $
0x2c7bc0…2c7d54 (3, 302) Dummy {f00=0x00e2, f01=0x0190, f02=»;! P "Z0?AZ4 @ Q " X " $XL ( I T E _ (X _ X $ _v# > > > > > > > > > @ A W :W ^ ! Z@ (XH @ P T M ]X , ) L P $R _, A Pj P Y U ( ) 5 & > > > > > > > $ "
0x2c7d54…2c7ee8 Dummy {f00=0x00e2, f01=0x0190, f02=» Z Z Z " $ & > P~ "R~ Y ( Pj T P` <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ 8! W0" P T 8! P< P8 Y Y Y Y X X
0x2c7ee8…2c807c Dummy {f00=0x00e2, f01=0x0190, f02=»V X X V Y ! W< Y U R -P X ( ) Y * X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > > Pb P C B T B % X * $ 4 T %
0x2c807c…2c8210 Dummy {f00=0x00e2, f01=0x0190, f02=» Y %P R _Q P OR R W " ! R B Wr W 0 Z ! R B Z Z& X * ,T J W X (P Y * 0 %_. % Y * W _p P _ C ! N " D QPR X R(;GV$ P8 X R2;GV. X X ( $4 P X
0x2c8210…2c83a4 Dummy {f00=0x00e2, f01=0x0190, f02=» 9 W. _ _ _ _ %0=c X 0P > 0 > >_ P > _v B 1 > JT , _ R n PB P8 B P B L # +P ! ! T ! Y " ! W ! ! W ! Y Y , U P" T Y "_. P4 R( Pj
0x2c83a4…2c8538 Dummy {f00=0x00e2, f01=0x0190, f02=» ! ! X C _ X Y " Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f X _x R0 V0 ! P* P P P" R ?Q ! Y R Q ~ -_ ? _ X # ! ^ Y _( X Z ! P0 P
0x2c8538…2c86cc Dummy {f00=0x00e2, f01=0x0190, f02=» B H " +P P. T Y # ! R| X $ Y "R Y " _ Y "_. B 1 ` ! T B B U4 $ ! T _ U D ! T _ $$ X" X& X* C , X`" E *P( 8'0P E *TD ! T 9 _ ! T @_ ! , B P !
0x2c86cc…2c8860 Dummy {f00=0x00e2, f01=0x0190, f02=» ! B Y " ! W 8!0T 8 !@P ! $ P ! ! D ! 1P X " C ,T Y " X Y " Y > X " X "" Y %Q Y > X Z2<BR > Y ! T X ! Y " Zn < T _ ! X $ P ! * R V P
0x2c8860…2c89f4 (3, 303) Dummy {f00=0x00e2, f01=0x0190, f02=» ! Y 4 B U )X R@ X X "" Y & X % V Y ! X $ X " ! X & `R Y ! ! ! 4 ! V ! V W :h ! 4 X %" X ## R 4 D >' "?:B ] ( P H U _
0x2c89f4…2c8b88 Dummy {f00=0x00e2, f01=0x0190, f02=» X H P @ < ? < ? <(@ "X C # P >_ < U = (@ " B "n P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P* P P" P P P T` % # #r P z B B T P2
0x2c8b88…2c8d1c Dummy {f00=0x00e2, f01=0x0190, f02=» P X _L _< _< " " P2 @ Q, , Y ," P L P T L R :AV ' > _ #A 1 # $ V W :h ! > A# @ @ *~ @ R&P % % @ I I I I
0x2c8d1c…2c8eb0 Dummy {f00=0x00e2, f01=0x0190, f02=» X H P @ < ? < ? <(@ "X C # P # ' '* & ! (* A# ( P< )d P& 8! P6 K @P X T X !? ? & W W @W (d (" " ) W A# ( X* ) X2 " (@ I # V V " L
0x2c8eb0…2c9044 Dummy {f00=0x00e2, f01=0x0190, f02=»Y (_ @# 0P $P X X $ $P, # ' P @T #?W #?$? %j _2 J @" P Y 9 @ J ! T " Y X G ("! (* ( P C P* (" J : J < W W P X V C W (0 X ! "? K >Q 9 (dW Y B W _.! T ( T
0x2c9044…2c91d8 Dummy {f00=0x00e2, f01=0x0190, f02=» K 9 !? K > F ) " G ) R ( ) N ! N P" N & N T S _ _& - M L G _ W C ( B P U '$ T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ $ : )
0x2c91d8…2c936c Dummy {f00=0x00e2, f01=0x0190, f02=» $ (4 $ V )$ T B * Y $ : " $ Y : @ P0 8 T _ " & Y 4 : : $ - Y : ) ) ) *>*>*> 0123456789 ' < +,-. 0123456789 `ABCDEFGHI
0x2c936c…2c9500 Dummy {f00=0x00e2, f01=0x0190, f02=» A A A A A. 7 UU @ @ ! P$>B @8 A8 @8 E D P _ $ % $P _ % A >f A A A @ " Q" * :d @ # U R>P0 P 8 3: A7 3: P2 2 _ * A 5 W * A 4 W :a2 * A 3 7 &
0x2c9500…2c9694 (3, 304) Dummy {f00=0x00e3, f01=0x0190, f02=»=J : R F P W W @ $ P @ R| W W : R" W W V V 8 !RRT W V X W W V V V PF A @ : U U^ A Q : VD Y2 W V @ " TJ W
0x2c9694…2c9828 Dummy {f00=0x00e3, f01=0x0190, f02=»W - 8 P _ T <B :L A W A A W 8 T F W V 8 = V W Y( P Z& = :L < P W <9B @ V W Q 8 W @8 A 7 @
0x2c9828…2c99bc Dummy {f00=0x00e3, f01=0x0190, f02=»7 7 V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ 1 1 W A1 A1^ W W 3: 3: PH 2 1 W> 3: T 32 3:W 32 1 6 W @* W 1 1
0x2c99bc…2c9b50 Dummy {f00=0x00e3, f01=0x0190, f02=»_0 1 1J V 00P 2 2 2 1 1J_ 0 !TTX W A0 !CCT CC A1 1 _ 0 !;; 2 1J_ S A6W A6 6 @ R @ ! T A5 A5 @* V V I 8 W V $ ) H V 0 !;;P P V PN _ P !;;T X$
0x2c9b50…2c9ce4 Dummy {f00=0x00e3, f01=0x0190, f02=»99Q P !00R P 00W 11 A2 P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : 2 : 2 : 2 : 2 : 2 : 2 : 0 )T : !00T W : 8 TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. :
0x2c9ce4…2c9e78 Dummy {f00=0x00e3, f01=0x0190, f02=»R P A _> 8 : @ " P P +R 3 A4 A4 A4< A4@W 4N A* A4 A4 A4 A4 A7 A1 A6$ A6: : 9e :e Q P 9e @* P A* 9C) A I " @* ! P " :B A* t q B J " n : 0 R _ <d?d A
0x2c9e78…2ca00c Dummy {f00=0x00e3, f01=0x0190, f02=» @* "| _@ _$ : A58 A5< A5| A5 5 A7 A1 A6$ A6: : h:B* A* @* P A* B J 4R 4 :B 4 @* : V V 49B @* 4R @ t w A I ! j : 5 A7 A1 A6$ A6: A5 ! T 5 5 W A5 A5 I ! : 9D @ @* r s @* A
0x2ca00c…2ca1a0 Dummy {f00=0x00e3, f01=0x0190, f02=» !CCTr : 1P P$_ P =H P An @ T X W n : YX d C !CCTx xB. 2 <X B.9 H* Q 5 _ 3 _ !SSTF 0 U* P A X X W W X X S W W W : V W V T W P 7 V T W
0x2ca1a0…2ca334 (3, 305) Dummy {f00=0x00e3, f01=0x0190, f02=» ( :W> 2 W 0 . " A A A A A1 2 ; Z [ : : [ [ : D( T W Z A. c @ V W U 8 R
0x2ca334…2ca4c8 Dummy {f00=0x00e3, f01=0x0190, f02=» w : V $ V l $ 8 V M : W V R R, Y R <B V x " 1 W V z : 9N_@ V : W R ;,P 9 98 W x 9v ;4_ V : t " D P W V Pv $;A^ D E D P. V 8 P 8 P T 8
0x2ca4c8…2ca65c Dummy {f00=0x00e3, f01=0x0190, f02=» P R P |P M M : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : J @ 0 V @ 8 0 H W : ? ? R 0 R P P B : _
0x2ca65c…2ca7f0 Dummy {f00=0x00e3, f01=0x0190, f02=» ! P I " = 4 Q ; _D : I = ;X ; $ @ ! P I 9 9 _D V r A V 9n A V tT @ A A V @ ! @ P P^ P PR_ _ @ V W U( P P( P V W U "
0x2ca7f0…2ca984 Dummy {f00=0x00e3, f01=0x0190, f02=»P4 S P 3 _ 3 $ A. @ & @ W Z f A ` : A A > l : ; R 9 W n V pT : N V l W H V ]" . nT" 9N W v 98 W n V ~P > W x 9v ?P
0x2ca984…2cab18 Dummy {f00=0x00e3, f01=0x0190, f02=»; V ;4 : 9N 98 V ~P > W x 9v_$ 8 V V x % V v % : V V P W t $ ) ^ r V 8 W f ) G V 8 ) W b G 8 ) G ` " W p W ~ pP0 >> R ;,P >J ;4_ W ~ R ;,X4 >J ;4_ ` W ~
0x2cab18…2cacac Dummy {f00=0x00e3, f01=0x0190, f02=» x 9v ;4_ V P. ;b I 8 @ D ) @ ! P C C $ W z ` pPJ 9 " R ;D E R T E D E @ H E 9 : #_T W | j W V b ( W p V ` $ W ` 8 0 ;h 0 :C # : .=H N An ;D .
0x2cacac…2cae40 Dummy {f00=0x00e3, f01=0x0190, f02=» W d 2 @ : R 8 - @ - N !TTP 8 N :H N TBT W W4 2 " T @ 8 X 2 N =H N An @ ) A !TTXT !CCT A !UUT d B WT A 2 .:H N R P V 8 _ N S A S YB
0x2cae40…2cafd4 (3, 306) Dummy {f00=0x00e3, f01=0x0190, f02=» pP* " 4X 1 R Z0 % _ W l a w ` :A W V d 4 W P 5 _ W ` W d V V W V V $ ) ^ A * R R P Dv W r R Dv W @ @ % Rj V , P@ , - 4 ] 4 :
0x2cafd4…2cb168 Dummy {f00=0x00e3, f01=0x0190, f02=» Q @ T 8 Y A !TTX" A 9 A : ` @ V :a @ ;D @ A @ ;D;a P$ W @ A @ T 8 A : ` @ P E _ E 3 S S V V W @ @ T 8 : P S S _ : V CR
0x2cb168…2cb2fc Dummy {f00=0x00e3, f01=0x0190, f02=» W* R0 @ S W @ U 8 3 S R0 S Yd @ @ T 8 : @ @ @ #D# P ; V G _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T 8
0x2cb2fc…2cb490 Dummy {f00=0x00e3, f01=0x0190, f02=»% 5 T W @ = V W = V Q P0 Q r " U 8 _2 Q P0 Q " U 8 _2 V tP : R 8 S ( V | S =J @ " S V l S W l V
0x2cb490…2cb624 Dummy {f00=0x00e3, f01=0x0190, f02=» Q W t * Q P Q r _ Q Pd W p Q V 8 8 4 D P$ 8 @ # P H I K T + Y@ V p _f V t Y A !TTX @ @ T 8 : W % @ P _ R @
0x2cb624…2cb7b8 Dummy {f00=0x00e3, f01=0x0190, f02=» V W Q W t Q PT W f ( Q W d Q R@ G =h G V d V r < Mf V f P W f _B O V W V t Yv A !TTX @ @ T 8 : A !TTX !CCTr Q P, Q V r 4 U 8 $ $ _.
0x2cb7b8…2cb94c Dummy {f00=0x00e3, f01=0x0190, f02=»CCP W Q P0 W f Q W d Q V d V r < Mf V f _2 O Q U^ Q V 8 8 8 4 D P$ 8 @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T 8 : W
0x2cb94c…2cbae0 Dummy {f00=0x00e3, f01=0x0190, f02=» Np N V * V W R 9 W D 8 ) $ PV D L Tp D "P V ` T @ 1 Q a , I ( I * $# P8 V -W( NpW" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W
0x2cbae0…2cbc74 (3, 307) Dummy {f00=0x00e3, f01=0x0190, f02=»R $ F !LLT # W ;I # ;b W ;a WR# T W W,# T W W # T W W W R _ $ W : 8 Y Z @ T A V W Y0 Z6 @ T A V >A 8T 9 0 1 8 $; # V ;c F !AAP
0x2cbc74…2cbe08 Dummy {f00=0x00e3, f01=0x0190, f02=» *T P$ _ .P _ / V z U Y$ P W | V z 3 % W P _ V |P V v ] W v P _ @ P V 8 A (P ) @ @ P V 8 A (P ) @ @ @ T 8 : N =H N An : N =H N
0x2cbe08…2cbf9c Dummy {f00=0x00e3, f01=0x0190, f02=» 00=H 00 P P _ _ : D E8 E F F G IR JN K Pn @ R @ $ D L * A CRT M " R R R R S PSR 6Sz 0S QS R R : : : : J KB ) 0 1 8 SR S4S4
0x2cbf9c…2cc130 Dummy {f00=0x00e3, f01=0x0190, f02=» *T ( Y U P W | V z 3 % W P _ V |P V v ] W v P _ @ P V 8 A (P ) @ @ P V 8 A (P ) @ @ @ T 8 : N =H N An : N =H N
0x2cc130…2cc2c4 Dummy {f00=0x00e3, f01=0x0000, f02=»
[…0x3…]
0x2cc780…2cc914 (3, 308) Opaque[0x194]
0x2cc914…2ccaa8 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3230, f03=0x0000}
0x2cc914…2ccaa8 IdxSect {
0x2cc914…2ccaa8 f00 = 0x0191 // 0x2cc914 @0x0
0x2cc914…2ccaa8 f01 = 0x0004 // 0x2cc916 @0x2
0x2cc914…2ccaa8 gno = [ // 0x2cc918 @0x4
0x2cc914…2ccaa8 [0x00]: C0x0191.0x2.0
0x2cc914…2ccaa8 [0x01]: C0x0191.0x3.0
0x2cc914…2ccaa8 ]
0x2cc914…2ccaa8 }
0x2ccaa8…2ccc3c Dummy {f00=0x0191, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x2ccc3c…2ccdd0 Dummy {f00=0x0191, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x2ccdd0…2ccf64 Dummy {f00=0x0191, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x2ccf64…2cd0f8 Dummy {f00=0x0191, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x2cd0f8…2cd28c Dummy {f00=0x0191, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x2cd28c…2cd420 Dummy {f00=0x0191, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x2cd420…2cd5b4 (3, 309) Dummy {f00=0x0191, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x2cd5b4…2cd748 Dummy {f00=0x0191, f01=0x0190, f02=» , P P P R W W A n W W W W ~ W2 W W V V 5 W _* V P W V | W | V P V /P 0R$ :RTW V W ~ V W ~ V _" V V 8H V ! T 8 _ 4 WHW V V ! T 8 _ R
0x2cd748…2cd8dc Dummy {f00=0x0191, f01=0x0190, f02=» v | W | P ,P :P V | $:H $ F0Z F9U FAZ& FFY, A n p p v | !AAZ !ZZY v | W | ! P !,,P @ n Q 5 A n _( @ n X ! P _$W W ~ : _ W V | W | : 8D R 0 P P 9H _ W _(
0x2cd8dc…2cda70 Dummy {f00=0x0191, f01=0x0190, f02=» L T P*_ 0R" 9Q 0 P 9C 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 j (XB * R *P _ V : N :IV :B
0x2cda70…2cdc04 Dummy {f00=0x0191, f01=0x0190, f02=» PH P8=A 1 * * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H JW*W W W W d W W W W W _ W W R W W W W V ~ : " ( . 4 B L X b h
0x2cdc04…2cdd98 Dummy {f00=0x0191, f01=0x0190, f02=» DISK NOT OPERATIONAL ALREADY CATALOGED 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
0x2cdd98…2cdf2c Dummy {f00=0x0191, f01=0x0190, f02=» % P P P0 2 U N ! T W h O h H rWz N % T U O 0 W i _0 ]$ Z & W & < U Z & r W R W W W W X~ X Q P N 4
0x2cdf2c…2ce0c0 Dummy {f00=0x0191, f01=0x0190, f02=» V : DATE HX /HX /HX TIME HXH-HXM-HXS- A $ )T P _ @ W = W | < , P V 8 W W V | W R W W W W W H R *P N R *T < , T W | < V 8 W R WLW WHWFWD
0x2ce0c0…2ce254 (3, 310) Opaque[0x194]
0x2ce254…2ce3e8 # DirEnt {nam=»SYSLOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1300, f03=0x0000}
0x2ce254…2ce3e8 IdxSect {
0x2ce254…2ce3e8 f00 = 0x0098 // 0x2ce254 @0x0
0x2ce254…2ce3e8 f01 = 0x0034 // 0x2ce256 @0x2
0x2ce254…2ce3e8 gno = [ // 0x2ce258 @0x4
0x2ce254…2ce3e8 [0x00]: C0x0098.0x0.0
0x2ce254…2ce3e8 [0x01]: C0x00df.0x1.0
0x2ce254…2ce3e8 [0x02]: C0x00e0.0x0.0
0x2ce254…2ce3e8 [0x03]: C0x00e0.0x1.0
0x2ce254…2ce3e8 [0x04]: C0x00e0.0x2.0
0x2ce254…2ce3e8 [0x05]: C0x00e0.0x3.0
0x2ce254…2ce3e8 [0x06]: C0x00e1.0x0.0
0x2ce254…2ce3e8 [0x07]: C0x00e1.0x1.0
0x2ce254…2ce3e8 [0x08]: C0x00e1.0x2.0
0x2ce254…2ce3e8 [0x09]: C0x00e1.0x3.0
0x2ce254…2ce3e8 [0x0a]: C0x00e4.0x0.0
0x2ce254…2ce3e8 [0x0b]: C0x00e4.0x1.0
0x2ce254…2ce3e8 [0x0c]: C0x00e4.0x2.0
0x2ce254…2ce3e8 [0x0d]: C0x00e4.0x3.0
0x2ce254…2ce3e8 [0x0e]: C0x00e5.0x0.0
0x2ce254…2ce3e8 [0x0f]: C0x00e5.0x1.0
0x2ce254…2ce3e8 [0x10]: C0x00e5.0x2.0
0x2ce254…2ce3e8 [0x11]: C0x00e5.0x3.0
0x2ce254…2ce3e8 [0x12]: C0x00e6.0x0.0
0x2ce254…2ce3e8 [0x13]: C0x00e6.0x1.0
0x2ce254…2ce3e8 [0x14]: C0x00e6.0x2.0
0x2ce254…2ce3e8 [0x15]: C0x00e6.0x3.0
0x2ce254…2ce3e8 [0x16]: C0x00e7.0x0.0
0x2ce254…2ce3e8 [0x17]: C0x00e7.0x1.0
0x2ce254…2ce3e8 [0x18]: C0x00e7.0x2.0
0x2ce254…2ce3e8 [0x19]: C0x00e7.0x3.0
0x2ce254…2ce3e8 ]
0x2ce254…2ce3e8 }
0x2ce3e8…2ce57c Dummy {f00=0x0098, f01=0x0190, f02=» 2 P IDENT SYSLOD REL 10.0 80-03-15 870105041000 P : P PRR 10.0 80-03-14 B . P =3,CONDITIONAL ASSEMBLY FOR SYSLOD TEST ^ P PRR 10.0 80-01-18 & P =2,S:GTAB LIMITED TO ONE SECTOR P PRR 10.0 79-12-20 4 P =1,SEGBLK/PAGBLK NO
0x2ce57c…2ce710 Dummy {f00=0x0098, f01=0x0190, f02=»************* P* * P* ENTRIES AND EXTERNALS * : P* * ^ P*************************** P EXTRN CONVRT P EXTRN LDALEN P EXTRN SCTADA P EXTRN SCTANO P EXTRN SCT
0x2ce710…2ce8a4 Dummy {f00=0x0098, f01=0x0190, f02=» P EXTRN SCTNOP P EXTRN SCTNPE P EXTRN SCTOPT 4 P EXTRN SCTIPL J P EXTRN SCTPSZ ` P EXTRN SCTSFA v P EXTRN SCTSWB P EJECT P EXTRN SAVE01 P EXTRN SAVE02 P EXTRN SAVE03 P EXTRN SAVE04 P
0x2ce8a4…2cea38 Dummy {f00=0x0098, f01=0x018e, f02=»RN SAVE11 P EXTRN SAVE12 P EXTRN SAVE13 ( P EXTRN SAVE18 > P EXTRN SAVE20 T P EXTRN SAVE22 j P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27 P EXTRN SAVE28 P EXTRN SAVE29 P EXTRN APPTYP P EXT
0x2cea38…2cebcc Dummy {f00=0x0098, f01=0x0190, f02=» P EXTRN MOVE 4 P EXTRN TTB:MT DISPLACEMENT TO MMU TABLE IN TTAB P EXTRN TTB:CB P P EJECT f P t P $ P******************************* $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* P
0x2cebcc…2ced60 Dummy {f00=0x0098, f01=0x0190, f02=»6A TASK ID SAVE09 VALUE ~ , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A TASK LEVEL P : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES x P* & PTDBFST EQU TDBNC+2 SAVE05 TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLAS
0x2ced60…2ceef4 (3, 311) Dummy {f00=0x00df, f01=0x0190, f02=» j P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES X ( PSDCFST EQU CDBNC+2 SAVE05 SDC-RECORD P* P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0
0x2ceef4…2cf088 Dummy {f00=0x00df, f01=0x0190, f02=» NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH : P**************** l P* SOP-HANDLING * P**************** PSOP EQU /2E DEVICE ADDRESS P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU
0x2cf088…2cf21c Dummy {f00=0x00df, f01=0x0190, f02=»P9 EQU 4 PLMP10 EQU 2 PLMP11 EQU 1 $ P EJECT 8 P********************* F P* OTHER CONSTANTS * d P********************* P 8 PNUMSEG EQU 10 DISPL. TO NUMBER OF SEGMENTS IN S:GTAB & PCOMLG EQU 4 LENGTH OF COMMON PAR
0x2cf21c…2cf3b0 Dummy {f00=0x00df, f01=0x0190, f02=» & PPAGLG EQU 8 PAGE LENGTH IN S:GTAB PPRGLG1 EQU 2 . , PNCHTID EQU 5 NBR OF CHAR. IN TID RECORD B $ PSWPFEL EQU 14 FILE EXTENT LENGTH r P EJECT P*********************** P* CASSETTE HANDLING * P*********************** , P
0x2cf3b0…2cf544 Dummy {f00=0x00df, f01=0x018e, f02=»C SEARCH TAPEMARK FORWARD P* " " P* DISC/FLEXIBLE DISC HANDLING , P* R ( PBUFLEN EQU 256 LENGTH OF READ BUFFER * PDKBA3 EQU 514 BUFFER LENGTH VERSION A3 2 PRECLEN EQU 9 CONFIGURATION FILE RECORD LENGTH * PFDCU EQU /09 FLEXIBLE DISC C
0x2cf544…2cf6d8 Dummy {f00=0x00df, f01=0x018e, f02=» h PQBLFAC EQU 6 BLOCKING FACTOR P* , P* DATA AREA DEFINITION 6 P* V PSYSBAS EQU * ` PSAVCON DATA BUFLEN t 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS PSAVMEM DATA 0 SAVE AREA & PCYLNBR DATA /FFFF CYLINDER NUMBER
0x2cf6d8…2cf86c Dummy {f00=0x00df, f01=0x018e, f02=» P F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * ^ F P* DATA [REL-ADDRESS] * F P*
0x2cf86c…2cfa00 Dummy {f00=0x00df, f01=0x0190, f02=» P P PCALL FORM 16=/F697,16 P EJECT : P************************** H P* CONDITIONAL ASSEMBLY * j P************************** 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DIS
0x2cfa00…2cfb94 (3, 312) Dummy {f00=0x00e0, f01=0x0190, f02=» EQU 1 1-TEST THE CONFIGURATION FILE PCFTCAS EQU CFTEST+CASS , PCFTFLD EQU CFTEST+FLDISC J 8 PLODTST EQU 0 1-BUGGER START AFTER MONITOR LOADING =3 j P EJECT : P****************************************************** : P*
0x2cfb94…2cfd28 Dummy {f00=0x00e0, f01=0x0190, f02=»======== * n : P* * 8 P* ENTRY: A1 - FORMAT AND DEVICE TYPE * Z : P* A2 - PROGRAM LOAD DEVICE * : P* A3 - APPLICATION NUMBER
0x2cfd28…2cfebc Dummy {f00=0x00e0, f01=0x0190, f02=» A9 - SAVE09 OF FREE AREA * < P* A13 - MONITOR SAVE09 ADDRESS * > : P* * ~ : P* EXIT: * : P*
0x2cfebc…2d0050 Dummy {f00=0x00e0, f01=0x0190, f02=»BUF,MOVBUF,RDBLK, * v : P* CONLOD,CONEX,MOVREV * $ : P* * b : P****************************************************** PSYSLOD EQU * P* P* SAVE REGI
0x2d0050…2d01e4 Dummy {f00=0x00e0, f01=0x0190, f02=»APPLICATION NUMBER 8 P ST A8,SCTADA SAVE APPLICATION DISC ADDRESS BIT 0-15 < P ST A7,SCTADA+2 SAVE APPLICATION DISC ADDRESS BIT 16-31 V * P ST A9,SCTSFA SAVE SAVE09 OF FREE AREA P IFT LODTST=1 =3 P LDKL A14,SYSBAS =3 P LDR A13,P =3
0x2d01e4…2d0378 Dummy {f00=0x00e0, f01=0x0190, f02=»SYSLOD RUNS P* P LDKL A1,LMP1 P OTR A1,0,SOP 4 P* J B P* INIT POINTER TO SUBROUTINE HANDLER (A13), STACK BASE (A14) T $ P* AND ADDRESS TO GETPSW-ROUTINE P* P LDR A8,P RETURN ADDRESS & P LDKL A3,REL+2 RELOCATION RO
0x2d0378…2d050c Dummy {f00=0x00e0, f01=0x0190, f02=»D t P ANK A1,1 MMU IN SYSTEM? P RF(Z) AP:100 NO! * P EJECT D P* R > P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY P* " P SLL A6,2 UPPER SAVE20=256 KB P LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * " P L
0x2d050c…2d06a0 Dummy {f00=0x00e0, f01=0x0190, f02=»AD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P EL A2,PAGSIZ-2,A1 GET MEMORY CONTENT F ( P CWR A2,A5 COMPARE WITH TEST PATTERN t P RF(E) AP:200 ( P SUK A6,4 DECREMENT NUMBER OF PAGES P RB AP:010 P* D P* END OF
0x2d06a0…2d0834 (3, 313) Dummy {f00=0x00e0, f01=0x0190, f02=»R SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY | P* 0 & P LDKL A1,PAGSIZ-2 SAVE09 AT /FFFE : PAP:110 EQU * d & P SUKL A1,PAGSIZ NEXT PHYSICAL PAGE x ( P LDR* A2,A1 SAVE OLD MEMORY CONTENT " P STR A5,A1 STORE TEST PATTERN P CWR* A5,A1 CHECK IF
0x2d0834…2d09c8 Dummy {f00=0x00e0, f01=0x0190, f02=» * P STR A2,A1 RESTORE OLD MEMORY CONTENT P* 6 H P* END OF EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY @ P* P EJECT P* P* COMMON EXECUTION PATH P* PAP:200 EQU * 0 P ST A6,SCTMSZ SAVE NUMBER OF
0x2d09c8…2d0b5c Dummy {f00=0x00e0, f01=0x0190, f02=»PARTITION =2 n P ST A6,SCTEFA STORE =2 P* 2 2 P* GET DISC ADDRESS OF APPLICATION VTOC RECORD < P* r P LD A11,SCTADA+2 | P LDKL A12,SCTADA P* H P* INIT POINTER TO READ BUFFER. INIT DEVICE ADDRESS FOR READ-ROUTINE ( P LD A9
0x2d0b5c…2d0cf0 Dummy {f00=0x00e0, f01=0x0190, f02=»YSTAB x * P LD A2,SCTIPL GET PROGRAM LOAD DEVICE P LDR A1,A2 SAVE < P* T P* CHECK PROGRAM LOAD MEDIUM ^ P* " P ANK A2,/C0 CHECK IF CASSETTE P RF(P) AP:210 YES! 2 P ST A9,MXBUF FLEXIBLE DISC/DISC BUFFER ADDRESS & P LDR A
0x2d0cf0…2d0e84 Dummy {f00=0x00e0, f01=0x0190, f02=» P RF(NP) FDTERR P SUK A3,3 P RF(N) AP:230 DISC , " P RF(Z) AP:225 MINI FIXED DISC F P SUK A3,5 l P RF(Z) AP:220 FLEXIBLE DISC ~ : PFDTERR LDKL A1,LMP10 INDICATE FORMAT/DEVICE TYPE ERROR P CALL ERROR PAP:210 EQU * P
0x2d0e84…2d1018 Dummy {f00=0x00e0, f01=0x018e, f02=»,A1 SAVE =2 0 P ST A1,READ STORE IN PROGRAM LOAD SUBROUTINE PAP:215 EQU * H * P CF A14,RDBLK READ ONE CASSETTE BLOCK P LDR A1,A1 TAPE MARK? P RF(Z) AP:235 NO! , P CF A14,CASSIN INIT APPLICATION CASSETTE P RB AP:215 P XIF
0x2d1018…2d11ac Dummy {f00=0x00e0, f01=0x0190, f02=» P IFT FLDISC=1 P* * P* PROGRAM LOAD DEVICE = FLEXIBLE DISC $ P* R P* 2 P* MODIFY SCTIPL: /F8 - DRIVE 1, /F9 - DRIVE 2 f P* P ORK A2,/F8 P ST A2,SCTIPL P* P* INIT FLEXIBLE DISC P* P CF A1
0x2d11ac…2d1340 Dummy {f00=0x00e0, f01=0x018e, f02=»,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF 8 P EJECT D PAP:225 EQU * R P IFT MFDISC=1 f P* | , P* PROGRAM LOAD DEVICE = MINI FIXED DISC P* , P* MODIFY SCTIPL:/F4-DRIVE 1,/F5-DRIVE 2 P* P ORK A2,/F4
0x2d1340…2d14d4 (3, 314) Dummy {f00=0x00e0, f01=0x0190, f02=» P =2 P RF AP:232 =2 P XIF , P IFF MFDISC=1 8 P LDKL A1,LMP9 N & P CALL ERROR ILLEGAL MONITOR OPTION d P XIF P EJECT PAP:230 EQU * P IFT DISC=1 P* " P* PROGRAM LOAD DEVICE = DISC P*
0x2d14d4…2d1668 Dummy {f00=0x00e0, f01=0x0190, f02=» P ST A2,SCTIPL P* P* INITIALIZE DISC COMMANDS $ P* H P CF A14,DUINIT R PAP:232 EQU * =2 h * P LD A10,READ GET SUBROUTINE ADDRESS =2 & P CFR A14,A10 READ FIRST SECTOR =2 P XIF P IFF DISC=1 P LDKL A1,LMP9
0x2d1668…2d17fc Dummy {f00=0x00e0, f01=0x0190, f02=» SAVE INFORMATION ABOUT THE LOAD MODULE P* 0 6 P LDR* A6,A9 GET SAVE09 ADDRESS (UNSEGMENTED APPL.) : P ST A6,SAVE09,A13 SAVE t . P LD A6,COMLG,A9 GET LENGTH OF COMMON PART P ST A6,SAVE04,A13 SAVE " P LD A2,SCTOPT GET OPTION WORD ( P
0x2d17fc…2d1990 Dummy {f00=0x00e0, f01=0x0190, f02=»E) AP2340 YES " P CWK A3,'BA' BASIC APPLICATION ! P RF(E) AP2340 YES ! < $ P CWK A3,'CO' COBOL APPLICATION? ! V P RF(E) AP2340 YES ! ~ P* ! P* ASSEMBLER APPLICATION ! P* ! 2 P ORKL A2,/8000 INDICATE ASSEMBLER APPLICATION ! P ST A2
0x2d1990…2d1b24 Dummy {f00=0x00e0, f01=0x0190, f02=»,SCTMSZ GET NUMBER OF PHYSICAL PAGES ! P SRC A2,1 MMU IN SYSTEM? " , P RF(NN) AP:240 NO! " L P EJECT " f P* " t 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION " ~ P* " P LD A3,SCTPSZ GET PAGE SIZE " P LDR A1,A3 SAVE " $ P ANKL A1,/03FF
0x2d1b24…2d1cb8 Dummy {f00=0x00e0, f01=0x0190, f02=» SRL A3,2 LOGICAL PAGE SIZE " P SLL A5,8 MAP IT ON MMU # $ 2 P ANKL A5,/FC00 PAGE ADDRESS IN 6 LEFTMOST BITS # D P LDR A1,A5 SAVE # z P* # & P* CHECK IF ASSEMBLER APPLICATION # P* # $ P SLC A2,1 ASSEMBLER APPLICATION # P ABL(N) AP:330 Y
0x2d1cb8…2d1e4c Dummy {f00=0x00e0, f01=0x0190, f02=»ND OF EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITH MMU OPTION # P* $ D P EJECT $ N PAP:240 EQU * $ P* $ p @ P* EXECUTION PATH EXCLUSIVELY FOR SYSTEMS WITHOUT MMU OPTION $ z P* $ : P SLL A5,10 HIGHEST PHYSICAL AND LOGICAL MEMORY ADDRESS $ P L
0x2d1e4c…2d1fe0 Dummy {f00=0x00e0, f01=0x018e, f02=»5 YES $ * P LD A2,NUMSEG+8,A9 NUMBER OF SEGMENTS % P RF(Z) AP:275 NO SEGMENTS! % < P EJECT % ^ PAP:245 EQU * % l P* % P* COMMON EXECUTION PATH % P* % P ST A1,SAVE06,A13 SAVE A1 =2 % . P ST A2,SAVE29,A13 SAVE NUMBER OF SEGMENTS % "
0x2d1fe0…2d2174 (3, 315) Dummy {f00=0x00e0, f01=0x0190, f02=» % h " P SUK A4,/F0 CHECK IF CASSETTE & 0 P RF(N) AP:260 CASSETTE - LOAD ALL SEGMENTS! & . P* & b , P* COMPUTE NUMBER OF CORE RESIDENT PAGES & l P* & P CM SAVE05,A13 RESET COUNTER & $ P LDR A6,A9 START OF APPLICATION & & P ADK A6,14 START OF SE
0x2d2174…2d2308 Dummy {f00=0x00e0, f01=0x0190, f02=»A9,SAVE03,A13 SAVE A9 =2 & " P ST A11,SAVE13,A13 SAVE A11 =2 ' ( P LDR A11,A6 GET POINTER IN S:GTAB =2 ' F , P ADKL A9,BUFLEN-16 END OF READ BUFFER =2 ' r , P CALL CMPADR POINTER OUTSIDE BUFFER? =2 ' P RF(L) AP:252 NO! =2 ' . P SUR A6,A9 DISPLACEMENT IN
0x2d2308…2d249c Dummy {f00=0x00e0, f01=0x0190, f02=»T SECTOR NUMBER =2 ' v P ST A3,SAVE07,A13 SAVE A3 =2 ( P ST A5,SAVE08,A13 SAVE A5 =2 ( > * P CFR A14,A10 READ NEXT SECTOR/BLOCK =2 ( b $ P LD A3,SAVE07,A13 RESTORE A3 =2 ( $ P LD A5,SAVE08,A13 RESTORE A5 =2 ( 4 P ST A11,SAVE13,A13 SAVE CURRENT SECTOR N
0x2d249c…2d2630 Dummy {f00=0x00e0, f01=0x0190, f02=»MENT TYPE ( ~ ( P CCK A4,'RR' CORE RESIDENT SEGMENT? ) P RF(NE) AP:255 NO! ) > 6 P IM SAVE05,A13 INCREMENT RESIDENT SEGMENT COUNTER ) X PAP:255 EQU * ) 4 P LD A2,SAVE01,A13 GET REMAINING NBR OF SEGM. =2 ) P SUK A2,1 MOORE SEGMENTS? ) P RB(NZ)
0x2d2630…2d27c4 Dummy {f00=0x00e0, f01=0x0190, f02=» A5 =2 ) z & P CFR A14,A10 READ FIRST SECTOR =2 * $ P LD A3,SAVE03,A13 RESTORE A3 =2 * 8 $ P LD A5,SAVE08,A13 RESTORE A5 =2 * ` 2 P LD A2,SAVE05,A13 NUMBER OF RESIDENT SEGMENTS * ( P RF(Z) AP:270 NO RESIDENT SEGMENTS! * PAP:260 EQU * * & P ST A2,SCT
0x2d27c4…2d2958 Dummy {f00=0x00e0, f01=0x0190, f02=»* * , P LD A7,SCTEFA+2 GET PARTITION NUMBER =2 + * PAP:262 LD A11,SCTPSZ GET PAGE SIZE =2 + : * P LD A9,SCTEFA GET END OF FREE AREA =2 + h 8 P CALL CMPADR ENOUGTH SPACE IN THIS PARTITION? =2 =2 + P RF(NG) AP:265 YES! =2 + P SUK A7,1 DECREMENT =2 +
0x2d2958…2d2aec Dummy {f00=0x00e0, f01=0x0190, f02=»AREA =2 + j P ST A9,SCTEFA STORE =2 , ( P CWK A7,1 FIRST MEMORY PARTITION? =2 , . P RF(G) AP:266 NO! =2 , Z , P LD A11,SCTSFA GET START OF FREE AREA =2 , v & P CALL CMPADR COMPARE ADDRESSSES =2 , & P RF(NL) AP:280 MEMORY OVERFLOW! =2 , PAP:266 EQU *
0x2d2aec…2d2c80 Dummy {f00=0x00e0, f01=0x0190, f02=»A4 RESTORE A9 , P LDR A11,A8 RESTORE A11 - 8 P ST A5,SAVE22,A13 SAVE PHYS.ADDRESS TO FIRST SEGMENT - 6 PAP:270 EQU * - r $ P LD A1,SAVE06,A13 RESTORE A1 =2 - " P LD A2,SCTOPT GET OPTION WORD - P ANK A2,1 MMU IN SYSTEM? - P RF(NZ) AP:292 YES!
0x2d2c80…2d2e14 (3, 316) Dummy {f00=0x00e1, f01=0x0190, f02=»THOUT MMU OPTION - d P* . P ST A5,SAVE08,A13 . " PAP:275 EQU * . < . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART . P & P ADKL A10,3 RESERV ONE EXTRA WORD . P ANKL A10,/FFFE . P . P LDR A4,A9 SAVE A9 . P LDR A8,A11 SAVE A11 . P LDR A
0x2d2e14…2d2fa8 Dummy {f00=0x00e1, f01=0x0190, f02=» $ P CALL CMPADR A11 COMPARED TO A9 / P RB(G) AP:285 / , PAP:280 LDKL A1,LMP3 / B P CALL ERROR MEMORY OVERFLOW! / ^ PAP:290 EQU * / P LDR A12,A11 RELOCATION BASE / P LDR A9,A4 RESTORE A9 / P LDR A11,A8 RESTORE A11 / 0 P LDR A8,A12 A8 -
0x2d2fa8…2d313c Dummy {f00=0x00e1, f01=0x0190, f02=»ESS / d . P LD A10,COMLG,A9 GET LENGTH OF COMMON PART 0 P ABL AP:355 0 > P EJECT 0 R PAP:292 EQU * 0 ` P* 0 t 2 P* EXECUTION PATH FOR SYSTEMS WITH MMU OPTION 0 ~ P* 0 P LDR A4,A5 SAVE 0 & P ANKL A5,/FC00 GET 6 LEFTMOST BITS 0 P LDR A6,
0x2d313c…2d32d0 Dummy {f00=0x00e1, f01=0x0190, f02=» 0 ` P* THE FIRST LOGICAL PAGE 1 P* 1 * ( P LDKL A7,MMEND GET END OF MMU TABLE 1 4 & P LDKL A8,16 INIT MMU ENTRY POINTER 1 ` PAP:295 EQU * 1 * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS 1 * P SUKL A8,1 DECREMENT MMU ENTRY POINTER 1 2 P SUKL A3,/400
0x2d32d0…2d3464 Dummy {f00=0x00e1, f01=0x0190, f02=» P CWK A3,/400 PAGE SIZE=1K? 2 P RF(E) AP:300 YES 2 & P* 2 @ 0 P* RESERV ONE EXTRA MMU ENTRY WHEN PAGE SIZE 2 J $ P* IS NOT AN EVEN MULTIPLE OF 4K 2 ~ P* 2 P SUK A7,2 2 P SUKL A8,1 2 PAP:300 EQU * 2 . P LD A3,SCTNOP ANY CORE RESIDENT
0x2d3464…2d35f8 Dummy {f00=0x00e1, f01=0x0190, f02=»10 2 < PAP:302 LDR A3,A7 SAVE MMU ENTRY ADDRESS TO LOGICAL PAGE 3 PAP:305 EQU * 3 J . P STR A6,A3 STORE ADDRESS TO PHYSICAL PAGE 3 ^ * P ADK A3,2 INCREMENT MMU ENTRY ADDRESS 3 $ P CWK A3,MMEND END OF MMU TABLE? 3 P RF(E) AP:310 YES! 3 2 P ADKL A6
0x2d35f8…2d378c Dummy {f00=0x00e1, f01=0x0190, f02=») AP:315 YES! 3 , P SUKL A5,/400 NEXT PHYSICAL PAGE ADDRESS 4 P* 4 F PAP:315 EQU * 4 P $ P SLL A4,2 PHYSICAL DISPLACEMENT 4 d PAP:325 EQU * 4 P* 4 . P* SAVE LOGICAL ADDRESS OF SAVE05 SEGMENT 4 P* 4 P LDR A2,A8 GET MMU ENTRY 4 & P S
0x2d378c…2d3920 Dummy {f00=0x00e1, f01=0x0190, f02=»EMENT 4 z P ST A2,SAVE08,A13 SAVE 5 , P LDR A2,A8 GET MMU ENTRY FOR FIRST PAGE 5 , P ADR A2,A2 BYTE DISPLACEMENT 5 6 P ADKL A2,TTB:MT COMPUTE DISPL. TO FIRST PAGE ENTRY 5 P ST A2,SCTMMP SAVE IN SYSTAB 5 P* 5 & P* COMPUTE NUMBER OF PAGE ENTRIE
0x2d3920…2d3ab4 (3, 317) Dummy {f00=0x00e1, f01=0x0190, f02=»ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT 5 > P* THE APPLICATION LOADED WAS UNSEGMENTED (CORE RESIDENT) 6 4 P* 6 v , P SUKL A5,/400 INIT POINTER TO LAST PAGE 6 & P LDKL A4,PAGSIZ PHYSICAL PAGE SIZE 6 $ P LDKL A7,MMEND END OF MMU TABLE 6 " P LDKL
0x2d3ab4…2d3c48 Dummy {f00=0x00e1, f01=0x0190, f02=»SIZ 6 PAP:337 EQU * 7 P* 7 ( P* COMPUTE APPLICATION SAVE09 ADDRESS 7 * P* 7 V & P* A1 - LAST PHYSICAL PAGE NUMBER 7 ` P* A4 - DISPLACEMENT IN PAGE 7 " P* A5 - PHYSICAL PAGE ADDRESS 7 P* A7 - MMU ENTRY ADDRESS 7 P* A8 - CURRENT MM
0x2d3c48…2d3ddc Dummy {f00=0x00e1, f01=0x0190, f02=»E EVEN LENGTH 7 ~ P RF AP:344 8 PAP:340 EQU * 8 ( L P* RESERV ENTRIES IN MMU TABLE FOR PHYSICAL PAGE ADDRESSES TO COMMON PA 8 < P* 8 ( P SUR A2,A4 AREA LEFT IN CURRENT PAGE 8 & P LDKL A4,PAGSIZ PHYSICAL PAGE SIZE 8 * P SUKL A8,1 DECREMENT MMU ENT
0x2d3ddc…2d3f70 Dummy {f00=0x00e1, f01=0x0190, f02=» * 8 P =2 9 * P SUK A7,2 DECREMENT MMU ENTRY ADDRESS 9 ( P STR A5,A7 STORE PAGE ADDRESS IN MMU 9 F P SUKL A5,/400 NEXT PAGE 9 r PAP:344 EQU * 9 & P TNM A2,A4 PROGRAM LENGTH > 32 KB? 9 P RF(NN) AP:345 NO! 9 P CWR A4,A2 9 P RF AP:348 9
0x2d3f70…2d4104 Dummy {f00=0x00e1, f01=0x018e, f02=»1 9 P SUKL A8,1 : " P RB(N) AP:341 TABBE OVERFLOW! : P SUK A7,2 NEXT TABBE ENTRY : B " P STR A5,A7 STORE PAGE ADDRESS : d PAP:351 EQU * : " P SUR A4,A2 MODIFY DISPLACEMENT : P LDR A2,A8 GET MMU ENTRY : P ADR A8,A8 BYTE DISPLACEMENT : 8 P
0x2d4104…2d4298 Dummy {f00=0x00e1, f01=0x0190, f02=» P LDR A8,A2 ; & P ADR A8,A4 COMPUTE LOGICAL ADDRESS ; , P ST A8,SAVE07,A13 SAVE IN TEMPORARY AREA ; B , P LDR* A1,A7 GET ADDRESS TO PHYSICAL PAGE ; r $ P ANKL A1,/C000 GREATER THAN 64K? ; P RF(Z) AP:353 NO! ; P LDKL A1,0 UPPER LIMIT 64 KB ; P
0x2d4298…2d442c Dummy {f00=0x00e1, f01=0x0190, f02=»A2,SCTSFA GET START OF FREE AREA ; ( P TNM A1,A2 ON SAME SIDE OF 32K-LIMIT < ( P RF(NN) AP3532 YES! < T P CWR A2,A1 < p P RF AP3534 < PAP3532 CWR A1,A2 < PAP3534 RF(G) AP:354 < P LDKL A1,LMP3 < P CALL ERROR MEMORY OVERFLOW < PAP:354
0x2d442c…2d45c0 Dummy {f00=0x00e1, f01=0x018e, f02=» : P* READ AND RELOCATE CORE RESIDENT PART OF APPLICATION = P* = B $ P* A8 - APPLICATION LOAD ADDRESS = L * P* A10 - LENGTH OF CORE RESIDENT PART = t P* = PAP:355 EQU * = & P LDKL A1,/FFFF END OF FREE AREA =2 = P ST A1,SCTEFA STORE =2 = P
0x2d45c0…2d4754 (3, 318) Dummy {f00=0x00e1, f01=0x018e, f02=» = Z P* > & P* CHECK IF ASSEMBLER APPLICATION > P* > < " P LD A1,SCTOPT GET OPTION WORD > F ( P ABL(N) CONLOD ASSEMBLER APPLICATION > l , P LD A2,SAVE29,A13 GET NUMBER OF SEGMENTS > , P CM SAVE06,A13 CLEAR SEGMENT COUNTER =2 > . P ABL(Z) CONLOD N
0x2d4754…2d48e8 Dummy {f00=0x00e1, f01=0x0190, f02=» > d PAP:360 EQU * ? P* ? & P* READ AND RELOCATE THE SEGMENTS ? & P* ? P . P* A8 - LOGICAL ADDRESS OF SAVE05 SEGMENT ? Z P* A10 - SEGMENT LENGTH ? P* ? 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO APPLICATION ? P ADKL A2,BLKLEN+BLKLEN ?
0x2d48e8…2d4a7c Dummy {f00=0x00e1, f01=0x0190, f02=»DECREMENT BLOCK COUNTER ? P RB AP:365 @ PAP:370 EQU * @ 2 P* @ F P* CHECK IF DISC PAGING @ P P* @ p " P LD A1,SCTOPT GET OPTION WORD @ z P ANK A1,2 DISC PAGING? @ P RF(Z) AP:376 NO! @ P* @ & P* CHECK IF CORE RESIDENT SEGMENT @
0x2d4a7c…2d4c10 Dummy {f00=0x00e1, f01=0x0190, f02=» =REL 11 @ r , P SRL A1,8 SEGMENT TYPE TO RIGHT BYTE =1 A ( P CCK A1,'RR' CORE RESIDENT SEGMENT? A @ * P RF(E) AP:376 YES: LOAD THIS SEGMENT! A l P* A * P* BYPASS THIS SEGMENT AND CHECK NEXT A P* A * P LD A1,SAVE06,A13 GET SEGMENT COUNTER A 2
0x2d4c10…2d4da4 Dummy {f00=0x00e1, f01=0x0190, f02=» A | 2 P ST A1,SAVE06,A13 SAVE CURRENT SEGMENT NUMBER B P RB AP:360 B > & PAP:375 LDKL A1,LMP2 DISC I/O ERROR B P P CALL ERROR B z P EJECT B PAP:376 EQU * B " P ADK A2,2 DISC SECTOR ADDRESS B ( P CALL GETCON GET DISC SECTOR ADDRESS B P LDR A
0x2d4da4…2d4f38 Dummy {f00=0x00e1, f01=0x0190, f02=»OW =REL 11 B z > P*AP:377 ADKL A12,1 INCR. M. S. P. OF DISC ADDRESS =REL 11 C , P* ANKL A11,/7FFF RESET OVERFLOW =REL 11 C T : P*AP:378 AD A12,SCTADA ADD M. S. P. OF A. D. A. =REL 11 C $ P* CWK A12,255 OVERFLOW? =REL 11 C 6 P* RB(G) AP:375 YES: ILLEGAL DI
0x2d4f38…2d50cc Dummy {f00=0x00e1, f01=0x018e, f02=» C $ P ANKL A10,/FFFE MAKE EVEN LENGTH D P ST A8,SAVE07,A13 D 0 P CF A14,LODSEG LOAD SEGMENT D J * P LD A1,SAVE06,A13 GET SEGMENT COUNTER D n 2 P LD A2,SAVE29,A13 GET TOTAL NUMBER OF SEGMENTS D ( P ADK A1,1 INCREMENT SEGMENT COUNTER D $ P CWR A1,A2
0x2d50cc…2d5260 Dummy {f00=0x00e1, f01=0x0190, f02=» D p " P LD A1,SCTOPT GET OPTION WORD E P ANK A1,1 MMU IN SYSTEM? E . P RF(NZ) AP:379 YES! E N , P ADR A8,A4 COMPUTE ADDRESS TO NEXT PAGE E j P RB AP:360 E P EJECT E PAP:379 EQU * E P LDR A1,A4 SAVE E . P ANKL A4,/0C00 GET MODULO 4K DISCR
0x2d5260…2d53f4 (3, 319) Dummy {f00=0x00e1, f01=0x0190, f02=»NKL A4,/0C00 GET MODULO 4K DISCRIMINANT E 0 P ANKL A1,/F000 LOGICAL ADDRESS TO NEXT PAGE F 0 2 P ANKL A8,/F000 LOGICAL ADDRESS TO CURRENT PAGE F d * P SUR A1,A8 COMPUTE PHYSICAL INCREMENT F PAP:380 EQU * F , P LD A8,SCTLAP GET LOGICAL PAGE ADDRESSE F
0x2d53f4…2d5588 Dummy {f00=0x00e1, f01=0x0190, f02=»OVE TO 4 RIGHTMOST BITS F P ADR A2,A2 2*MMU ENTRY G P ADR A2,A13 G > & P ADKL A2,MMDDIV MMU ENTRY ADDRESS G R P LDR A3,A13 G | P ADKL A3,MMDDIV+32 G * P SRL A1,2 MAP PHYSICAL ADDRESS ON MMU G PAP:385 EQU * G , P ADRS A1,A2 LOGICAL ADDRESS
0x2d5588…2d571c Dummy {f00=0x00e1, f01=0x0190, f02=»B AP:360 G P EJECT H > P********************************************************** H > P* * H ` > P* LOAD CONFIGURATION PART OF SYSLOD * H > P* ========================
0x2d571c…2d58b0 Dummy {f00=0x00e1, f01=0x0190, f02=» * H h > P* * I > P* EXIT: * I > P* * I > P* SUBROUTINES: CASSIN,RDBLK,MOVBUF
0x2d58b0…2d5a44 Dummy {f00=0x00e1, f01=0x0190, f02=»************** I d PCONLOD EQU * J * P LD A1,SCTIPL GET PROGRAM LOAD DEVICE J * " P SUK A1,/F0 CHECK DEVICE TYPE J X P RF(NN) CONRAD NOT CASSETTE J ~ P IFT CFTEST+CASS=2 J P* J & P* PROGRAM LOAD DEVICE = CASSETTE J P* J PCON:30 EQU * J
0x2d5a44…2d5bd8 Dummy {f00=0x00e1, f01=0x0190, f02=» P ST A1,COR:38 MODIFY K P LDR A1,A9 START OF BUFFER K " P ADKL A1,BUFLEN END OF BUFFER K B ( P ST A1,SAVE08,A13 SAVE END OF BUFFER K h P ST A1,SAVE03,A13 SAVE K P CF A14,RDBLK READ ONE BLOCK K " P CF A14,RDBLK READ NEXT BLOCK K P LDR A8,A9 K
0x2d5bd8…2d5d6c Dummy {f00=0x00e1, f01=0x0190, f02=»ETTE K j P CALL CON:40 L P RF TST:10 L PCONEX EQU * L 2 P* L F > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE L P P* L " P CF A14,RDBLK READ NEXT BLOCK L P LDR A1,A1 APPLICATION DATA? L P RF(NZ) CON:80 NO! L P LDK A1,
0x2d5d6c…2d5f00 Dummy {f00=0x00e1, f01=0x018e, f02=» A1,/F L " P CF A14,CHCRIO UNLOAD CASSETTE M PCON:90 EQU * M 4 P ABL CONMOV M H P XIF M P IFT CFTEST=1 M h P EJECT M ~ PCONRAD EQU * M P* M 6 P* LOAD CONFIGURATION DATA FROM DISC/FLEXIBLE DISC M P* M * P CF A14,GETFIL GET CONFIGU
0x2d5f00…2d6094 (3, 320) Dummy {f00=0x00e4, f01=0x0190, f02=» M j " P LDR A1,A9 GET START OF BUFFER N & P AD A1,SAVCON START OF SAVE BUFFER N . P ST A1,SAVE03,A13 SAVE =2 N X $ P LDKL A10,0 RESET RECORD COUNTER N z P* N 0 P* READ ONE SECTOR FROM RANDOM ACCESS DEVICE N P* N P CALL READC READ SECTOR N
0x2d6094…2d6228 Dummy {f00=0x00e4, f01=0x0190, f02=»L CONRD N P CALL TID O P CALL TEST O " P CALL AA O 4 P CALL CONRD O D P CALL TCL O X P CALL TEST O j P CALL AA O | P CALL CONRD O P CALL LEV O P CALL TEST O P CALL NN1 O PTST:20 CALL CONRD O P CALL NN1 O P CALL
0x2d6228…2d63bc Dummy {f00=0x00e4, f01=0x0190, f02=» CALL SUKASC O P CALL TDCT P P CALL TEST P & P CALL NN P 8 P CALL CONRD P H P CALL LC P P CALL TEST P l P CALL NNL P ~ P CALL CONRD P P RB TST:30 P PTST:40 EQU * P P CALL NN1 P P CALL CONRD P PTST:50 EQU * P 8 P LD
0x2d63bc…2d6550 Dummy {f00=0x00e4, f01=0x0190, f02=»SDCS P P CALL TEST Q P CALL NN Q P CALL CONRD Q . P RB TST:50 Q B PTST:60 EQU * Q T P LCR A5,A4 GET CHARACTER Q h $ PTST:70 CCK A5,'TT' BLOCK TYPE T? Q P RB(E) TST:10 YES! Q P LDKL A3,/570C Q * P ST A3,TST:70 MODIFY INSTRUCTION TO RF Q
0x2d6550…2d66e4 Dummy {f00=0x00e4, f01=0x0190, f02=» Q P RB TST:20 R PTST:80 EQU * R & P ADK A4,1 INCREMENT BUFFER POINTER R . P LCR A5,A4 GET CHARACTER R X P CCK A5,';;' END OF RECORD R x P ABL(NE) CONERR NO! R PTST:85 EQU * R P CALL CONRD R P RB TST:85 R PCOR:50 EQU * R P LDK
0x2d66e4…2d6878 Dummy {f00=0x00e4, f01=0x0190, f02=»NLOCK FLEXIBLE DISC R P* S " P LD A1,SCTIPL GET LOAD DEVICE S & P SUK A1,/F8 CHECK TYPE S L $ P RF(N) COR:60 NOT FLEXIBLE DISC S j P XIF S P IFT CFTEST+FLDISC=2 S " P LD A1,SCTOPT GET OPTION WORD S P ANK A1,2 DISC PAGING? S $ P RF(NZ) CO
0x2d6878…2d6a0c Dummy {f00=0x00e4, f01=0x0190, f02=» EX FRD:40 SENSE STATUS S $ P RB(NA) *-4 LOOP UNTIL ACCEPTED T P XIF T H P IFT CFTEST=1 T T PCOR:60 EQU * T j P EJECT T ~ PCONMOV EQU * T P* T 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA T P* T " P LDR A1,A9 GET START OF BUFF
0x2d6a0c…2d6ba0 Dummy {f00=0x00e4, f01=0x018e, f02=»T END OF SYSTEM AREA T | * P CM -2,A2 MAKE SURE CONFIGURATION FILE U " P SUK A2,1 IS FOLLOWED BY X'00' U J , P SUR A3,A1 LENGTH OF CONFIGURATION DATA U p P U P SUR A2,A3 TO-ADDRESS U P* U $ P ANKL A2,/FFFE MAKE EVEN ADDRESS U P CALL MOVE U 6
0x2d6ba0…2d6d34 (3, 321) Dummy {f00=0x00e4, f01=0x0190, f02=» $ P SUR A12,A1 SUBTRACT MONITOR END V . P ST A12,M:REL,A13 SAVE RELOCATION CONSTANT V , ( P LD A2,SAVE01,A13 GET START OF CONFF V ^ P* V < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA V P* V PMOPRO SUK A1,2 V P SUK A2,2 V P L
0x2d6d34…2d6ec8 Dummy {f00=0x00e4, f01=0x0190, f02=»N,A2 BYPASS SYSLDA V ( P ABR A2 CONTINUE EXECUTION IN SYSLDM W P EJECT W F D P*************************************************************** W T D P* SUROUTINES USED TO TEST THE SYNTAX OF THE CONFIGURATION FILE W D P************************************
0x2d6ec8…2d705c Dummy {f00=0x00e4, f01=0x0190, f02=» W 4 P LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER X P LDR A2,A1 SAVE X @ & P LDK A3,0 RESET CHARACTER COUNTER X X P LDR A4,A8 START OF RECORD X PCOR:30 EQU * X P LCR A5,A4 GET CHARACTER X P CCK A5,';;' END OF RECORD? X P RF(E) COR:4
0x2d705c…2d71f0 Dummy {f00=0x00e4, f01=0x0190, f02=»AVE01,A13 MEMORY OVERFLOW? X P RF(E) MEMOFL YES! Y " & P ADK A1,1 INCREMENT BUFFER POINTER Y < * P ADK A3,1 INCREMENT CHARACTER COUNTER Y f & P ADK A4,1 INCREMENT RECORD POINTER Y P RB COR:30 LOOP Y PCOR:40 EQU * Y " P LC A5,1,A4 GET NEXT CHARACTER
0x2d71f0…2d7384 Dummy {f00=0x00e4, f01=0x018e, f02=»MICOLON CHARACTER IN RECORD Y | PCOR:45 EQU * Z $ . P ST A1,SAVE03,A13 SAVE CURRENT DESTINATION Z 8 P LDR A1,A8 START OF RECORD Z j P CALL MOVE Z PCOR:48 EQU * Z ( P ADKL A10,1 INCREMENT RECORD COUNTER Z " P CW A10,SAVE20,A13 LAST RECORD Z P RB(
0x2d7384…2d7518 Dummy {f00=0x00e4, f01=0x0190, f02=» P CALL READC READ SECTOR [ $ PCOR:10 LDR A4,A8 START OF RECORD [ $ P RTN A14 [ L P XIF [ P IFT CFTEST+CASS=2 [ h PCON:40 EQU * [ " P CF A14,RDBLK READ NEXT BLOCK [ P LDR A1,A1 TAPEMARK? [ P ABL(NZ) CONEX YES! [ P LDR A8,A9 [ " P L
0x2d7518…2d76ac Dummy {f00=0x00e4, f01=0x018e, f02=»OVERFLOW [ r P CALL ERROR P EJECT $ PREADC EQU * 2 P CF A14,READS READ SECTOR F PREADS EQU *-2 h P LDR A8,A9 ~ " P LDR A4,A8 GET START OF BUFFER P RTN A14 PT EQU * P LCR A5,A4 GET CHARACTER P CCK A5,'TT' BLOCK
0x2d76ac…2d7840 Dummy {f00=0x00e4, f01=0x0190, f02=» P CCK A5,';;' END OF RECORD? ] P RF(NE) CONERR NO! ] ( P RTN A14 ] B P EJECT ] R PNNL EQU * ] ` P LDK A2,1 ] r P LDK A3,3 ] P RF NN:10 ] PNN EQU * ] P LDK A2,0 ] P LDK A3,3 ] P RF NN:10 ] PNN1 EQU * ] P LDK A3,
0x2d7840…2d79d4 (3, 322) Dummy {f00=0x00e4, f01=0x018e, f02=»> 9? ] p P RF(G) CONERR YES! ^ P SUK A3,1 ^ & P RF(Z) NN:20 ^ 8 ( P CCK A5,/3030 NUMERIC CHARACTER < 0? ^ L P RF(L) CONERR YES! ^ x P RF(Z) NN:15 ^ P LDKL A1,/3030 ^ P RF NN:16 ^ PNN:15 LDKL A1,/3131 ^ PNN:16 ST A1,NN:20+2 MODIFY ^
0x2d79d4…2d7b68 Dummy {f00=0x00e4, f01=0x0190, f02=» ^ j P RF(L) CONERR YES! _ P SUK A2,1 _ " P RF(NZ) NN:50 _ 4 " P LCR A5,A4 GET NEXT CHARACTER _ J P CCK A5,'LL' LINE L? _ p P RF(E) NN:40 YES! _ P CCK A5,'RR' LINE R? _ P RF(E) NN:40 YES! _ P CCK A5,'AA' LINE A? _ P RF(E) NN:40 YES
0x2d7b68…2d7cfc Dummy {f00=0x00e4, f01=0x0190, f02=» _ n P RF NN:50 ` PNN:30 EQU * ` . P ST A5,SAVE13,A13 STORE NUMBER OF CLASSES ` . " PNN:50 LCR A5,A4 GET CHARACTER ` ` P CCK A5,';;' END OF RECORD? ` P RF(NE) CONERR NO! ` P RTN A14 ` P EJECT ` PAA EQU * ` P LDK A3,2 ` PAA:1
0x2d7cfc…2d7e90 Dummy {f00=0x00e4, f01=0x0190, f02=»9 ALPHA-NUMERIC CHARACTER > 39? ` P RF(NG) AA:20 NO! a ( 0 P CCK A5,/4141 ALPHA-NUMERIC CHARACTER < 41? a B P RF(L) CONERR a v 0 P CCK A5,/5A5A ALPHA-NUMERIC CHARACTER > 5A? a P RF(G) CONERR a PAA:20 EQU * a & P ADK A4,1 INCREMENT BUFFER POI
0x2d7e90…2d8024 Dummy {f00=0x00e4, f01=0x018e, f02=»NERR NO! a P RTN A14 b P EJECT b PTID EQU * b . " P LDKL A2,SEQ1 SELECT SEQUENCE b @ & P LDK A3,4 GET NUMBER OF CHARACTERS b f P RTN A14 b PTCL EQU * b " P LDKL A2,SEQ2 SELECT SEQUENCE b & P LDK A3,4 GET NUMBER OF CHARACTERS b P RTN A
0x2d8024…2d81b8 Dummy {f00=0x00e4, f01=0x0190, f02=» PTDCT EQU * c " P LDKL A2,SEQ4 SELECT SEQUENCE c & P LDK A3,5 GET NUMBER OF CHARACTERS c < P RTN A14 c f PLC EQU * c v " P LDKL A2,SEQ5 SELECT SEQUENCE c & P LDK A3,3 GET NUMBER OF CHARACTERS c P RTN A14 c PSDCS EQU * c " P LDKL A2,SEQ6 SE
0x2d81b8…2d834c Dummy {f00=0x00e4, f01=0x0190, f02=» c x P CCR A5,A2 d P RF(NE) CONERR d & P ADK A4,1 INCREMENT BUFFER POINTER d 0 ( P ADK A2,1 INCREMENT SEQUENCE POINTER d Z . P SUK A3,1 MORE CHARACTERS IN THE SEQUENCE? d P RB(NZ) TEST YES! d P RTN A14 d P EJECT d PSUKASC EQU * d 2 P CCK
0x2d834c…2d84e0 Dummy {f00=0x00e4, f01=0x018e, f02=»E13,A13 STORE NUMBER OF CLASSES d P RTN A14 e ( PCONERR EQU * e 8 ( P LDKL A1,LMP4 INDICATE FORMAT ERROR e L P CALL ERROR e x P EJECT e P* e P* e 6 P************************************************** e 6 P*
0x2d84e0…2d8674 (3, 323) Dummy {f00=0x00e4, f01=0x0190, f02=» e 6 P************************************************** f P* f B P* f L P* f V P* f ` PSEQ1 EQU * TID= f j P DATA 'TI' f P DATA 'D=' f PSEQ2 EQU * TCL= f P DATA 'TC' f P DATA 'L=' f PSEQ3 EQU * LEV= f P DATA 'LE' f
0x2d8674…2d8808 Dummy {f00=0x00e4, f01=0x018e, f02=» P DATA '=0' g PSEQ6 EQU * SDC=S g P DATA 'SD' g . P DATA 'C=' g @ P DATA 'S0' g R P XIF g d P IFT CFTCAS+CASS=2 g p P* g & P* PROGRAM LOAD DEVICE = CASSETTE g P* g PCON:30 EQU * g P LDR A1,A9 START OF BUFFER g " P ADKL A1,B
0x2d8808…2d899c Dummy {f00=0x00e4, f01=0x0190, f02=» " P CF A14,RDBLK READ NEXT BLOCK h P LDR A1,A1 TAPEMARK? h * P RF(Z) CON:50 NO! h F . P CF A14,CASSIN INIT CONFIGURATION CASSETTE h ` PCON:40 EQU * h " P CF A14,RDBLK READ NEXT BLOCK h P LDR A1,A1 TAPEMARK? h P RF(NZ) CONEX YES! h PCON:50
0x2d899c…2d8b30 Dummy {f00=0x00e4, f01=0x0190, f02=» h ` P LDR A2,A1 SAVE i & P LDK A3,0 RESET CHARACTER COUNTER i $ P LDR A4,A9 GET SAVE09 OF BUFFER i J PCON:60 EQU * i r & P LCR A5,A4 GET CHARACTER IN BUFFER i P CCK A5,';;' CHECK IF SPACE i & P RF(E) CON:70 NO MOORE CHARACTERS i PCON:65 EQU
0x2d8b30…2d8cc4 Dummy {f00=0x00e4, f01=0x018e, f02=» , P ADK A1,1 INCREMENT DESTINATION POINTER j * P ADK A3,1 INCREMENT CHARACTER COUNTER j 4 & P ADK A4,1 INCREMENT BUFFER POINTER j b P RB CON:60 j PCON:70 EQU * j " P LC A5,1,A4 GET NEXT CHARACTER j " P CCK A5,';;' TWO SEMI-COLONS? j P RF(NE) CO
0x2d8cc4…2d8e58 Dummy {f00=0x00e4, f01=0x0190, f02=» . P ST A1,SAVE03,A13 SAVE CURRENT DESTINATION k $ P LDR A1,A9 GET SAVE09 OF BUFFER k 6 P CALL MOVE k ^ P RB CON:40 k p PCONEX EQU * k P* k > P* UNLOAD CASSETTE IF NO APPLICATION DATA ON SAME CASSETTE k P* k " P CF A14,RDBLK READ NEXT BLOC
0x2d8e58…2d8fec Dummy {f00=0x00e4, f01=0x0190, f02=» CF A14,RDBLK BYPASS TAPEMARK k P RF CON:90 l & PCON:80 EQU * l 8 P LDK A1,/F l L " P CF A14,CHCRIO UNLOAD CASSETTE l ^ PCON:90 EQU * l P ABL CONMOV l P XIF l P IFF CFTEST=1 l PMEMOFL EQU * l * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x2d8fec…2d9180 Dummy {f00=0x00e4, f01=0x0190, f02=» * P CF A14,GETFIL GET CONFIGURATION FILE m " P LDR A1,A9 GET START OF BUFFER m 2 $ P ADKL A1,BUFLEN-6 END OF BUFFER m X ( P ST A1,SAVE08,A13 SAVE END OF BUFFER m " P LDR A1,A9 GET START OF BUFFER m & P AD A1,SAVCON START OF SAVE BUFFER m P ST A1,SAVE0
0x2d9180…2d9314 (3, 324) Dummy {f00=0x00e5, f01=0x0190, f02=» m d P* n P CF A14,READS READ SECTOR n PREADS EQU *-2 n 4 " P LDR A8,A9 GET START OF BUFFER n J PCOR:20 EQU * n p P* n 2 P* COMPUTE NUMBER OF CHARACTERS IN THIS RECORD n P* n 4 P LD A1,SAVE03,A13 GET CURRENT POINTER IN BUFFER n P L
0x2d9314…2d94a8 Dummy {f00=0x00e5, f01=0x0190, f02=»RACTER n ~ P CCK A5,';;' END OF RECORD? o P RF(E) COR:40 YES! o 2 PCOR:35 EQU * o L * P CWK A3,RECLEN MAXIMUM SIZE ACHIEVED? o ` P RF(E) COR:40 YES! o & P CW A1,SAVE01,A13 MEMORY OVERFLOW? o P RB(E) MEMOFL YES! o & P ADK A1,1 INCREMENT BUFFER P
0x2d94a8…2d963c Dummy {f00=0x00e5, f01=0x0190, f02=» * o " P LC A5,1,A4 GET NEXT CHARACTER p P CCK A5,';;' TWO SEMICOLONS? p 0 P RF(NE) COR:45 NO! p T * P CWK A3,NCHTID CHECK IF END OF RECORD p n 4 P RB(E) COR:35 NO: SEMICOLON CHARACTER IN RECORD p PCOR:45 EQU * p . P ST A1,SAVE03,A13 SAVE CURRENT D
0x2d963c…2d97d0 Dummy {f00=0x00e5, f01=0x0190, f02=»T RECORD p z P RF(E) COR:50 YES! q . P ADKL A8,RECLEN+1 INCREMENT RECORD POINTER q * $ P CW A8,SAVE08,A13 END OF BUFFER q P RB(E) COR:10 NEXT SECTOR q P RB COR:20 NEXT RECORD q PCOR:50 EQU * q P LDK A3,'S' q & P SC A3,GET:25+1 MODIFY INSTR
0x2d97d0…2d9964 Dummy {f00=0x00e5, f01=0x0190, f02=»,SCTIPL GET LOAD DEVICE q P SUK A1,/F8 CHECK TYPE r $ P RF(N) COR:60 NOT FLEXIBLE DISC r > P XIF r f P IFT CFTFLD+FLDISC=2 r r " P LD A1,SCTOPT GET OPTION WORD r P ANK A1,2 DISC PAGING? r $ P RF(NZ) COR:60 YES; DON'T UNLOCK r P LDK A1,/C UNL
0x2d9964…2d9af8 Dummy {f00=0x00e5, f01=0x0190, f02=»LOOP UNTIL ACCEPTED r P XIF s P IFF CFTEST=1 s ( PCOR:60 EQU * s > P EJECT s R PCONMOV EQU * s ` P* s t 4 P* MOVE CONFIGURATION DATA TO END OF SYSTEM AREA s ~ P* s " P LDR A1,A9 GET START OF BUFFER s ( P AD A1,SAVCON COMPUTE END OF BUFFE
0x2d9af8…2d9c8c Dummy {f00=0x00e5, f01=0x0190, f02=»URE CONFIGURATION FILE s " P SUK A2,1 IS FOLLOWED BY X'00' t , P SUR A3,A1 LENGTH OF CONFIGURATION DATA t D P t t P SUR A2,A3 TO-ADDRESS t | P* t $ P ANKL A2,/FFFE MAKE EVEN ADDRESS t P CALL MOVE t 6 P ST A2,SAVE01,A13 SAVE START OF CONFIGURAT
0x2d9c8c…2d9e20 Dummy {f00=0x00e5, f01=0x0190, f02=»T A12,M:REL,A13 SAVE RELOCATION CONSTANT t ( P LD A2,SAVE01,A13 GET START OF CONFF u 0 P* u < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA u f P* u PMOPRO SUK A1,2 u P SUK A2,2 u P LDR* A4,A1 u P STR A4,A2 u P CWR A1,A1
0x2d9e20…2d9fb4 (3, 325) Dummy {f00=0x00e5, f01=0x0190, f02=»CUTION IN SYSLDM u | P XIF v P EJECT v $ L P************************************************************************ v 2 L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O v L P******************************************************
0x2d9fb4…2da148 Dummy {f00=0x00e5, f01=0x0190, f02=»* v r $ P* * w $ P* ENTRY: * w 2 $ P* * w Z $ P* EXIT: A1 - SOP INPUT * w $ P* BIT 6 - SWITCH 1 * w $ P* BIT 15 - SWITCH 10 * w $ P*
0x2da148…2da2dc Dummy {f00=0x00e5, f01=0x0190, f02=»* w r $ P* * x $ P******************************* x 2 PSOPIN EQU * x Z P CIO A1,1,SOP x n P INR A1,0,SOP x P RB(NA) *-2 x P RTN A14 x P IFT CASS=1 x P EJECT x < P****************************************
0x2da2dc…2da470 Dummy {f00=0x00e5, f01=0x0190, f02=» * x ` < P* * y < P* REFERENCED IN: SYSLOD -LOADING PART- * y P < P* * y < P* ENTRY: *
0x2da470…2da604 Dummy {f00=0x00e5, f01=0x0190, f02=»* * y < P* WORK REGISTERS: A1,A3 * z @ < P* * z < P* SUBROUTINES: SOPIN,CHCRIO * z < P*
0x2da604…2da798 Dummy {f00=0x00e5, f01=0x0190, f02=» P LDK A1,/F { " P CF A14,CHCRIO UNLOAD CASSETTE { 2 P LDKL A3,LMP1+LMP2 INDICATE EXPECTED SWITCHES { < P OTR A3,0,SOP { r PCAS:10 EQU * { P CF A14,SOPIN READ SOP { $ P ANKL A1,/0300 ALLOWED SWITCHES? { P RB(Z) CAS:10 NO! { & P LDKL A3,LMP
0x2da798…2da92c Dummy {f00=0x00e5, f01=0x018e, f02=»IT { x P LDK A1,LOCK | P CF A14,CHCRIO LOCK CASSETTE | P ANK A3,1 CASSETTE OPERABLE? | B P RB(NZ) CAS:10 NO! | f P LDK A1,SBOT | , P CF A14,CHCRIO SEARCH BEGINNING OF TAPE | P LDK A1,STMF | * P CF A14,CHCRIO SEARCH TAPEMARK FORWARD | P
0x2da92c…2daac0 Dummy {f00=0x00e5, f01=0x0190, f02=» 2 P* ======================================= * } 2 P* * } : 2 P* REFERENCED IN: CASSIN,SYSLOD * } p 2 P* * } 2 P* ENTRY: A1 - I/O INSTRUCTION COMMAND
0x2daac0…2dac54 (3, 326) Dummy {f00=0x00e5, f01=0x018e, f02=» * } ~ 2 P* WORK REGISTERS: A1,A3 * ~ $ 2 P* * ~ Z 2 P* SUBROUTINES: * ~ 2 P* * ~ 2 P************
0x2dac54…2dade8 Dummy {f00=0x00e5, f01=0x0190, f02=» ~ P EJECT 6 P************************************************** 6 P* * P 6 P* RDBLK - READ ONE CASSETTE BLOCK * 6 P* =============================== * 6 P*
0x2dade8…2daf7c Dummy {f00=0x00e5, f01=0x0190, f02=» * r 6 P* ENTRY: A9 - CASSETTE BUFFER POINTER * 6 P* * V 6 P* EXIT: A2 - NUMBER OF CHARACTERS IN BLOCK * 6 P* * : P* W
0x2daf7c…2db110 Dummy {f00=0x00e5, f01=0x018e, f02=» * | 6 P************************************************** & PRDBLK EQU * ` P LDK A5,0 t PRDB:10 EQU * P LDR A3,A9 SAVE09 OF BUFFER & P LDK A2,0 RESET CHARACTER COUNTER $ P LDR A4,A3 SAVE SAVE09 OF BUFFER
0x2db110…2db2a4 Dummy {f00=0x00e5, f01=0x0190, f02=» P INR A1,0,CHCR P RF(NA) RDB:30 P CWR A4,A3 END OF BUFFER? 0 P RF(E) RDERR YES! R P SCR A1,A4 STORE CHARACTER l * P ADK A2,1 INCREMENT CHARACTER COUNTER & P ADK A4,1 INCREMENT BUFFER POINTER PRDB:30 EQU * P SST A1,CHCR
0x2db2a4…2db438 Dummy {f00=0x00e5, f01=0x0190, f02=»IF TAPEMARK P RF(N) RDBEX OK IF TAPEMARK PRDERR EQU * 8 P* L < P* READ ERROR HAS OCCURRED: MAKE ANOTHER ATTEMPT TO READ V > P* THE SAME BLOCK IF NOT 3 ATTEMPTS ALREADY HAS BEEN MADE P* P ADK A5,1 NEXT ATTEMPT P CWK A5,
0x2db438…2db5cc Dummy {f00=0x00e5, f01=0x0190, f02=»NA) *-2 LOOP UNTIL ACCEPTED P RB RDB:10 $ PRDERR3 EQU * 6 P LDKL A1,LMP2 J P CALL ERROR ` PRDBEX EQU * t P RTN A14 P XIF P IFT DISC=1 P EJECT ( #*********************************** ( #*
0x2db5cc…2db760 Dummy {f00=0x00e5, f01=0x0190, f02=» * v ( #* REFERENCED IN: SYSLOD,GETFIL * ( #* * > ( #* ENTRY: A1 - DEVICE ADDRESS * j ( #* * ( #* EXIT: * ( #*
0x2db760…2db8f4 (3, 327) Dummy {f00=0x00e5, f01=0x0190, f02=» * t ( #* * ( #*********************************** < P h DUINIT EQU * p P LC A2,SCTSFA+2 GET FORMAT P ANK A2,/FF P SUK A2,2 SELECT FORMAT P RF(Z) DUI:20 FORMAT A2 P SUK A2,1
0x2db8f4…2dba88 Dummy {f00=0x00e5, f01=0x0190, f02=» $ P* INIT DISC COMMANDS VERSION A2 P* 0 P ADS A1,SEEK20 : P ADS A1,SEEK21 P P ADS A1,READ21 f P ADS A1,READ22 | P P RF DUI:40 0 PDUI:30 LDKL A2,RDSEC3 GET SUBROUTINE ADDRESS P* $ P* INIT DISC COMMANDS VERSION A
0x2dba88…2dbc1c Dummy {f00=0x00e5, f01=0x0190, f02=»DS A1,READ30 P ADS A1,READ31 * * * INIT SUBROUTINE ADDRESSES 4 * X PDUI:40 EQU * =2 b ST A2,READ READ PROGRAM z ( $ ST A2,READS READ CONFIGURATION DATA $ ST A2,READVL READ VOLUME LABEL * % ST A2,READCF READ CONFIGU
0x2dbc1c…2dbdb0 Dummy {f00=0x00e5, f01=0x0190, f02=» * r 4 /* RDSEC - READ ONE SECTOR FROM DISC * 4 /* ================================= * R 4 /* * 4 /* REFERENCED IN: SYSLOD * 4 /*
0x2dbdb0…2dbf44 Dummy {f00=0x00e5, f01=0x0190, f02=»* A11 - SECTOR NUMBER * 4 /* * 8 4 /* EXIT: * p 4 /* * ( P* WORK REGISTERS: A1,A2,A3,A4,A7
0x2dbf44…2dc0d8 Dummy {f00=0x00e5, f01=0x0190, f02=» * | 4 /*********************************************** $ P* P EJECT f P* t " P* READ DISC SECTOR VERSION A2 ~ P* PRDSEC2 EQU * P LDK A2,0 * P LDR A1,A11 GET LOGICAL SECTOR NUMBER PDIV200
0x2dc0d8…2dc26c Dummy {f00=0x00e5, f01=0x0190, f02=»RL A2,5 P SUR A1,A2 P SUR A1,A11 " P ADK A1,31 6 * P RF(P) DIV210 NO CORRECTION OF RESULT H P ADK A2,1 v PDIV210 EQU * . P LDR A2,A2 A2:=CYL NBR = LOG SEC NBR / 31 P RF(Z) DIV220 CYLINDER 0 P ADK A2,1 PDIV220 E
0x2dc26c…2dc400 Dummy {f00=0x00e5, f01=0x0190, f02=» RF(E) INT200 SAME CYLINDER NUMBER P ST A1,CYLNBR * P SLL A1,3 @ P ORK A1,2 SET BIT 14 R P EJECT n P* | P* SEEK CYLINDER P* PSEEK20 CIO A1,1,0 P RB(NA) SEEK20 P* PSEEK21 SST A1,0 P RB(NA) SEEK21
0x2dc400…2dc594 (3, 328) Dummy {f00=0x00e6, f01=0x0190, f02=»3 r P ANK A2,/1F & P LD A1,CYLNBR GET CYLINDER NUMBER P ANK A1,1 H P RF(Z) INT210 EVEN CYLINDER Z P ADK A2,8 ~ PINT210 EQU * P ANK A2,/1F , P SLL A2,2 PHYSICAL SECTOR AND ORDER CODE P ST A2,SECNBR P EJECT
0x2dc594…2dc728 Dummy {f00=0x00e6, f01=0x0190, f02=»4,/10 WRITE NUMBER OF WORDS $ P WER A1,/11 WRITE BUFFER ADDRESS $ " PREAD21 CIO A2,1,0 READ SECTOR L & P RB(NA) READ21 LOOP UNTIL ACCEPTED r PREAD22 SST A2,0 STATUS & P RB(NA) READ22 LOOP UNTIL ACCEPTED P ANK A2,/1F STATUS * P RB(NZ) RD
0x2dc728…2dc8bc Dummy {f00=0x00e6, f01=0x0190, f02=»OR VERSION A3 P* PRDSEC3 EQU * P LDK A2,0 4 * P LDR A1,A11 GET LOGICAL SECTOR NUMBER F P LDKL A7,/1000 t P LDKL A4,/3000 PDIV300 EQU * P SUR A1,A4 P RF(N) DIV310 P ADR A2,A7 P RB DIV300 PDIV310 E
0x2dc8bc…2dca50 Dummy {f00=0x00e6, f01=0x018e, f02=» A1,1 P ST A1,SAVMEM 6 P RF(NP) CASE10 ,XXXX , , OR , XX,XX , $ P ADK A2,1 , , XXXX, ^ PCASE10 EQU * P LDR A4,A2 P SRL A4,5 P CW A4,CYLNBR P RF(E) INT300 , P ST A4,CYLNBR STORE NEW CYLINDER NUM
0x2dca50…2dcbe4 Dummy {f00=0x00e6, f01=0x0190, f02=» | P RB(NA) SEEK30 P* PSEEK31 SST A4,0 GET STATUS ( P RB(NA) SEEK31 J P* ` P* INTERLACING j P* PINT300 EQU * P LDR A3,A2 P ADR A2,A2 $ P ADR A2,A3 INTERLACING FACTOR 3 P ANK A2,/1F & P LD A4,CYL
0x2dcbe4…2dcd78 Dummy {f00=0x00e6, f01=0x0190, f02=» PINT310 EQU * P ANK A2,/1F & P SLL A2,2 INTERLACED SECTOR NUMBER , . P ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER V P EJECT P* P* READ SECTOR P* P LDR A7,A9 BUFFER ADDRESS * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS
0x2dcd78…2dcf0c Dummy {f00=0x00e6, f01=0x0190, f02=» r & P RB(NA) READ30 LOOP UNTIL ACCEPTED P* 2 PREAD31 SST A2,0 GET STATUS < & P RB(NA) READ31 LOOP UNTIL ACCEPTED ^ P ANK A2,/1F STATUS * P RB(NZ) RDSEC3 LOOP UNTIL CORRECT READ P LDR A2,A9 BUFFER ADDRESS P LDR A1,A1 " P RF(
0x2dcf0c…2dd0a0 Dummy {f00=0x00e6, f01=0x0190, f02=»O MOVE t PREAD32 EQU * , XX,XX , P LDR* A1,A2 2 P STR A1,A7 F P ADK A2,2 X P ADK A7,2 j P SUK A4,1 | " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM P RF(P) RETURN ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER
0x2dd0a0…2dd234 (3, 329) Dummy {f00=0x00e6, f01=0x0190, f02=» A2,128 SOURCE POINTER ( P LDK A4,128 NUMBER OF WORDS TO MOVE P RB READ32 J . PRETURN ADKL A11,1 INCREMENT SECTOR NUMBER P RTN A14 P XIF P IFT MFDISC=1 P EJECT < P********************************************************
0x2dd234…2dd3c8 Dummy {f00=0x00e6, f01=0x0190, f02=» ======================================= * < P* * > < P* REFERENCED IN: SYSLOD,GETFIL * ~ < P* * < P* ENTRY:
0x2dd3c8…2dd55c Dummy {f00=0x00e6, f01=0x0190, f02=» * ~ < P* * . < P* WORK REGISTERS: * n < P* * < P* SUBROUTINES: ERROR
0x2dd55c…2dd6f0 Dummy {f00=0x00e6, f01=0x0190, f02=»********************** n PMDINIT EQU * P* 2 $ P* INIT MINI FIXED DISC COMMANDS < P* d PMDI:00 ADS A1,SEEKM1 n P ADS A1,SEEKM2 P ADS A1,READM2 P ADS A1,READM3 P EJECT P* * P LDKL A2,MRDSEC GET SUBROUTINE ADDRE
0x2dd6f0…2dd884 Dummy {f00=0x00e6, f01=0x0190, f02=»****************************************** : P* * 2 : P* MRDSEC - READ ONE SECTOR FROM MINI FIXED DISC * p : P* ============================================= * : P*
0x2dd884…2dda18 Dummy {f00=0x00e6, f01=0x0190, f02=» * h : P* ENTRY: A9 = BUFFER ADDRESS * : P* A11 = SECTOR NUMBER * T : P* * : P* EXIT: *
0x2dda18…2ddbac Dummy {f00=0x00e6, f01=0x0190, f02=» * : P* SUBROUTINES: * 8 : P* * v : P***************************************************** PMRDSEC EQU * " P L
0x2ddbac…2ddd40 Dummy {f00=0x00e6, f01=0x0190, f02=»2,3 SET BIT 14 AND 15 P* " P* A1=SECTOR NUMBER ON CYLINDER ( P* A2=CYLINDER NUMBER N P* j & P ST A1,SECNBR STORE SECTOR NUMBER t P CW A2,CYLNBR & P RF(E) INTM10 SAME CYLINDER NUMBER ( P ST A2,CYLNBR STORE CYLINDER NUMBER
0x2ddd40…2dded4 (3, 330) Dummy {f00=0x00e6, f01=0x0190, f02=» P* PSEEKM2 SST A2,0 GET STATUS & P RB(NA) SEEKM2 WAIT UNTIL ACCEPTED 0 P* Z P* INTERLACING d P* z PINTM10 EQU * P CWK A1,52 P RF(L) INTM20 SECTOR 0-51 P SUK A1,52 SECTOR 52-103 PINTM20 EQU * P LDR A2,
0x2dded4…2de068 Dummy {f00=0x00e6, f01=0x0190, f02=»UMBER n P* " P* A1:=INTERLACED SECTOR NUMBER P* > & P LD A2,CYLNBR GET CYLINDER NUMBER H P SRC A2,3 r ( P RF(NN) INTM30 EVEN CYLINDER NUMBER P SUK A1,26 SKEW FACTOR 26 P RF(NN) INTM30 P ADK A1,52 PINTM30 EQU *
0x2de068…2de1fc Dummy {f00=0x00e6, f01=0x0190, f02=» ORKL A1,/4000 HEAD NUMBER 1 PINTM40 EQU * $ P* 8 P* READ SECTOR B P* X PREADM1 EQU * b " P LDKL A4,MUXCC NUMBER OF WORDS v P LDR A7,A9 BUFFER ADDRESS P* * PWERIOM WER A4,8 WRITE NUMBER OF WORDS " P WER A7,9 WRITE BU
0x2de1fc…2de390 Dummy {f00=0x00e6, f01=0x0190, f02=»GET STATUS & P RB(NA) READM3 LOOP UNTIL ACCEPTED P ANK A1,/1F STATUS < * P RB(NZ) MRDSEC LOOP UNTIL CORRECT READ V ( P ADKL A11,1 INCREMENT SECTOR NUMBER P RTN A14 P XIF P IFT FLDISC=1 EJECT 4 0************************
0x2de390…2de524 Dummy {f00=0x00e6, f01=0x0190, f02=» ` 4 0* ================================= * 4 0* * @ 4 0* REFERENCED IN: SYSLOD,GETFIL * x 4 0* * 4 0* ENTRY: A1 - DEVICE ADDRESS
0x2de524…2de6b8 Dummy {f00=0x00e6, f01=0x018e, f02=»* * 4 0* WORK REGISTERS: * 8 4 0* * p 4 0* SUBROUTINES: * 4 0*
0x2de6b8…2de84c Dummy {f00=0x00e6, f01=0x018e, f02=» ST A2,READ STORE ST A2,READS ST A2,READVL 2 ST A2,READCF H * ^ " * INIT FLEXIBLE DISC COMMANDS h * , ' ORS A1,FRD:10 MODIFY READ SECTOR ORDER ANK A1,8 PROGRAMMED CHANNEL RF(NZ) FDI:10 YES! , P
0x2de84c…2de9e0 Dummy {f00=0x00e6, f01=0x0190, f02=» FDI:10 EQU * LDK A1,/14 LOCK ORDER EX FRD:10 EXECUTE ORDER 6 $ RB(NA) *-4 LOOP UNTIL ACCEPTED V SST A1,FDCU SENSE STATUS ~ RB(NA) *-2 & ! ANK A1,1 FLEXIBLE DISC OPERABLE? RB(NZ) FDI:10 NO! RTN A14
0x2de9e0…2deb74 (3, 331) Dummy {f00=0x00e6, f01=0x0190, f02=» * Z @ ;* FRDSEC - READ SECTOR FROM FLEXIBLE DISC * @ ;* ======================================= * R @ ;* * @ ;* REFERENCED IN: SYSLOD
0x2deb74…2ded08 Dummy {f00=0x00e6, f01=0x0190, f02=» * b @ ;* A11 - SECTOR NUMBER * @ ;* * Z @ ;* EXIT: * @ ;*
0x2ded08…2dee9c Dummy {f00=0x00e6, f01=0x0190, f02=» * j @ ;* SUBROUTINES: ERROR * @ ;* * b @ ;*********************************************************** FRDSEC EQU * " LDR A1,A1
0x2dee9c…2df030 Dummy {f00=0x00e6, f01=0x0190, f02=» WORD v & ! WER A2,FDIOP WRITE 1:ST MUX WORD ( # WER A3,FDIOP+1 WRITE 2:ND MUX WORD 8 $ P LDR A2,A3 BUFFER START ADDRESS d $ P AD A2,SAVCON BUFFER END ADDRESS $ FRD:10 CIO A1,1,FDCU START READ & " RB(NA) FRD:10 LOOP UNTIL ACCEPTED 4 /FR
0x2df030…2df1c4 Dummy {f00=0x00e6, f01=0x0190, f02=»3,2 INCREMENT BUFFER POINTER P CWR A3,A2 $ P RB(NE) FRD:20 6 P* L " PFRD:25 CIO A1,0,FDCU STOP READ V P RB FRD:20 | $ FRD:40 SST A1,FDCU SENSE STATUS & " RB(NA) FRD:20 LOOP UNTIL ACCEPTED P ANKL A1,/4E15 FATAL ERROR? RF(
0x2df1c4…2df358 Dummy {f00=0x00e6, f01=0x0190, f02=» 8 P ADKL A12,1 INCREMENT MOST SIGNIFICANT PART OF D.A. & P RF(O) FRD:50 DISC ADDRESS ERROR! @ PFRD:45 EQU * j RTN A14 ~ FRD:50 LDKL A1,LMP2 CALL ERROR P XIF EJECT 8 3************************************************
0x2df358…2df4ec Dummy {f00=0x00e6, f01=0x0190, f02=» =============================== * 8 3* * 8 8 3* REFERENCED IN: SYSLOD * t 8 3* * 8 P* ENTRY: A9 - BUFFER ADDRE
0x2df4ec…2df680 Dummy {f00=0x00e6, f01=0x0190, f02=» * d 8 3* * 6 P* WORK REGISTERS: A1,A2,A3,A4,A5,A6,A7,A8,A10 * L 8 3* * 8 3* SUBROUTINES: READVL,READCF * 8 3*
0x2df680…2df814 (3, 332) Dummy {f00=0x00e7, f01=0x0190, f02=»A11,0 VOLUME LABEL $ CF A14,READVL GET VOLUME LABEL READVL EQU *-2 B LD A10,10,A9 GET VTOC BASE X LDR A11,A10 SAVE | " AD A10,6,A9 LAST VTOC SECTOR ( # LD A8,12,A9 GET VTOC RECORD LENGTH * % ADKL A11,1 FIRST FILE SECTOR IN
0x2df814…2df9a8 Dummy {f00=0x00e7, f01=0x0190, f02=»A9 GET START OF BUFFER GET:20 EQU * P LDK A5,/20 LOAD SPACE 2 P CCR A5,A6 UNUSED FILE? P P RF(E) GET:50 YES! p LDR A4,A6 START OF RECORD ( P LDK A5,'S' STANDARD FILE CHARACTER CC A5,27,A6 STANDARD FILE? RF(NE) GET:
0x2df9a8…2dfb3c Dummy {f00=0x00e7, f01=0x0190, f02=»3,'C' THIS INSTRUCTION IS MODIFIED ( P CCK A3,'CC' LOOKING FOR CONF. FILE? * P RF(NE) GET:85 NO! V ADK A4,5 SIXTH CHARACTER p , P LDK A5,':' CHARACTER TO PRECEED NUMBER ( $GET:30 CCR A5,A4 CONFIGURATION FILE? RF(E) GET:40 YES!
0x2dfb3c…2dfcd0 Dummy {f00=0x00e7, f01=0x0190, f02=» * CHECK APPLICATION NUMBER * , LC A5,1,A4 GET LEFT DIGIT 6 SLL A5,8 SHIFT TO LEFT BYTE X LC A5,2,A4 GET RIGHT DIGIT | " CALL CONVRT CONVERT TO BINARY , ( CW A1,SCTANO SAME AS APPLICATION NUMBER RF(NE) GET:50
0x2dfcd0…2dfe64 Dummy {f00=0x00e7, f01=0x018e, f02=»1,18,A6 SECTOR ADDRESS RTN A14 GET:50 EQU * . ADR A6,A8 NEXT VTOC RECORD B & ! ADK A6,1 BYPASS STATUS CHARACTER f , ' SUK A7,1 MOORE RECORDS IN THIS SECTOR? RB(P) GET:20 YES! " CWR A11,A10 LAST VTOC SECTOR? RB(NE)
0x2dfe64…2dfff8 Dummy {f00=0x00e7, f01=0x0190, f02=» | * : 6* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT * %* LOAD MEDIUM FOR CONFIGURATION FILE P * ~ P LDK A2,/78 & ! OTR A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN " P ANKL A1,/003C ALLOWED S
0x2dfff8…2e018c Dummy {f00=0x00e7, f01=0x0190, f02=»A2 GET DEVICE ADDRESS CWK A2,5 DISC? RF(G) GET:80 YES! 6 P IFT FLDISC=1 P & ! CF A14,FDINIT INIT FLEXIBLE DISC f RB GETFIL P XIF P IFF FLDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF
0x2e018c…2e0320 Dummy {f00=0x00e7, f01=0x0190, f02=»A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF : PGET:85 EQU * F $ P CCK A3,'SS' LOOKING FOR $SWAPP? Z P RF(NE) GET:99 NO! & P LDK A5,0 RESET CHARACTER COUNTER * PGET:90 LCR A1,A4 GET CHAR IN FILENAME . P CC A1,SWPTAB,A5 CHE
0x2e0320…2e04b4 (3, 333) Dummy {f00=0x00e7, f01=0x0190, f02=»WK A5,8 ALL CHARACTERS CHECKED? P RB(NE) GET:90 NO! ( P* B : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS L , P* TO FILE AND TO NEXT SECTOR AFTER FILE P* & P IM SCTSWB INDICATE SWB-FILE FOUND & P LD A1,18,A6 GET BIT 16-31
0x2e04b4…2e0648 Dummy {f00=0x00e7, f01=0x0190, f02=»ET BIT 16-31 OF LENGTH ~ . P LD A4,SWPFEL-2,A6 GET BIT 0-15 OF LENGTH ( P ADR A4,A2 ADD MOST SIGNIFICANT PART P * P ADR A3,A1 ADD LEAST SIGNIFICANT PART | & P RF(O) GET:92 OVERFLOW - ADD CARRY P RF GET:98 PGET:92 ADK A4,1 ADD CARRY " P
0x2e0648…2e07dc Dummy {f00=0x00e7, f01=0x0190, f02=» PGET:99 RTN A14 P EJECT : P***************************************************** ( : P* * f : P* LODCOM - LOAD CORE RESIDENT PART OF APPLICATION * : P* ===================================
0x2e07dc…2e0970 Dummy {f00=0x00e7, f01=0x0190, f02=» * ^ : P* ========================= * : P* * J : P* ENTRY: A8 - RELOCATION BASE * : P* A10 - EFFECTIVE LENGTH * : P*
0x2e0970…2e0b04 Dummy {f00=0x00e7, f01=0x0190, f02=» * : P* WORK REGISTERS: A1,A2,A3,A4,A7 * . : P* * l : P* SUBROUTINES: MOVE,READ * : P*
0x2e0b04…2e0c98 Dummy {f00=0x00e7, f01=0x0190, f02=» BUFFER x P LDR A2,A3 SAVE & P LDKL A7,240 NUMBER OF CODE WORDS ( PLOD:10 EQU *-2 R P LDR A10,A10 APP >32 KB? h P RF(NN) LOD:20 NO! P SUR A10,A7 DEC. LENGTH P RF LOD:50 PLOD:20 EQU * . P SUR A10,A7 CHECK IF IN END OF O
0x2e0c98…2e0e2c Dummy {f00=0x00e7, f01=0x0190, f02=»ER OF CODE WORDS x ( P LDKL A10,0 INDICATE END OF SEGMENT P RF LOD:52 D PLOD:30 EQU * V 2 P ADR A7,A10 JUST MOVE SIGNIFICANT CHARACTERS! j ( P LDKL A10,0 INDICATE END OF SEGMENT PLOD:50 EQU * " P CWK A7,256 128 WORDS/SECTOR? P R
0x2e0e2c…2e0fc0 Dummy {f00=0x00e7, f01=0x0190, f02=»F CODE PART ~ * P LD A4,SAVE12,A13 FIRST SECTOR/BLOCK? P RF(NZ) LOD:55 NO! B 2 P IM SAVE12,A13 INDICATE NOT FIRST SECTOR/BLOCK 0 P ADK A1,8 SKIP 4 WORDS IN FIRST SECTOR/BLOCK 0 P SUK A7,8 DECREMENT NUMBER OF CHAR. TO MOVE P LD A3,COMLG,A
0x2e0fc0…2e1154 (3, 334) Dummy {f00=0x00e7, f01=0x0190, f02=» LOD:55 YES! PLOD:54 ADKL A10,8 PLOD:55 EQU * . , P LDR A3,A7 NUMBER OF CHARACTERS TO MOVE B $ P LD A2,SAVE07,A13 GET TO-ADDRESS r , P ADS A3,SAVE07,A13 UPDATE MEMORY ADDRESS " P LD A4,SCTOPT GET OPTION WORD P ANK A4,1 MMU IN SYSTEM?
0x2e1154…2e12e8 Dummy {f00=0x00e7, f01=0x018e, f02=» EQU * P LDR A10,A10 END OF SEGMENT? P RF(NZ) LOD:70 2 P RTN A14 EXIT H PLODSEG EQU * ^ ( P LDKL A1,256 NUMBER OF WORDS/SECTOR r $ P ST A1,LOD:10 MODIFY INSTRUCTION PLOD:70 EQU * P CF A14,READ PREAD EQU *-2 P RB LO
0x2e12e8…2e147c Dummy {f00=0x00e7, f01=0x0190, f02=» 6 P* REBUF - RELOCATE BUFFER ROUTINE * 6 P* =============================== * B 6 P* * | 6 P* REFERENCED IN: LODCOM/LODSEG * 6 P*
0x2e147c…2e1610 Dummy {f00=0x00e7, f01=0x0190, f02=» * d 6 P* * 6 P* EXIT: * H 6 P* * 6 P* WORK REGISTERS: A1,A4,A5,A6 * 6 P*
0x2e1610…2e17a4 Dummy {f00=0x00e7, f01=0x0190, f02=» * j 6 P************************************************* PREBUF EQU * N . P LDR A4,A2 GET SAVE09 OPF RELOCATION TABLE b P SUK A4,2 PREB:10 EQU * " P ADK A4,2 NEXT RELOCATION WORD ( P LDK A6,16 NUMBER OF RELOCATION BITS
0x2e17a4…2e1938 Dummy {f00=0x00e7, f01=0x0190, f02=»D x P ADR A5,A8 RELOCATE P STR A5,A3 STORE IT BACK & PREB:30 EQU * F P ADK A3,2 NEXT CODE WORD Z & P CWR A3,A2 END OF CODE WORD PART? z P RF(E) EXREL YES! $ P SUK A6,1 MOORE RELOCATION BITS? P RB(Z) REB:10 NO! " P SLL A1,
0x2e1938…2e1acc Dummy {f00=0x00e7, f01=0x0190, f02=»*** j . )* GETCON - GET CONTENT IN MEMORY WORD * . )***************************************** > * p * REFERENCED IN: SEGGEN z * " * ENTRY: A2 - MEMORY ADDRESS . )* MMUOPT - MMU OPTION SWITCH (X) * , (
0x2e1acc…2e1c60 Dummy {f00=0x00e7, f01=0x40fa, f02=»QU * " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU OPTION 2 P RF(Z) GCON10 NO MMU N ELR A1,A2 j P RF GCON20 | PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P END SYSLOD @ * , (
0x2e1c60…2e1df4 (3, 335) Dummy {f00=0x00e7, f01=0x4060, f02=» T P S @ MU N ELR A1,A2 j P RF GCON20 | PGCON10 EQU * LDR* A1,A2 PGCON20 EQU * RTN A14 RETURN P END SYSLOD @ * , (
0x2e1df4…2e1f88 Dummy {f00=0x00e7, f01=0x2008, f02=» P X ` h p
0x2e1f88…2e211c Dummy {f00=0x00e7, f01=0x0190, f02=» V XT W X F P , ( H P V , W , @ $ P $ , ( p W D T : A _ T , ( % 0V , - P X 9A_ : E@ @ ! P (W ( : H D ! KP$ kP P Q" U R> P0 P
0x2e211c…2e22b0 Dummy {f00=0x00e7, f01=0x0190, f02=»TJ P P P T W P T n H D ! OW cT sW V V W P P W V W Q ! %P * H D !/ 7P EP* I D QP a u D D PZ T P V^ $ v H D ! - 1 9PH = v A & CW> G KT Q U WW ] a e > H
0x2e22b0…2e2444 Dummy {f00=0x00e7, f01=0x018e, f02=» P : " Z H D ! * b 7T ? L C H Q J U ] a e mR uT { f z P H D ! P PN T T ! > ) A @ OT YT aW gW sQ wP }R P W b H D ! P. R T$ P P P P W W T~ Rr U Rf Q` TR H D ! R V
0x2e2444…2e25d8 Dummy {f00=0x00e7, f01=0x417a, f02=» H D ! K S W sQ yP P P R U P P ER, GQ$ _Q { H D ! P R V V R L ! % f P H D !x` )T - x 1 j 9 j ? f mT T V S PJ T@ T: Tr P H D ! P$ T #Tx CQ UTF S W
0x2e25d8…2e276c Dummy {f00=0x00e7, f01=0x0190, f02=» J F IDENT SYSLOD REL 10.0 80-03-15 870105041000 & " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 SYSBAS SYSLODK SCTSFA SCTIPL , ( (
0x2e276c…2e2900 Dummy {f00=0x00e7, f01=0x0190, f02=» TABBE , ( 5 A. UU @ @ ! P >B , ( QB@ @ A @ E D D SCTMSZ| t * & k P _ $ % $P _ % A SCTEFA * & H >f A A , ( H
0x2e2900…2e35a0 (4, 0) DirGranule ((4, 0)) {
0x2e2900…2e35a0 DirEnt {nam=»M:LP «, typ=» «, f00=0x0000, f01=0x0000, f02=0x0348, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»M:LP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0860, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2020, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2198, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2388, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2088, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f0, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2248, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DVG100«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2180, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»M:LP «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x2e2900…2e35a0 DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x24a0, f03=0x0000}
0x2e2900…2e35a0 }
0x2e35a0…2e3734 (4, 1) Opaque[0x194]
0x2e3734…2e38c8 # DirEnt {nam=»M:LP «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x0860, f03=0x0000}
0x2e3734…2e38c8 IdxSect {
0x2e3734…2e38c8 f00 = 0x0043 // 0x2e3734 @0x0
0x2e3734…2e38c8 f01 = 0x0008 // 0x2e3736 @0x2
0x2e3734…2e38c8 gno = [ // 0x2e3738 @0x4
0x2e3734…2e38c8 [0x00]: C0x0043.0x0.0
0x2e3734…2e38c8 [0x01]: C0x0043.0x1.0
0x2e3734…2e38c8 [0x02]: C0x0043.0x2.0
0x2e3734…2e38c8 [0x03]: C0x0044.0x3.0
0x2e3734…2e38c8 ]
0x2e3734…2e38c8 }
0x2e38c8…2e3a5c Dummy {f00=0x0043, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x2e3a5c…2e3bf0 Dummy {f00=0x0043, f01=0x0190, f02=» MOV TDISP,/S,TOSSWORK KPF /S,TDISP " SCR 6 MOV LRPINT,/S,TOSSWORK B KPF /S,LRPINT ` SCR v MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR MOV MSUBS,/S,TOSSWORK KPF /S,MSUBS SCR MOV TTMJOB
0x2e3bf0…2e3d84 Dummy {f00=0x0043, f01=0x0190, f02=»WORK ~ KPF /S,SYSLDM SCR " MOV SYSLDA,/S,TOSSWORK . KPF /S,SYSLDA L SCR b MOV LDTASK,/S,TOSSWORK n KPF /S,LDTASK SCR MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR MOV ST8000,/S,TOSSWORK
0x2e3d84…2e3f18 Dummy {f00=0x0043, f01=0x0190, f02=»,LKMAL SCR MOV CTABX,/S,TOSSWORK KPF /S,CTABX 8 SCR L MOV TIODMX,/S,TOSSWORK X KPF /S,TIODMX v SCR INC TIODMX,TOSSWORK KPF /O MOV DSKSUB,/S,TOSSWORK KPF /S,DSKSUB SCR LED DS
0x2e3f18…2e40ac Dummy {f00=0x0043, f01=0x0190, f02=» KPF /S SCR LED SYSTAB ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 0 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LED TDISP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #
0x2e40ac…2e4240 Dummy {f00=0x0043, f01=0x0190, f02=»REDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ $ !!EN P ASM /S KPF /O j KPF /S x SCR LED TPROC ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x2e4240…2e43d4 (4, 2) Dummy {f00=0x0043, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!EN ASM /S $ KPF /O 2 KPF /S @ SCR N LED TTMJOB Z ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ l ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KPF /O KPF /S SCR LE
0x2e43d4…2e4568 Dummy {f00=0x0043, f01=0x0190, f02=» KPF /S SCR LED SYSLDM " ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ 4 ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ` !!EN ASM /S KPF /O KPF /S SCR LED SYSLDA ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$
0x2e4568…2e46fc Dummy {f00=0x0043, f01=0x0190, f02=» $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ ( !!EN T ASM /S ` KPF /O n KPF /S | SCR LED DRSW01 ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x2e46fc…2e4890 Dummy {f00=0x0043, f01=0x0190, f02=»U 1$$CPU852 EQU 0$$ !!EN ASM /S ( KPF /O 6 KPF /S D SCR R MOV DVTGP,/S,TOSSWORK ^ KPF /S,DVTGP | SCR MOV DVTG1,/S,TOSSWORK KPF /S,DVTG1 SCR MOV DRGP01,/S,TOSSWORK KPF /S,DRGP01
0x2e4890…2e4a24 Dummy {f00=0x0043, f01=0x0190, f02=»R LED DRGP01 !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 0$$ 6 !!CH $$ X:C$$ 0$$ P !!CH $$ X:D$$ 0$$ j !!CH $$ X:E$$ 0$$ !!CH $$ X:F$$ 1$$ !!CH $$ X:G$$ 0$$ !!CH $$ X:H$$ 000$$ ( #!!CH $$CREDIT EQU 0$$CREDI
0x2e4a24…2e4bb8 Dummy {f00=0x0043, f01=0x0190, f02=»01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$ 1$$ $ !!CH $$ X:C$$ 0$$ > !!CH $$ X:D$$ 3$$ X !!CH $$ X:E$$ /15$$ r !!CH $$ X:F$$ 01$$ ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN
0x2e4bb8…2e4d4c Dummy {f00=0x0043, f01=0x0190, f02=»X:C$$ 51$$ !!CH $$ X:D$$ 48$$ !!CH $$ X:E$$ 000$$ , ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ H ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ t !!EN ASM /S KPF /O KPF /S SCR MOV EBCDIC,/S,TOSSWORK KPF /S,E
0x2e4d4c…2e4ee0 Dummy {f00=0x0043, f01=0x0190, f02=»R LED DRSW01 !!CH $$ X:B$$ 01$$ !!CH $$ X:C$$ 00$$ 6 !!CH $$ X:D$$ 00$$ P !!CH $$ X:E$$ 01$$ j !!EN ASM /S KPF /O KPF /S SCR LED TOSSIO !!CH $$ X:A$$ 1$$ !!CH $$ X:B$$ 1$$
0x2e4ee0…2e5074 (4, 3) Dummy {f00=0x0043, f01=0x0190, f02=» TPROC,/S,TOSSWORK KPF /S,TPROC SCR . MOV TABORT,/S,TOSSWORK : KPF /S,TABORT X SCR n MOV MONTIM,/S,TOSSWORK z KPF /S,MONTIM SCR LED TIMER ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQ
0x2e5074…2e5208 Dummy {f00=0x0043, f01=0x0190, f02=»DIT EQU 1$$ x ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN @ ASM /S L KPF /O Z KPF /S h SCR v LED TABORT ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!EN ASM /S KP
0x2e5208…2e539c Dummy {f00=0x0043, f01=0x0190, f02=» l !!EN ASM /S KPF /O " KPF /S 0 SCR > LED LKMAL J !!DL 016 !!DL 017 l !!DL 019 | !!DL 022 !!DL 023 !!DL 024 !!DL 025 !!DL 026 !!DL 027 !!DL 028 !!DL 039
0x2e539c…2e5530 Dummy {f00=0x0043, f01=0x018e, f02=»!!DL 046 !!DL 047 !!DL 048 !!DL 049 0 !!DL 050 @ !!DL 051 P !!EN ` ASM /S l KPF /O z KPF /S SCR LED LRPINT !!CH $$ X:A$$ 1$$ !!EN ASM /S KPF /O KPF /S SCR
0x2e5530…2e56c4 Dummy {f00=0x0043, f01=0x0190, f02=» | !!CH $$ X:C$$ 00000$$ !!CH $$ X:E$$ 00000$$ & !!CH $$ X:D$$ 00000$$ D !!CH $$ X:F$$ 00000$$ b !!CH $$ X:G$$ 00001$$ !!DL 85 !!DL 122 DATA ILLINT !!DL 123 DATA ILLINT
0x2e56c4…2e5858 Dummy {f00=0x0043, f01=0x0190, f02=»ILLINT ~ !!DL 127 DATA ILLINT !!DL 128 > DATA ILLINT N !!DL 130 n DATA ILLINT ~ !!DL 134 DATA ILLINT !!DL 135 DATA ILLINT !!DL 136
0x2e5858…2e59ec Dummy {f00=0x0043, f01=0x0190, f02=»DL 141 DATA ILLINT !!DL 142 . DATA ILLINT > !!DL 145 ^ DATA ILLINT n !!DL 149 DATA ILLINT !!DL 150 DATA ILLINT !!DL 155 D
0x2e59ec…2e5b80 Dummy {f00=0x0043, f01=0x018e, f02=» DATA ILLINT !!EN ASM /S * KPF /O 8 KPF /S F SCR T LED PFTAB ` !!IL 12 r !!IL 41 !!DL 042 !!DL 043 !!DL 044 !!DL 046 !!DL 047 !!DL 048 !!DL 049 !!DL 0
0x2e5b80…2e5d14 (4, 4) Dummy {f00=0x0044, f01=0x0190, f02=» !!DL 059 !!EN ASM /S KPF /O . KPF /S < SCR J LED DVTG1 V ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ h ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$DVTG1$$DVG100$$ !!CH $$/1111$$/3100$$ !!EN
0x2e5d14…2e5ea8 Dummy {f00=0x0044, f01=0x0190, f02=»$CPU852 EQU 0$$ | !!CH $$DVTG1$$DVG100$$ !!CH $$/1111$$/3100$$ 6 !!EN T ASM /S ` KPF /O n KPF /S | SCR LED DVTGP ( #!!CH $$CREDIT EQU 0$$CREDIT EQU 1$$ ( #!!CH $$CPU852 EQU 1$$CPU852 EQU 0$$ !!CH $$D
0x2e5ea8…2e603c Dummy {f00=0x0044, f01=0x0190, f02=»!!IL 6 EXTRN DVG100 EXTRN DVGP01 . !!IL 11 N DATA TC00 ^ DATA TC01 | !!IL 12 TC00 DATA TC00E-* DATA /0030 DATA DVG100
0x2e603c…2e61d0 Dummy {f00=0x0044, f01=0x0190, f02=» DATA /00500 DATA DVGP01 TC01E EQU * : !!EN V ASM /S b KPF /O p KPF /S ~ SCR LED SCLASS !!IL 6 !!IL 11 DATA TC00 !!IL 12 TC00 DATA
0x2e61d0…2e6364 Dummy {f00=0x0044, f01=0x0190, f02=» **** !!DL 20 !!DL 021 $ !!DL 022 4 !!DL 024 D !!DL 025 T !!DL 026 d !!DL 027 t !!DL 029 !!DL 030 !!DL 031 !!DL 032 !!DL 033 !!DL 035 !!DL 036 !!IL 50 ****
0x2e6364…2e64f8 Dummy {f00=0x0044, f01=0x0106, f02=»!!DL 061 !!DL 062 !!DL 063 !!DL 064 0 !!DL 066 @ !!DL 067 P !!EN ` ASM /S l KPF /O z KPF /S SCR ASG /02,LP0F SCR INC SYSTAB LKE M KPF /L,M:LP ASG /E0,TY10 **
0x2e64f8…2e668c Dummy {f00=0x0044, f01=0x2008, f02=» !!DL 062 !!DL 063 !!DL 064 0 !!DL 066 @ !!DL 067 P !!EN ` ASM /S l KPF /O z KPF /S SCR ASG /02,LP0F SCR INC SYSTAB LKE M KPF /L,M:LP ASG /E0,TY10 **
0x2e668c…2e6820 Dummy {f00=0x0044, f01=0x0190, f02=» D V ( 5 C C _, M : ( ' P I : % Y C & R V C : B T T T V : 2 ' W 2 6 2 @ R" T # ' ?D W ' #? ;D:B " : _
0x2e6820…2e69b4 (4, 5) Opaque[0x194]
0x2e69b4…2e6b48 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21d8, f03=0x0000}
0x2e69b4…2e6b48 IdxSect {
0x2e69b4…2e6b48 f00 = 0x010e // 0x2e69b4 @0x0
0x2e69b4…2e6b48 f01 = 0x0002 // 0x2e69b6 @0x2
0x2e69b4…2e6b48 gno = [ // 0x2e69b8 @0x4
0x2e69b4…2e6b48 [0x00]: C0x010e.0x3.0
0x2e69b4…2e6b48 ]
0x2e69b4…2e6b48 }
0x2e6b48…2e6cdc Dummy {f00=0x010e, f01=0x018e, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVG100 P EXTRN DVGP01 P* P* P* P* PTCLASS DATA TCLASE-* P
0x2e6cdc…2e6e70 Dummy {f00=0x010e, f01=0x4112, f02=» v P DATA DVG100 P DATA /0131 ( P DATA DVG100 H PTC00E EQU * h PTC01 DATA TC01E-* P DATA /0050 P DATA DVGP01 PTC01E EQU * P END
0x2e6e70…2e7004 Dummy {f00=0x010e, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x2e7004…2e7198 Dummy {f00=0x010e, 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
0x2e7198…2e732c Dummy {f00=0x010e, f01=0x0190, f02=»UFFER * k v , P* IF NECESSARY * l , P* * l F , P*************************************** l v P* l * P* INPUT: DWTFSW=SAVED WORD INDICATOR l P* DWTSWD=SAVED WORD l , P*
0x2e732c…2e74c0 Dummy {f00=0x010e, f01=0x0190, f02=»A3,DWTSWD,A6 l P IFT MMUPAG=1 m & P ML 2,DWTBA1,A6 GET BUFFER ADDRESS m * P RF(Z) REWO20 SYSTEM AREA m T P TS -30,A15 SAVE REGISTERS m v $ P TL DWTPAG,A6 SET MMU REGISTERS m 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS m ( P ES A3,PHSECL,A2 RES
0x2e74c0…2e7654 (4, 6) Opaque[0x194]
0x2e7654…2e77e8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x08b0, f03=0x0000}
0x2e7654…2e77e8 IdxSect {
0x2e7654…2e77e8 f00 = 0x0045 // 0x2e7654 @0x0
0x2e7654…2e77e8 f01 = 0x0048 // 0x2e7656 @0x2
0x2e7654…2e77e8 gno = [ // 0x2e7658 @0x4
0x2e7654…2e77e8 [0x00]: C0x0045.0x2.0
0x2e7654…2e77e8 [0x01]: C0x0045.0x3.0
0x2e7654…2e77e8 [0x02]: C0x0046.0x1.0
0x2e7654…2e77e8 [0x03]: C0x0046.0x3.0
0x2e7654…2e77e8 [0x04]: C0x010d.0x2.0
0x2e7654…2e77e8 [0x05]: C0x0110.0x1.0
0x2e7654…2e77e8 [0x06]: C0x0110.0x0.0
0x2e7654…2e77e8 [0x07]: C0x0110.0x2.0
0x2e7654…2e77e8 [0x08]: C0x0111.0x0.0
0x2e7654…2e77e8 [0x09]: C0x00ea.0x1.0
0x2e7654…2e77e8 [0x0a]: C0x0112.0x0.0
0x2e7654…2e77e8 [0x0b]: C0x00f0.0x3.0
0x2e7654…2e77e8 [0x0c]: C0x0115.0x1.0
0x2e7654…2e77e8 [0x0d]: C0x0119.0x1.0
0x2e7654…2e77e8 [0x0e]: C0x0119.0x2.0
0x2e7654…2e77e8 [0x0f]: C0x0119.0x3.0
0x2e7654…2e77e8 [0x10]: C0x011d.0x0.0
0x2e7654…2e77e8 [0x11]: C0x011d.0x1.0
0x2e7654…2e77e8 [0x12]: C0x011d.0x2.0
0x2e7654…2e77e8 [0x13]: C0x0100.0x0.0
0x2e7654…2e77e8 [0x14]: C0x0101.0x1.0
0x2e7654…2e77e8 [0x15]: C0x0102.0x0.0
0x2e7654…2e77e8 [0x16]: C0x011f.0x0.0
0x2e7654…2e77e8 [0x17]: C0x0123.0x0.0
0x2e7654…2e77e8 [0x18]: C0x0123.0x1.0
0x2e7654…2e77e8 [0x19]: C0x0107.0x1.0
0x2e7654…2e77e8 [0x1a]: C0x0108.0x0.0
0x2e7654…2e77e8 [0x1b]: C0x0122.0x3.0
0x2e7654…2e77e8 [0x1c]: C0x0123.0x2.0
0x2e7654…2e77e8 [0x1d]: C0x0113.0x1.0
0x2e7654…2e77e8 [0x1e]: C0x0113.0x0.0
0x2e7654…2e77e8 [0x1f]: C0x0113.0x3.0
0x2e7654…2e77e8 [0x20]: C0x0111.0x3.0
0x2e7654…2e77e8 [0x21]: C0x010e.0x0.0
0x2e7654…2e77e8 [0x22]: C0x010e.0x1.0
0x2e7654…2e77e8 [0x23]: C0x0114.0x1.0
0x2e7654…2e77e8 ]
0x2e7654…2e77e8 }
0x2e77e8…2e797c Dummy {f00=0x0045, f01=0x40fe, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVG100 x DVGP01 ( $ 0 1 P ` @
0x2e797c…2e7b10 Dummy {f00=0x0045, f01=0x40bc, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d x @ @ PTCLASE EQU * P END @
0x2e7b10…2e7ca4 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x2e7ca4…2e7e38 Dummy {f00=0x0045, f01=0x40e6, f02=» INTRT4 SYSLOD GPADN 0 GPAD8 @ * & P INTAS ~ INTSL SPDLCI " @ FREQUE PAGQUE
0x2e7e38…2e7fcc Dummy {f00=0x0045, f01=0xc01a, f02=» 4 @ SYSLOD KBAD3 0 KBADN @ * & P TPADN ~ GPADN DNADN DIADN DYADN MSADN ODADN TPAD3 , (
0x2e7fcc…2e8160 Dummy {f00=0x0045, f01=0x40b8, f02=» J F IDENT TIODMX REL 10.0 80-03-14 870105041000 TIODM FDBMEC R TIODM j FDBMEC | c @ P* 8 P**************************************************** P* (
0x2e8160…2e82f4 (4, 7) Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x2e82f4…2e8488 Dummy {f00=0x0045, f01=0x018e, f02=» ) Y W X | NVLCHK H DWTORD 0 , ( 9 $ $ ^ W X Y :g B DWTNVL: r DWTTAB , ( S! H I ! P X , ( m " P ,P 9A _ H P I VOLGET ,
0x2e8488…2e861c Dummy {f00=0x0045, f01=0x40de, f02=» NVLTAB NVLDMT NVLEND , NVLBIT @ ( $ A X " _D X $ _P T D @ 2 Wz Tr 2 1WX GWB cP& m q sP wP P P @ _ H P I VOLGET ,
0x2e861c…2e87b0 Dummy {f00=0x0045, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x2e87b0…2e8944 Dummy {f00=0x0045, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x2e8944…2e8ad8 Dummy {f00=0x0045, f01=0x0190, f02=» IHRTC ILLINTM , ( " CHLT1 R CHRT1 b , ( r CHRT2 CHRT3 , ( ! , ( 1
0x2e8ad8…2e8c6c Dummy {f00=0x0045, f01=0x0190, f02=» , ( q " HALTN R b SCTMSZK z SCTSFA SCTEFA SCTIPL SCTANO SCTADA , ( @
0x2e8c6c…2e8e00 Dummy {f00=0x0045, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLAC 2 SCTMMPL F SCTLAP0 Z SCTNPE n SCTSTB SCTOPT SCTBUG SCTDMT~ , ( SCT
0x2e8e00…2e8f94 (4, 8) Dummy {f00=0x0046, f01=0x4068, f02=» _ 2 R@ d Z SCTNPE n SCTSTB SCTOPT SCTBUG SCTDMT~ , ( SCT
0x2e8f94…2e9128 Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT TDISP REL 10.0 80-03-14 870105041000 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x2e9128…2e92bc Dummy {f00=0x0046, f01=0x0190, f02=»SA DISIOE " TENDIO DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x2e92bc…2e9450 Dummy {f00=0x0046, f01=0x4030, f02=»W CP YP* ]P cU @ , DISEND` & 2 TPAUSE * F TDISP * Z , ( A W ^ ! Z2 l TTB:ST , ( 9 (X: @ P T M ]J , ) A TTB:SA * & U P P Y
0x2e9450…2e95e4 Dummy {f00=0x0046, f01=0x018e, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A$
0x2e95e4…2e9778 Dummy {f00=0x0046, f01=0x0190, f02=» * & 7$ W A V ( U LKMAL 6 LKMERR d F HALTN Z * & Q P @ V L j LKMRQE j LKMQDI r QTJOB TDISP , ( i U #P
0x2e9778…2e990c Dummy {f00=0x0046, f01=0x0190, f02=» > ? @ | X@ ) A PFINIT , , ( $ A _L A A A _^ > IHRTC n QMJOB , ( @ A A Q > ? A SWLXY , ( A Q _ A < Q MONCL
0x2e990c…2e9aa0 Dummy {f00=0x0046, f01=0x40f4, f02=» , ( K _ _, ? TIMQUE@ x 4 " e _ P H H H H D ! ] -P 3P 7W. EV UP [V Q v Q v . , Q , n & & & 3 x CP W ` z @ < Q MONCL
0x2e9aa0…2e9c34 (4, 9) Dummy {f00=0x0046, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x2e9c34…2e9dc8 Dummy {f00=0x0046, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x2e9dc8…2e9f5c Dummy {f00=0x0046, f01=0x0190, f02=» J F IDENT MSUBS REL 10.0 80-03-14 870105041000 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2' IHRET8V IHRET2 IHRET18
0x2e9f5c…2ea0f0 Dummy {f00=0x0046, f01=0x0190, f02=» ! $P T I QMJOB J . TTMJOB @ ACTOTP T R , ( ; R $ 5 % > ? W ? f ACTOT TTB:SA , ( Y $ W ? T T U U U TTB:ID , ( s @
0x2ea0f0…2ea284 Dummy {f00=0x0046, f01=0x0190, f02=» T P 0 U GETBLK FREQUE 4 , ( _p ? @ T 0 A F FREBLKL v , ( 1 Q Q > > 0 @ 1 A FNDDWT TTB:TD , ( P P > " ? X
0x2ea284…2ea418 Dummy {f00=0x0046, f01=0x0190, f02=» 7 P _ W 8 X W ? ` @ IHRET8V h , IHRET2 l @ , ( S! @ P $ H W W > > > T IHRET18 p IHRTN r PFINIT t PFTAB , ( o > > > @ V ? > _ SWL48
0x2ea418…2ea5ac Dummy {f00=0x0046, f01=0x40f8, f02=»ELPAG RELPA2' LKMERRD $ , ( _ ? A. 6 H D ! 4 $ 1P ;R SW [W gT T P T R P f , ( 1R 7P ?W0 GW( YP cW gW {V @ SWL48
0x2ea5ac…2ea740 Dummy {f00=0x0046, f01=0x018e, f02=» J F IDENT TTMJOB REL 10.0 80-03-14 870105041000 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTMJOB TTB:QLL TTB:ID R . * TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x2ea740…2ea8d4 (4, 10) Dummy {f00=0x010d, f01=0x40a8, f02=» TTB:PW TTB:SA , ( #M 1 0 TTB:TD ( ` ! t . @ TB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x2ea8d4…2eaa68 Dummy {f00=0x010d, f01=0x8190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x2eaa68…2eabfc Dummy {f00=0x010d, f01=0x8190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x2eabfc…2ead90 Dummy {f00=0x010d, f01=0x8190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x2ead90…2eaf24 Dummy {f00=0x010d, f01=0x818e, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x2eaf24…2eb0b8 Dummy {f00=0x010d, f01=0x8190, f02=» QUEFIL TTB:STM * & C C 8W T . TTB:SA , ( 8P Y ^ 5 ) P n TDISP FNDDWT |TIO @ TIO:FM D , ( 9I U
0x2eb0b8…2eb24c Dummy {f00=0x010d, f01=0x8190, f02=» Y Y t GETBLKS QTJOB & , ( T # P W Y (@ 6 DC:MIN@ f , ( 2 0 _ > ?(@ X L U L z , ( Q L # T R < 5 ^ , ( R < 5 Y X D D
0x2eb24c…2eb3e0 Dummy {f00=0x010d, f01=0xc162, f02=» m X 1 1 X P - M , ( X P P # P 0 0 FREBLK: ` ACTOTPO r , ( P 1 _ W Y > > H D ! W #P 5P G gP oT uP P T P W U0 QL T R
0x2eb3e0…2eb574 (4, 11) Dummy {f00=0x0110, f01=0x018e, f02=» J F IDENT SYSLDM REL 10.0 80-03-31 870105041000 SYSLDMK R SYSLDMK d SCTSFAD x SYSBAS SCTEFA TCLASS( , ( I A SCLASSL SAV
0x2eb574…2eb708 Dummy {f00=0x0110, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x2eb708…2eb89c Dummy {f00=0x0110, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x2eb89c…2eba30 Dummy {f00=0x0110, f01=0x0190, f02=» " A : FREQUE " SCTBLK 4 , ( eI 4 ` & @ 6 P F BUFSIZM v , ( } _ 3 S S V 8 V SYSBUFM , ( HB W 8 : @ @ , ( @T
0x2eba30…2ebbc4 Dummy {f00=0x0110, f01=0x018e, f02=» _ l , ( : @ " P @ P 3 _ SAVE30M < , ( %B @ " P V > 3 S N , ( A 1 S 9J S ( 3 ( 9B ~ , ( a! @ @ T " SAVE04 SAVE10R * & {
0x2ebbc4…2ebd58 Dummy {f00=0x0110, f01=0x0190, f02=» , ( @ N =H N W F V H CRT N SAVE17 8 CONVRT J SAVE24 , ( =H N W J N =H N L n , ( B W N ( @ % 5 T W TTB:CBM , ( @ @ = V W = V P
0x2ebd58…2ebeec Dummy {f00=0x0110, f01=0x0190, f02=» p , ( u @ " U " , ( _2 V DP @ , ( R " p , ( S ( V N S =J @ " S , ( V F S W F V H CRT , ( A
0x2ebeec…2ec080 Dummy {f00=0x0110, f01=0x0190, f02=» n , ( I . !TTP " V W , ( e D * P > , ( @ _ n , ( P W J V 8 8 MOVEN , ( H 4 D P T @ # P
0x2ec080…2ec214 (4, 12) Dummy {f00=0x0110, f01=0x0190, f02=»T n * & /B " : W B % @ * & G P _ 0 R @ < , ( _ $ 2 W B j , ( w @ R @ B 0 W , ( @ ` W W T , (
0x2ec214…2ec3a8 Dummy {f00=0x0110, f01=0x0190, f02=»5 SAVE14P * & $ P W V ( W , ( X G =h G V X J , ( + B V < V V P W V z , ( E $ _B V W V D , ( _ Yv $ !TTX @ @ T *
0x2ec3a8…2ec53c Dummy {f00=0x0110, f01=0x0190, f02=» h , ( " $ $ _. , ( P V 4 U " 8 SCTDCT h , ( $ $ $ _. @ Z @ z , ( !A @ ! P V 8 8 8 SCTCDT , ( = 3 .
0x2ec53c…2ec6d0 Dummy {f00=0x0110, f01=0x0190, f02=» z , ( U V 8 8 8 4 D , ( P T @ # P H J , ( I K T + Y@ z , ( _`R @ @ Z @ % , ( ! P V 4 4 4 _r @
0x2ec6d0…2ec864 Dummy {f00=0x0110, f01=0x0190, f02=» W V 0 V | SAVE06 SAVE07 , , ( B 0 V `P _ W b $ > , ( q > R P >b W >b & 8P n SYSLOD , ( V d V W R , ( @ 9 W D T ) $ P
0x2ec864…2ec9f8 Dummy {f00=0x0110, f01=0x0190, f02=» 7I h I h I h $# P , ( Q@ V b -W W D V ` T 0 , ( m D @ 1 Q a : @ % ` , ( P H I H T P H , ( U V 8U W , ( 8 :
0x2ec9f8…2ecb8c Dummy {f00=0x0110, f01=0x0190, f02=» f % E , a : V , ( 3 ^ Q R $ F ! , ( Q LLT # W `;I # ;b W 0;a P * & m W # T W `W # T W , ( `W # T W `W , ( @ W ` R _ $ W 0
0x2ecb8c…2ecd20 Dummy {f00=0x0110, f01=0x0190, f02=» $$Z6 l @ lT A l V @ , ( >A 8T 9 0 1 8 $; # . , ( / V ^ ;c F !AAP # ^ * & M @$ < $ : W SAVE21 SAVE23 , ( i N n B p
0x2ecd20…2eceb4 (4, 13) Dummy {f00=0x0110, f01=0x0190, f02=» U p , ( @ Y$ P W N V p 3 % , ( W P _ V N @ INTLT1 p , ( $@P V n ] rW n P , ( 3 _ @ jP V T A j , ( K (P ) @ j @ lP
0x2eceb4…2ed048 Dummy {f00=0x0110, f01=0x018e, f02=» N L r * & : N =H N L : &=H F , ( @ L : F =H F L : F =H F @ , ( @ L : P N =H p , ( N T $_ : @ , ( # ! P (W ( : 00=H 00 P , ( C
0x2ed048…2ed1dc Dummy {f00=0x0110, f01=0x0190, f02=» , ( R @ t $ D L v A x CRT SYSLDX 8 $ @ M " z J H D !pC P # N / N G X WP@ P P V P T ;P$ MT wP { r H D ! V T P P V P P +P oT P T T W H
0x2ed1dc…2ed370 Dummy {f00=0x0110, f01=0x0190, f02=»R W& T V H D !oJ P PT . 7 T ?P M wT Tr P, U H D ! } P, U )P QP [W e iP0 q y T U^ ^ H D ! P P$ P R& !P AT qT u wWJ }T W> 0 P R P W H D !` P ^
0x2ed370…2ed504 Dummy {f00=0x0110, f01=0x40c0, f02=» T W R T W T T EP T P P T P$ P U P H D ! W P P #W /P 9P QP _P wP T P T %P )W =P EP J R T @ T qT u wWJ }T W> 0 P R P W H D !` P ^
0x2ed504…2ed698 Dummy {f00=0x0110, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-05-29 870105041000 D @ JUMPY SYSLDX dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MULTY MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF D @ M:REL I:RSTE SAVE01 SAVE12B SAV
0x2ed698…2ed82c Dummy {f00=0x0110, f01=0x0190, f02=» SAVE18 SAVE19 SAVE20 SAVE21S SAVE220 v F B SAVE23 SAVE24V SAVE25 SAVE26 SAVE27 SAVE282 SAVE29 SAVE30 0 APPTYPN z I:RSTE * |REL $ W W " , ( 1 ; Z [ : : [ [
0x2ed82c…2ed9c0 Dummy {f00=0x0110, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12B SAVE1
0x2ed9c0…2edb54 (4, 14) Dummy {f00=0x0111, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x2edb54…2edce8 Dummy {f00=0x0111, f01=0x018e, f02=» MMEND , ( ERROR @ MOVEY R SCTEFA d , ( W Z A. c @ v , ( V W U R $ )_ , ( : V r V , (
0x2edce8…2ede7c Dummy {f00=0x0111, f01=0x0190, f02=» f , ( @ V M : W V , ( R R Y R 8 , ( <B V x " 1 W V z : z_@ V h , ( Q : W R P L d W x , ( _ V : t " D P , ( - W
0x2ede7c…2ee010 Dummy {f00=0x0111, f01=0x0190, f02=» _ r V , ( t_~ " V r D T E % ( , ( E : " R ;B D D " P X , ( P R P |P M M CMPADR , ( : V W 0 : V P 9a , ( - _ "
0x2ee010…2ee1a4 Dummy {f00=0x0111, f01=0x0190, f02=» J n SCTTCT , ( @ 0 V @ 0 H SAVE8 P SCTLAC: ` * & W : ? ? r , ( R 0 R P P ACTOT RETUR8 , ( @ B
0x2ee1a4…2ee338 Dummy {f00=0x0111, f01=0x0190, f02=» @ ` V b v , ( = pP SCTOPTO F TTB:CB X , ( ]$ @ ! P I " j , ( w = 4 Q _D I = , ( P @ ! P I , (
0x2ee338…2ee4cc Dummy {f00=0x0111, f01=0x0190, f02=» j SCTNOP , ( @ @ P P SCTPSZ L , ( H P P _ _ @ ^ , ( 9 V W U P P , ( Y P V W U " @ Q V , ( w P A. V P
0x2ee4cc…2ee660 Dummy {f00=0x0111, f01=0x0190, f02=» $ Y& P , ( S P 3 _ . SCTBUGY ^ , ( D 3 A. @ p SCTSTB , ( # & " @ W PFINIT , ( A A $
0x2ee660…2ee7f4 (4, 15) Dummy {f00=0x00ea, f01=0x0190, f02=» , ( V l W H V ]" . , ( nT z W v d W n V ~P W 4 , ( " x d , ( _v V d , V P _ , ( N L % V d V f G G U , ( @ ; d G
0x2ee7f4…2ee988 Dummy {f00=0x00ea, f01=0x0190, f02=» P W t , ( $ ) ^ r V W $ , ( @ f ) G V ) W b G T , ( ) G ` " W p W ~ , ( J pP j R XP v `_ , ( 9 W ~ R XX4 v `_ `
0x2ee988…2eeb1c Dummy {f00=0x00ea, f01=0x0190, f02=» R X^ _d t , ( " W XT : L z W x `_ , ( V P I @ D D , ( ! ) @ ! P C C W z t , ( ` pP " R , ( @ 1 p E R T E D E , (
0x2eeb1c…2eecb0 Dummy {f00=0x00ea, f01=0x0190, f02=»;h 0 :C x NXTBLKL NXTCOM , , ( " # : .=H N p @ , ( .=H N p N p GETNUM , ( : d 8" R _ ZY QY SYSLDX , ( ! : "
0x2eecb0…2eee44 Dummy {f00=0x00ea, f01=0x0190, f02=» - @ - N !TTP , ( N :H N TBT W W 2 ( , ( " T @ X 2 N =H X , ( N @ ) !TTXT !CC , ( T !UUT d W , ( @ 2 .:H N R
0x2eee44…2eefd8 Dummy {f00=0x00ea, f01=0x0190, f02=» W @ W x , ( @ D p V W W , ( ` " W p @ H , ( pP " 4X 1 x , ( R Z0 % _ W l a w ` , ( :A W V d 4 W P 5 , (
0x2eefd8…2ef16c Dummy {f00=0x00ea, f01=0x0190, f02=» W U R ) +V ; d H D !P R, X P ` #P ;Pv SP. [V cP uT T V T P P H D ! V W 'P IP _W gP V R P0 OPp iP Q P T l H D ! P P^ !P %PR ;V ?W CU( OP WP( [P _V cW gU qQ wP H D !
0x2ef16c…2ef300 Dummy {f00=0x00ea, f01=0x406e, f02=» PJ P H D ! =T R -P ]R P T W4 T T T WT P !V P* P T X@ j V W 'P IP _W gP V R P0 OPp iP Q P T l H D ! P P^ !P %PR ;V ?W CU( OP WP( [P _V cW gU qQ wP H D !
0x2ef300…2ef494 (4, 16) Dummy {f00=0x0112, f01=0x0190, f02=» J F IDENT LDTASK REL 10.0 80-03-14 870105041000 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x2ef494…2ef628 Dummy {f00=0x0112, f01=0x0190, f02=» TLDS15 , ( 7 $V QMEXITL J PAGQUE PAG:QB n , ( U H A ( @ X PAG:SB , ( oH H A ( 1 ) @ H P 1 SEG:PB# S
0x2ef628…2ef7bc Dummy {f00=0x0112, f01=0x018e, f02=» SEG:DS TTB:CB , ( H H D $! " ECBCW1I R ECBCW2 d , ( A u C C v ECBRL ECBBA , ( V P ECBEL , (
0x2ef7bc…2ef950 Dummy {f00=0x0112, f01=0x4190, f02=» f ECBRC TTB:SAV , ( CA C _,( B & T :" * RELPA2 Z SCTIOES l , ( _H U ( F * ' @ , U ~ LT:SWB z QLTSWB z LKMERR0 QLTDSK ~ QLTASK
0x2ef950…2efae4 Dummy {f00=0x0112, f01=0x0190, f02=» J F IDENT DRSW01 REL 10.0 80-03-14 870105041000 H D ! OUTLINK OUTPUT LDREG LDREGE LDREGF STREG GETCHR@ ECHRTN ECHOY R ECHENDN OUTLINK OUTLRT OUTPUT , ( ? 8! W "
0x2efae4…2efc78 Dummy {f00=0x0112, f01=0x0190, f02=»WTA5 TDISP LDREG D * & ; @ Y X X Y . LDREGF R LDREGE V p DWTOR DWTECB , ( Q H X X X X ' GETCHR@ j , ( g 4 B U B (
0x2efc78…2efe0c Dummy {f00=0x0112, f01=0x4104, f02=» DWTSB2 DWTADR , ( H 9BV X Y X ( ECHADR X ECHRTN j TENDIO ~ * & D V X R , ( W0 P T !P< %P8 qU W V$ V @ (
0x2efe0c…2effa0 Dummy {f00=0x0112, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x2effa0…2f0134 (4, 17) Dummy {f00=0x00f0, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x2f0134…2f02c8 Dummy {f00=0x00f0, f01=0x0190, f02=» J F IDENT DRGP01 REL 10.0 80-03-14 870105041000 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x2f02c8…2f045c Dummy {f00=0x00f0, f01=0x0190, f02=» Y , ( U P T Y "_. P R P , ( @ O]> V _F T Y Y " V P , ( @D Y _^ C _P " DWTBC * & $ P X " X ]r ! * & Y Y
0x2f045c…2f05f0 Dummy {f00=0x00f0, f01=0x0190, f02=» X C _ X Y ~ , ( G " Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P j ECHOGP , ( X _x R V ! P P , (
0x2f05f0…2f0784 Dummy {f00=0x00f0, f01=0x4166, f02=» ? X Z t , ( @ ! P P X _ X , ( / @" ! ! X " D K 6 t H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @ _U$ iT sU }T R
0x2f0784…2f0918 Dummy {f00=0x00f0, f01=0x0190, f02=» J F IDENT DRRT01 REL 10.0 80-04-15 870105041000 F B CHLT1 CHLT2 CHLT3 CHLT4 CHRT1 CHRT2 CHRT3 CHRT4 OUTLRT` CHLTON R * & CHTAB DWREMU LOCHAN RECHAN REMFC LOCHAN RECHAN REMFC I
0x2f0918…2f0aac Dummy {f00=0x00f0, f01=0x018e, f02=»2 , ( ; J BAB rU , ( [ J B B pU : , ( y J BQB rU j INTRT3 , ( J!B!B pU , ( J!BaB rU
0x2f0aac…2f0c40 Dummy {f00=0x00f0, f01=0x018e, f02=» DISIOE( , ( Q :A H P P H !@T TDISP F DISENDW V * & 1 I T ! 1 U h CHLT1 N INTSAV CHLT2 X CHLT3 X CHLT4 X CHRT1 X CHR
0x2f0c40…2f0dd4 (4, 18) Dummy {f00=0x0115, f01=0x0190, f02=» f , ( R ; V # T , ( p # P P 8 , ( R P 4 ] P $ h , ( P ] U P P P P DWTST , ( R 4T ] U X , (
0x2f0dd4…2f0f68 Dummy {f00=0x0115, f01=0x0190, f02=» X ' T P X z RECADR DWTSB2 , , ( y P >W X > , ( 9BR W Y n , ( @ T # Y R U DWTTP * & T ] W 8V X
0x2f0f68…2f10fc Dummy {f00=0x0115, f01=0x0190, f02=» H Y X Z ;BR 8% =A Y OUTLIN . DWTOR @ , ( 9 T Z& _, X "' X 8V P , ( U * 4XB XH U T T U , ( u 5 U R " ] ;h , ( # <c$ P X X " Z
0x2f10fc…2f1290 Dummy {f00=0x0115, f01=0x018e, f02=» , ( " X "' $ X (@ L & , ( ' T 4 <d$ _F $?:D" Y 4 , ( # X P Y # P * d , ( ? 4T U # P 4 4 P , ( _ _t T _$ U _ ? 4 U 5 , ( R P
0x2f1290…2f1424 Dummy {f00=0x0115, f01=0x0190, f02=» f , ( @W ? T T W , ( u > > E D E 8 , ( E S % ;DV " U D $ P h OUTLRT` N , ( 7 #`P T E _ " 8' , ( U ?A R 8;b# 4T R
0x2f1424…2f15b8 Dummy {f00=0x0115, f01=0x0190, f02=» Q l , ( P X H & 5 U R " , ( ] Y > > V < , ( P X P (P _ ] W Q ( l CHLTON 2 , ( + Y (_: @ T (@ > P , ( I X R @ U S U t
0x2f15b8…2f174c Dummy {f00=0x0115, f01=0x0190, f02=»W aW kW uW R V f H D ! N PJ P V RL P P P PB P: P0 P, R " H D !H T r !Tn -WH 5 ?R UP4 YR0 aT qT uP P W R W n H D ! H r R T W V P W P R +R 9T OV H D !
0x2f174c…2f18e0 Dummy {f00=0x0115, f01=0x40ac, f02=»P 9P R H D ! =T ]R mT qRT wT }T W< Tr W T P V WT V P Q2 8 4 P R V P P %W 9T OR4 WS qP wT W Z @ W n H D ! H r R T W V P W P R +R 9T OV H D !
0x2f18e0…2f1a74 (4, 19) Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT DRGP02 REL 10.0 80-03-14 870105041000 GPAD8 R , ( [000b [000e [00t [00q 8 b GPAD8 < , ( ! [00w [00v c [5n DWTOR DWTST , ( A B $$ X
0x2f1a74…2f1c08 Dummy {f00=0x0119, f01=0x0190, f02=» ! x GETCHR * & @ P P $ ! * * & X P ! +T X X , ( @ ! T W +T X " T X : ! OUTPUT , ( Y 7 Y 9 ! 7 ! W , ( X ; !
0x2f1c08…2f1d9c Dummy {f00=0x0119, f01=0x0190, f02=» ! Y , , ! X , Y *W , ( 0P 1T ! W ! ( , ( @@ ! X B) Y B X " T Y : Y X , ( ; ! W P ! ! W , ( @ ] Z _R /P C _ , ( . ! X " T Y :
0x2f1d9c…2f1f30 Dummy {f00=0x0119, f01=0x0190, f02=» $ P Y< P Y $ X LDREG ( SAVE8 8 , ( mI X B$ T , Y B H , ( W Y B Y . ! X @T x , ( Y @ ! Y " Y $ 3 ! Y & , ( @ & & ! 0 ! Y ( Y * Y
0x2f1f30…2f20c4 Dummy {f00=0x0119, f01=0x0190, f02=» R P ! ! " ! , ( 3 P 0 : P Y / _$ X / 4 * , ( S dR d R _ 00,0 Z , ( s : " 4 X P Y , ( 4 Y 2 Y 0 X 0 ," :HR 0 P :h ! , ( Y 0_ X 2 , !
0x2f20c4…2f2258 Dummy {f00=0x0119, f01=0x0190, f02=»131415 z + H D ! = H A h C t gP u v w ~ y { $ } $ P P : H D ! P Tf TJ W T^ T$ P W P + /W 7Pt ?PB H D ! EP KPV MW U YW a i P w W P T W
0x2f2258…2f23ec Dummy {f00=0x0119, f01=0x4028, f02=»P R$ P j : @ $
0x2f23ec…2f2580 Dummy {f00=0x0119, f01=0x40aa, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l TEBCDI @ P DATA /9798,/99A2,/A3A4,/A5A6 70-77 ( P DATA /A7A8,/A91C,/6A00,/0000 78-7F 4 P DAT
0x2f2580…2f2714 (4, 20) Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x2f2714…2f28a8 Dummy {f00=0x0119, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x2f28a8…2f2a3c Dummy {f00=0x0119, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x2f2a3c…2f2bd0 Dummy {f00=0x0119, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x2f2bd0…2f2d64 Dummy {f00=0x0119, f01=0x0190, f02=» $P n TTB:SA , ( @ $ ) U @ C W , ( ; 0P P > T C T P , ( [ V Y 8 P q 0 ) , ( y W X P 8 T B R P A @ GETBLKS SETIMPR , (
0x2f2d64…2f2ef8 Dummy {f00=0x0119, f01=0x0190, f02=»I , ( C C QUEDEV : QUEFIL N TTB:STM b , ( 8W T 8P Y ^ t TDISP FNDDWT |TIO TIO:FM " , ( H 5 ) P U
0x2f2ef8…2f308c Dummy {f00=0x0119, f01=0x0190, f02=» P H T z , ( _ X I Y # C C , ( # P Y '? Y Y T # J , ( P W Y (@ 2 z DC:MIN@ , ( @ _ > ?(@ X L U L Q L , ( # T R < 5
0x2f308c…2f3220 Dummy {f00=0x0119, f01=0x0190, f02=» ?(@ X v , ( c P 0P X T 4 Y X , ( 1 1 X P - M X P F , ( P # P 0P 1 _ v ACTOTPO ( $ H W Y > > H D ! 8 P 7W ; J AP OT WT" [V$
0x2f3220…2f33b4 (4, 21) Dummy {f00=0x0119, f01=0x406a, f02=» U0 QL T R R / R =P cP kP qT P> P. | P& P P W 8 T@ fP F , ( P # P 0P 1 _ v ACTOTPO ( $ H W Y > > H D ! 8 P 7W ; J AP OT WT" [V$
0x2f33b4…2f3548 Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x2f3548…2f36dc Dummy {f00=0x0119, f01=0x40ec, f02=» _ ? * & S ^ 4 _ ( TIMQUEA V , ( o @ 1 A _ P 9 > h > ( $ ~ T J : - 4 1 J 3 > P @ ETBLK@ LKMQDI
0x2f36dc…2f3870 Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x2f3870…2f3a04 Dummy {f00=0x0119, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x2f3a04…2f3b98 Dummy {f00=0x0119, f01=0x0190, f02=» J F IDENT MONTIM REL 10.0 80-03-14 870105041000 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x2f3b98…2f3d2c Dummy {f00=0x0119, f01=0x4076, f02=»R _ 00 > & <h$ P > ( r %P O SP wR P < `@ r l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x2f3d2c…2f3ec0 Dummy {f00=0x0119, f01=0x018c, f02=» J F IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x2f3ec0…2f4054 (4, 22) Dummy {f00=0x011d, f01=0x4008, f02=»@ IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x2f4054…2f41e8 Dummy {f00=0x011d, f01=0x40c2, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b CHLTONA t @ @ ATA DMINIT P DATA SLCUON SALCUZ P DATA ASCUON ASCU4Z
0x2f41e8…2f437c Dummy {f00=0x011d, f01=0x4124, f02=» J F IDENT DVG100 REL 10.0 80-03-14 870105041000 DVG100K R DVG100K d GPAD8 x , ( 1 GP , ( ? D
0x2f437c…2f4510 Dummy {f00=0x011d, f01=0x40ec, f02=» J F IDENT DVGP01 REL 10.0 80-03-14 870105041000 DVGP01K R DVGP01K d GPADN x & " P ! $ $ @ DATA DEVECB MMU ECB ADD
0x2f4510…2f46a4 Dummy {f00=0x011d, f01=0x2008, f02=» L = KMD21 DATE = 80 08 19 1216PACK NBR = 0021 !
0x2f46a4…2f4838 Dummy {f00=0x011d, f01=0x0190, f02=»BL TDISP J P EJECT K P* K P* K ( P*** WRITEP K 2 P* K D P* WRITE A2 WITH PARITY K N P* K n P* K x PWRITEP ECR A1,A2 K P ORK A2,/80 K PWRI100 SLL A1,1 K P RB(P) WRI100 K P RF(Z) WRI101 K P XRK A2,/80 K P R
0x2f4838…2f49cc Dummy {f00=0x011d, f01=0x0190, f02=»AD CHARACTER TO A2 AND CHECK PARITY K P* L , P* L 6 PREADP CF A5,READ L @ P CWK A2,SYN L X P RB(E) READP L l P ECR A1,A2 L PRE100 SLL A1,1 L P RF(Z) RE110 L P RB(NN) RE100 L P XRK A2,/80 L P RB RE100 L PRE110 LDR A1,A2
0x2f49cc…2f4b60 Dummy {f00=0x011d, f01=0x0190, f02=» P EJECT M P* M < P* FIND DWT CONTAINING SUBTERMINAL ADDRESS AS GIVEN IN A2 M P* M $ P* CALLING SEQUENCE: CF A5,FINTER M f P* A2=SUBTERMINAL ADDRESS M P* A4 DESTROYED M " P* A3#0: DWT TO FOUND TERMINAL M P* M PFINTER EQU * M P
0x2f4b60…2f4cf4 (4, 23) Dummy {f00=0x011d, f01=0x2008, f02=» v p x
0x2f4cf4…2f4e88 Dummy {f00=0x011d, f01=0x000e, f02=»# # # # # # #
0x2f4e88…2f501c Dummy {f00=0x011d, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x2f501c…2f51b0 Dummy {f00=0x011d, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x2f51b0…2f5344 Dummy {f00=0x011d, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x2f5344…2f54d8 Dummy {f00=0x011d, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x2f54d8…2f566c Dummy {f00=0x011d, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x2f566c…2f5800 Dummy {f00=0x011d, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x2f5800…2f5994 (4, 24) Dummy {f00=0x011d, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x2f5994…2f5b28 Dummy {f00=0x011d, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x2f5b28…2f5cbc Dummy {f00=0x011d, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x2f5cbc…2f5e50 Dummy {f00=0x011d, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x2f5e50…2f5fe4 Dummy {f00=0x011d, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x2f5fe4…2f6178 Dummy {f00=0x011d, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU X:A P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* I
0x2f6178…2f630c Dummy {f00=0x011d, f01=0x0190, f02=»RACTER /14 CAN BE r 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* N PX:C EQU 0 X PFJOTON EQU X:C j P* . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P
0x2f630c…2f64a0 Dummy {f00=0x011d, f01=0x0190, f02=»S POSSIBLE f 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. N P* PX:E EQU 0 PEORECH EQU X:E P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SE
0x2f64a0…2f6634 (4, 25) Dummy {f00=0x0100, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x2f6634…2f67c8 Dummy {f00=0x0100, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x2f67c8…2f695c Dummy {f00=0x0100, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x2f695c…2f6af0 Dummy {f00=0x0100, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x2f6af0…2f6c84 Dummy {f00=0x0100, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x2f6c84…2f6e18 Dummy {f00=0x0100, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x2f6e18…2f6fac Dummy {f00=0x0100, f01=0x0190, f02=» ; 4 P** M O V I N G ** < 4 P** ** < D 4 P** ** < | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < 4 P** ASSUMED TO BE DATA-PART
0x2f6fac…2f7140 Dummy {f00=0x0100, f01=0x0190, f02=» 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** = t 4 P** WORK-REG: A4 ** = 4 P************************************
0x2f7140…2f72d4 (4, 26) Dummy {f00=0x0101, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x2f72d4…2f7468 Dummy {f00=0x0101, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x2f7468…2f75fc Dummy {f00=0x0101, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x2f75fc…2f7790 Dummy {f00=0x0101, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x2f7790…2f7924 Dummy {f00=0x0101, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x2f7924…2f7ab8 Dummy {f00=0x0101, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x2f7ab8…2f7c4c Dummy {f00=0x0101, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x2f7c4c…2f7de0 Dummy {f00=0x0101, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x2f7de0…2f7f74 (4, 27) Dummy {f00=0x0102, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x2f7f74…2f8108 Dummy {f00=0x0102, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x2f8108…2f829c Dummy {f00=0x0102, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x2f829c…2f8430 Dummy {f00=0x0102, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x2f8430…2f85c4 Dummy {f00=0x0102, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x2f85c4…2f8758 Dummy {f00=0x0102, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x2f8758…2f88ec Dummy {f00=0x0102, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x2f88ec…2f8a80 Dummy {f00=0x0102, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x2f8a80…2f8c14 (4, 28) Dummy {f00=0x011f, f01=0x0190, f02=»NOT DESTROYABLE DAD FILE CODE PC2205 - p L P* *DAD* . , L PDADNFD EQU * DADNAME FILEDS *DAD* . | L P*
0x2f8c14…2f8da8 Dummy {f00=0x011f, f01=0x0014, f02=»# # # # $ $ $ $ $ $(
0x2f8da8…2f8f3c Dummy {f00=0x011f, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 10.0 80-03-14 870105041000 P : * P =1,IMPROVEMENT OF FORM LENGTH CON- B * P TROL & FORM FEED FUNCTION ON CONT. p & P STATIONARY. PRR 10.0 79-12-07 " P =2,XIF MOVED TO RIGHT PLACE P PRR 10.0 80-01-25
0x2f8f3c…2f90d0 Dummy {f00=0x011f, f01=0x0190, f02=» < P* PHILIPS TERMINAL SYSTEM PTS * < P* * D 4 P* DRGP02 = DRIVER GENERAL PRINTER * < P* * < P*
0x2f90d0…2f9264 Dummy {f00=0x011f, f01=0x0190, f02=»*********************************** | P* , 4 P* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 6 P* n 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : x P* $ P* A C T P : ACTIVATION PART P* & P* I H T P : INTERRUPT HA
0x2f9264…2f93f8 Dummy {f00=0x011f, f01=0x0190, f02=» TREATED: t P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE D * P* ORDER 0B : POSITION DOCUMENT f . P* ORDER 24 : SET PRINTER PARAMETERS ( P* ORDER 38 : RELEASE DOCUMENT P* , P* THE FOLL
0x2f93f8…2f958c Dummy {f00=0x011f, f01=0x0190, f02=»T OUT ` ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE : P* b P* l P* NORMAL REGISTER USAGE: v P* " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT $ P* A3: BUFFER PO
0x2f958c…2f9720 Dummy {f00=0x011f, f01=0x0190, f02=» A7: ORDER P* A8: ECB-ADDRESS P* 8 P* B P EJECT L P* Z P* d 0 P******************************************* n P* P* ENTRIES P* 0 P******************************************* P* P*
0x2f9720…2f98b4 (4, 29) Dummy {f00=0x0123, f01=0x0190, f02=» IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. " 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS R 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHA
0x2f98b4…2f9a48 Dummy {f00=0x0123, f01=0x0190, f02=» 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM @ P EJECT P* j 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE t 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUN
0x2f9a48…2f9bdc Dummy {f00=0x0123, f01=0x0190, f02=»* AND CONVERSION TABLES 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO ( 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, ` P* THREE OR MORE ZEROES. P* 6 P* THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 0 P* NORWA
0x2f9bdc…2f9d70 Dummy {f00=0x0123, f01=0x0190, f02=»MBLING THE DRIVER CONDITIONALLY THIS P* FUNCTION IS INCLUDED. , P EJECT N P* P* f P************** p P* ENTRIES * P************** P* P ENTRY KBAD ADDRESS-BLOCK ( P ENTRY EOQUEU QUEUE POINTER ROUTINE (
0x2f9d70…2f9f04 Dummy {f00=0x0123, f01=0x0190, f02=»XTERNAL TOSS MODULE ENTRIES * 2 P********************************************** 0 P* f $ P EXTRN DISIOE I/0 REQUEST ERROR p . P EXTRN DISEND END I/O AND GO TO DISPATCHER P EXTRN TENDIO END I/O " P EXTRN TDISP DISPATCHER ENTRY
0x2f9f04…2fa098 Dummy {f00=0x0123, f01=0x0190, f02=»EGE RETURN FROM ECHO HANDLING P EXTRN LDREGF & P EXTRN SETIME SET TIME < P EXTRN SETIMP SET TIME Z " P EXTRN SAVE8 SAVE 8 REGISTERS x " P EXTRN ECHRTN RETURN FROM ECHO P EXTRN ECHO ECHO ROUTINE P EXTRN ECHEND END OF ECHO P*
0x2fa098…2fa22c Dummy {f00=0x0123, f01=0x0190, f02=» P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER $ & " EXTRN DWTADR DRIVER ADDRESS BLOCK F P EXTRN DWTA3 SAVE AREA A3 p EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN D
0x2fa22c…2fa3c0 Dummy {f00=0x0123, f01=0x0190, f02=» P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* @ . PX:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER J 2 PDWTLNG EQU X:F NUMBER OF BYTES IN DECIMAL FORM | P* P* TIME BEFORE TIME-OUT P* " PTIME EQU 300 TIME OUT CONSTANT
0x2fa3c0…2fa554 (4, 30) Dummy {f00=0x0123, f01=0x0190, f02=» * j , P**************************************** P* : . P* TIME OUT FUNCTION MAY BE EXCLUDED BY D P* SETTING X:A = 0. v P* PX:A EQU 0 PCTIMUT EQU X:A P* * P* ECHO FUNCTION MAY BE EXCLUDED BY P* SETTI
0x2fa554…2fa6e8 Dummy {f00=0x0123, f01=0x0190, f02=»NG X:C = 0. P* PX:C EQU 1 PCSTAND EQU X:C 0 P* F . P* DOUBLE ZERO MAY BE INCLUDED IN SYSTEM P ( P* BY SETTING X:D = 2. SETTING X:D , P* = 3 GIVES A THREE ZERO FUNCTION AND 4 P* X:D = 4 GIVES FOUR-ZERO FUNCTION AND
0x2fa6e8…2fa87c Dummy {f00=0x0123, f01=0x0190, f02=» P* 8 P* BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION ( P* CAN BE INCLUDED IN THE DRIVER. N > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 z @ P* SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG B P* IS
0x2fa87c…2faa10 Dummy {f00=0x0123, f01=0x0190, f02=» PPOWOFF EQU X:E P** P** ( 4 P* BY SETTING X:G TO 1 THE CODE CONVERSION VIA 2 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS j P* INCLUDED IN THE DRIVER. P** PX:G EQU 0 PCONVER EQU X:G P P* P
0x2faa10…2faba4 Dummy {f00=0x0123, f01=0x0190, f02=»Y ORDER /31 p < P* BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS B P* IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE T @ P* IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 , P* AND SO ON. (INDEX= 1,2,3,4,... )
0x2faba4…2fad38 Dummy {f00=0x0123, f01=0x0190, f02=»ING NOLJE=1 THIS DRIVER IS PREPARED 0 P* TO HANDLE THE NORWAY-CASE WITH BETWEEN , . P* THEMSELVES DEPENDENT KEYBOARDS ON THE ` P* SAME SELECTOR UNIT. P* PNOLJE EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING
0x2fad38…2faecc Dummy {f00=0x0123, f01=0x0190, f02=»ED INSTRUCTION l . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* H PCPU852 EQU 1 R P* f P* p P* MMU BUFFER SIZE z P* P* PX:J EQU 10 PDVBLEN EQU X:J P* P* P* MMU KEY TABLE SIZE P*
0x2faecc…2fb060 Dummy {f00=0x0123, f01=0x0190, f02=»* DWT-DISPLACEMENT * P*************************** $ P* H P* R 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4
0x2fb060…2fb1f4 (4, 31) Dummy {f00=0x0107, f01=0x018e, f02=»1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ P XIF ^ 4 P* ^ @ P IFT RECHAN=4 ^ J P IFT CPU852=0 ^ ` " P MSR 8,A15 SAVE A1-A8 ON STACK ^ v P XIF ^ P* ^ P IFT RECHAN=4 ^ P LDK A7,18 INDICATE CHRT3 ^ P RF CLT010 ^ P XIF ^ P
0x2fb1f4…2fb388 Dummy {f00=0x0107, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT _ P* _ , P IFT CPU852=1 _ 6 & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ L P XIF _ v P* _ P IFT RECHAN=4 _ P IFT CPU852=0 _ " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _
0x2fb388…2fb51c Dummy {f00=0x0107, f01=0x0190, f02=» EX CWTINR,A5 EXECUTE INR-INSTRUCTION _ P* ` . P IFT LOGING=1 ` 8 P* ` N 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** ` X P* ` P XIF ` P EJECT ` P* ` & P* DETERMINE TYPE OF INTERRUPT. ` 4 P* MOREOVER, IF REMOTE, GET TH
0x2fb51c…2fb6b0 Dummy {f00=0x0107, f01=0x0190, f02=» ` r P LDR A3,A2 a . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? a P RF(NN) CLT015 FIRST a L > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT a h 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER a * P ANK A3,/2 FIRST OR SECOND TERMINAL ?
0x2fb6b0…2fb844 Dummy {f00=0x0107, f01=0x0190, f02=»TURN CODE a x ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? b P ABL(N) CLT050 U =11 b > $ P ANKL A3,/7000 DEVICE ADDRESS ? b Z ( P ABL(NE) CLT100 YES, DIN, STD OR DRD b P EJECT b P* b P* b , P* DETERMINE TYPE OF CONTROL CHARACTER b P* b
0x2fb844…2fb9d8 Dummy {f00=0x0107, f01=0x018e, f02=» P ADK A3,2 c P ABL(E) CLT080 NAK c P ADK A3,2 c 0 P ABL(E) CLT100 POWER ON c B P LDR A7,A7 LOCAL ? c b P RF(N) CLTQUE YES c | P LC A4,LRCACK,A7 c $ P LDK A6,/80 ABC-ANSWER ALLOWED ? c P TM A6,A4 c P RF(E) EXIIT NO c P XRK A4,
0x2fb9d8…2fbb6c Dummy {f00=0x0107, f01=0x0190, f02=» P RF(Z) CLT046 YES d * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER d ( P LDK A4,1 RESET BLOCKSENDING RUNNING d L P ANS A4,CWTBLK,A5 d x P SUK A3,5 d & P RF(E) CLT043 ABC+ , GO TO DRIVER d P IFT ACKMUL=1 d P* d , P IM CWTADD+2,A5 UPDATE ERR
0x2fbb6c…2fbd00 Dummy {f00=0x0107, f01=0x0190, f02=» RF(E) CLT033 d P ADK A3,4 e P RF(E) CLT033 e ( P EJECT e > P* e L 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. e V . P* ONE RECOVERY ATTEMPT IS MADE AND THEN e , P* RETURN CODE NOT OPERABLE IS SENT TO e P* DEVICE DRIVER. e P
0x2fbd00…2fbe94 (4, 32) Dummy {f00=0x0108, f01=0x0190, f02=»ST OUTPUT CHARACTER IS RETRANSMITTED u < P* BY CHANNEL DRIVER SIX TIMES AND IF STILL NO SUCCESS v , < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. v l P* v PCLT080 EQU * v $ P LDR* A6,A5 GET LAST OUTPUT DWT v P RB(E) EXIT v P*
0x2fbe94…2fc028 Dummy {f00=0x0108, f01=0x0190, f02=»ORE NAK? v ~ P RB(E) EXIT YES w 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER w ( P LD A4,CWTRTC,A5 GET COUNTER w ^ P SUK A4,7 SEVEN TIMES ? w P ABL(E) CLT030 w * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD w $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. w
0x2fc028…2fc1bc Dummy {f00=0x0108, f01=0x0190, f02=»WTLOW,A5 STORE LAST OUTPUT WORD w P LDR A7,A7 REMOTE? x ( P RF(N) CLT090 NO x B P ANK A2,/FF x Z , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR x n . P CF A15,RESTSY START OR RESTART SYNC-TIMER x PCLT090 ABL TDISP x P EJECT x P* x P* x $
0x2fc1bc…2fc350 Dummy {f00=0x0108, f01=0x0190, f02=» DEVICE-DEPENDENT INTERRUPT x v P* HANDLER. y $ P* y : P* REMOTE DEVICES: y D P* y ` > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES y j : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH y 8 P* STATUS F
0x2fc350…2fc4e4 Dummy {f00=0x0108, f01=0x018e, f02=»TATUS-INDICATOR y d < P* IS CHECKED TO SEE IF THE DEVICE IS z < P* WAITING FOR A STATUS CHANGE. IF SO z X > P* GET ORDER AND ECB-ADDRESS AND GO TO z < P* DEVICE WITH THE NEW STAT
0x2fc4e4…2fc678 Dummy {f00=0x0108, f01=0x018e, f02=» P* { PCLT100 EQU * { P LDR A3,A2 { " P SRL A3,8 { 4 P LDR A4,A3 { F P ANK A3,/E 2 * LINE NUMBER { X P SRL A4,3 { z P ANK A4,/E 2 * DEVICE NUMBER { P CWK A4,/E SYNC-INPUT ? { P RF(E) CLT150 YES { P LOOP SWITCH SET { 0 P LD*
0x2fc678…2fc80c Dummy {f00=0x0108, f01=0x0190, f02=» P RB(Z) EXIT NOT DEFINED | P LDR* A6,A8 GET ID-WORD | $ P SUR A6,A4 | D $ P RB(N) EXIT UNDEFINED INTERRUPT | V " P LDR A4,A4 NO DEVICE NUMBER ? | ~ P ABL(E) CHPOWO POWER ON | & P ADR A8,A4 ADDRESS TO DWT-ADDRESS | P LDR* A6,A8 GET DWT-ADDRES
0x2fc80c…2fc9a0 Dummy {f00=0x0108, f01=0x018e, f02=» RF(NE) CLT110 YES | & P LDR* A4,A6 GET CHANNEL PARAMETER } P RB(N) EXIT } D P LDR A7,A7 REMOTE ? } X P RF(NN) CLT120 YES } t PCLT105 LC A3,DWTOCH,A6 } P ANK A3,/7F } P SUK A3,DUMMSP } P RF(NE) CLT110 } & P LDR* A3,A6 CHANNEL PARAMETE
0x2fc9a0…2fcb34 (4, 33) Dummy {f00=0x0122, f01=0x018e, f02=» , ( " X "' $ X (@ L & , ( ' T 4 <d$ _F $?:D" Y 4 , ( # X P Y # P * d , ( ? 4T U # P 4 4 P , ( _ _t T _$ U _ ? 4 U 5 , ( R P
0x2fcb34…2fccc8 Dummy {f00=0x0122, f01=0x0190, f02=» f , ( @W ? T T W , ( u > > E D E 8 , ( E S % ;DV " U D $ P h OUTLRT` N , ( 7 #`P T E _ " 8' , ( U ?A R 8;b# 4T R
0x2fccc8…2fce5c Dummy {f00=0x0122, f01=0x0190, f02=» Q l , ( P X H & 5 U R " , ( ] Y > > V < , ( P X P (P _ ] W Q ( l CHLTON 2 , ( + Y (_: @ T (@ > P , ( I X R @ U S U t
0x2fce5c…2fcff0 Dummy {f00=0x0122, f01=0x0190, f02=»W aW kW uW R V f H D ! N PJ P V RL P P P PB P: P0 P, R " H D !H T r !Tn -WH 5 ?R UP4 YR0 aT qT uP P W R W n H D ! H r R T W V P W P R +R 9T OV H D !
0x2fcff0…2fd184 Dummy {f00=0x0122, f01=0x40ac, f02=»P 9P R H D ! =T ]R mT qRT wT }T W< Tr W T P V WT V P Q2 8 4 P R V P P %W 9T OR4 WS qP wT W Z @ W n H D ! H r R T W V P W P R +R 9T OV H D !
0x2fd184…2fd318 Dummy {f00=0x0122, f01=0x2008, f02=»
0x2fd318…2fd4ac Dummy {f00=0x0122, f01=0x0190, f02=» P* A7 : ORDER " P* A8 : ECB-ADDRESS $ P* J P EJECT T P* b P* l P* SYSTEM ADAPTATION v P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC R
0x2fd4ac…2fd640 Dummy {f00=0x0122, f01=0x0190, f02=»6232, 6331 AND 6342 x < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 & P* BIT 11 = 1 FOR PTS 6234,6342 P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P
0x2fd640…2fd7d4 (4, 34) Dummy {f00=0x0123, f01=0x018e, f02=»TUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE : ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE d P* . P***************************************** . P* SPECIAL KEYS DEFINED IN DWT * . P**********
0x2fd7d4…2fd968 Dummy {f00=0x0123, f01=0x0190, f02=» j & PKBEOF EQU START+/16 EOR-CHARACTER , PKBMZ EQU START+/17 DOUBLE ZERO CHARACTER 2 P* b P EJECT l P* z P* P************** P* TABLES * P************** P* P DATA DVBKTB KEY TABLE SIZE P DATA DVBL
0x2fd968…2fdafc Dummy {f00=0x0123, f01=0x0190, f02=»S t P DATA IHKB INTERRUPT HANDLER P* . P IFF POWOFF=1 8 P* N P DATA 0 NO RECOVERY X P* t P XIF ~ P* P* P IFT POWOFF=1 P* P DATA RCKB RECOVERY ROUTINE P EJECT P* P* P*
0x2fdafc…2fdc90 Dummy {f00=0x0123, f01=0x0190, f02=» EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK $ P XIF N P* Z P IFT POWOFF=1 d P IFT CPU852=0 z " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY ? P RF(NN)
0x2fdc90…2fde24 Dummy {f00=0x0123, f01=0x0190, f02=»TERS r P RF AKB202 P* P XIF ( P* 4 P EJECT > P* L P* V P* A C K B ` P* t P* ACTIVATION PART: ~ P* 0 P* CHECKS VALIDITY OF ORDERS AND EXAMINES , P* INPUT BUFFER TO SEE IF SOME QUEUED
0x2fde24…2fdfb8 Dummy {f00=0x0123, f01=0x0190, f02=» P LDK A1,0 P LDK A3,0 START BUFFER INDEX P LDR A4,A7 : " P RF(NG) AKB100 ILLEGEAL ORDER L P IFT NOLJE=1 r P CWK A7,/37 SELECT KEYBOARD P RF(E) AKBSEL P XIF P IFT CSTAND=0 P SUK A4,2 , P RF(Z) AKB100 STANDA
0x2fdfb8…2fe14c Dummy {f00=0x0123, f01=0x0190, f02=»F(Z) CRE:10 SKIP INPUT BUFFER P ADK A4,/2D & PCRE:10 EQU * : P XIF N P RF(Z) AKB110 ORDER 4 Z P RF(N) AKB200 ORDER 1,2 OR 3 x * PAKB100 ORKL A1,/8000 I/O REQUEST ERROR P ABL ENDI10 P EJECT P* P* $ P* ORD
0x2fe14c…2fe2e0 Dummy {f00=0x0123, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDI05 END I/O P IFT NOLJE=1 < P* P P* Z " P* ORDER 37 SELECT KEYBOARD d P* PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RESET ALLOW BITS IN DWTCHP P ABL ENDI10 P XIF P EJECT
0x2fe2e0…2fe474 (4, 35) Dummy {f00=0x0113, f01=0x0190, f02=»ER. U x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V D 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V t F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO
0x2fe474…2fe608 Dummy {f00=0x0113, f01=0x018e, f02=»E DESTROYED V ~ P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W N $ P LD A3,ECBRL,A8 REQUESTED LENGTH W ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x2fe608…2fe79c Dummy {f00=0x0113, f01=0x018e, f02=» W ~ P* X P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X Z . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X l ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE
0x2fe79c…2fe930 Dummy {f00=0x0113, f01=0x0190, f02=» X ~ P* Y 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y L PTIPO20 RTN A15 Y V P* Y l 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y v 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER B
0x2fe930…2feac4 Dummy {f00=0x0113, f01=0x0190, f02=»FER POINTER Y x ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z @ P EJECT TOSSIO Z J P* Z b P* I O : E R R Z l P* Z , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRAN
0x2feac4…2fec58 Dummy {f00=0x0113, f01=0x0190, f02=»ACKPOINTER Z z P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ 4 P RF(NN) IO:E10 NOT ECHO [ T P LDR A1,A6 SAVE DWT ADDRESS [ t & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ P
0x2fec58…2fedec Dummy {f00=0x0113, f01=0x0190, f02=» [ P* P* T I O M X O P* ( " PTIOMXO EQU TIOMXI MUX, OUTPUT 2 P* X P* T I O K B O b P* x * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUT
0x2fedec…2fef80 Dummy {f00=0x0113, f01=0x0190, f02=»* T E N : D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] Z D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P*
0x2fef80…2ff114 (4, 36) Dummy {f00=0x0113, f01=0x0190, f02=»ING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N ( N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N X P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = US
0x2ff114…2ff2a8 Dummy {f00=0x0113, f01=0x0002, f02=»"`
0x2ff2a8…2ff43c Dummy {f00=0x0113, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x2ff43c…2ff5d0 Dummy {f00=0x0113, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x2ff5d0…2ff764 Dummy {f00=0x0113, f01=0x2008, f02=»
0x2ff764…2ff8f8 Dummy {f00=0x0113, f01=0x0190, f02=»E R x P* S P EJECT TOSSIO S P* S , P* S 6 P LDR A1,A9 S @ P ADK A1,8 S R P ADKL A8,12 S d * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S x P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 K
0x2ff8f8…2ffa8c Dummy {f00=0x0113, f01=0x0190, f02=»DK A3,1 S 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T D P CF A15,TIPO05 T d & P SUKL A8,8 ADJUST DWT ECB ADDRESS T z P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I
0x2ffa8c…2ffc20 Dummy {f00=0x0113, f01=0x0190, f02=»I DISC, INPUT T P* U P EJECT TOSSIO U P* U 8 P* T I O P C O U B P* U X B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U b > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED
0x2ffc20…2ffdb4 (4, 37) Dummy {f00=0x0113, f01=0x0190, f02=»PI70 MORE CHARACTERS TO MOVE e . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f $ * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f V P RB TEPI25 f P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P*
0x2ffdb4…2fff48 Dummy {f00=0x0113, f01=0x0190, f02=»ENPCI INTERTASK COMMUNICATION, INPUT f P* g , P* T E N D K I g 6 P* g L " PTENDKI EQU TEN:DM DISC, INPUT g V P* g | P EJECT TOSSIO g P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P*
0x2fff48…3000dc Dummy {f00=0x0113, f01=0x0190, f02=»/CTW, OUTPUT g v P* h P* T E N D K O h P* h 4 " PTENDKO EQU TEN:DM DISC, OUTPUT h > P* h d P EJECT TOSSIO h n P* h P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FO
0x3000dc…300270 Dummy {f00=0x0113, f01=0x0190, f02=» h J , P* 'TIOPCO' IS USED FOR MOVING THE DATA. i P* i 8 P* INPUT: A6 = DWT ADDRESS i B P* i d & P* OUTPUT: A1-A4, A8 ARE DESTROYED i n P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECB
0x300270…300404 Dummy {f00=0x0113, f01=0x018e, f02=»S i n P* j PTEIO10 RTN A15 j P* j * P EJECT TOSSIO j 4 P* j L P* D C : M O T j V P* j l < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j v < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFE
0x300404…300598 Dummy {f00=0x0113, f01=0x0190, f02=» ( P* OUTPUT: NO REGISTERS ARE DESTROYED k P* k 0 , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k : " P MSR 8,A15 SAVE A1-A8 ON STACK k j $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k
0x300598…30072c Dummy {f00=0x0113, f01=0x0190, f02=» P* l $ PDC:RTN EQU * RETURN TO DC DRIVER l . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l 6 $ P ADKL A15,32 ADJUST STACKPOINTER l h * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l
0x30072c…3008c0 Dummy {f00=0x0113, f01=0x0190, f02=»TENTS OF THE DRIVER BUFFER TO THE USER BUFFER. l t P* m 6 P* INPUT: A1 = RETURN CODE m @ ( P* A4 = DRIVER BUFFER ADDRESS m b P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT
0x3008c0…300a54 (4, 38) Dummy {f00=0x0111, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x300a54…300be8 Dummy {f00=0x0111, f01=0x0190, f02=»BER OF CHARACTERS GIVEN IN > r ( P* FIRST CHARACTER IN OUTPUT BUFFER ? " P* ? N P* ? X 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS ? b P ANK A4,/FF MASK ? , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER ? $ P LCR A2,A3 GET OUTPUT CHARACTER ?
0x300be8…300d7c Dummy {f00=0x0111, f01=0x406c, f02=» RTN A5 RETURN TO CALLER ? P* @ P* @ * P* @ 4 P* @ > P* @ H P* @ R P END @ @ @ h A4,A3 GET NUMBER OF OUTPUT CHARACTERS ? b P ANK A4,/FF MASK ? , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER ? $ P LCR A2,A3 GET OUTPUT CHARACTER ?
0x300d7c…300f10 Dummy {f00=0x0111, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x300f10…3010a4 Dummy {f00=0x0111, f01=0x018e, f02=»T A2,DWTSAV,A6 INDICATE READY ! P RTN A5 " & P EJECT DRMD01 DRMD01 " 6 P* " V P********************** " ` P* * " ~ P* RECOVERY ROUTINE * " P* * " P********************** " P* " PMDON EQU
0x3010a4…301238 Dummy {f00=0x0111, f01=0x0190, f02=» P LDKL A6,DWMD01 # $ P CM DWTST,A6 SET DISC UNIT BUSY # P LD A1,INIFLG POWER UP? # D P RF(NZ) MDON25 # d P* # z ( P LDKL A4,TIMER TIMER POINTER ADDRESS # P LDR* A3,A4 # " P RF(Z) MDON10 NO TIMER ACTIVE # P LDKL A1,-TIME # P STR A1,
0x301238…3013cc Dummy {f00=0x0111, f01=0x0190, f02=» P RB T:DISP $ P* $ P* TIME OUT $ P* $ 4 PMDON20 LDKL A6,DWMD01 $ > P CM TIMER $ P* $ n P EJECT DRMD01 $ x P* $ P* $ PMDON25 EQU * $ P LDKL A5,DWTSB2 STACK BASE $ P ADR A5,A6 $ P LDK A1,0 UNIT 0 $ PMDON
0x3013cc…301560 Dummy {f00=0x0111, f01=0x0190, f02=» P RB(NG) MDON30 % , P IM DWTST,A6 INDICATE VOLUME NAMES READ % $ P LD A8,DWTECB,A6 GET ECB ADDRESS % J P RB(Z) END:15 NOREQUEST ON % r P* % P LD A7,DWTORD,A6 GET ORDER % , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER % P ANK A7,/3F % P ABL
0x301560…3016f4 (4, 39) Dummy {f00=0x010e, f01=0x0190, f02=» P* PSEG:FC EQU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS . PSEG:ST EQU 0 STATUS V $ PSEG:DS EQU 2 DISC SECTOR ADDRESS r " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POI
0x3016f4…301888 Dummy {f00=0x010e, f01=0x018e, f02=» P* 2 PSWB:NC EQU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY D $ PSWB:EL EQU 4 SWB LENGTH (BYTES) z & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB
0x301888…301a1c Dummy {f00=0x010e, f01=0x0190, f02=» P DATA ILLINT 3 P DATA ILLINT 4 P DATA ILLINT 5 < P DATA ILLINT 6 X P DATA IHTW 7 t P DATA IHTC 8 P DATA IHSOP 9 P DATA ILLINT 10 P DATA ILLINT 11 P DATA ILLINT
0x301a1c…301bb0 Dummy {f00=0x010e, f01=0x0190, f02=»2 17 P DATA CHRT3 18 P DATA CHRT4 19 . P DATA IHCC1 20 J P DATA IHCC2 21 f P DATA ILLINT 22 P DATA IHCC3 23 P DATA CHLT1 24 P DATA CHLT2 25 P DATA CHLT3 26
0x301bb0…301d44 Dummy {f00=0x010e, f01=0x0190, f02=» | P DATA ILLINT 32 P DATA ILLINT 33 $ P DATA IHLP 34 @ P DATA IHCR 35 Z P DATA ILLINT 36 t P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39 P DATA IHDU1 40 P DATA IH
0x301d44…301ed8 Dummy {f00=0x010e, f01=0x0190, f02=»ILLINT 46 P DATA ILLINT 47 P DATA IHCD 48 2 P DATA ILLINT 49 L P DATA ILLINT 50 h P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55
0x301ed8…30206c Dummy {f00=0x010e, f01=0x0190, f02=» 60 P DATA ILLINT 61 P DATA ILLINT 62 ( P DATA TRAP TRAP ROUTINE D P EJECT SYSTAB d P | P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P P P* P* SYSTEM TRAP P*
0x30206c…302200 Dummy {f00=0x010e, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x302200…302394 (4, 40) Dummy {f00=0x010e, f01=0x0190, f02=»ASK IN SYSTEM P* P EJECT SYSTAB P* 8 P* SYSTEM CONTROL TABLE B P* ` PSCT EQU * j P | * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FREE AREA $ PSCTEFA DATA 0,0 END OF FREE AREA ( PSCTI
0x302394…302528 Dummy {f00=0x010e, f01=0x0190, f02=»A 0,0 APPLICATION DISC SECTOR ADDRESS . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS . PSCTTCT DATA 0 TCTAB ADDRESS ` PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSCTSWB DATA 0 SWBTAB ADDRESS " PSCTNOP DATA 0 NUMBER OF
0x302528…3026bc Dummy {f00=0x010e, f01=0x0190, f02=»LOGICAL ADDRESS OF COMMON PART & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY & P INDEX REL TTAB P * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES j ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DATA STB SYSTEM STACK BASE $ PSCTOPT DATA X:A MONITOR OP
0x3026bc…302850 Dummy {f00=0x010e, f01=0x0190, f02=»X:B DMTASKS IN SYSTEM & P BIT 12:#G, 13:#F, 14:#E, 15:#D 0 PSCTDMI DATA X:C DM INDEX RECORD BUFFER SIZE H P EJECT SYSTAB | P* P* * PSCTFWT DATA 0 FWT CHAIN START ADDRESS $ PSCTNOF DATA X:D NUMBER OF FILES ( PSCTNFT DAT
0x302850…3029e4 Dummy {f00=0x010e, f01=0x413e, f02=»X:G DC-TASK IN SYSTEM/REMOTE P EJECT SYSTAB $ P < P* D P* SYSTEM STACK N P* d P RES 143 n P DATA /FCC0 AND PSW ~ & PSTB DATA LOOP AND PC FOR IDLE LOOP P P P* P* IDLE LOOP P* P PLOOP
0x3029e4…302b78 Dummy {f00=0x010e, 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
0x302b78…302d0c Dummy {f00=0x010e, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x302d0c…302ea0 Dummy {f00=0x010e, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x302ea0…303034 (4, 41) Dummy {f00=0x0114, f01=0x0190, f02=» u P* v P* v P IFT MMUPAG=0 v P IFT CPU852=1 v 2 PDC:MOT EQU * v H 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v
0x303034…3031c8 Dummy {f00=0x0114, f01=0x0002, f02=»"
0x3031c8…30335c Dummy {f00=0x0114, f01=0x018e, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A$
0x30335c…3034f0 Dummy {f00=0x0114, f01=0x0190, f02=» * & 7$ W A V ( U LKMAL 6 LKMERR d F HALTN Z * & Q P @ V L j LKMRQE j LKMQDI r QTJOB TDISP , ( i U #P
0x3034f0…303684 Dummy {f00=0x0114, f01=0x0190, f02=» > ? @ | X@ ) A PFINIT , , ( $ A _L A A A _^ > IHRTC n QMJOB , ( @ A A Q > ? A SWLXY , ( A Q _ A < Q MONCL
0x303684…303818 Dummy {f00=0x0114, f01=0x40f4, f02=» , ( K _ _, ? TIMQUE@ x 4 " e _ P H H H H D ! ] -P 3P 7W. EV UP [V Q v Q v . , Q , n & & & 3 x CP W ` z @ < Q MONCL
0x303818…3039ac Dummy {f00=0x0114, f01=0x2008, f02=»
0x3039ac…303b40 Dummy {f00=0x0114, f01=0x0190, f02=» | $ P SUKL A15,32 ADJUST STACKPOINTER } * P TS 2,A15 SAVE MMU REGISTERS ON STACK } 0 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } ^ P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRES
0x303b40…303cd4 (4, 42) Opaque[0x194]
0x303cd4…303e68 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a0, f03=0x0000}
0x303cd4…303e68 IdxSect {
0x303cd4…303e68 f00 = 0x0045 // 0x303cd4 @0x0
0x303cd4…303e68 f01 = 0x0002 // 0x303cd6 @0x2
0x303cd4…303e68 gno = [ // 0x303cd8 @0x4
0x303cd4…303e68 [0x00]: C0x0045.0x0.0
0x303cd4…303e68 ]
0x303cd4…303e68 }
0x303e68…303ffc Dummy {f00=0x0045, f01=0x4144, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P* P* P* P* PSCLASS DATA TCLASE-* P DATA TC00 PTCLASE EQU * PTC00 DATA
0x303ffc…304190 Dummy {f00=0x0045, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x304190…304324 Dummy {f00=0x0045, f01=0x2008, f02=»
0x304324…3044b8 Dummy {f00=0x0045, f01=0x0190, f02=»DR A8,P RETURN ADDRESS & P LDKL A3,REL+2 RELOCATION ROUTINE P CFR A8,A3 H $ P LDKL A5,/5555 LOAD TEST PATTERN Z P LDK A6,64 INIT PAGE COUNTER " P LD A1,SCTOPT GET OPTION WORD P ANK A1,1 MMU IN SYSTEM? P RF(Z) AP:100 NO! P E
0x3044b8…30464c Dummy {f00=0x0045, f01=0x0190, f02=» LDK A1,0 MMU ENTRY POINTER PAP:010 EQU * $ " P LD A2,TABBE GET PAGE ADDRESS 8 2 P SUKL A2,/400 DECREMENT PHYSICAL PAGE ADDRESS ^ P ST A2,TABBE STORE IT BACK P TL TABBE LOAD MMU REGISTERS * P ES A5,PAGSIZ-2,A1 STORE TEST PATTERN * P
0x30464c…3047e0 Dummy {f00=0x0045, f01=0x0190, f02=»ER OF PAGES x P RB AP:010 P* & D P* END OF EXECUTION PATH FOR SYSTEMS WITH MMU OPTION EXCLUSIVELY 0 P* x P EJECT PAP:100 EQU * P* @ P* EXECUTION PATH FOR SYSTEMS WITHOUT MMU OPTION EXCLUSIVELY P* & P LDKL A1,PAG
0x3047e0…304974 (4, 43) Opaque[0x194]
0x304974…304b08 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08c0, f03=0x0000}
0x304974…304b08 IdxSect {
0x304974…304b08 f00 = 0x0046 // 0x304974 @0x0
0x304974…304b08 f01 = 0x0002 // 0x304976 @0x2
0x304974…304b08 gno = [ // 0x304978 @0x4
0x304974…304b08 [0x00]: C0x0046.0x0.0
0x304974…304b08 ]
0x304974…304b08 }
0x304b08…304c9c Dummy {f00=0x0046, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x304c9c…304e30 Dummy {f00=0x0046, f01=0x018e, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN GPAD ^ P* r P EXTRN GPAD8 | P P PMONTAB EQU * PFREQUE DATA 0 PPAGQUE DATA 0,0 PINTLT1 DATA 0 PINTLT2 DATA 0
0x304e30…304fc4 Dummy {f00=0x0046, f01=0x40c2, f02=» P DATA SYSLOD P**** P DATA GPAD $ P* 6 P DATA GPAD8 @ PINTAS DATA 0 T PINTSL DATA 0 h 2 PSPDLCI DATA 0 LIGHTS CORE IMAGE (0=ON 1=OFF) | P END @ PPAGQUE DATA 0,0 PINTLT1 DATA 0 PINTLT2 DATA 0
0x304fc4…305158 Dummy {f00=0x0046, 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
0x305158…3052ec Dummy {f00=0x0046, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x3052ec…305480 Dummy {f00=0x0046, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x305480…305614 (4, 44) Opaque[0x194]
0x305614…3057a8 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08a8, f03=0x0000}
0x305614…3057a8 IdxSect {
0x305614…3057a8 f00 = 0x0045 // 0x305614 @0x0
0x305614…3057a8 f01 = 0x0006 // 0x305616 @0x2
0x305614…3057a8 gno = [ // 0x305618 @0x4
0x305614…3057a8 [0x00]: C0x0045.0x1.0
0x305614…3057a8 [0x01]: C0x0047.0x3.0
0x305614…3057a8 [0x02]: C0x0048.0x0.0
0x305614…3057a8 ]
0x305614…3057a8 }
0x3057a8…30593c Dummy {f00=0x0045, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x30593c…305ad0 Dummy {f00=0x0045, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x305ad0…305c64 Dummy {f00=0x0045, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x305c64…305df8 Dummy {f00=0x0045, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x305df8…305f8c Dummy {f00=0x0045, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x305f8c…306120 Dummy {f00=0x0045, f01=0x0190, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x306120…3062b4 (4, 45) Dummy {f00=0x0047, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x3062b4…306448 Dummy {f00=0x0047, f01=0x0190, f02=»QU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY . $ PSWB:EL EQU 4 SWB LENGTH (BYTES) d & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB P* P* INTE
0x306448…3065dc Dummy {f00=0x0047, f01=0x0190, f02=» | P DATA ILLINT 4 P DATA ILLINT 5 $ P DATA ILLINT 6 @ P DATA ILLINT P DATA ILLINT | P DATA ILLINT P DATA ILLINT P DATA ILLINT P DAT
0x3065dc…306770 Dummy {f00=0x0047, f01=0x0190, f02=» P DATA CHRT2 17 P DATA CHRT3 18 P DATA ILLINT < P DATA ILLINT P DATA ILLINT | P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA IL
0x306770…306904 Dummy {f00=0x0047, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT 31 P DATA ILLINT 32 8 P DATA ILLINT 33 T P DATA ILLINT p P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DAT
0x306904…306a98 Dummy {f00=0x0047, f01=0x0190, f02=» | P DATA ILLINT P DATA ILLINT 45 ( P DATA ILLINT 46 D P DATA ILLINT 47 ` P DATA ILLINT | P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52
0x306a98…306c2c Dummy {f00=0x0047, f01=0x018e, f02=» | P DATA ILLINT 58 P DATA ILLINT 59 $ P DATA ILLINT 60 @ P DATA ILLINT 61 P DATA ILLINT 62 x P DATA TRAP TRAP ROUTINE P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P*
0x306c2c…306dc0 Dummy {f00=0x0047, f01=0x0190, f02=» P HLT P P* P* DEBUG RESTART ENTRY " P* @ P XRR A13,A13 J P XRR A14,A14 ^ P LD A1,SCTBUG r P ABR(NZ) A1 P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0
0x306dc0…306f54 (4, 46) Dummy {f00=0x0048, f01=0x0190, f02=»NUMBER OF FILES/TASK $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM D P* h P EJECT SYSTAB r P* P* SYSTEM CONTROL TABLE P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTS
0x306f54…3070e8 Dummy {f00=0x0048, f01=0x0190, f02=»:F0,F1 MD:F4,F5 FD:F8,F9 $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS H . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0
0x3070e8…30727c Dummy {f00=0x0048, f01=0x0190, f02=»ATA 0 MMU TABLE COMMON PART ENTRY P INDEX REL TTAB * 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART D & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY x P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE E
0x30727c…307410 Dummy {f00=0x0048, f01=0x0190, f02=» BIT 13:FM,14:DSKPAG,15:MMUPAG PSCTBUG DATA 0 DEBUGGER ( & PSCTDMT DATA X:B DMTASKS IN SYSTEM F & P BIT 12:#G, 13:#F, 14:#E, 15:#D p 2 PSCTDMI DATA 00000 DM INDEX RECORD BUFFER SIZE P EJECT SYSTAB P* P* * PSCTFWT DATA
0x307410…3075a4 Dummy {f00=0x0048, f01=0x018e, f02=»000 FILE WORK TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK " . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE N P EJECT SYSTAB P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND
0x3075a4…307738 Dummy {f00=0x0048, f01=0x400c, f02=» @ K TABLE LENGTH ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK " . PSCTDCT DATA 00001 DC-TASK IN SYSTEM/REMOTE N P EJECT SYSTAB P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND
0x307738…3078cc Dummy {f00=0x0048, 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
0x3078cc…307a60 Dummy {f00=0x0048, f01=0x018e, f02=»T HANDLER. ` P* P P $ P , P DATA 0 4 & PTTABPF DATA 0 TTAB FOR POWER FAIL D P DATA '#P' n P DATA 0 PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER O
0x307a60…307bf4 (4, 47) Opaque[0x194]
0x307bf4…307d88 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x08e0, f03=0x0000}
0x307bf4…307d88 IdxSect {
0x307bf4…307d88 f00 = 0x0047 // 0x307bf4 @0x0
0x307bf4…307d88 f01 = 0x0008 // 0x307bf6 @0x2
0x307bf4…307d88 gno = [ // 0x307bf8 @0x4
0x307bf4…307d88 [0x00]: C0x0047.0x0.0
0x307bf4…307d88 [0x01]: C0x0047.0x1.0
0x307bf4…307d88 [0x02]: C0x0047.0x2.0
0x307bf4…307d88 [0x03]: C0x010e.0x2.0
0x307bf4…307d88 ]
0x307bf4…307d88 }
0x307d88…307f1c Dummy {f00=0x0047, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x307f1c…3080b0 Dummy {f00=0x0047, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x3080b0…308244 Dummy {f00=0x0047, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x308244…3083d8 Dummy {f00=0x0047, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x3083d8…30856c Dummy {f00=0x0047, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x30856c…308700 Dummy {f00=0x0047, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x308700…308894 (4, 48) Dummy {f00=0x0047, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x308894…308a28 Dummy {f00=0x0047, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x308a28…308bbc Dummy {f00=0x0047, f01=0x0190, f02=»U852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x308bbc…308d50 Dummy {f00=0x0047, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x308d50…308ee4 Dummy {f00=0x0047, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x308ee4…309078 Dummy {f00=0x0047, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x309078…30920c Dummy {f00=0x0047, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x30920c…3093a0 Dummy {f00=0x0047, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x3093a0…309534 (4, 49) Dummy {f00=0x0047, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x309534…3096c8 Dummy {f00=0x0047, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x3096c8…30985c Dummy {f00=0x0047, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x30985c…3099f0 Dummy {f00=0x0047, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x3099f0…309b84 Dummy {f00=0x0047, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x309b84…309d18 Dummy {f00=0x0047, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x309d18…309eac Dummy {f00=0x0047, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x309eac…30a040 Dummy {f00=0x0047, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x30a040…30a1d4 (4, 50) Dummy {f00=0x010e, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x30a1d4…30a368 Dummy {f00=0x010e, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x30a368…30a4fc Dummy {f00=0x010e, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x30a4fc…30a690 Dummy {f00=0x010e, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x30a690…30a824 Dummy {f00=0x010e, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x30a824…30a9b8 Dummy {f00=0x010e, 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
0x30a9b8…30ab4c Dummy {f00=0x010e, f01=0x0190, f02=»CTMSZK SCTSFA SCTEFA $ SCTIPL 8 SCTANO L SCTADA ` , ( @ t SCTIOEL SCTTCT SCTCDTB SCTPAG SCTSWB
0x30ab4c…30ace0 Dummy {f00=0x010e, f01=0x418a, f02=» SCTSTB SCTOPT bBUG , SCTBUG : , ( 6 N SCTDMT~ ~ SCTDMI SCTFWT SCTNOF SCTNFT SCTFWL SCTBLK
0x30ace0…30ae74 (4, 51) Opaque[0x194]
0x30ae74…30b008 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2178, f03=0x0000}
0x30ae74…30b008 IdxSect {
0x30ae74…30b008 f00 = 0x010b // 0x30ae74 @0x0
0x30ae74…30b008 f01 = 0x000a // 0x30ae76 @0x2
0x30ae74…30b008 gno = [ // 0x30ae78 @0x4
0x30ae74…30b008 [0x00]: C0x010b.0x3.0
0x30ae74…30b008 [0x01]: C0x010c.0x1.0
0x30ae74…30b008 [0x02]: C0x010c.0x2.0
0x30ae74…30b008 [0x03]: C0x0113.0x2.0
0x30ae74…30b008 [0x04]: C0x0114.0x0.0
0x30ae74…30b008 ]
0x30ae74…30b008 }
0x30b008…30b19c Dummy {f00=0x010b, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x30b19c…30b330 Dummy {f00=0x010b, 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*
0x30b330…30b4c4 Dummy {f00=0x010b, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x30b4c4…30b658 Dummy {f00=0x010b, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x30b658…30b7ec Dummy {f00=0x010b, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x30b7ec…30b980 Dummy {f00=0x010b, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x30b980…30bb14 (4, 52) Dummy {f00=0x010c, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x30bb14…30bca8 Dummy {f00=0x010c, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 0 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x30bca8…30be3c Dummy {f00=0x010c, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x30be3c…30bfd0 Dummy {f00=0x010c, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x30bfd0…30c164 Dummy {f00=0x010c, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x30c164…30c2f8 Dummy {f00=0x010c, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x30c2f8…30c48c Dummy {f00=0x010c, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x30c48c…30c620 Dummy {f00=0x010c, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x30c620…30c7b4 (4, 53) Dummy {f00=0x010c, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x30c7b4…30c948 Dummy {f00=0x010c, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x30c948…30cadc Dummy {f00=0x010c, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x30cadc…30cc70 Dummy {f00=0x010c, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x30cc70…30ce04 Dummy {f00=0x010c, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x30ce04…30cf98 Dummy {f00=0x010c, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x30cf98…30d12c Dummy {f00=0x010c, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x30d12c…30d2c0 Dummy {f00=0x010c, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x30d2c0…30d454 (4, 54) Dummy {f00=0x0113, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x30d454…30d5e8 Dummy {f00=0x0113, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x30d5e8…30d77c Dummy {f00=0x0113, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x30d77c…30d910 Dummy {f00=0x0113, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x30d910…30daa4 Dummy {f00=0x0113, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x30daa4…30dc38 Dummy {f00=0x0113, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x30dc38…30ddcc Dummy {f00=0x0113, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x30ddcc…30df60 Dummy {f00=0x0113, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x30df60…30e0f4 (4, 55) Dummy {f00=0x0114, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x30e0f4…30e288 Dummy {f00=0x0114, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x30e288…30e41c Dummy {f00=0x0114, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x30e41c…30e5b0 Dummy {f00=0x0114, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x30e5b0…30e744 Dummy {f00=0x0114, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x30e744…30e8d8 Dummy {f00=0x0114, 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
0x30e8d8…30ea6c Dummy {f00=0x0114, f01=0x0190, f02=» s p $ P LDR* A1,A2 NEXT BUFFER ADDRESS t , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t 0 P* t ` $ P* INSERT BUFFER AT END OF CHAIN t j P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P A
0x30ea6c…30ec00 Dummy {f00=0x0114, f01=0x0190, f02=»PU852=0 t * P MLR 8,A15 RESTORE A1-A8 FROM STACK... u P* u > PDC:MOT RTN A15 ...AND RETURN u H P XIF u l P* u x P IFT MMUPAG=1 u " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ER
0x30ec00…30ed94 (4, 56) Opaque[0x194]
0x30ed94…30ef28 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e10, f03=0x0000}
0x30ed94…30ef28 IdxSect {
0x30ed94…30ef28 f00 = 0x00f0 // 0x30ed94 @0x0
0x30ed94…30ef28 f01 = 0x0006 // 0x30ed96 @0x2
0x30ed94…30ef28 gno = [ // 0x30ed98 @0x4
0x30ed94…30ef28 [0x00]: C0x00f0.0x2.0
0x30ed94…30ef28 [0x01]: C0x00f1.0x0.0
0x30ed94…30ef28 [0x02]: C0x00f1.0x1.0
0x30ed94…30ef28 ]
0x30ed94…30ef28 }
0x30ef28…30f0bc Dummy {f00=0x00f0, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x30f0bc…30f250 Dummy {f00=0x00f0, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x30f250…30f3e4 Dummy {f00=0x00f0, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x30f3e4…30f578 Dummy {f00=0x00f0, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x30f578…30f70c Dummy {f00=0x00f0, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P EJECT TPROC P* P* P******** P* WAIT *
0x30f70c…30f8a0 Dummy {f00=0x00f0, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x30f8a0…30fa34 (4, 57) Dummy {f00=0x00f1, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x30fa34…30fbc8 Dummy {f00=0x00f1, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x30fbc8…30fd5c Dummy {f00=0x00f1, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x30fd5c…30fef0 Dummy {f00=0x00f1, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x30fef0…310084 Dummy {f00=0x00f1, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x310084…310218 Dummy {f00=0x00f1, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x310218…3103ac Dummy {f00=0x00f1, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x3103ac…310540 Dummy {f00=0x00f1, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x310540…3106d4 (4, 58) Dummy {f00=0x00f1, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x3106d4…310868 Dummy {f00=0x00f1, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x310868…3109fc Dummy {f00=0x00f1, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x3109fc…310b90 Dummy {f00=0x00f1, 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
0x310b90…310d24 Dummy {f00=0x00f1, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x310d24…310eb8 Dummy {f00=0x00f1, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x310eb8…31104c Dummy {f00=0x00f1, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x31104c…3111e0 Dummy {f00=0x00f1, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x3111e0…311374 (4, 59) Opaque[0x194]
0x311374…311508 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d40, f03=0x0000}
0x311374…311508 IdxSect {
0x311374…311508 f00 = 0x00ea // 0x311374 @0x0
0x311374…311508 f01 = 0x000e // 0x311376 @0x2
0x311374…311508 gno = [ // 0x311378 @0x4
0x311374…311508 [0x00]: C0x00ea.0x0.0
0x311374…311508 [0x01]: C0x00ea.0x2.0
0x311374…311508 [0x02]: C0x00ef.0x2.0
0x311374…311508 [0x03]: C0x00ef.0x3.0
0x311374…311508 [0x04]: C0x0110.0x3.0
0x311374…311508 [0x05]: C0x0111.0x1.0
0x311374…311508 [0x06]: C0x0111.0x2.0
0x311374…311508 ]
0x311374…311508 }
0x311508…31169c Dummy {f00=0x00ea, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x31169c…311830 Dummy {f00=0x00ea, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x311830…3119c4 Dummy {f00=0x00ea, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x3119c4…311b58 Dummy {f00=0x00ea, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x311b58…311cec Dummy {f00=0x00ea, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x311cec…311e80 Dummy {f00=0x00ea, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x311e80…312014 (4, 60) Dummy {f00=0x00ea, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x312014…3121a8 Dummy {f00=0x00ea, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x3121a8…31233c Dummy {f00=0x00ea, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x31233c…3124d0 Dummy {f00=0x00ea, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x3124d0…312664 Dummy {f00=0x00ea, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x312664…3127f8 Dummy {f00=0x00ea, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x3127f8…31298c Dummy {f00=0x00ea, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x31298c…312b20 Dummy {f00=0x00ea, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x312b20…312cb4 (4, 61) Dummy {f00=0x00ef, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x312cb4…312e48 Dummy {f00=0x00ef, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x312e48…312fdc Dummy {f00=0x00ef, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x312fdc…313170 Dummy {f00=0x00ef, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x313170…313304 Dummy {f00=0x00ef, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x313304…313498 Dummy {f00=0x00ef, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x313498…31362c Dummy {f00=0x00ef, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x31362c…3137c0 Dummy {f00=0x00ef, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x3137c0…313954 (4, 62) Dummy {f00=0x00ef, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x313954…313ae8 Dummy {f00=0x00ef, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x313ae8…313c7c Dummy {f00=0x00ef, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x313c7c…313e10 Dummy {f00=0x00ef, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x313e10…313fa4 Dummy {f00=0x00ef, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x313fa4…314138 Dummy {f00=0x00ef, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x314138…3142cc Dummy {f00=0x00ef, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x3142cc…314460 Dummy {f00=0x00ef, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x314460…3145f4 (4, 63) Dummy {f00=0x0110, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x3145f4…314788 Dummy {f00=0x0110, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x314788…31491c Dummy {f00=0x0110, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x31491c…314ab0 Dummy {f00=0x0110, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x314ab0…314c44 Dummy {f00=0x0110, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x314c44…314dd8 Dummy {f00=0x0110, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x314dd8…314f6c Dummy {f00=0x0110, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x314f6c…315100 Dummy {f00=0x0110, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x315100…315294 (4, 64) Dummy {f00=0x0111, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x315294…315428 Dummy {f00=0x0111, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x315428…3155bc Dummy {f00=0x0111, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x3155bc…315750 Dummy {f00=0x0111, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x315750…3158e4 Dummy {f00=0x0111, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x3158e4…315a78 Dummy {f00=0x0111, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x315a78…315c0c Dummy {f00=0x0111, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x315c0c…315da0 Dummy {f00=0x0111, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x315da0…315f34 (4, 65) Dummy {f00=0x0111, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x315f34…3160c8 Dummy {f00=0x0111, 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. "
0x3160c8…31625c Dummy {f00=0x0111, f01=0x0190, f02=» PX:B EQU 1 PNUNITS EQU X:B P* , P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x31625c…3163f0 Dummy {f00=0x0111, f01=0x0190, f02=»* A PROGRAM VERSION USING THE INSTRUCTION SET OF 2 P* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 8 P* n PX:E EQU 0 x PCPU857 EQU X:E P* P* P* PROGRAM VERSION FOR FORMAT , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 , P
0x3163f0…316584 Dummy {f00=0x0111, f01=0x0190, f02=» X:D P* P EJECT DRDU01 DRDU01 P* 6 P* @ P************* J P* CONSTANTS * ` P************* v P* P* 0 PDAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1
0x316584…316718 Dummy {f00=0x0111, f01=0x0190, f02=» ADDRESS x & PCUADR EQU /08 CONTROL UNIT ADDRESS P* : : PMAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875 D , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH PQRETRY EQU 4 NO OF RETRIES PTIME E
0x316718…3168ac Dummy {f00=0x0111, f01=0x0190, f02=»TES NO MMU BUFFER " P DATA DEVIND DISC DEVICE INDEX & PDUADR DATA DUAD ACTIVATION ADDRESS @ " P DATA 0 ABORT ROUTINE ADDRESS j P* P IFT VERSA3=1 PBUFFER RES 193 P XIF P* P IFT VERSA3=0 PBUFFER RES 25 P
0x3168ac…316a40 Dummy {f00=0x0111, f01=0x0190, f02=» ~ P* * P* ACTIVATION * " P* * < P***************** V P* p P* z PDUAD EQU * " P CM DWTRTY,A6 RETRY INDICATOR 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR P LDK A1,0 P LC A1
0x316a40…316bd4 (4, 66) Opaque[0x194]
0x316bd4…316d68 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e00, f03=0x0000}
0x316bd4…316d68 IdxSect {
0x316bd4…316d68 f00 = 0x00f0 // 0x316bd4 @0x0
0x316bd4…316d68 f01 = 0x0004 // 0x316bd6 @0x2
0x316bd4…316d68 gno = [ // 0x316bd8 @0x4
0x316bd4…316d68 [0x00]: C0x00f0.0x0.0
0x316bd4…316d68 [0x01]: C0x00f0.0x1.0
0x316bd4…316d68 ]
0x316bd4…316d68 }
0x316d68…316efc Dummy {f00=0x00f0, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x316efc…317090 Dummy {f00=0x00f0, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x317090…317224 Dummy {f00=0x00f0, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x317224…3173b8 Dummy {f00=0x00f0, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x3173b8…31754c Dummy {f00=0x00f0, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x31754c…3176e0 Dummy {f00=0x00f0, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x3176e0…317874 (4, 67) Dummy {f00=0x00f0, f01=0x4014, f02=» P END @
0x317874…317a08 Dummy {f00=0x00f0, 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,
0x317a08…317b9c Dummy {f00=0x00f0, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x317b9c…317d30 Dummy {f00=0x00f0, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x317d30…317ec4 Dummy {f00=0x00f0, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x317ec4…318058 Dummy {f00=0x00f0, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x318058…3181ec Dummy {f00=0x00f0, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x3181ec…318380 Dummy {f00=0x00f0, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x318380…318514 (4, 68) Opaque[0x194]
0x318514…3186a8 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ff8, f03=0x0000}
0x318514…3186a8 IdxSect {
0x318514…3186a8 f00 = 0x00ff // 0x318514 @0x0
0x318514…3186a8 f01 = 0x0022 // 0x318516 @0x2
0x318514…3186a8 gno = [ // 0x318518 @0x4
0x318514…3186a8 [0x00]: C0x00ff.0x3.0
0x318514…3186a8 [0x01]: C0x0100.0x1.0
0x318514…3186a8 [0x02]: C0x0100.0x2.0
0x318514…3186a8 [0x03]: C0x0100.0x3.0
0x318514…3186a8 [0x04]: C0x0108.0x2.0
0x318514…3186a8 [0x05]: C0x0108.0x3.0
0x318514…3186a8 [0x06]: C0x0109.0x0.0
0x318514…3186a8 [0x07]: C0x0109.0x1.0
0x318514…3186a8 [0x08]: C0x0109.0x2.0
0x318514…3186a8 [0x09]: C0x0109.0x3.0
0x318514…3186a8 [0x0a]: C0x010a.0x0.0
0x318514…3186a8 [0x0b]: C0x010a.0x1.0
0x318514…3186a8 [0x0c]: C0x010a.0x2.0
0x318514…3186a8 [0x0d]: C0x010a.0x3.0
0x318514…3186a8 [0x0e]: C0x010b.0x0.0
0x318514…3186a8 [0x0f]: C0x010b.0x1.0
0x318514…3186a8 [0x10]: C0x010b.0x2.0
0x318514…3186a8 ]
0x318514…3186a8 }
0x3186a8…31883c Dummy {f00=0x00ff, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x31883c…3189d0 Dummy {f00=0x00ff, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x3189d0…318b64 Dummy {f00=0x00ff, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x318b64…318cf8 Dummy {f00=0x00ff, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x318cf8…318e8c Dummy {f00=0x00ff, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x318e8c…319020 Dummy {f00=0x00ff, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x319020…3191b4 (4, 69) Dummy {f00=0x0100, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x3191b4…319348 Dummy {f00=0x0100, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x319348…3194dc Dummy {f00=0x0100, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x3194dc…319670 Dummy {f00=0x0100, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x319670…319804 Dummy {f00=0x0100, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x319804…319998 Dummy {f00=0x0100, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x319998…319b2c Dummy {f00=0x0100, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 0 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 0 P* P*
0x319b2c…319cc0 Dummy {f00=0x0100, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU 1 P* P EJECT TOSSIO P* P* P*******************
0x319cc0…319e54 (4, 70) Dummy {f00=0x0100, f01=0x0190, f02=» P* P********************* P* DWT DISPLACEMENTS * 0 P********************* N P* l 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART v P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU /0
0x319e54…319fe8 Dummy {f00=0x0100, f01=0x0190, f02=» EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK & PDWTTAB EQU /0A TTAB ADDRESS R * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR v PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB A
0x319fe8…31a17c Dummy {f00=0x0100, f01=0x0190, f02=»1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF B P* N P EJECT TOSSIO X P* p , P* DWT DISPLACEMENTS: DRIVER DEFINED PART z P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x31a17c…31a310 Dummy {f00=0x0100, f01=0x0190, f02=»B1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT . & PDWTTP EQU DWTDRD+/10 TIMER POINTER ` 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWTDR
0x31a310…31a4a4 Dummy {f00=0x0100, f01=0x0190, f02=» TOSSIO P* P* P********************* & P* DAB DISPLACEMENTS * D P********************* b P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LENGT
0x31a4a4…31a638 Dummy {f00=0x0100, f01=0x0190, f02=»RUPT ADDRESS ~ 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) J " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE IND
0x31a638…31a7cc Dummy {f00=0x0100, f01=0x0190, f02=»OUTINE P F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* X $ PDC:DIX EQU -2 DATA COMMUNICATION b PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU 6
0x31a7cc…31a960 Dummy {f00=0x0100, f01=0x0190, f02=»* P********************* P* ECB DISPLACEMENTS * ( P********************* F P* d ( P* EVENT CONTROL BLOCK DISPLACEMENTS n P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENGTH
0x31a960…31aaf4 (4, 71) Dummy {f00=0x0100, f01=0x0190, f02=»ORD 1 x " PECBCW2 EQU /0C CONTROL WORD 2 P* 4 P EJECT TOSSIO > P* V P* ` P IFT MMUPAG=1 j P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM
0x31aaf4…31ac88 Dummy {f00=0x0100, f01=0x0190, f02=»CI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT $ $ P DATA TIOKBI KEYBOARD/CTW, INPUT D 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT l P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNEL, O
0x31ac88…31ae1c Dummy {f00=0x0100, f01=0x0190, f02=» P DATA TIODKO DISC, OUTPUT P* & P EJECT TOSSIO 0 P* H P* R P********** P* TENTAB * n P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/ROUTI
0x31ae1c…31afb0 Dummy {f00=0x0100, f01=0x0190, f02=», INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT 8 P DATA TENDKI DISC, INPUT l , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0 P D
0x31afb0…31b144 Dummy {f00=0x0100, f01=0x018e, f02=» P* P********** P* MONMMU * P********** 2 P* D P* MONITOR (SYSTEM) MMU TABLE N P* r PMONMMU EQU * | P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,/280
0x31b144…31b2d8 Dummy {f00=0x0100, f01=0x0190, f02=» P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* H P* T I M O U T R P* h P* INPUT: A1 = DWT ADDRESS r . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTAB
0x31b2d8…31b46c Dummy {f00=0x0100, f01=0x0190, f02=»MER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK < P LDR* A1,A4 R " P STR A1,A2 REMOVE FROM ATT:CH f P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR A
0x31b46c…31b600 Dummy {f00=0x0100, f01=0x0190, f02=»IM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND . P* N P EJECT TOSSIO X P* p & P* TTAB FOUND - REMOVE FROM QUEUE z P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P ADS
0x31b600…31b794 (4, 72) Dummy {f00=0x0108, f01=0x0190, f02=» P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB $ P XIF R P* ^ P IFT ATTDET=1 h P IFT MMUPAG=1 ~ . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD MONI
0x31b794…31b928 Dummy {f00=0x0108, f01=0x0190, f02=»OSSIO P* P* F N D B L K P* . ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH 8 P* d P* INPUT: A5 = TTAB ADDRESS n P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x31b928…31babc Dummy {f00=0x0108, f01=0x0190, f02=»D OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND ( P* H PFND:20 EQU * R P IFT CPU852=1 f P ABL IHRTN RETURN | P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P* P I
0x31babc…31bc50 Dummy {f00=0x0108, f01=0x0190, f02=»ATTACH * P********** ! P* ! " P* ! , * P* THIS MODULE IS CALLED FROM TIO WITH ! 6 P* THE FOLLOWING PARAMETERS: ! d P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P* A6
0x31bc50…31bde4 Dummy {f00=0x0108, f01=0x0190, f02=»ADDRESS BLOCK ! v P* A13 DWT STATUS " P* " 0 PATTACH EQU * ENTRY " : P ADK A4,0 SET CR " T * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " l P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=1 "
0x31bde4…31bf78 Dummy {f00=0x0108, f01=0x0190, f02=»FT ATTDET=1 " P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # ( P LDR A13,A13 # V P RF(NN) ATT:50 DEVICE BUSY # j P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDRESS IN
0x31bf78…31c10c Dummy {f00=0x0108, f01=0x0190, f02=»* # & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ 4 P CM* 2,A4 FREE TIMER $ > " P LDR* A3,A4 REMOVE FROM ATT:CH $ Z P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(E) TIOER
0x31c10c…31c2a0 Dummy {f00=0x0108, f01=0x0190, f02=» P* % P* SET TIMER % P* % & P IFT MMUPAG=0 % 0 P LD A1,ECBCW,A8 TIME % F P XIF % b P* % n P EJECT TOSSIO % x P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* % P IFT A
0x31c2a0…31c434 (4, 73) Dummy {f00=0x0108, f01=0x0190, f02=»B ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & . P ST A4,ATT:CH UPDATE ANCHOR & J $ P ADK A4,2 TIMER POINTER ADDRESS & n P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 & P*
0x31c434…31c5c8 Dummy {f00=0x0108, f01=0x0190, f02=» RETURN & P* ' P EJECT TOSSIO ' P* ' 2 P* ' < P********** ' F P* DETACH * ' X P********** ' j P* ' | * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A4,0 SET
0x31c5c8…31c75c Dummy {f00=0x0108, f01=0x0190, f02=»F(NE) TIOERR ATTACHED TO OTHER TASK ' P XRS A10,DWTST,A6 DETACH ( , P LDR A3,A5 SAVE TTAB ADDRESS ( L P LD A5,DWTTQ,A6 QUEUE ANCHOR ( p P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,QTJOB QUEU
0x31c75c…31c8f0 Dummy {f00=0x0108, f01=0x0190, f02=»XIT ( f PDETRTN LDK A3,0 RETURN CODE ) P XIF ) 0 P* ) < P EJECT TOSSIO ) F P* ) ^ P* ) h P********** ) r P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) ( P* FOR MO
0x31c8f0…31ca84 Dummy {f00=0x0108, f01=0x0190, f02=»M ECBEL,A8 RESET EFFECTIVE LENGTH ) P XIF * * P* * 6 P IFT MMUPAG=1 * @ * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * V P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEUE TASK AND
0x31ca84…31cc18 Dummy {f00=0x0108, f01=0x018e, f02=» * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + X @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTACHED OR NOT
0x31cc18…31cdac Dummy {f00=0x0108, f01=0x0190, f02=» + PTIOQ00 LDR A6,A2 , P* , P* QUEUE DEVICE FIRST , * P* , F $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , P P LDR A2,A6 , x P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* , . PQUED
0x31cdac…31cf40 Dummy {f00=0x0108, f01=0x0190, f02=»NT , h P LD A1,TTB:ST+1,A5 LEVEL - P* - * P EJECT TOSSIO - 4 P* - L * P* SEARCH QUEUE FOR PLACE OF INSERTION - V 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 COMPARE
0x31cf40…31d0d4 (4, 74) Dummy {f00=0x0109, f01=0x0190, f02=»4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . , P ADK A4,0 SET CR . > P RF(Z) TIOQ50 NO ACTIVATION . V P SUK A3,2 ACTIVATION . z P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDISP GO TO D
0x31d0d4…31d268 Dummy {f00=0x0109, f01=0x0190, f02=» . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / 6 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / l 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OPTION SPECI
0x31d268…31d3fc Dummy {f00=0x0109, f01=0x0190, f02=»TH THE FOLLOWING PARAMETERS:- / P* 0 & . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 0 P* 0 b $ P* A4 = ZERO, NORMAL I/O REQUEST 0 l ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDER CODE 0
0x31d3fc…31d590 Dummy {f00=0x0109, f01=0x018e, f02=»IVATION DRIVER 0 f * P* WITH THE FOLLOWING REGISTER VAULES:- 1 P* 1 D P* A5 = STACK BASE 2 IN DWT 1 N P* 1 r P* A6 = DWT ADDRESS 1 | P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS TO DRIVER AD
0x31d590…31d724 Dummy {f00=0x0109, f01=0x0190, f02=» 1 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 B " P* -DWTOR DWT INDEX AND ORDER 2 L P* -DWTECB ECB ADDRESS 2 r $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2 . P* -DW
0x31d724…31d8b8 Dummy {f00=0x0109, f01=0x0190, f02=» FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 8 P* 3 V P EJECT TOSSIO 3 ` P* 3 x . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU * ENTRY U
0x31d8b8…31da4c Dummy {f00=0x0109, f01=0x0190, f02=»R FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 P LD A13,DWTST,A6 DWT STATUS 4 V P* 4 z P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDET=1 4
0x31da4c…31dbe0 Dummy {f00=0x0109, f01=0x0190, f02=»RDER 4 z P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 P CW A5,DWTTAB,A6 5 B * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 Z P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTIO020 EQU *
0x31dbe0…31dd74 (4, 75) Dummy {f00=0x0109, f01=0x0190, f02=»HECK IF ECHO DEVICE IS BUSY/ATTACHED 5 p P* 6 , * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 6 P LDK A2,/40 CHECK IF ECHO 6 d P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF KEYBOARD 6
0x31dd74…31df08 Dummy {f00=0x0109, f01=0x0190, f02=»CE 6 v $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 2 P IFT ATTDET=1 7 < P TM A10,A14 7 R * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 f P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ) TIO060 E
0x31df08…31e09c Dummy {f00=0x0109, f01=0x0190, f02=»TIO050 TM A3,A14 7 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 P* 8 > PTIO060 LDKL A3,/A000 8 H : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 d P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY & ECHO BITS
0x31e09c…31e230 Dummy {f00=0x0109, f01=0x0190, f02=»00 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 2 , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 b ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9 P EJECT
0x31e230…31e3c4 Dummy {f00=0x0109, f01=0x0190, f02=»WORD OF USER ECB 9 z 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : P ESR A3,A8 : L ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : ^ , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR A9,A8 :
0x31e3c4…31e558 Dummy {f00=0x0109, f01=0x0190, f02=» PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; $ ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; : P ADK A2,ECBRL ; f P LDK A3,8 ; | . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P IFT MMUPAG=
0x31e558…31e6ec Dummy {f00=0x0109, f01=0x0190, f02=» RESET RETURN CODE ; P XIF < P* < ( P EJECT TOSSIO < 2 P* < J P* < T PTIO110 EQU * < ^ P ECR A3,A7 < r P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT < P* <
0x31e6ec…31e880 Dummy {f00=0x0109, f01=0x0190, f02=»SS IN DWTTAB < p P* = PTIO130 EQU * = P IFT MMUPAG=0 = 2 & P ST A8,DWTECB,A6 SET ECB ADDRESS = H P XIF = r P* = ~ P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMETER = & P
0x31e880…31ea14 (4, 76) Dummy {f00=0x0109, f01=0x0190, f02=»1 INDICATE WAIT = P RF TIO230 > P* > * < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > 4 P* > t 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > ~ P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P* > P EJE
0x31ea14…31eba8 Dummy {f00=0x0109, f01=0x0190, f02=» MODE > t " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? 4 " P RF(Z) TIO240 DATA MANAGEMENT ? d P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P* ? " P* PE
0x31eba8…31ed3c Dummy {f00=0x0109, f01=0x018e, f02=»TE ? f . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ < PTIO240 EQU * @ F P ENB @ Z < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ f P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 LDK A5,DWTSB2
0x31ed3c…31eed0 Dummy {f00=0x0109, f01=0x0190, f02=» @ P* A P********** A P* SWITCH * A $ P********** A 6 P* A H P* SWITCH PRIORITY LEVEL: A R P* A r ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A | ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A P* A $
0x31eed0…31f064 Dummy {f00=0x0109, f01=0x0190, f02=»U851: LEVEL 12 A P XIF B P* B " P IFF CPU852+CPU857=0 B , ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B H P XIF B t P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P* B P
0x31f064…31f1f8 Dummy {f00=0x0109, f01=0x018e, f02=» @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C H > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C P* IN
0x31f1f8…31f38c Dummy {f00=0x0109, f01=0x0190, f02=» . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D 6 P* A4 IS DESTROYED D f P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D P L
0x31f38c…31f520 Dummy {f00=0x0109, f01=0x0190, f02=» READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E P* E F P EJECT TOSSIO E P P* E h P* E r P********** E | P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =0: NO RE
0x31f520…31f6b4 (4, 77) Dummy {f00=0x0109, f01=0x0190, f02=»,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 0 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F R P BYTES TINDEX+1,0 /08, /09 F | P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0,1 /10,
0x31f6b4…31f848 Dummy {f00=0x0109, f01=0x0190, f02=» 0,0 /1A, /1B F P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G 2 P BYTES 0,TINDEX+1 /20, /21 G N P BYTES TINDEX+1,0 /22, /23 G p P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /2A, /2B G
0x31f848…31f9dc Dummy {f00=0x0109, f01=0x0190, f02=»34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H , P BYTES 0,0 /3A, /3B H H P BYTES 0,0 /3C, /3D H d P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLED BY 'TIO'
0x31f9dc…31fb70 Dummy {f00=0x0109, f01=0x018e, f02=»ON OF THE REQUEST IS 'TEN:DM'. H P* I & " P* INPUT: A8 = DWT ECB ADDRESS I 0 $ P* A9 = USER ECB ADDRESS I V P* I ~ P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUFFER ADDRES
0x31fb70…31fd04 Dummy {f00=0x0109, f01=0x0190, f02=» I PA15RTN EQU * J P RTN A15 J P* J , P EJECT TOSSIO J 6 P* J N P* T I O P C I J X P* J n B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J x > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B P* TIOPCI
0x31fd04…31fe98 Dummy {f00=0x0109, f01=0x0190, f02=»ESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K . 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K ^ P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS TO DRIVER
0x31fe98…32002c Dummy {f00=0x0109, f01=0x0190, f02=»8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L P P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L * P RF(
0x32002c…3201c0 Dummy {f00=0x0109, f01=0x0190, f02=» L d P ANS A1,ECBBA,A8 M P RTN A15 M P* M 0 P EJECT TOSSIO M : P* M R P* T I O M X I M P* M r B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M | > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M > P* TI
0x3201c0…320354 (4, 78) Dummy {f00=0x010a, f01=0x0190, f02=» CALLED BY 'TENDIO' AT M v , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N N P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = USER ECB ADD
0x320354…3204e8 Dummy {f00=0x010a, f01=0x0190, f02=» PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O $ P ECR A2,A1 O P & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O b P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 PHYSICAL PA
0x3204e8…32067c Dummy {f00=0x010a, f01=0x0190, f02=» A2,4 O P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P P RTN A15 P V P* P f P EJECT TOSSIO P p P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* ISSUED AND THE
0x32067c…320810 Dummy {f00=0x010a, f01=0x0190, f02=»' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q ( , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q ` P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P* A9 = USER
0x320810…3209a4 Dummy {f00=0x010a, f01=0x018e, f02=» * KEYBOARD/CTW Q $ P LD A1,ECBRL,A8 REQUESTED LENGTH R 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R @ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R v 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK ORDER CODE R
0x3209a4…320b38 Dummy {f00=0x010a, f01=0x0190, f02=» R P EJECT TOSSIO S P* S P* S * P LDR A1,A9 S 4 P ADK A1,8 S F P ADKL A8,12 S X * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S l P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 KEYTABLE ADDR
0x320b38…320ccc Dummy {f00=0x010a, f01=0x0190, f02=» 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T 8 P CF A15,TIPO05 T X & P SUKL A8,8 ADJUST DWT ECB ADDRESS T n P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I T I T P
0x320ccc…320e60 Dummy {f00=0x010a, f01=0x0190, f02=»T T t P* U P EJECT TOSSIO U P* U , P* T I O P C O U 6 P* U L B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U V > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED LENGTH DOES
0x320e60…320ff4 (4, 79) Dummy {f00=0x010a, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT U , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V 8 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V h F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO USED BY 'DC
0x320ff4…321188 Dummy {f00=0x010a, f01=0x0190, f02=» V r P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W B $ P LD A3,ECBRL,A8 REQUESTED LENGTH W z ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE W 6 P RF(
0x321188…32131c Dummy {f00=0x010a, f01=0x018e, f02=» P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X L . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X ^ ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE DWT BUFFER ADD
0x32131c…3214b0 Dummy {f00=0x010a, f01=0x018e, f02=» 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y > PTIPO20 RTN A15 Y H P* Y ^ 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y h 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER BUFFER Y 2 P
0x3214b0…321644 Dummy {f00=0x010a, f01=0x018e, f02=» Y j ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z 4 P EJECT TOSSIO Z > P* Z V P* I O : E R R Z ` P* Z v , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRANCH TO DISPAT
0x321644…3217d8 Dummy {f00=0x010a, f01=0x0190, f02=» Z n P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ * P RF(NN) IO:E10 NOT ECHO [ J P LDR A1,A6 SAVE DWT ADDRESS [ j & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ PIO:E10 EQU
0x3217d8…32196c Dummy {f00=0x010a, f01=0x0190, f02=» [ P* T I O M X O P* " PTIOMXO EQU TIOMXI MUX, OUTPUT ( P* N P* T I O K B O X P* n * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT x P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUTPUT
0x32196c…321b00 Dummy {f00=0x010a, f01=0x0190, f02=»D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] P D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P* A8 = USE
0x321b00…321c94 (4, 80) Dummy {f00=0x010a, f01=0x0190, f02=»MEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ P ES A1,ECBCW2,A8 ^ J P RTN A15 ^ b P* ^ r P EJECT TOSSIO ^ | P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN ^ @ P*
0x321c94…321e28 Dummy {f00=0x010a, f01=0x0190, f02=» THE USER BUFFER. ^ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ b P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P* OUTPUT: A1
0x321e28…321fbc Dummy {f00=0x010a, f01=0x0190, f02=»EL,A2 EFFECTIVE LENGTH _ " P RF(NP) TEPI30 NO MOVE IF ZERO ` & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` D P* ` n . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` x ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES ` P TM A3,A1
0x321fbc…322150 Dummy {f00=0x010a, f01=0x0190, f02=»EVEN ` n P* a P EJECT TOSSIO a P* a . P* a 8 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a B 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a x P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANKL A8,/FF00 SKI
0x322150…3222e4 Dummy {f00=0x010a, f01=0x0190, f02=»DK A2,1 a P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b " P RTN A15 NO, RETURN b P P* b l PTEPI20 TM A3,A2 b v * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE LENGTH b
0x3222e4…322478 Dummy {f00=0x010a, f01=0x0190, f02=»ACTER b t 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c F 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c t P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR A3,A4 CHECK R
0x322478…32260c Dummy {f00=0x010a, f01=0x0190, f02=» P* d PTEPI30 RTN A15 d P* d $ , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d . ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d ^ , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO USER BUFFER d
0x32260c…3227a0 Dummy {f00=0x010a, f01=0x0190, f02=» d f P ELR A3,A2 e P RB TEPI15 e P* e , . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e 6 " P LDR A3,A1 DWT BUFFER ADDRESS e h $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE THIS CHAR. ONE B
0x3227a0…322934 (4, 81) Dummy {f00=0x010a, f01=0x0190, f02=»ACTERS TO MOVE e x . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f H P RB TEPI25 f v P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P* f P* T E
0x322934…322ac8 Dummy {f00=0x010a, f01=0x018e, f02=»K COMMUNICATION, INPUT f v P* g P* T E N D K I g ( P* g > " PTENDKI EQU TEN:DM DISC, INPUT g H P* g n P EJECT TOSSIO g x P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P* T E N M X O g
0x322ac8…322c5c Dummy {f00=0x010a, f01=0x0190, f02=» g h P* h P* T E N D K O h P* h ( " PTENDKO EQU TEN:DM DISC, OUTPUT h 2 P* h X P EJECT TOSSIO h b P* h z P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FOR INTERTASK
0x322c5c…322df0 Dummy {f00=0x010a, f01=0x0190, f02=»IOPCO' IS USED FOR MOVING THE DATA. h P* i , P* INPUT: A6 = DWT ADDRESS i 6 P* i X & P* OUTPUT: A1-A4, A8 ARE DESTROYED i b P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECBEL,A8 EFFECT
0x322df0…322f84 Dummy {f00=0x010a, f01=0x0190, f02=» i PTEIO10 RTN A15 j P* j P EJECT TOSSIO j ( P* j @ P* D C : M O T j J P* j ` < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j j < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFER. THE MOVE
0x322f84…323118 Dummy {f00=0x010a, f01=0x0190, f02=»NO REGISTERS ARE DESTROYED j P* k " , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k , " P MSR 8,A15 SAVE A1-A8 ON STACK k $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k $ P TL TTB:MT
0x323118…3232ac Dummy {f00=0x010a, f01=0x0190, f02=»DC:RTN EQU * RETURN TO DC DRIVER k . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l ( $ P ADKL A15,32 ADJUST STACKPOINTER l Z * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l P* l P*
0x3232ac…323440 Dummy {f00=0x010a, f01=0x0190, f02=»RIVER BUFFER TO THE USER BUFFER. l f P* m ( P* INPUT: A1 = RETURN CODE m 2 ( P* A4 = DRIVER BUFFER ADDRESS m T P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT MMUPAG=0 m
0x323440…3235d4 (4, 82) Dummy {f00=0x010b, f01=0x0190, f02=» STACK m x P* n P IFT MMUPAG=1 n $ P SUKL A15,32 ADJUST STACKPOINTER n . * P TS 2,A15 SAVE MMU REGISTERS ON STACK n V " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n P* n
0x3235d4…323768 Dummy {f00=0x010b, f01=0x018e, f02=»SS n x P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o P ENB o : P LD A3,DWTECB,A6 ECB ADDRESS o F * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o j $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHECK IF USER BUFF
0x323768…3238fc Dummy {f00=0x010b, f01=0x0190, f02=» o j P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p F P SUK A2,2 p x , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P* p PMIN:
0x3238fc…323a90 Dummy {f00=0x010b, f01=0x0190, f02=»2,2 DECREMENT LOOP COUNTER p 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q " P* q X PMIN:20 EQU * q b P ADK A2,1 q v P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOVE ONE CHARACTE
0x323a90…323c24 Dummy {f00=0x010b, f01=0x0190, f02=» MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE q P XIF r 4 P* r @ P IFT MMUPAG=1 r J * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r ` $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRESS r ( P CF
0x323c24…323db8 Dummy {f00=0x010b, f01=0x0190, f02=»O r P* s P* s PMIN:40 EQU * s P INH s 2 " P CF A15,TENDIO PERFORM TENDIO s > P* s d P* RELEASE BUFFER s n P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLADR,A1 BUFFER PO
0x323db8…323f4c Dummy {f00=0x010b, f01=0x0190, f02=»,A2 NEXT BUFFER ADDRESS s , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t P* t P $ P* INSERT BUFFER AT END OF CHAIN t Z P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P ABL IHRET8 RESTOR
0x323f4c…3240e0 Dummy {f00=0x010b, f01=0x018e, f02=» MLR 8,A15 RESTORE A1-A8 FROM STACK... t P* u . PDC:MOT RTN A15 ...AND RETURN u 8 P XIF u P* u h P IFT MMUPAG=1 u r " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ERROR EXIT u 2 P
0x3240e0…324274 (4, 83) Dummy {f00=0x010b, f01=0x0190, f02=» P* v P IFT MMUPAG=0 v P IFT CPU852=1 v $ PDC:MOT EQU * v : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v N P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v P* v P*
0x324274…324408 Dummy {f00=0x010b, f01=0x0190, f02=» v * P* ACTOTP IS CALLED TO START THE TASK w P* w 6 P* -IF NORMAL I/O WITH WAIT:- w @ P* w d * P* QTJOB IS CALLED TO QUEUE THE TASK w n 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w P* w $
0x324408…32459c Dummy {f00=0x010b, f01=0x0190, f02=»TTQ NOT ZERO) w d J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x P* x d P EJECT TOSSIO x n P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x P* A6 = D
0x32459c…324730 Dummy {f00=0x010b, f01=0x0190, f02=»ENT SUBROUTINES ARE PERFORMED. x P* y & P EJECT TOSSIO y 0 P* y H P* END I/O ENTRY y R P* y j PTENDIO EQU * y t P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH y " P MSR 8,A
0x324730…3248c4 Dummy {f00=0x010b, f01=0x0190, f02=» DWT STATUS y z P INH z ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z P RF(Z) TEN110 NO TASK QUEUED z L P LDKL A2,/800 ATTACH BIT z p P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z ( P RF(NE) TE
0x3248c4…324a58 Dummy {f00=0x010b, f01=0x0190, f02=»HOR ADDRESS z t P ST A3,DWTTQ,A6 { . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { , P* { ^ P* UPDATE ECB AND DWT { h P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDICATE DEVICE READ
0x324a58…324bec Dummy {f00=0x010b, f01=0x0190, f02=»CH IF ENTERED FROM ECHO OR RECOVERY { ~ P* | , P EJECT TOSSIO | 6 P* | N P* | X * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | b , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW | " P ANK A4,1 SY
0x324bec…324d80 Dummy {f00=0x010b, f01=0x0190, f02=»5,32 ADJUST STACKPOINTER | * P TS 2,A15 SAVE MMU REGISTERS ON STACK } . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } N P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRESS } P ELR A
0x324d80…324f14 (4, 84) Dummy {f00=0x010b, f01=0x0190, f02=»DK A2,ECBEL } P LDK A4,6 ~ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ & P* ~ ^ 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ h " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P RF(Z) TEN140 DATA
0x324f14…3250a8 Dummy {f00=0x010b, f01=0x018e, f02=» , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER 4 P* f PTEN140 EQU * p P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P* P* RESTORE MM
0x3250a8…32523c Dummy {f00=0x010b, f01=0x0190, f02=» d $ P ADKL A15,32 ADJUST STACKPOINTER P XIF 0 P* < P EJECT TOSSIO F P* ^ : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION h P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z) TEN250 NOT WA
0x32523c…3253d0 Dummy {f00=0x010b, f01=0x0190, f02=»ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* 6 P IFT MMUPAG=1 @ * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT V P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU * 4 P ST A8
0x3253d0…325564 Dummy {f00=0x010b, f01=0x0190, f02=»XT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S P CMR A4 SET TO NO WAIT AGAIN : P LDR A4,A3 ^ P RB TEN220 p P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DISP ADDR . P
0x325564…3256f8 Dummy {f00=0x010b, f01=0x4150, f02=»PATCHING j P* PTEN250 EQU * $ P CM DWTECB,A6 RESET ECB ADDRESS . P* V PTEN260 EQU * ` P IFT CPU852=1 t P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND
0x3256f8…32588c Dummy {f00=0x010b, f01=0x2008, f02=» NT TOSSIO END @ &
0x32588c…325a20 Dummy {f00=0x010b, f01=0x018e, f02=»T SEND CHARACTER D PSEND20 EQU * E . P IM DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS E , P RB SEND10 GET NEXT E ^ PSEND30 EQU * E z * P LD A3,DWTDISP,A6 GET DWT-DISPLACEMENT E P ADR A3,A6 GET PROPER VALUE E P LCR A2,A3 GET CHARACTER E P CF A5,O
0x325a20…325bb4 (4, 85) Opaque[0x194]
0x325bb4…325d48 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e48, f03=0x0000}
0x325bb4…325d48 IdxSect {
0x325bb4…325d48 f00 = 0x00f2 // 0x325bb4 @0x0
0x325bb4…325d48 f01 = 0x003e // 0x325bb6 @0x2
0x325bb4…325d48 gno = [ // 0x325bb8 @0x4
0x325bb4…325d48 [0x00]: C0x00f2.0x1.0
0x325bb4…325d48 [0x01]: C0x00f2.0x2.0
0x325bb4…325d48 [0x02]: C0x00f2.0x3.0
0x325bb4…325d48 [0x03]: C0x00f3.0x0.0
0x325bb4…325d48 [0x04]: C0x00f3.0x1.0
0x325bb4…325d48 [0x05]: C0x00f3.0x2.0
0x325bb4…325d48 [0x06]: C0x00f3.0x3.0
0x325bb4…325d48 [0x07]: C0x00f4.0x0.0
0x325bb4…325d48 [0x08]: C0x00f4.0x1.0
0x325bb4…325d48 [0x09]: C0x00f4.0x2.0
0x325bb4…325d48 [0x0a]: C0x00f4.0x3.0
0x325bb4…325d48 [0x0b]: C0x00f5.0x0.0
0x325bb4…325d48 [0x0c]: C0x00f5.0x1.0
0x325bb4…325d48 [0x0d]: C0x00f5.0x2.0
0x325bb4…325d48 [0x0e]: C0x00f5.0x3.0
0x325bb4…325d48 [0x0f]: C0x00f6.0x0.0
0x325bb4…325d48 [0x10]: C0x00f6.0x1.0
0x325bb4…325d48 [0x11]: C0x0114.0x3.0
0x325bb4…325d48 [0x12]: C0x0115.0x0.0
0x325bb4…325d48 [0x13]: C0x0115.0x2.0
0x325bb4…325d48 [0x14]: C0x0115.0x3.0
0x325bb4…325d48 [0x15]: C0x0116.0x0.0
0x325bb4…325d48 [0x16]: C0x0116.0x1.0
0x325bb4…325d48 [0x17]: C0x0116.0x2.0
0x325bb4…325d48 [0x18]: C0x0116.0x3.0
0x325bb4…325d48 [0x19]: C0x0117.0x0.0
0x325bb4…325d48 [0x1a]: C0x0117.0x1.0
0x325bb4…325d48 [0x1b]: C0x0117.0x2.0
0x325bb4…325d48 [0x1c]: C0x0117.0x3.0
0x325bb4…325d48 [0x1d]: C0x0118.0x0.0
0x325bb4…325d48 [0x1e]: C0x0118.0x1.0
0x325bb4…325d48 ]
0x325bb4…325d48 }
0x325d48…325edc Dummy {f00=0x00f2, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x325edc…326070 Dummy {f00=0x00f2, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x326070…326204 Dummy {f00=0x00f2, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x326204…326398 Dummy {f00=0x00f2, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x326398…32652c Dummy {f00=0x00f2, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x32652c…3266c0 Dummy {f00=0x00f2, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x3266c0…326854 (4, 86) Dummy {f00=0x00f2, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x326854…3269e8 Dummy {f00=0x00f2, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 0 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 0 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x3269e8…326b7c Dummy {f00=0x00f2, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x326b7c…326d10 Dummy {f00=0x00f2, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x326d10…326ea4 Dummy {f00=0x00f2, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x326ea4…327038 Dummy {f00=0x00f2, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x327038…3271cc Dummy {f00=0x00f2, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x3271cc…327360 Dummy {f00=0x00f2, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x327360…3274f4 (4, 87) Dummy {f00=0x00f2, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x3274f4…327688 Dummy {f00=0x00f2, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x327688…32781c Dummy {f00=0x00f2, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x32781c…3279b0 Dummy {f00=0x00f2, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x3279b0…327b44 Dummy {f00=0x00f2, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x327b44…327cd8 Dummy {f00=0x00f2, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x327cd8…327e6c Dummy {f00=0x00f2, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x327e6c…328000 Dummy {f00=0x00f2, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x328000…328194 (4, 88) Dummy {f00=0x00f3, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x328194…328328 Dummy {f00=0x00f3, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x328328…3284bc Dummy {f00=0x00f3, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x3284bc…328650 Dummy {f00=0x00f3, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x328650…3287e4 Dummy {f00=0x00f3, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x3287e4…328978 Dummy {f00=0x00f3, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x328978…328b0c Dummy {f00=0x00f3, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x328b0c…328ca0 Dummy {f00=0x00f3, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x328ca0…328e34 (4, 89) Dummy {f00=0x00f3, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x328e34…328fc8 Dummy {f00=0x00f3, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x328fc8…32915c Dummy {f00=0x00f3, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x32915c…3292f0 Dummy {f00=0x00f3, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x3292f0…329484 Dummy {f00=0x00f3, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x329484…329618 Dummy {f00=0x00f3, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x329618…3297ac Dummy {f00=0x00f3, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x3297ac…329940 Dummy {f00=0x00f3, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x329940…329ad4 (4, 90) Dummy {f00=0x00f3, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x329ad4…329c68 Dummy {f00=0x00f3, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x329c68…329dfc Dummy {f00=0x00f3, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x329dfc…329f90 Dummy {f00=0x00f3, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x329f90…32a124 Dummy {f00=0x00f3, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x32a124…32a2b8 Dummy {f00=0x00f3, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x32a2b8…32a44c Dummy {f00=0x00f3, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x32a44c…32a5e0 Dummy {f00=0x00f3, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x32a5e0…32a774 (4, 91) Dummy {f00=0x00f3, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x32a774…32a908 Dummy {f00=0x00f3, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x32a908…32aa9c Dummy {f00=0x00f3, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x32aa9c…32ac30 Dummy {f00=0x00f3, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x32ac30…32adc4 Dummy {f00=0x00f3, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x32adc4…32af58 Dummy {f00=0x00f3, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x32af58…32b0ec Dummy {f00=0x00f3, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x32b0ec…32b280 Dummy {f00=0x00f3, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x32b280…32b414 (4, 92) Dummy {f00=0x00f4, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x32b414…32b5a8 Dummy {f00=0x00f4, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x32b5a8…32b73c Dummy {f00=0x00f4, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x32b73c…32b8d0 Dummy {f00=0x00f4, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x32b8d0…32ba64 Dummy {f00=0x00f4, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x32ba64…32bbf8 Dummy {f00=0x00f4, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x32bbf8…32bd8c Dummy {f00=0x00f4, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x32bd8c…32bf20 Dummy {f00=0x00f4, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x32bf20…32c0b4 (4, 93) Dummy {f00=0x00f4, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x32c0b4…32c248 Dummy {f00=0x00f4, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x32c248…32c3dc Dummy {f00=0x00f4, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x32c3dc…32c570 Dummy {f00=0x00f4, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x32c570…32c704 Dummy {f00=0x00f4, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x32c704…32c898 Dummy {f00=0x00f4, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x32c898…32ca2c Dummy {f00=0x00f4, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x32ca2c…32cbc0 Dummy {f00=0x00f4, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x32cbc0…32cd54 (4, 94) Dummy {f00=0x00f4, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x32cd54…32cee8 Dummy {f00=0x00f4, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x32cee8…32d07c Dummy {f00=0x00f4, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x32d07c…32d210 Dummy {f00=0x00f4, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x32d210…32d3a4 Dummy {f00=0x00f4, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x32d3a4…32d538 Dummy {f00=0x00f4, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x32d538…32d6cc Dummy {f00=0x00f4, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x32d6cc…32d860 Dummy {f00=0x00f4, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x32d860…32d9f4 (4, 95) Dummy {f00=0x00f4, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x32d9f4…32db88 Dummy {f00=0x00f4, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x32db88…32dd1c Dummy {f00=0x00f4, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x32dd1c…32deb0 Dummy {f00=0x00f4, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x32deb0…32e044 Dummy {f00=0x00f4, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x32e044…32e1d8 Dummy {f00=0x00f4, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x32e1d8…32e36c Dummy {f00=0x00f4, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x32e36c…32e500 Dummy {f00=0x00f4, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x32e500…32e694 (4, 96) Dummy {f00=0x00f5, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x32e694…32e828 Dummy {f00=0x00f5, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x32e828…32e9bc Dummy {f00=0x00f5, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x32e9bc…32eb50 Dummy {f00=0x00f5, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x32eb50…32ece4 Dummy {f00=0x00f5, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x32ece4…32ee78 Dummy {f00=0x00f5, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x32ee78…32f00c Dummy {f00=0x00f5, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x32f00c…32f1a0 Dummy {f00=0x00f5, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x32f1a0…32f334 (4, 97) Dummy {f00=0x00f5, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x32f334…32f4c8 Dummy {f00=0x00f5, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x32f4c8…32f65c Dummy {f00=0x00f5, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x32f65c…32f7f0 Dummy {f00=0x00f5, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x32f7f0…32f984 Dummy {f00=0x00f5, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x32f984…32fb18 Dummy {f00=0x00f5, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x32fb18…32fcac Dummy {f00=0x00f5, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x32fcac…32fe40 Dummy {f00=0x00f5, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x32fe40…32ffd4 (4, 98) Dummy {f00=0x00f5, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x32ffd4…330168 Dummy {f00=0x00f5, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x330168…3302fc Dummy {f00=0x00f5, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x3302fc…330490 Dummy {f00=0x00f5, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x330490…330624 Dummy {f00=0x00f5, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x330624…3307b8 Dummy {f00=0x00f5, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x3307b8…33094c Dummy {f00=0x00f5, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x33094c…330ae0 Dummy {f00=0x00f5, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x330ae0…330c74 (4, 99) Dummy {f00=0x00f5, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x330c74…330e08 Dummy {f00=0x00f5, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x330e08…330f9c Dummy {f00=0x00f5, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x330f9c…331130 Dummy {f00=0x00f5, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x331130…3312c4 Dummy {f00=0x00f5, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x3312c4…331458 Dummy {f00=0x00f5, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x331458…3315ec Dummy {f00=0x00f5, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x3315ec…331780 Dummy {f00=0x00f5, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x331780…331914 (4, 100) Dummy {f00=0x00f6, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x331914…331aa8 Dummy {f00=0x00f6, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x331aa8…331c3c Dummy {f00=0x00f6, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x331c3c…331dd0 Dummy {f00=0x00f6, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x331dd0…331f64 Dummy {f00=0x00f6, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x331f64…3320f8 Dummy {f00=0x00f6, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x3320f8…33228c Dummy {f00=0x00f6, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x33228c…332420 Dummy {f00=0x00f6, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x332420…3325b4 (4, 101) Dummy {f00=0x00f6, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x3325b4…332748 Dummy {f00=0x00f6, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x332748…3328dc Dummy {f00=0x00f6, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x3328dc…332a70 Dummy {f00=0x00f6, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x332a70…332c04 Dummy {f00=0x00f6, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x332c04…332d98 Dummy {f00=0x00f6, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x332d98…332f2c Dummy {f00=0x00f6, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x332f2c…3330c0 Dummy {f00=0x00f6, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x3330c0…333254 (4, 102) Dummy {f00=0x0114, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x333254…3333e8 Dummy {f00=0x0114, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x3333e8…33357c Dummy {f00=0x0114, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x33357c…333710 Dummy {f00=0x0114, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x333710…3338a4 Dummy {f00=0x0114, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x3338a4…333a38 Dummy {f00=0x0114, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x333a38…333bcc Dummy {f00=0x0114, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x333bcc…333d60 Dummy {f00=0x0114, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x333d60…333ef4 (4, 103) Dummy {f00=0x0115, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x333ef4…334088 Dummy {f00=0x0115, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x334088…33421c Dummy {f00=0x0115, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x33421c…3343b0 Dummy {f00=0x0115, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x3343b0…334544 Dummy {f00=0x0115, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x334544…3346d8 Dummy {f00=0x0115, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x3346d8…33486c Dummy {f00=0x0115, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x33486c…334a00 Dummy {f00=0x0115, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x334a00…334b94 (4, 104) Dummy {f00=0x0115, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x334b94…334d28 Dummy {f00=0x0115, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x334d28…334ebc Dummy {f00=0x0115, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x334ebc…335050 Dummy {f00=0x0115, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x335050…3351e4 Dummy {f00=0x0115, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x3351e4…335378 Dummy {f00=0x0115, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x335378…33550c Dummy {f00=0x0115, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x33550c…3356a0 Dummy {f00=0x0115, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x3356a0…335834 (4, 105) Dummy {f00=0x0115, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x335834…3359c8 Dummy {f00=0x0115, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x3359c8…335b5c Dummy {f00=0x0115, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x335b5c…335cf0 Dummy {f00=0x0115, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x335cf0…335e84 Dummy {f00=0x0115, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x335e84…336018 Dummy {f00=0x0115, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x336018…3361ac Dummy {f00=0x0115, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x3361ac…336340 Dummy {f00=0x0115, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x336340…3364d4 (4, 106) Dummy {f00=0x0116, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x3364d4…336668 Dummy {f00=0x0116, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x336668…3367fc Dummy {f00=0x0116, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x3367fc…336990 Dummy {f00=0x0116, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x336990…336b24 Dummy {f00=0x0116, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x336b24…336cb8 Dummy {f00=0x0116, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x336cb8…336e4c Dummy {f00=0x0116, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x336e4c…336fe0 Dummy {f00=0x0116, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x336fe0…337174 (4, 107) Dummy {f00=0x0116, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x337174…337308 Dummy {f00=0x0116, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x337308…33749c Dummy {f00=0x0116, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x33749c…337630 Dummy {f00=0x0116, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x337630…3377c4 Dummy {f00=0x0116, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x3377c4…337958 Dummy {f00=0x0116, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x337958…337aec Dummy {f00=0x0116, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x337aec…337c80 Dummy {f00=0x0116, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x337c80…337e14 (4, 108) Dummy {f00=0x0116, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x337e14…337fa8 Dummy {f00=0x0116, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x337fa8…33813c Dummy {f00=0x0116, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x33813c…3382d0 Dummy {f00=0x0116, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x3382d0…338464 Dummy {f00=0x0116, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x338464…3385f8 Dummy {f00=0x0116, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x3385f8…33878c Dummy {f00=0x0116, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x33878c…338920 Dummy {f00=0x0116, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x338920…338ab4 (4, 109) Dummy {f00=0x0116, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x338ab4…338c48 Dummy {f00=0x0116, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x338c48…338ddc Dummy {f00=0x0116, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x338ddc…338f70 Dummy {f00=0x0116, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x338f70…339104 Dummy {f00=0x0116, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x339104…339298 Dummy {f00=0x0116, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x339298…33942c Dummy {f00=0x0116, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x33942c…3395c0 Dummy {f00=0x0116, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x3395c0…339754 (4, 110) Dummy {f00=0x0117, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x339754…3398e8 Dummy {f00=0x0117, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x3398e8…339a7c Dummy {f00=0x0117, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x339a7c…339c10 Dummy {f00=0x0117, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x339c10…339da4 Dummy {f00=0x0117, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x339da4…339f38 Dummy {f00=0x0117, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x339f38…33a0cc Dummy {f00=0x0117, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x33a0cc…33a260 Dummy {f00=0x0117, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x33a260…33a3f4 (4, 111) Dummy {f00=0x0117, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x33a3f4…33a588 Dummy {f00=0x0117, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x33a588…33a71c Dummy {f00=0x0117, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x33a71c…33a8b0 Dummy {f00=0x0117, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x33a8b0…33aa44 Dummy {f00=0x0117, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x33aa44…33abd8 Dummy {f00=0x0117, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x33abd8…33ad6c Dummy {f00=0x0117, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x33ad6c…33af00 Dummy {f00=0x0117, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x33af00…33b094 (4, 112) Dummy {f00=0x0117, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x33b094…33b228 Dummy {f00=0x0117, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x33b228…33b3bc Dummy {f00=0x0117, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x33b3bc…33b550 Dummy {f00=0x0117, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x33b550…33b6e4 Dummy {f00=0x0117, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x33b6e4…33b878 Dummy {f00=0x0117, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x33b878…33ba0c Dummy {f00=0x0117, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x33ba0c…33bba0 Dummy {f00=0x0117, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x33bba0…33bd34 (4, 113) Dummy {f00=0x0117, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x33bd34…33bec8 Dummy {f00=0x0117, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x33bec8…33c05c Dummy {f00=0x0117, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x33c05c…33c1f0 Dummy {f00=0x0117, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x33c1f0…33c384 Dummy {f00=0x0117, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x33c384…33c518 Dummy {f00=0x0117, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x33c518…33c6ac Dummy {f00=0x0117, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x33c6ac…33c840 Dummy {f00=0x0117, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x33c840…33c9d4 (4, 114) Dummy {f00=0x0118, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x33c9d4…33cb68 Dummy {f00=0x0118, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x33cb68…33ccfc Dummy {f00=0x0118, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x33ccfc…33ce90 Dummy {f00=0x0118, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x33ce90…33d024 Dummy {f00=0x0118, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x33d024…33d1b8 Dummy {f00=0x0118, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x33d1b8…33d34c Dummy {f00=0x0118, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x33d34c…33d4e0 Dummy {f00=0x0118, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x33d4e0…33d674 (4, 115) Dummy {f00=0x0118, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x33d674…33d808 Dummy {f00=0x0118, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x33d808…33d99c Dummy {f00=0x0118, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x33d99c…33db30 Dummy {f00=0x0118, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x33db30…33dcc4 Dummy {f00=0x0118, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x33dcc4…33de58 Dummy {f00=0x0118, f01=0x403c, f02=» 0 P******************************************** @ 8 P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x33de58…33dfec Dummy {f00=0x0118, f01=0x2008, f02=» P X ` h p
0x33dfec…33e180 Dummy {f00=0x0118, f01=0x0190, f02=» P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M . P RF(L) NOFAST NO! M h & P********************************** M & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P A
0x33e180…33e314 (4, 116) Opaque[0x194]
0x33e314…33e4a8 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1ed0, f03=0x0000}
0x33e314…33e4a8 IdxSect {
0x33e314…33e4a8 f00 = 0x00f6 // 0x33e314 @0x0
0x33e314…33e4a8 f01 = 0x0056 // 0x33e316 @0x2
0x33e314…33e4a8 gno = [ // 0x33e318 @0x4
0x33e314…33e4a8 [0x00]: C0x00f6.0x2.0
0x33e314…33e4a8 [0x01]: C0x00f6.0x3.0
0x33e314…33e4a8 [0x02]: C0x00f7.0x0.0
0x33e314…33e4a8 [0x03]: C0x00f7.0x1.0
0x33e314…33e4a8 [0x04]: C0x00f7.0x2.0
0x33e314…33e4a8 [0x05]: C0x00f7.0x3.0
0x33e314…33e4a8 [0x06]: C0x00f8.0x0.0
0x33e314…33e4a8 [0x07]: C0x00f8.0x1.0
0x33e314…33e4a8 [0x08]: C0x00f8.0x2.0
0x33e314…33e4a8 [0x09]: C0x00f8.0x3.0
0x33e314…33e4a8 [0x0a]: C0x00f9.0x0.0
0x33e314…33e4a8 [0x0b]: C0x00f9.0x1.0
0x33e314…33e4a8 [0x0c]: C0x00f9.0x2.0
0x33e314…33e4a8 [0x0d]: C0x00f9.0x3.0
0x33e314…33e4a8 [0x0e]: C0x00fa.0x0.0
0x33e314…33e4a8 [0x0f]: C0x00fa.0x1.0
0x33e314…33e4a8 [0x10]: C0x00fa.0x2.0
0x33e314…33e4a8 [0x11]: C0x00fa.0x3.0
0x33e314…33e4a8 [0x12]: C0x00fb.0x0.0
0x33e314…33e4a8 [0x13]: C0x00fb.0x1.0
0x33e314…33e4a8 [0x14]: C0x00fb.0x2.0
0x33e314…33e4a8 [0x15]: C0x00fb.0x3.0
0x33e314…33e4a8 [0x16]: C0x00fc.0x0.0
0x33e314…33e4a8 [0x17]: C0x00fc.0x1.0
0x33e314…33e4a8 [0x18]: C0x00fc.0x2.0
0x33e314…33e4a8 [0x19]: C0x00fc.0x3.0
0x33e314…33e4a8 [0x1a]: C0x00fd.0x0.0
0x33e314…33e4a8 [0x1b]: C0x00fd.0x1.0
0x33e314…33e4a8 [0x1c]: C0x00fd.0x2.0
0x33e314…33e4a8 [0x1d]: C0x00fd.0x3.0
0x33e314…33e4a8 [0x1e]: C0x00fe.0x0.0
0x33e314…33e4a8 [0x1f]: C0x0118.0x2.0
0x33e314…33e4a8 [0x20]: C0x0118.0x3.0
0x33e314…33e4a8 [0x21]: C0x0119.0x0.0
0x33e314…33e4a8 [0x22]: C0x011a.0x0.0
0x33e314…33e4a8 [0x23]: C0x011a.0x1.0
0x33e314…33e4a8 [0x24]: C0x011a.0x2.0
0x33e314…33e4a8 [0x25]: C0x011a.0x3.0
0x33e314…33e4a8 [0x26]: C0x011b.0x0.0
0x33e314…33e4a8 [0x27]: C0x011b.0x1.0
0x33e314…33e4a8 [0x28]: C0x011b.0x2.0
0x33e314…33e4a8 [0x29]: C0x011b.0x3.0
0x33e314…33e4a8 [0x2a]: C0x011c.0x0.0
0x33e314…33e4a8 ]
0x33e314…33e4a8 }
0x33e4a8…33e63c Dummy {f00=0x00f6, f01=0x018e, f02=» 2 P IDENT SYSLDA REL 10.0 80-05-29 870105041000 P : P REL 10.0 80-03-14 B * P =1,FAULTY STACK BASE WHEN USING MMU ^ P P > P********************************************************** P* $ P* PHILIPS TERMINAL SYS
0x33e63c…33e7d0 Dummy {f00=0x00f6, f01=0x0190, f02=» P* > P********************************************************** P* T P* ^ F P* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION h B P* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS F P* ENTERED AFTE
0x33e7d0…33e964 Dummy {f00=0x00f6, f01=0x0190, f02=» P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * F P* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S x $ P* MM-TABLES ARE FILLED IN. P* P* CREDIT APPLICATI
0x33e964…33eaf8 Dummy {f00=0x00f6, f01=0x0190, f02=»REAL TASKS & ^ . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE F , P* DDIV-PROTOTYPE TO FOLLOW SYSLDA. P* H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES
0x33eaf8…33ec8c Dummy {f00=0x00f6, f01=0x0190, f02=»LLOCATED AT 'BOTTOM' OF d H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSLDA. l P* H P* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES F P* IN USER TASK TTAB'S ARE FILLED. A
0x33ec8c…33ee20 Dummy {f00=0x00f6, f01=0x0190, f02=»* v P* * P* ENTRIES AND EXTERNALS * . P* * R P*************************** v P P* LABEL ENTRIES , P ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE P ENTRY SYSLDX P ENT
0x33ee20…33efb4 (4, 117) Dummy {f00=0x00f6, f01=0x0190, f02=»RROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK j * P ENTRY CONVRT CONVERSION ASCII-BINARY 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P E
0x33efb4…33f148 Dummy {f00=0x00f6, f01=0x0190, f02=»BSOLUTE START ADDRESS OF WORK-TAB 1 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 , 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' d , P ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE . P ENTRY SYSBUF TEMPORARY MOVE-BUFFER START 4 P ENTRY M:REL
0x33f148…33f2dc Dummy {f00=0x00f6, f01=0x0190, f02=»NTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ( & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 R & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 | & P ENTRY SAVE21,SAVE22,SAVE23,SAVE24 & P ENTRY SAVE25,SAVE26,SAVE27,SAVE28 P ENTRY SAVE29,
0x33f2dc…33f470 Dummy {f00=0x00f6, f01=0x0190, f02=» FREE AREA z 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS H P EXTRN SCTSTB A15 STACK-BASE l " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMM
0x33f470…33f604 Dummy {f00=0x00f6, f01=0x0190, f02=» TABLE f P EXTRN SCTBUG BUGGER ADDRESS P 2 P* EXTERNAL LABELS : 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART T $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P EXTRN PFINI
0x33f604…33f798 Dummy {f00=0x00f6, f01=0x0190, f02=»XTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS . P EJECT j P x P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P********************************
0x33f798…33f92c Dummy {f00=0x00f6, f01=0x0190, f02=»ER z P PMMUSWB EQU MMUPAG+SWPBLK P 2 PSWBMMU EQU SWPBLK-MMUPAG : P EJECT Z P h P PROGRAM STRUCTURE: p P F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x33f92c…33fac0 Dummy {f00=0x00f6, f01=0x0190, f02=»-------------------------------------------! z F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! 4 F P* !-----------------------------------------------------! ~ F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.
0x33fac0…33fc54 (4, 118) Dummy {f00=0x00f7, f01=0x018e, f02=» ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! j F P* ! -FILL MM-TABLE IN TTAB ! F P*
0x33fc54…33fde8 Dummy {f00=0x00f7, f01=0x0190, f02=» F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! N F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !--------------------------
0x33fde8…33ff7c Dummy {f00=0x00f7, f01=0x0190, f02=»OVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! F P* ! ! : F P* ! C O M D A T ! F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & U
0x33ff7c…340110 Dummy {f00=0x00f7, f01=0x0190, f02=» ! b F P* ! ! F P* ! C L A D A T ! f F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* !
0x340110…3402a4 Dummy {f00=0x00f7, f01=0x0190, f02=» ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S ! H F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F P* ! -SEARCH DBLK-TAB FOR DWB'S. MO
0x3402a4…340438 Dummy {f00=0x00f7, f01=0x0190, f02=» ! p F P* ! P R O D A T ! * F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! t F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P
0x340438…3405cc Dummy {f00=0x00f7, f01=0x0190, f02=» ! R F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! V F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x3405cc…340760 Dummy {f00=0x00f7, f01=0x0190, f02=» ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! @ F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! F P* ! ! -QUEUE 1:S
0x340760…3408f4 (4, 119) Dummy {f00=0x00f7, f01=0x0190, f02=»-------------------------! h F P* ! REAL TASKS' IS BUILT AT ! " F P* ! THE END OF MONITOR. ! l F P* ! U:BTAB: ! F P*
0x3408f4…340a88 Dummy {f00=0x00f7, f01=0x0190, f02=» F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! N F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U
0x340a88…340c1c Dummy {f00=0x00f7, f01=0x0190, f02=» ! v F P* ! -CONTINUE IN PART 2.A ! 0 F P* !-----------------------------------------------------! z P EJECT P P ***************** P ************
0x340c1c…340db0 Dummy {f00=0x00f7, f01=0x0190, f02=»********* P P********** P* P:MTAB * 0 P********** B PT:ATAB EQU 0 T PU:BTAB EQU 2 h PP:BAS EQU 6 SEGMENT BASE | . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42
0x340db0…340f44 Dummy {f00=0x00f7, f01=0x0190, f02=»ITIAL U:BTAB p " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME : 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ^ P* . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNU
0x340f44…3410d8 Dummy {f00=0x00f7, f01=0x0190, f02=»*********** | $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* < P d P* TASK DEFINITION BLOCK: p PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK ID START VALUE
0x3410d8…34126c Dummy {f00=0x00f7, f01=0x0190, f02=»VICE CLASSES f P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS H PTLC EQU 6 LINE CONNECTION p ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON
0x34126c…341400 Dummy {f00=0x00f7, f01=0x018e, f02=»+2 FIRST SDC-RECORD P* P* & & P* USER WORK BLOCK TYPE DEF. BLOCK 0 PUDBBT EQU 0 1A BLOCK TYPE Z , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES | P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL
0x341400…341594 (4, 120) Dummy {f00=0x00f7, f01=0x018e, f02=» P* T:A * P********* PT:ASTA EQU -14 T:A START ( 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) H $ PCSB EQU -12 CURRENT SEGMENT BASE 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH 2 P OF ALL DSCB
0x341594…341728 Dummy {f00=0x00f7, f01=0x0190, f02=» j P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END 2 PPA EQU 0 STACK POINTER P PSTKB EQU 2 STACK BASE n " PWATFST EQU 4 FIRST WAT-ELEMENT P* P* DSCB-RECORD: PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDR
0x341728…3418bc Dummy {f00=0x00f7, f01=0x0190, f02=» P********* P* T:D * P********* , ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A > , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) j , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FO
0x3418bc…341a50 Dummy {f00=0x00f7, f01=0x0190, f02=»4 MASK FOR UWB'S -"- ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! " P ! N . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! V P ! P ! P**************** ! P* SOP-HANDLING * ! P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P !
0x341a50…341be4 Dummy {f00=0x00f7, f01=0x0190, f02=» /100 MEMORY OVERFLOW ! & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " H " PLMP6 EQU /20 UWB OR SWB ERROR " f " PLMP7 EQU /10 MM-TABLE OVERFLOW " PLMP8 EQU 8 " PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT "
0x341be4…341d78 Dummy {f00=0x00f7, f01=0x0190, f02=»OCK " r , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # < P # f $ PFCBDD1 EQU 8 DISP TO FIRST DSET # r $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # P # $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID
0x341d78…341f0c Dummy {f00=0x00f7, f01=0x0190, f02=» P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ , * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ ^ P $ ( PNTPA EQU 4 INTERPRETER START ADDRESS $ & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ $ PRTCDA EQU /1B RTC DEVICE ADDRE
0x341f0c…3420a0 Dummy {f00=0x00f7, f01=0x018e, f02=»A13 * $ h F P* DATA [REL-ADDRESS] * % " F P* * % l F P***************************************************************** % P %
0x3420a0…342234 (4, 121) Dummy {f00=0x00f7, f01=0x0190, f02=» % 6 P************************************************** & 6 P** ** & B 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & | 6 P** ** & 6 P************************
0x342234…3423c8 Dummy {f00=0x00f7, f01=0x0190, f02=»HANDLER & p & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' : P* ADJUST FOR PSW-ROUTINE * ' N P************************** ' p 4 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ' P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS T
0x3423c8…34255c Dummy {f00=0x00f7, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x34255c…3426f0 Dummy {f00=0x00f7, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x3426f0…342884 Dummy {f00=0x00f7, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x342884…342a18 Dummy {f00=0x00f7, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x342a18…342bac Dummy {f00=0x00f7, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x342bac…342d40 Dummy {f00=0x00f7, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x342d40…342ed4 (4, 122) Dummy {f00=0x00f8, f01=0x0190, f02=»SS INDICATOR - v P FOR TABLE-SCANNING . P DATA 0 . 2 : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . B P DATA 0 . @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRE
0x342ed4…343068 Dummy {f00=0x00f8, f01=0x0190, f02=» . 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / B " PUWB EQU *-REL U.W.B. INDICATOR / R P DATA 0 / x & PAPPTYP EQU *-REL APPLICATION TYPE / P DATA 0 / $ PSAVE01 EQU *-REL TEMPORARY SAVE / P DATA 0 / PSAVE02 EQU *-R
0x343068…3431fc Dummy {f00=0x00f8, f01=0x018e, f02=»0 / PSAVE06 EQU *-REL 0 P DATA 0 0 " PSAVE07 EQU *-REL 0 2 P DATA 0 0 J PSAVE08 EQU *-REL 0 Z P DATA 0 0 r PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 PSAVE10 EQU *-REL 0 P DATA 0 0 PSAVE11 EQU *-REL 0 P DATA 0 0 PSA
0x3431fc…343390 Dummy {f00=0x00f8, f01=0x018e, f02=» 0 ~ P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 0 PSAVE27 EQU *-REL 1 @ P DATA 0 1 X PSAVE28 EQU *-REL 1 h P DATA 0 1 PSAVE29 EQU *-REL 1 P DATA 0 1 PSAVE30 EQU *-REL 1 P DATA 0 1 & PWBADD EQU *-REL W.B.-ADDRESS SAVE 1
0x343390…343524 Dummy {f00=0x00f8, f01=0x0190, f02=» 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 @ * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P P DATA 0 2 ~ ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 2 P DATA 0 2 * PM:REL EQU *-REL RELOCATION FOR SYSLDM 2 P DATA 0 2 P
0x343524…3436b8 Dummy {f00=0x00f8, f01=0x0190, f02=» *-REL MMTABLE ADDRESS 2 P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 . P DATA 0 3 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 3 l P DATA 0 3 PFSTPAG EQU *-REL 3 ( P DATA 0 FIRST FREE PAGE (PHYSICALL) 3 ( PTTAB EQU *-REL CORRE
0x3436b8…34384c Dummy {f00=0x00f8, f01=0x0190, f02=»H 3 r P 4 P 4 P 4 & P********************************* 4 " & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 L & P********************************* 4 v P 4 PSAVE14 EQU U:BTOD 4 PSAVE15 EQU U:BTNW 4 PSAVE16 EQU MOVADD 4 PSAVE17 EQU ENDADD
0x34384c…3439e0 Dummy {f00=0x00f8, f01=0x0190, f02=»SAVE24 EQU FLAG 4 P EJECT 5 P 5 & P* MMU TABLES * 5 . P 5 D P 5 L . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5 T P IFT MMUPAG=1 5 P RES 16 5 P XIF 5 P 5 $ PMMTAB EQU *-REL WORK AREA MM-TAB 5 PTABBE EQU * 5 P IFT MMUPAG=
0x3439e0…343b74 (4, 123) Dummy {f00=0x00f8, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x343b74…343d08 Dummy {f00=0x00f8, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x343d08…343e9c Dummy {f00=0x00f8, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x343e9c…344030 Dummy {f00=0x00f8, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x344030…3441c4 Dummy {f00=0x00f8, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x3441c4…344358 Dummy {f00=0x00f8, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x344358…3444ec Dummy {f00=0x00f8, f01=0x0190, f02=» ; 4 P** M O V I N G ** < 4 P** ** < D 4 P** ** < | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < 4 P** ASSUMED TO BE DATA-PART
0x3444ec…344680 Dummy {f00=0x00f8, f01=0x0190, f02=» 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** = t 4 P** WORK-REG: A4 ** = 4 P************************************
0x344680…344814 (4, 124) Dummy {f00=0x00f8, f01=0x0190, f02=»FE MAKE EVEN ADDRESS = P ST A11,SAVE01,A13 SAVE A11 > P ST A9,SAVE12,A13 SAVE A9 > @ P LDR A11,A2 > b * P LD A9,DATEND,A13 END OF PROTOTYP AREA > v " P CALL CMPADR COMPARE ADDRESSES > P RF(NL) MOV020 > ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW >
0x344814…3449a8 Dummy {f00=0x00f8, f01=0x0190, f02=»A13 NEW ADDRESS > ( P LD A9,SAVE12,A13 RESTORE REGISTERS ? P LD A11,SAVE01,A13 ? D P RB MOVES ? ^ P XIF ? p P IFT CREDIT+MMUPAG=2 ? | P EJECT ? ? 4 P** X M O V E ** ? 4 P**
0x3449a8…344b3c Dummy {f00=0x00f8, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** ? 4 P** -MOVE TO USER AREA ** @ 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** @ n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** @ 4 P**
0x344b3c…344cd0 Dummy {f00=0x00f8, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** @ 4 P** WORK.REGS:A4,A10 ** A . 4 P************************************************ A f P A PXMOVE EQU * A P ST A1,SAVE09,A13 A P ST A1,SAVE07,A13 A P ST A2,SAVE10,A13 A P
0x344cd0…344e64 Dummy {f00=0x00f8, f01=0x0190, f02=» PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE B h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE B . P CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH B " RF(G) SPLIT
0x344e64…344ff8 Dummy {f00=0x00f8, f01=0x0190, f02=»ER START-ADDRESS B p $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C @ 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS C p P LD A1,SYSBUF,A13 C 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS C LDR A3,A10 GET LENGTH
0x344ff8…34518c Dummy {f00=0x00f8, f01=0x0190, f02=»V30 NO! C P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D $ * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D X $ SUR A3,A10 SUBTRACT MOVED PART D P ST A3,SAVE11,A13 SAVE D P CWR A3,A10 D P RB(NL) XMOV10 D P LDR A10,A3 LAST L
0x34518c…345320 Dummy {f00=0x00f8, f01=0x0190, f02=» DV BUFSIZ,A13 AND DIVIDE E 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) E & & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 E E 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' E , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' E P LD
0x345320…3454b4 (4, 125) Dummy {f00=0x00f8, f01=0x0190, f02=»N G ** E v 4 P** ** F 4 P** ** F V 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** F 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** F 4 P** IS ALW
0x3454b4…345648 Dummy {f00=0x00f8, f01=0x0190, f02=» &FYSPAG ** F n 4 P** IS UPDATED AND CHECKED. ** G 4 P** ** G N 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** G 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** G 4 P** OUTPUT:A2=LOGI
0x345648…3457dc Dummy {f00=0x00f8, f01=0x0190, f02=»***** G f P H PMOVING EQU * H P ST A11,SAVE01,A13 SAVE A11 H * P ST A9,SAVE12,A13 SAVE A9 H N . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE H p & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS H 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB H " LDR*
0x3457dc…345970 Dummy {f00=0x00f8, f01=0x0190, f02=»400 ADJUST FOR 'SETTAB' H $ P CALL SETTAB NEW PAGE IN TABLE! I 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS I H ANKL A11,/FFF I * P LDR A9,A3 GET LENGTH OF AREA TO MOVE I 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? I P RF(NL) MOV020
0x345970…345b04 Dummy {f00=0x00f8, f01=0x0190, f02=» ADKL A11,4096 PHYSICAL PAGE INCREMENT I P RB MOV015 J . 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J @ PMOV025 RF(NN) MOV050 J v * PMOV030 CALL SETTAB NEW PAGE IN TABLE! J & ! ADKL A11,4096 NEW PAGE INCREMENT J ( P RB(N) MOV030 NOT ENOUGH. NEW
0x345b04…345c98 Dummy {f00=0x00f8, f01=0x0190, f02=» J t " P* A2=CURRENT ENTRY IN MM-TABLE K K . PMOV050 EQU * K 6 , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB K J 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER K z 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. K & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS
0x345c98…345e2c Dummy {f00=0x00f8, f01=0x0190, f02=» * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE L P ANKL A2,/FFFE EVEN ADDRESS L 2 , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS L V P* CHECK ADDRESSES * L P L * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE L P ST A11,SAVE07,A13 SAVE A11 L P LD A11,FYSP
0x345e2c…345fc0 Dummy {f00=0x00f8, f01=0x0190, f02=» P LD A9,FSTADR,A13 M P CALL CMPADR M P RF(NL) MOV090 OK! M 2 PMOV070 LDKL A1,LMP3 M L P CALL ERROR M h PMOV090 EQU * M | P CALL XMOVE MOVE M P LD A9,SAVE12,A13 M ( P LD A11,SAVE01,A13 RESTORE REGISTERS M $ P TL* MMFROM,A13 RESTORE MM
0x345fc0…346154 (4, 126) Dummy {f00=0x00f9, f01=0x0190, f02=» ** M v 6 P** ** N 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N Z 6 P** OVERFLOW. ** N 6 P** ** N 6 P
0x346154…3462e8 Dummy {f00=0x00f9, f01=0x0190, f02=»S UPDATED ** N | 6 P** WORK.REG: A9 ** O & 6 P************************************************* O ` P O PSETTAB EQU * O SUKL A4,/400 GET NEXT PAGE O SUK A2,2 GET NEXT ENTRY O P O " P* CHEC
0x3462e8…34647c Dummy {f00=0x00f9, f01=0x0190, f02=» O r P RF(NN) SETT00 P P CWR A9,A2 P P RF SETT05 P 0 PSETT00 CWR A2,A9 OVERFLOW? P B PSETT05 RF(NL) SETT10 NO P d P LDK A1,LMP7 P P CALL ERROR P PSETT10 EQU * P STR A4,A2 STORE IN TABLE P RTN A14 P P XIF P P IFF CREDI
0x34647c…346610 Dummy {f00=0x00f9, f01=0x018e, f02=» ** P f 4 P** ** Q 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** Q F 4 P** MENT IN T:A ** Q ~ 4 P** ** Q 4 P** INPUT : A8= POINTER TO
0x346610…3467a4 Dummy {f00=0x00f9, f01=0x0190, f02=» Q ^ 4 P** TADISP=A4 ** R 4 P** A11=W.B.-ADDRESS ** R @ 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** R x 4 P*********************************************** R P R PGETWB EQU * R " P
0x3467a4…346938 Dummy {f00=0x00f9, f01=0x0190, f02=»T R n P IFT CREDIT-MMUPAG=1 S P LDR* A11,A8 GET T:A-ADDRESS S & P ADR A11,A4 ADD DISPLACEMENT S J P ST A11,WBADD,A13 SAVE S n " P LDR* A11,A11 GET W.B.-ADDRESS S P XIF S P IFT CREDIT+MMUPAG=2 S 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? S
0x346938…346acc Dummy {f00=0x00f9, f01=0x0190, f02=»NT S v P ST A11,WBADD,A13 SAVE T " P ELR A11,A11 GET W.B.-ADDRESS T ( & P TL* MMFROM,A13 RELOAD FROM-TABLE T N P XIF T x P IFF CREDIT=0 T P RTN A14 T P EJECT T P T P T 8 P** M O V W B ** T
0x346acc…346c60 Dummy {f00=0x00f9, f01=0x0190, f02=»K-BLOCK. W.B.-ADDRESS IS UPDATED ** T 8 P** ** U 0 8 P** INPUT: A11=W.B.-ADDRESS ** U l 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** U 8 P** WORK-REGS: A1-A4
0x346c60…346df4 (4, 127) Dummy {f00=0x00f9, f01=0x0190, f02=»ESS U | P ADKL A1,WBLEN FROM-ADDRESS V P IFT CREDIT-MMUPAG=1 V 0 P LDR* A3,A1 LENGTH V L P CALL MOVING V f 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT V z 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P XIF V P IFT CREDIT+MMUP
0x346df4…346f88 Dummy {f00=0x00f9, f01=0x0190, f02=» DATA-PART PROCESSING? V | P RF(Z) MOVW10 NO! W P TL* MMTO,A13 LOAD TO-TABLE W 8 : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE W P XIF W P IFF CREDIT=0 W P RTN A14 W P EJECT W P
0x346f88…34711c Dummy {f00=0x00f9, f01=0x0190, f02=» W Z : P** ** X : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** X F : P** ** X : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** X : P** OUTP
0x34711c…3472b0 Dummy {f00=0x00f9, f01=0x018e, f02=»********************************* X | P Y * PMOVDT EQU * Y 6 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT Y J & P SUK A1,2 POINTER TO D.T.-ADDRESS Y P IFT CREDIT-MMUPAG=1 Y P LDR* A1,A1 D.T.-ADDRESS Y * P ADKL A1,DTLEN ADJUST FOR LENG
0x3472b0…347444 Dummy {f00=0x00f9, f01=0x0190, f02=» Y P SUKL A1,DTLEN Z 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Z P XIF Z V P IFT CREDIT+MMUPAG=2 Z b P ELR A1,A1 D.T.-ADDRESS Z ~ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P ELR A3,A1 LENGTH Z P
0x347444…3475d8 Dummy {f00=0x00f9, f01=0x0190, f02=» Z ` P XIF [ P IFF CREDIT=0 [ P RTN A14 [ * P EJECT [ : P [ H < P** M O V D W B ** [ T < P** ** [ < P**
0x3475d8…34776c Dummy {f00=0x00f9, f01=0x0190, f02=» < P** ** < P** INPUT : A12=T:D-ADDRESS ** D < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** < P**
0x34776c…347900 Dummy {f00=0x00f9, f01=0x0190, f02=»MOVDWB EQU * P ST A6,SAVE05,A13 SAVE A5 ] P LDK A6,0 ] 6 ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER ] H " P ADK A4,1 FIRST WAT-ELEMENT =1 ] t P IFT CREDIT-MMUPAG=1 ] P LD A2,WATLEN,A12 ] P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A1
0x347900…347a94 (4, 128) Dummy {f00=0x00f9, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x347a94…347c28 Dummy {f00=0x00f9, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x347c28…347dbc Dummy {f00=0x00f9, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x347dbc…347f50 Dummy {f00=0x00f9, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x347f50…3480e4 Dummy {f00=0x00f9, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x3480e4…348278 Dummy {f00=0x00f9, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x348278…34840c Dummy {f00=0x00f9, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x34840c…3485a0 Dummy {f00=0x00f9, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x3485a0…348734 (4, 129) Dummy {f00=0x00f9, f01=0x0190, f02=» A L L B U F ** e 4 P** ** f 0 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** f h 4 P** TERMINAL STACK ** f 4 P** **
0x348734…3488c8 Dummy {f00=0x00f9, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x3488c8…348a5c Dummy {f00=0x00f9, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x348a5c…348bf0 Dummy {f00=0x00f9, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x348bf0…348d84 Dummy {f00=0x00f9, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x348d84…348f18 Dummy {f00=0x00f9, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x348f18…3490ac Dummy {f00=0x00f9, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x3490ac…349240 Dummy {f00=0x00f9, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x349240…3493d4 (4, 130) Dummy {f00=0x00fa, f01=0x0190, f02=» A9,A3 ALLOCATE BUFFER FROM TOP m P ADKL A9,1 n ( P ANKL A9,/FFFE EVEN ADDRESS n : P* CHECK ADDRESS: n ^ P n v " P LD A11,LSTADR,A13 DATA START n P CALL CMPADR n P RF(NL) ALLB60 OK! n P LDKL A1,LMP3 n P CALL ERROR n PALLB60 E
0x3493d4…349568 Dummy {f00=0x00fa, f01=0x0190, f02=»FROM 'BOTTOM' n n & P ES A2,BA,A1 STORE BUFFER ADDRESS o P XIF o @ P IFF CREDIT=0 o L P RB ALLB10 o b P o t , P* RESERVE STACK AND SET STACKPOINTERS * o P o PALLB70 EQU * o P IFT CREDIT-MMUPAG=1 o P LDR* A1,A8 GET T:A-ADDRESS o
0x349568…3496fc Dummy {f00=0x00fa, f01=0x0190, f02=»E o r PALLB80 EQU * p P ST A4,STKB,A1 SET STACKBASE p P STR A4,A1 STACK POINTER p B P CALL MOVING ALLOCATE STACK p b P ST A2,STKE,A1 SET STACK-END p P XIF p P IFT CREDIT+MMUPAG=2 p P ELR A1,A8 GET T:A-ADDRESS p P EL A3,CSE,A1 GET ST
0x3496fc…349890 Dummy {f00=0x00fa, f01=0x0190, f02=»ZE p n P CALL MOVING ALLOCATE STACK q " P ES A2,STKE,A1 STORE STACK END q . " P EL A3,STKB,A1 GET STACK SIZE q T " P ADR A2,A3 COMPUTE STACK BASE q z . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 q $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STO
0x349890…349a24 Dummy {f00=0x00fa, f01=0x0190, f02=» ** q p 4 P** ** r 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** r P 4 P** FORMAT CONTROL BLOCK ** r 4 P** ** r 4 P** INPUT : A8=T
0x349a24…349bb8 Dummy {f00=0x00fa, f01=0x0190, f02=»ART ** r h 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** s 4 P** WORKREGS: A1-A4 ** s H 4 P************************************************ s P s PMOVT:A EQU * s P IFT CREDIT-MMUPAG=1 s P LDR* A1,A8 GET T:A-ADDR
0x349bb8…349d4c Dummy {f00=0x00fa, f01=0x0190, f02=»WATFST A3=LENGTH s P AD A1,CIA,A1 FROM-ADDRESS t P CALL MOVING t : P LDR* A4,A8 t N " P SU A2,CIA,A4 NEW T:A-ADDRESS t b $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t P t P LD A3,FCD,A
0x349d4c…349ee0 Dummy {f00=0x00fa, f01=0x0190, f02=»TASK DATA PROCESSING? t z P RF(Z) MOVT05 NO! u : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) u 8 PMOVT05 EQU * u v P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u PMOVT10 RTN A14 u P XIF u P IFT CREDIT+MMUPAG=2 u P u P ELR
0x349ee0…34a074 (4, 131) Dummy {f00=0x00fa, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x34a074…34a208 Dummy {f00=0x00fa, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x34a208…34a39c Dummy {f00=0x00fa, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x34a39c…34a530 Dummy {f00=0x00fa, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x34a530…34a6c4 Dummy {f00=0x00fa, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x34a6c4…34a858 Dummy {f00=0x00fa, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x34a858…34a9ec Dummy {f00=0x00fa, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x34a9ec…34ab80 Dummy {f00=0x00fa, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x34ab80…34ad14 (4, 132) Dummy {f00=0x00fa, f01=0x0190, f02=»UK A2,1 DECREMENT BIT COUNTER } P RB IBAM10 ~ & P* ~ 8 & P* UPDATE MOVED MASK IN FIRST T:A ~ B P* ~ l P XIF ~ v P IFT CREDIT-MMUPAG=1 ~ & PIBAM20 LDR* A2,A8 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURR
0x34ad14…34aea8 Dummy {f00=0x00fa, f01=0x0190, f02=»* A2,A6 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED H * P STR A3,A2 STORE NEW MOVED BLOCK MASK x P XIF P IFT CREDIT+MMUPAG=2 $ PIBAM20 ELR A2,A8 GET T:A POINTER $ P ELR A3,A2 GET MOV
0x34aea8…34b03c Dummy {f00=0x00fa, f01=0x0190, f02=»MOVED MASK IN SECOND T:A P* P ELR A2,A6 GET T:A POINTER * $ P ELR A3,A2 GET MOVED BLOCK MASK L , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED t * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF P IFF CREDIT=0 P RTN A14 P EJE
0x34b03c…34b1d0 Dummy {f00=0x00fa, f01=0x0190, f02=» * ` J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ===================================== * l J P* * J P
0x34b1d0…34b364 Dummy {f00=0x00fa, f01=0x0190, f02=» * V J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * b J P* * J P* EXIT:
0x34b364…34b4f8 Dummy {f00=0x00fa, f01=0x0190, f02=»* L J P* WORK REGISTER: A1,A2 * J P* * X J P* SUBROUTINES: * J P*
0x34b4f8…34b68c Dummy {f00=0x00fa, f01=0x0190, f02=» EJECT PCHKMVD EQU * P IFT CREDIT-MMUPAG=1 " P LDR* A1,A8 GET T:A POINTER > $ P LDR* A1,A1 GET MOVED BLOCK MASK b P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P
0x34b68c…34b820 Dummy {f00=0x00fa, f01=0x0190, f02=»LL A1,1 NEXT BIT IN MOVED BLOCK MASK $ P SUK A2,1 DECREMENT BIT COUNTER , P RB CHKM10 T PCHKM20 ADK A1,0 SET CR f * P CFI A14,PSW,A13 PUT CONDITION IN PSW P RTN A14 P EJECT P P : P***** S * U * P * E * R * L
0x34b820…34b9b4 (4, 133) Dummy {f00=0x00fa, f01=0x018e, f02=» ** d : P** ** : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** P : P** INPUT : A7=MASK WORD ** : P** OUTPUT: BIT=BIT NUMBER ** :
0x34b9b4…34bb48 Dummy {f00=0x00fa, f01=0x0190, f02=» PSHIFT EQU * " P CM BIT,A13 RESET BIT COUNTER P LDR A7,A7 > P RF SHIF20 P & PSKIFTA EQU * ENTRY: CONTINUE SHIFT b PSHIF10 IM BIT,A13 P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 *
0x34bb48…34bcdc Dummy {f00=0x00fa, f01=0x0190, f02=»L T ** z 4 P** ** " 4 P** ** Z 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** 4 P** ** 4 P** IN
0x34bcdc…34be70 Dummy {f00=0x00fa, f01=0x0190, f02=»****************** r PMULT EQU * P ST A3,MUL,A13 , " P STR A2,A14 SAVE A2 TEMPORARY B P LDK A3,0 h PADD AD A3,MUL,A13 z P SUK A2,1 P RB(NZ) ADD P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT
0x34be70…34c004 Dummy {f00=0x00fa, f01=0x0190, f02=» ** 4 P** FIND LAST USED ENTRY IN MM-TAB. SCAN ** * 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** b 4 P** ** 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4
0x34c004…34c198 Dummy {f00=0x00fa, f01=0x0190, f02=»TAB=A3 ** z 4 P** A1=CONTENTS OF 1:ST USED ENTRY ** " 4 P*********************************************** Z P PMMENT EQU * P LDR A9,A3 GET TABLE ADDRESS 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)
0x34c198…34c32c Dummy {f00=0x00fa, f01=0x0190, f02=»1,/FC00 P RB(Z) MMEN10 2 P ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS & P RTN A14 P XIF l P IFF CREDIT=0 x P EJECT P 2 P** G E T T A B ** 2 P** **
0x34c32c…34c4c0 Dummy {f00=0x00fa, f01=0x0190, f02=» ** | 2 P** INPUT :A8=POINTER TO T:A IN T:ATAB ** " 2 P** OUTPUT:A2=TTAB-ADDRESS ** X 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P**************
0x34c4c0…34c654 (4, 134) Dummy {f00=0x00fb, f01=0x018e, f02=»D A1,T:ATID,A10 GET TID TO MATCH " P LD A12,T:DAD,A10 T:D-ADDRESS ( P XIF N P IFT MMUPAG=1 Z P ELR A10,A8 T:A-ADDRESS p P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4
0x34c654…34c7e8 Dummy {f00=0x00fb, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTB:PP,A2 TCL EQUAL? P RB(NE) GETT10 NO! P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0
0x34c7e8…34c97c Dummy {f00=0x00fb, f01=0x0190, f02=» ** d 8 P** ** 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** L 8 P** 0, ENB. ** 8 P** ** 8 P** INPU
0x34c97c…34cb10 Dummy {f00=0x00fb, f01=0x0190, f02=»SS ** x 8 P*************************************************** $ P ` PQUEJOB EQU * h P* QUEUE THIS TASK (THIS TID) | P 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS P ADR A3,A13 RELOCATE P STR A3,A15 PUT
0x34cb10…34cca4 Dummy {f00=0x00fb, f01=0x0190, f02=»ABORT INDICATOR $ P LD A8,SCTLAC GET P:MTAB-ADDRESS P LDR A5,A2 GET TTAB-ADDRESS @ P IFT CREDIT-MMUPAG=1 d , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDR
0x34cca4…34ce38 Dummy {f00=0x00fb, f01=0x0190, f02=»ETT40 ALL! P LD A1,4,A4 DISP ADDRESS P LD A3,2,A4 SEGMENT NUMBER 2 , P LD A2,NTPA,A8 INTERPRETER START ADDRESS T P XIF P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK
0x34ce38…34cfcc Dummy {f00=0x00fb, f01=0x0190, f02=»1 DEC. NUMBER OF STARTPOINTS P RF(N) GETT40 ALL! $ P EL A1,4,A4 DISP ADDRESS > P EL A3,2,A4 SEGMENT NUMBER ^ , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT
0x34cfcc…34d160 Dummy {f00=0x00fb, f01=0x0190, f02=» P EJECT P 4 P** M O V M M T ** 4 P** ** R 4 P** ** 4 P** MOVE MM-TABLE ** 4 P**
0x34d160…34d2f4 (4, 135) Dummy {f00=0x00fb, f01=0x0190, f02=» ** j 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** 4 P** A9=TTAB ADDRESS ** J 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** P PMOVMMT EQU *
0x34d2f4…34d488 Dummy {f00=0x00fb, f01=0x0190, f02=»T FILL LAST ENTRY ADDRESS P TL* MMFROM,A13 RELOAD TABLE " P RTN A14 F P XIF V P IFF CREDIT=0 b P EJECT x @ P************************************************************ @ P* *
0x34d488…34d61c Dummy {f00=0x00fb, f01=0x0190, f02=» R @ P* ====================================================== * @ P* * L @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B.
0x34d61c…34d7b0 Dummy {f00=0x00fb, f01=0x0190, f02=» * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * @ P* * T @ P* EXIT: * @ P*
0x34d7b0…34d944 Dummy {f00=0x00fb, f01=0x0190, f02=» * d @ P* SUBROUTINES: GETTTB * @ P* * @ P************************************************************ PCHTAID EQU * 2 P LDR A8,A7 GET N
0x34d944…34dad8 Dummy {f00=0x00fb, f01=0x0190, f02=» ENTRY IN REAL T:ATAB | P IFT CREDIT-MMUPAG=1 ( P LDR* A1,A8 GET POINTER TO REAL T:A : $ P LD A1,T:ATID,A1 GET TCL IN T:A f . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB 6 P LD A3,TTB:SA+26,A2 GET CO
0x34dad8…34dc6c Dummy {f00=0x00fb, f01=0x0190, f02=» COMPUTE ENTRY IN AUX. TID TABLE ~ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE ( P XIF X P IFT CREDIT+MMUPAG=2 d & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR
0x34dc6c…34de00 Dummy {f00=0x00fb, f01=0x0190, f02=»TID IN TTAB *79-04-11* v 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* X 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AU
0x34de00…34df94 (4, 136) Dummy {f00=0x00fb, f01=0x0190, f02=»L SAVE AREA z P SUK A1,1 DECREMENT TCL P SUKL A8,2 DECREMENT 4 ( P SUK A6,1 DECREMENT NUMBER OF COPIES P P RB(P) CHT:20 NEXT COPY | PCHT:90 RTN A14 P EJECT P P 4 P************************************************ 4 P
0x34df94…34e128 Dummy {f00=0x00fb, f01=0x0190, f02=» ** x 4 P************************************************ P X 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * ` 4 P* SHADOW TABLE * 4 P* * 4 P
0x34e128…34e2bc Dummy {f00=0x00fb, f01=0x0190, f02=»A MONITOR END ADDRESS . P LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P P ADK A7,2 ~ P ST A8,SAVE03,A13 SAVE A8 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 P ADKL A8,2 P CW A8,ENDADD,A13 ALL?
0x34e2bc…34e450 Dummy {f00=0x00fb, f01=0x0190, f02=»TTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB . : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) B " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA320 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL
0x34e450…34e5e4 Dummy {f00=0x00fb, f01=0x0190, f02=» STORE IN REAL T:ATAB P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES 0 P EJECT X PSYA340 SUK A6,1 f P RF(P) SYA345 NEXT TASK ~ 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DA
0x34e5e4…34e778 Dummy {f00=0x00fb, f01=0x0190, f02=»8,A7 CHANGE T:A TO COPY 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK V 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB z " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO!
0x34e778…34e90c Dummy {f00=0x00fb, f01=0x0190, f02=»48 ADK A7,2 NEXT ENTRY IN REAL T:ATAB 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S . " P CALL ALLBUF ALLOCATE BUFFERS d P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD P P LDR A1,A5 * P AD* A1,SCTSFA
0x34e90c…34eaa0 Dummy {f00=0x00fb, f01=0x0190, f02=»GETTAB GET CORRESPONDING TTAB : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) & P LDR A1,A10 GET T:A-ADDRESS d 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST
0x34eaa0…34ec34 (4, 137) Dummy {f00=0x00fb, f01=0x0190, f02=»ATA TABLE | , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P B P SUK A2,2 START OF TABLE J P LDKL A12,/FC00 j PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL? P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 P
0x34ec34…34edc8 Dummy {f00=0x00fb, f01=0x0190, f02=»L A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES J PSYA340 SUK A6,1 r P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS PSYA345
0x34edc8…34ef5c Dummy {f00=0x00fb, f01=0x0190, f02=» TO TTAB v P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB . @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS V P LDR A8,A2 GET T:A-ADDRESS 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE I
0x34ef5c…34f0f0 Dummy {f00=0x00fb, f01=0x0190, f02=»WB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE * . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE N P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB
0x34f0f0…34f284 Dummy {f00=0x00fb, f01=0x0190, f02=» T:A t P XIF P IFF CREDIT=0 P RB SYA340 . P XIF @ P EJECT L PFINISH EQU *-REL Z P r P* ADJUST START OF FREE AREA z P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF FREE AREA . P LD A14,SA
0x34f284…34f418 Dummy {f00=0x00fb, f01=0x0190, f02=»2 P ORR A1,A2 P XIF P IFF CREDIT=1 ( P LD A1,SCTLAC > P XIF T P IFT MMUPAG-CREDIT=1 ` P ANKL A1,/03FF | P SLL A1,2 P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CRED
0x34f418…34f5ac Dummy {f00=0x00fb, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA $ P RF(NZ) SYA355 P P XIF f P LD A1,SCTSFA r PSYA355 ST A1,SCTSFA+2 P CM SCTSFA P IFT CREDIT=1 P EJECT D ?********************************************
0x34f5ac…34f740 Dummy {f00=0x00fb, f01=0x0190, f02=»E TABLE * l D ?* ========================= * $ D ?* * l D ?* REFERENCED IN: SYSLDA * D ?*
0x34f740…34f8d4 (4, 138) Dummy {f00=0x00fc, f01=0x0190, f02=» SCTEFA - END OF FREE AREA * D P* SAVE29 - NUMBER OF SEGMENTS * D D ?* SCTNOP - NUMBER OF PAGES * D ?* SCTPSZ - PAGE SIZE
0x34f8d4…34fa68 Dummy {f00=0x00fc, f01=0x0190, f02=» * d D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * d D ?* * D ?* WORK REGISTERS:
0x34fa68…34fbfc Dummy {f00=0x00fc, f01=0x0190, f02=»ES: * D ?* * < D ?* * D ?************************************************************
0x34fbfc…34fd90 Dummy {f00=0x00fc, f01=0x0190, f02=»ATION? h P ABR(Z) A2 NO! " LD A1,SCTOPT GET OPTION WORD $ ANK A1,3 PAGING? J P ABR(Z) A2 NO! d * z L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * , ' LD A11,SCTSFA+2 GET START OF FREE AREA
0x34fd90…34ff24 Dummy {f00=0x00fc, f01=0x0190, f02=» A7,0 RESET PAGE COUNTER PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? 4 RF(E) PAG:30 YES! d $ LDK A1,0 RESET NUMBER OF WORDS ~ PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIM
0x34ff24…3500b8 Dummy {f00=0x00fc, f01=0x0190, f02=»RAM OVERWRITE z " RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 < 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER N RB PAG:10 PAG:30 EQU * * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH
0x3500b8…35024c Dummy {f00=0x00fc, f01=0x0190, f02=»BITS OF 18-BITS ADDRESS p 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS X & ! SRL A2,2 SKIP TWO RIGHTMOST BITS , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2
0x35024c…3503e0 Dummy {f00=0x00fc, f01=0x018e, f02=»RESS h ( # ANKL A2,/0300 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT 8 ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT Z P XIF P IFT CREDIT-MMUPAG=1 $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT C
0x3503e0…350574 (4, 139) Dummy {f00=0x00fc, f01=0x0190, f02=» P CWR A10,A6 P RF PAG:33 PPAG:32 CWR A6,A10 * PPAG:33 RF(NG) PAG:40 D , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE ` LDR A1,A6 GET PAGE ADDRESS P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PA
0x350574…350708 Dummy {f00=0x00fc, f01=0x018e, f02=»PAG:34 LDK A1,0 END OF FREE AREA P XIF ( P IFT CREDIT=1 4 & "PAG:36 LDK A2,0 RESET WORD COUNTER J * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD t RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE?
0x350708…35089c Dummy {f00=0x00fc, f01=0x0190, f02=» P RF(NN) PAG382 P CWR A11,A1 P RF PAG384 . PPAG382 CWR A1,A11 @ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! Z PPAG:39 EQU * " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP
0x35089c…350a30 Dummy {f00=0x00fc, f01=0x0190, f02=» RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW : HLT HALT PROGRAM h 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE
0x350a30…350bc4 Dummy {f00=0x00fc, f01=0x0190, f02=»NOP SAVE NUMBER OF PAGES ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE L P XIF d P IFT CREDIT+MMUPAG=2 p * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P X
0x350bc4…350d58 Dummy {f00=0x00fc, f01=0x0190, f02=»TORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * 2 LDK A1,0 < @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. N . P LD A11,SAVE30,A13 START OF SEGMENT TABLE , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START
0x350d58…350eec Dummy {f00=0x00fc, f01=0x0190, f02=» GET STATUS . ) RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS F , ' STR A1,A12 RESET QUEUE POINTER FORWARD t . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,
0x350eec…351080 Dummy {f00=0x00fc, f01=0x0190, f02=»DKL A12,8 NEXT PAGE BLOCK 4 /PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER " RB(P) PAG:60 Z * p < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE z * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A1
0x351080…351214 (4, 140) Dummy {f00=0x00fc, f01=0x0190, f02=» d LDK A2,0 . *PAG:70 ST A11,2,A12 STORE BACKWARD POINTER $ ST A9,4,A12 STORE PAGE ADDRESS L $ ST A2,6,A12 INDICATE PAGE FREE t * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , '
0x351214…3513a8 Dummy {f00=0x00fc, f01=0x0190, f02=»DR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE " RB PAG:70 @ PAG:80 EQU * R & ! LDKL A1,PAGQUE POINTER TO PAGQUE f $ STR A1,A12 STORE IN LAST BLOCK & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL
0x3513a8…35153c Dummy {f00=0x00fc, f01=0x0190, f02=»DIT=0 , P LD A14,SCTLAC TRUE START OF APPLICATION P XIF > P =1 J P =1 X P =1 f P SUKL A14,8 ADJUST FOR MAP t * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1
0x35153c…3516d0 Dummy {f00=0x00fc, f01=0x0190, f02=»3,SYA370 RESTORE PROGRAM BASE OINTER P* , P* INIT A15 STACK 6 P* P P LD A15,SCTSTB Z P SUKL A15,4 p P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1
0x3516d0…351864 Dummy {f00=0x00fc, f01=0x0190, f02=» INITIALIZE DEVICES P CF A15,SAVE8 SAVE REGISTERS P* @ F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER J P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH
0x351864…3519f8 Dummy {f00=0x00fc, f01=0x0190, f02=»ES =1 ~ P* =1 P CIO A1,0,SOP =1 $ P ABL TDISP BRANCH TO DISPATCHER : P =1 b P =1 p P =1 ~ P =1 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTCDA P R
0x3519f8…351b8c Dummy {f00=0x00fc, f01=0x0190, f02=» *** 6 P** SYSLOAD PART 2.A ** * 6 P** ** d 6 P************************************************* P 6 P* BUILD COMMON AND TASKCLASS DATA AREA
0x351b8c…351d20 Dummy {f00=0x00fc, f01=0x0190, f02=»*********************************************** P 8 PPART2A EQU *-REL @ P X 0 P******************************************** ` 0 P*** *** 0 P** S U B R O U T I N E S ** 0 P************
0x351d20…351eb4 (4, 141) Dummy {f00=0x00fc, f01=0x0190, f02=» ** | 4 P** ** $ 4 P** GET T:D - ADDRESS ** 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 4 P**
0x351eb4…352048 Dummy {f00=0x00fc, f01=0x0190, f02=»DIT-MMUPAG=1 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 4 P XIF N P IFT CREDIT+MMUPAG=2 Z P ELR A12,A8 T:A ADDRESS v P EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 P AD A12,MOVADD,A13 RELOCATE P RTN A14 P E
0x352048…3521dc Dummy {f00=0x00fc, f01=0x0190, f02=» ** f 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** J 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 6 P** TO COMMON AREA ** 6 P**
0x3521dc…352370 Dummy {f00=0x00fc, f01=0x0190, f02=»ASK ** l 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** P 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** 6 P************************************************* P
0x352370…352504 Dummy {f00=0x00fc, f01=0x0190, f02=»A-DISPL b ( P ST A11,SAVE06,A13 SAVE W.B.-ADDRESS ( P CM MOVED,A13 CLEAR MOVED INDICATOR < P LDR A6,A8 h PMOVC10 ADK A6,2 NEXT T:A z P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1
0x352504…352698 Dummy {f00=0x00fc, f01=0x0190, f02=»D A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT,A13 ENOUGHT? . 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A N . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF
0x352698…35282c Dummy {f00=0x00fc, f01=0x0190, f02=»,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS . P CW A2,BIT,A13 ENOUGHT? ^ 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A ~ . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P ELR A11,A11 . P CW A11,SA
0x35282c…3529c0 Dummy {f00=0x00fc, f01=0x0190, f02=»D? n . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE < & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS f P CALL MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO
0x3529c0…352b54 (4, 142) Dummy {f00=0x00fd, f01=0x0190, f02=»CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER P ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS t & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS P CALL MOVDWB
0x352b54…352ce8 Dummy {f00=0x00fd, f01=0x0190, f02=» G E T P R O ** 4 P** ** . 4 P** ** f 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB **
0x352ce8…352e7c Dummy {f00=0x00fd, f01=0x0190, f02=»T W.B. - ADDRESS ** ~ 4 P** OUTPUT: A2=NEW ADDRESS ** & 4 P** WORK-REGS: A1-A5,A9 ** ^ 4 P************************************************ P PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BT
0x352e7c…353010 Dummy {f00=0x00fd, f01=0x0190, f02=»ENGTH d P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! $ P CALL ERROR H PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? p , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMB
0x353010…3531a4 Dummy {f00=0x00fd, f01=0x0190, f02=»11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF D , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT X . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 " P ST A4,URLENG,A9 STORE LENGTH * P ST A5,URNUMB,A9 STORE
0x3531a4…353338 Dummy {f00=0x00fd, f01=0x0190, f02=»1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 * PGETP40 CALL MOVWB @ P SUK A5,1 Z P RB(NZ) GETP40 l P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * 6 P ST A2,URADDR,A9 S
0x353338…3534cc Dummy {f00=0x00fd, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x3534cc…353660 Dummy {f00=0x00fd, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x353660…3537f4 (4, 143) Dummy {f00=0x00fd, f01=0x0190, f02=» " P ES A4,URLENG,A9 STORE LENGTH & P TL* MMFROM,A13 RELOAD FROM TABLE * 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * T 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP
0x3537f4…353988 Dummy {f00=0x00fd, f01=0x0190, f02=»************* | PGETP50 EQU * P TL* MMTO,A13 * 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB @ P TL* MMFROM,A13 z P XIF P IFF CREDIT=0 P RTN A14 P EJECT P 2 P** M O V C L A
0x353988…353b1c Dummy {f00=0x00fd, f01=0x0190, f02=»B. ALREADY MOVED TO COMMON ** 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** & 2 P** CHECK IF ANY DWB'S ** 2 P** ** 2 P** A LOT OF WORKREGS. ** 2 P**********
0x353b1c…353cb0 Dummy {f00=0x00fd, f01=0x0190, f02=»-ADDRESS TO A11 z & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! B , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING
0x353cb0…353e44 Dummy {f00=0x00fd, f01=0x0190, f02=»WB'S z P RB MVCL20 P EJECT P , P 8 6 P** C H A D R ** D 6 P** ** ~ 6 P** ** 6 P** CHANGE ADDRESS TO
0x353e44…353fd8 Dummy {f00=0x00fd, f01=0x0190, f02=» ** f 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS ** J 6 P** NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 6 P** WORK.REGS: A
0x353fd8…35416c Dummy {f00=0x00fd, f01=0x0190, f02=» CREDIT-MMUPAG=1 P LDR* A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS 8 P LD A2,NEWAD2,A13 j P STR A2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 P STR A2,A1 P XIF P IFT CREDIT+MMUP
0x35416c…354300 Dummy {f00=0x00fd, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P ESR A2,A1 D P XIF V P IFF CREDIT=0 b P RTN A14 x P XIF P IFT CREDIT+SWPBLK=2 P EJECT B P************************************************************** B P*
0x354300…354494 (4, 144) Dummy {f00=0x00fd, f01=0x0190, f02=»* B:RSWT - BUILD REAL SWB CONTROL TABLE * B P* ===================================== * F B P* * B P* REFERENCED IN: SYSLDA
0x354494…354628 Dummy {f00=0x00fd, f01=0x0190, f02=»BTAB * ^ B P* A5 - LENGTH OF REAL S:BTAB * B P* * Z B P* EXIT: * B P*
0x354628…3547bc Dummy {f00=0x00fd, f01=0x0190, f02=» * r B P* SUBROUTINES: * ( B P* * n B P************************************************************** P EJECT P
0x3547bc…354950 Dummy {f00=0x00fd, f01=0x0190, f02=» IN APPLICATION z P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE < P LDK A6,0 Z P SUK A5,2 SKIP LENGTH WORD l PRSWB10 ADK A1,2 NEXT TYPE P LDR* A4,A1 POINTER TO BLOCK P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4
0x354950…354ae4 Dummy {f00=0x00fd, f01=0x0190, f02=»B IN BYTES r P XIF P IFT CREDIT+SWBMMU=2 & P ST A6,2,A2 STORE NUMBER OF COPIES : , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES d P XIF P IFT CREDIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLO
0x354ae4…354c78 Dummy {f00=0x00fd, f01=0x018e, f02=»OR EACH SWB TYPE p ( P* AND RESET ALL WORDS IN TID BLOCKS P* D PRSWB20 EQU * N ( P LDR A6,A2 GET ADDRESS TO TID BLOCK b $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO C
0x354c78…354e0c Dummy {f00=0x00fd, f01=0x0190, f02=» f . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES : P RB(P) RSWB30 NEXT COPY b P XIF P IFT CREDIT+MMUSWB=3 $ P EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINT
0x354e0c…354fa0 Dummy {f00=0x00fd, f01=0x0190, f02=»REAL S:BTAB r ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY @ P XIF ` P IFT CREDIT+SWPBLK=2 l PRSWB50 ADKL A8,6 P CWR A8,A4 P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES P
0x354fa0…355134 (4, 145) Dummy {f00=0x00fd, f01=0x018e, f02=»********************** " P* START OF PROGRAM PART 2.A * " P***************************** D P j P* LOAD BASE ADDRESS * r P********************* P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS P* SA
0x355134…3552c8 Dummy {f00=0x00fd, f01=0x0190, f02=» ~ " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION ROUTINE . P CFR A8,A5 Z P* MOVE DDIV * l P & P LD A1,SAVE04,A13 GET FROM-ADDRESS $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV
0x3552c8…35545c Dummy {f00=0x00fd, f01=0x0190, f02=»OSGMT NO! ( P LDKL A8,0 RESET FSTADR IF SEGMENTS! P RF SEGMTS > 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP P " PSEGMTS ST A8,FSTADR,A13 STORE PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2
0x35545c…3555f0 Dummy {f00=0x00fd, f01=0x0190, f02=» MM-TABLE x P " P LDR A1,A9 GET P:MTAB ADDRESS $ P SRL A1,11 ADJUST FOR ADDRESSING @ P ANK A1,/1E h & P LDK A2,MMTAB-2 GET TABLE ADDRESS | P ADR A2,A13 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 PSYA205 CWR
0x3555f0…355784 Dummy {f00=0x00fd, f01=0x0190, f02=» EQU * P* CHANGE TABLE-ADDRESSES P LD A4,MMFROM,A13 . P LD A5,MMTO,A13 H P ST A4,MMTO,A13 ` P ST A5,MMFROM,A13 x P XIF P IFF CREDIT=0 P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P
0x355784…355918 Dummy {f00=0x00fd, f01=0x0190, f02=»RENT MM-TABLE z P ADR A3,A13 , P* FIND LAST USED ENTRY IN REAL MMUTAB * * P Z P CALL MMENT b P ST A9,TTAB,A13 v * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE * P CALL
0x355918…355aac Dummy {f00=0x00fd, f01=0x0190, f02=»SAVE NEW T:ATAB ADDRESS ~ P ADK A2,2 SKIP LENGTH WORD $ P LD A9,SCTLAC GET P:MTAB ADDRESS B $ P ES A2,T:ATAB,A9 STORE IN P:MTAB j $ P* RESERVE PLACE FOR T:AID TABLE P P LDR A3,A5 GET LENGTH P CALL MOVING P TL* MMTO,A13
0x355aac…355c40 Dummy {f00=0x00fd, f01=0x0190, f02=»ADJUST TABLE ADDRESS P ESR A2,A3 STORE IN P:MTAB P XIF > P IFF CREDIT=0 J ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH ` P LDR A5,A3 SAVE P CALL MOVING RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDI
0x355c40…355dd4 (4, 146) Dummy {f00=0x00fe, f01=0x0190, f02=»,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE ( * P CALL MOVING RESERVE SPACE FOR T:ATAB @ " P STR A5,A2 STORE T:ATAB LENGTH n . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESE
0x355dd4…355f68 Dummy {f00=0x00fe, f01=0x018e, f02=»ENGTH-WORD z , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB P XIF B P IFT CREDIT+MMUPAG=2 N $ P TL* MMTO,A13 SET CORRECT TABLE j P ESR A5,A2 STORE LENGTH P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P
0x355f68…3560fc Dummy {f00=0x00fe, f01=0x0190, f02=» f P LDR A5,A3 SAVE P CALL MOVING P ST A2,S:BTNW,A13 4 P XIF N P IFT CREDIT+MMUSWB=3 Z P TL* MMTO,A13 v P ESR A5,A2 P ADK A2,2 P ES A2,S:BTAB,A9 P CALL B:RSWT P XIF P IFT CREDIT+SWBMMU=2 P STR
0x3560fc…356290 Dummy {f00=0x00fe, f01=0x018e, f02=»AD TABLE | P XIF P IFF CREDIT=0 P EJECT 4 P B P* BUILD COMMON DATA AREA * N P************************** p P* SEARCH CWB'S: P ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A3,A
0x356290…356424 Dummy {f00=0x00fe, f01=0x0190, f02=» 0 P ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS PSYA210 EQU * < & P CM UWB,A13 INDICATE CWB-SCANNING P P ADKL A8,2 z P CW A8,ENDADD,A13 ALL DONE? P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1
0x356424…3565b8 Dummy {f00=0x00fe, f01=0x0190, f02=» P CALL SHIFT SUPER-LOOPA PSYA220 RF(Z) UWBCOM ALL! ( P CALL MOVCOM H P CALL SKIFTA P RB SYA220 p P EJECT P P PUWBCOM EQU * P* SEARCH UWB'S: P* & P IM UWB,A13 INDICATE UWB-SCANNING P
0x3565b8…35674c Dummy {f00=0x00fe, f01=0x0190, f02=» CREDIT=0 P CALL SHIFT " PSYA230 RB(Z) SYA210 ALL DONE! & PSYA235 CALL MOVCOM L PSYA240 CALL SKIFTA f P RB SYA230 P EJECT P * P* TASK CLASS DATA CONFIGURATION PART * * P************************************** P
0x35674c…3568e0 Dummy {f00=0x00fe, f01=0x0190, f02=»TE CWB x ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 : P RF(E) SYA270 ALL T:A'S DONE T ( P CALL T:DADD GET T:D ADDRESS TO A12 x P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB
0x3568e0…356a74 (4, 147) Dummy {f00=0x0118, f01=0x0190, f02=»NTS n P ADR A3,A12 ADD T:D-ADDRESS P LDR* A3,A3 . 0 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH F P CALL MULT AND MULTIPLY z P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE
0x356a74…356c08 Dummy {f00=0x0118, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 ( P* INITIATE MM-ADDRESS TABLE POINTER $ P P $ P LD A1,SCTSFA SHADOW TABLE START X & P AD* A1,SCTSFA ADDRESS TABLE START P ST A1,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x356c08…356d9c Dummy {f00=0x0118, f01=0x0190, f02=»E MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE P 8 P LD A1,SAVE06,A13 @ & P ADK A1,2 INCREMENT TABLE POINTER Z P ST A1,SAVE06,A13 RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE '
0x356d9c…356f30 Dummy {f00=0x0118, f01=0x0190, f02=» ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST 6 , P LDR A3,A1 GET NUMB. OF START-POINTS... b P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY
0x356f30…3570c4 Dummy {f00=0x0118, f01=0x0190, f02=»1,A8 GET T:A ADDRESS * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK J P XIF p P IFF CREDIT=0 | P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P*************************
0x3570c4…357258 Dummy {f00=0x0118, f01=0x0190, f02=»DIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF . P IFF CREDIT=0 : P CALL MOVCLA P P EJECT d P r P ~ " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT CREDIT-MMUPAG=1
0x357258…3573ec Dummy {f00=0x0118, f01=0x0190, f02=»UPAG=2 P EL A7,SWBMSK,A12 P RF(Z) SYA265 NONE ( P CALL SKRITT B PSYA265 EL A7,TWBMSK,A12 V P XIF v P IFF CREDIT=0 P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P
0x3573ec…357580 Dummy {f00=0x0118, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x357580…357714 (4, 148) Dummy {f00=0x0118, f01=0x0190, f02=» P & P* BUILD TASKDATA PROTOTYPE AREA * & P********************************* : PPRODAT EQU * d P =00001 x , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 &
0x357714…3578a8 Dummy {f00=0x0118, f01=0x018e, f02=»E MMU TABLE P XIF P IFF CREDIT=0 , P LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A 6 P CALL MOVING GET P:BAS f P IFT CREDIT-MMUPAG=1 & P LD A1,SCTLAC GET START OF P:MTAB P LD A1,P:BAS,A1 GET P:BAS $ P STR A1,A2 SAVE IN TRABUG'S
0x3578a8…357a3c Dummy {f00=0x0118, f01=0x018e, f02=» 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER PSYA272 EQU * 8 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE L P ST A2,TTB:SA+26,A8 SAVE A13 P IFT CREDIT+MMUPAG=2 & P LD A1,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT T
0x357a3c…357bd0 Dummy {f00=0x0118, f01=0x0190, f02=» & P TL* MMFROM,A13 RELOAD DDIV TABLE P XIF =00001 . P IFF CREDIT=0 =00001 D PSYA275 EQU * b P =00001 v P =00001 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x357bd0…357d64 Dummy {f00=0x0118, f01=0x0190, f02=»T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P H " P* CALCULATE LENGTH OF DSCB'S * T " P*** *** z P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL
0x357d64…357ef8 Dummy {f00=0x0118, f01=0x0190, f02=»EMENT r P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) 0 , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD Z 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START " P LD A2,STKB,A1 GET STACK SIZE $ P ST A2,CSE,A1 AND SAVE TEMPORA
0x357ef8…35808c Dummy {f00=0x0118, f01=0x0190, f02=»OCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB 4 P XIF b P IFT CREDIT+MMUPAG=2 n * P CALL GETTAB SET CORRECT TTAB-ADDRESS , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN
0x35808c…358220 Dummy {f00=0x0118, f01=0x0190, f02=»A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE 4 P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P***
0x358220…3583b4 (4, 149) Dummy {f00=0x0119, f01=0x018e, f02=»H x ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S 6 ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT ` P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 P
0x3583b4…358548 Dummy {f00=0x0119, f01=0x0190, f02=» & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE . P EL A2,P:BAS,A2 GET P:BAS V & P TL* MMFROM,A13 RELOAD DDIV TABLE x P ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P ESR
0x358548…3586dc Dummy {f00=0x0119, f01=0x0190, f02=»M FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA 6 P f . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS n P ADR A2,A13 ABSOLUT DITO P IFT CREDIT+MMUPAG=2 P LDR A3,A2 P ANKL A3,/F000 $ P SRL
0x3586dc…358870 Dummy {f00=0x0119, f01=0x0190, f02=» P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS " P XIF P P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS x P* MOVE T:ATAB P . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS P LDR* A1,A2 REAL L
0x358870…358a04 Dummy {f00=0x0119, f01=0x0190, f02=»1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 4 P CALL MOVE R P XIF d P IFT CREDIT+MMUPAG=2 p $ P TL* MMTO,A13 LOAD CORRECT TABLE & P ELR A1,A2 GET REAL T:ATAB LENGTH P TL* MMFROM,A13 RELOAD TABLE P ADR A
0x358a04…358b98 Dummy {f00=0x0119, f01=0x0190, f02=» GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 2 P CALL XMOVE P P XIF d P IFF CREDIT=0 p P P* CONTINUE IN PART 2.B * P * P LDKL A5,PART2B RELATIVE START ADDRESS P ADR A5,A13 ADD BASE ADDRESS P
0x358b98…358d2c Dummy {f00=0x0119, f01=0x0190, f02=»***** h 2 P******* ******* 2 P** ** D 2 P* SYSLOAD PART 1 * z 2 P** ** 2 P*****
0x358d2c…358ec0 Dummy {f00=0x0119, f01=0x0190, f02=» 2 P* SHADOW-TABLES * 2 P* * : 2 P********************************************* p P P XIF P P * P************************************* * P***
0x358ec0…359054 (4, 150) Dummy {f00=0x011a, f01=0x0190, f02=»********************************* P EJECT * P 8 P D 6 P** C O N V R T ** P 6 P** ** 6 P** ** 6 P** CONVER
0x359054…3591e8 Dummy {f00=0x011a, f01=0x018e, f02=» ** r 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2 ** V 6 P************************************************** P PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG
0x3591e8…35937c Dummy {f00=0x011a, f01=0x0190, f02=» P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 0 P ANK A3,/F GET ONE'S B P ADR A1,A3 ^ P RTN A14 p P EJECT P 6 P** N X T B L K ** 6 P** ** 6
0x35937c…359510 Dummy {f00=0x011a, f01=0x0190, f02=» ** ~ 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ( 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** b 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** 6 P** WORKREGS: A1,A3-A5 **
0x359510…3596a4 Dummy {f00=0x011a, f01=0x0190, f02=»CLASSES f 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 F P SLL A5,8 Z P LC A5,1,A11 l P CALL CONVRT P LDK A2,TDBREC P LDR A3,A1 P CALL MULT P ADR A11,A3 P ADKL A11,2 0 P LCR A5,A11 GET NU
0x3596a4…359838 Dummy {f00=0x011a, f01=0x0190, f02=» P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK ( P ADKL A11,2 J $ P LC A2,TDBBT,A11 GET BLOCK TYPE ^ P RTN A14 P P 8 P** G E T N U M ** 8 P**
0x359838…3599cc Dummy {f00=0x011a, f01=0x0190, f02=» ** b 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** J 8 P** OUTPUT: A5=BINARY VALUE ** 8 P** WORK.REGS: A2,A4 ** 8 P**********
0x3599cc…359b60 Dummy {f00=0x011a, f01=0x0190, f02=»SULT REG ~ P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT . P LCR A2,A6 GET CHAR P P ANK A2,/F l PGET050 SUK A2,1 ~ " P RF(N) GET100 THIS DIGIT READY P ADR A5,A4 ACCUMULATE P RB GET050 , PGET100 SUK A4,90 NEXT INCREM
0x359b60…359cf4 (4, 151) Dummy {f00=0x011a, f01=0x0190, f02=»JECT P P* START OF PROGRAM PART 1 * P 8 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS @ $ P* SAVE09=EXECUTION START ADDRESS x P " PSYSLDX EQU *-REL PROGRAM START P* P* INIT A15 STACK P* P LD A15,
0x359cf4…359e88 Dummy {f00=0x011a, f01=0x0190, f02=»NTIFICATION r P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## 6 P EL A2,CREID,A2 P P XIF h 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM t P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION? ( P RF(E) SYA100 YES! START CONFIGURA
0x359e88…35a01c Dummy {f00=0x011a, f01=0x0190, f02=»CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK 8 P LDKL A4,/00C0 X P STR A4,A15 PUT PSW ON STACK n P RTN A15 PSYA103 EQU *-REL P XIF P IFT MMUPAG-CREDIT=1 ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS
0x35a01c…35a1b0 Dummy {f00=0x011a, f01=0x0190, f02=»ENGTH OF TC:TAB | $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE @ 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER X * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN P* P* INIT UNUSED MMU ENTRIES P* P LDKL A1,/FC00 P L
0x35a1b0…35a344 Dummy {f00=0x011a, f01=0x0190, f02=»F(E) SYA105 P SUK A4,2 P STR A1,A4 & P RB SYA:10 8 PSYA105 SUK A5,2 ALL? J P RF(N) SYA107 YES! f P LDR* A2,A6 TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE P ADK A6,2 NEXT TTAB P RB SYA105 PSYA107 EQU * P XIF
0x35a344…35a4d8 Dummy {f00=0x011a, f01=0x0190, f02=»D A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER * P CF A15,ACTOT QUEUE TASK J " P LDKL A1,FINISH END OF SYSLDA j P ADR A1,A13 P ABR A1 P XIF PSYA100 EQU * P IFF CREDIT=0 P EJECT P , P* RE
0x35a4d8…35a66c Dummy {f00=0x011a, f01=0x018e, f02=» LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS * & P SUKL A12,2 ADJUST FOR LENGTH-WORD R P ST A12,T:ATOD,A13 SAVE | , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB " P SUK A4,2 INCLUDE LENGTH-WORD $ P ST A4,U:BTOD,A13 SAVE
0x35a66c…35a800 Dummy {f00=0x011a, f01=0x0190, f02=» n P ST A4,S:BTOD,A13 SAVE P XIF & P IFT CREDIT-MMUPAG=1 2 P* T:ATAB PROCESSING: N P j P LDR* A4,A12 T:ATAB-LENGTH v P LDR A3,A4 SAVE * P AD A3,SCTSFA ADD MONITOR END ADDRESS P* CHECK ADDRESSES P " P LDR A11
0x35a800…35a994 (4, 152) Dummy {f00=0x011a, f01=0x0190, f02=»RFLOW x P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS " P LDK A2,0 N P* CLEAR T:ATAB SHADOW-TABLE: ` P PZERO SUK A3,2 NEXT P STR A2,A3 CLEAR P CW A3,SCTSFA ALL? P RB(NE) ZERO NO! " P STR A4,A3 STORE TAB
0x35a994…35ab28 Dummy {f00=0x011a, f01=0x0190, f02=» SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR 8 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID L P SLL A2,8 . x P LC A2,TDBMC+5,A11 ... P CWK A2,'TB' BUGGER TASK? P RF(NE) SYA125 NO! : P ST A2,SAVE02,A13 INDICATE BUGGER
0x35ab28…35acbc Dummy {f00=0x011a, f01=0x0190, f02=» ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 @ P RF(NZ) SYA135 R 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) h P CALL ERROR PSYA135 EQU * P CW A2,T:ATID,A6 TID EQUAL? P RB(NE) SYA130 NO! P SUR*
0x35acbc…35ae50 Dummy {f00=0x011a, f01=0x0190, f02=»DDRESS v $ P SUKL A12,2 INCLUDE LENGTH WORD ! & P ST A12,T:ATOD,A13 SAVE IN SYSLDA ! 6 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS ! ` $ P SUK A4,2 ADJUST FOR LENGTH WORD ! $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA ! P XIF ! P IFT CREDIT+MMUSWB=3 ! ( P EL A4,S
0x35ae50…35afe4 Dummy {f00=0x011a, f01=0x0190, f02=»=2 ! ~ P* T:ATAB PROCESSING: " P " & P ELR A4,A12 T:ATAB-LENGTH " 2 P LDR A3,A4 SAVE " T 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE " l * P AD A3,SCTSFA ADD MONITOR END ADDRESS " P* CHECK ADDRESSES " P " $ P LDR A11,A3 END OF SHADO
0x35afe4…35b178 Dummy {f00=0x011a, f01=0x0190, f02=» CALL ERROR " ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS # P* CLEAR T:ATAB SHADOW-TABLE: # @ P # d PSYA115 SUK A3,2 NEXT # p P CMR A3 CLEAR # P CW A3,SCTSFA ALL? # P RB(NE) SYA115 NO! # " P STR A4,A3 STORE TABLE LENGTH # ( P LD A11,SAVE
0x35b178…35b30c Dummy {f00=0x011a, f01=0x0190, f02=»P4 NO TASK PRESENT # P CALL ERROR $ ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID $ . P SLL A2,8 . $ Z P LC A2,TDBMC+5,A11 ... $ n P CWK A2,'TB' BUGGER TASK? $ P RF(NE) SYA125 NO! $ 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' $ P RF SYA1
0x35b30c…35b4a0 Dummy {f00=0x011a, f01=0x0190, f02=»ET T:A ADDRESS $ P SUK A4,2 % P RF(NZ) SYA135 % ( , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) % > P CALL ERROR % n PSYA135 EQU * % P EL A10,T:ATID,A6 GET TID % P CWR A2,A10 TID EQUAL? % P RB(NE) SYA130 NO! % P ELR A10,A12 % P SUR
0x35b4a0…35b634 (4, 153) Dummy {f00=0x011a, f01=0x0190, f02=»UMBER OF TASKS % z P SLL A5,8 & P LC A5,TDBNT+1,A11 & ( P CALL CONVRT & B ( P LD A2,SCTSFA START OF SHADOW TABLE & V P ADR A2,A4 & 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE & P & P* SKIP TO NEXT BLOCK & P & PSYA136
0x35b634…35b7c8 Dummy {f00=0x011a, f01=0x0190, f02=» & * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ' P CALL NXTCOM SKIP COMMON DEF ' 6 PSYA140 CCK A2,'UU' ' Z P RF(NE) SYA141 NO UWB'S ' t 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ' 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ' PSYA1
0x35b7c8…35b95c Dummy {f00=0x011a, f01=0x0190, f02=» ' ~ P CALL USWBTP ( P XIF ( P IFT CREDIT=1 ( ( P RF SYA152 ( > P EJECT ( P L P*********************************************************************** ( ^ L P* * ( L P* USWBTP
0x35b95c…35baf0 Dummy {f00=0x011a, f01=0x0190, f02=»== * ( N L P* * ) L P* REFERENCED IN: SYSLDA * ) ^ L P* * ) L P* ENTRY:
0x35baf0…35bc84 Dummy {f00=0x011a, f01=0x0190, f02=» * ) N L P* * * L P* EXIT: * * ^ L P* * * L P* WORK RE
0x35bc84…35be18 Dummy {f00=0x011a, f01=0x0190, f02=» * * N L P* SUBROUTINES: GETNUM,ERROR * + L P* * + ^ L P*********************************************************************** + P + PUS
0x35be18…35bfac Dummy {f00=0x011a, f01=0x018e, f02=»T IN A5 + r $ P LDR A1,A5 SAVE NUMBER OF UWB'S , PSYA142 EQU * , 8 P LDR A12,A8 , L " P LDR* A3,A12 LENGTH OF U:BTAB , ` ( P ADKL A11,UDBFST-1 FIRST UDB RECORD , PSYA145 EQU * , 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG , P SLL A2,8 ,
0x35bfac…35c140 Dummy {f00=0x011a, f01=0x0190, f02=» , h 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S - P RF(NN) SYA150 - < P LDK A1,LMP6 UWB NOT FOUND - R P CALL ERROR - t PSYA150 EQU * - ( P ADKL A12,UP:REC ADD TO NEXT RECORD - P RB SYA145 - $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR - P CC A2
0x35c140…35c2d4 (4, 154) Dummy {f00=0x011b, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x35c2d4…35c468 Dummy {f00=0x011b, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x35c468…35c5fc Dummy {f00=0x011b, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x35c5fc…35c790 Dummy {f00=0x011b, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x35c790…35c924 Dummy {f00=0x011b, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x35c924…35cab8 Dummy {f00=0x011b, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x35cab8…35cc4c Dummy {f00=0x011b, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x35cc4c…35cde0 Dummy {f00=0x011b, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x35cde0…35cf74 (4, 155) Dummy {f00=0x011b, f01=0x0190, f02=»F P:MTAB 5 v P IFT CREDIT-MMUPAG=1 6 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 , P XIF 6 X P IFT CREDIT+MMUPAG=2 6 d ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 P XIF 6 P IFF CREDIT=0 6 . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 6 P CALL MU
0x35cf74…35d108 Dummy {f00=0x011b, f01=0x0190, f02=»L,A13 AND ADJUST RELOCATION BASE 6 P IFT CREDIT+MMUPAG=2 7 ( P 7 D . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 L P XIF 7 ~ P IFT CREDIT-MMUPAG=1 7 , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 7 P XIF 7 P IFF CREDIT=0 7 " P SUR A6,A1 RELOC
0x35d108…35d29c Dummy {f00=0x011b, f01=0x0190, f02=»L (=REAL) LENGTH * 7 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 8 " . P* A9=P:MTAB A6=MOVE-RELOC * 8 T . P***************************************** 8 P IFT CREDIT-MMUPAG=1 8 P 8 P* INITIATE POINTERS 8 P 8 ( P LD A8,T
0x35d29c…35d430 Dummy {f00=0x011b, f01=0x0190, f02=»CTSFA GET START OF T:ATAB SHADOW-TAB 8 P LDR A4,A5 2:ND POINTER 9 , & P LDR A2,A8 2:ND POINTER IN T:ATAB 9 L & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 9 v . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 9 P 9 P* SCAN T:ATAB: 9 P 9 " PSYA160 ADKL A8,2
0x35d430…35d5c4 Dummy {f00=0x011b, f01=0x018e, f02=»A 9 ~ * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB : , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! : 8 " P ADR A11,A7 ACCUMULATE LENGTH : h , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH : , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS : ( P ADK A2,2 UPDATE 2:ND T:AT
0x35d5c4…35d758 Dummy {f00=0x011b, f01=0x018e, f02=» : z . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ; P* RELOCATE W.B.-ADDRESSES ; : P ; $ P LD A12,T:DAD,A1 GET T:D-ADDRESS ; d $ P LD A7,WATLEN,A12 LENGTH OF WAT ; . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS ; PSYA165 SUK A7,1 DEC. COUNTER ;
0x35d758…35d8ec Dummy {f00=0x011b, f01=0x0190, f02=» ; z P < P LD A8,T:ATOD,A13 T:ATAB < P ELR A3,A8 GET LENGTH < 0 P ADR A3,A8 END OF T:ATAB < N P ST A3,ENDADD,A13 SAVE < n 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB < P LDR A4,A5 2:ND POINTER < & P LDR A2,A8 2:ND POINTER IN T:ATAB < &
0x35d8ec…35da80 Dummy {f00=0x011b, f01=0x0190, f02=»60 ADKL A8,2 TAKE NEXT T:A < $ P ADK A5,2 NEXT T:A IN SHADOW-TAB = " P CW A8,ENDADD,A13 = J P RF(E) SYA170 ALL DONE = d P ELR A1,A8 GET T:A = * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB = , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! = " P ADR A11,A7 AC
0x35da80…35dc14 (4, 156) Dummy {f00=0x011b, f01=0x0190, f02=» 2:ND T:ATAB ADDRESS = 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) > P ELR A10,A8 GET T:A-ADDRESS > X P ADR A10,A6 RELOCATE > | . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) > P* RELOCATE W.B.-ADDRESSES > P > $ P EL A12,T:DAD,A1 GET
0x35dc14…35dda8 Dummy {f00=0x011b, f01=0x0190, f02=»ER > v P RB(N) SYA160 TAKE NEXT T:A ? P ELR A10,A1 GET ADDRESS ? . P ADR A10,A6 RELOCATE ? N P ESR A10,A1 ? j P XIF ? ~ P IFF CREDIT=0 ? P ADK A1,4 NEXT W.B. ? P RB SYA165 ? P ? PSYA170 EQU * ? P ST A6,MOVADD,A13 SAVE ? 8 P
0x35dda8…35df3c Dummy {f00=0x011b, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 @ $ P ST* A3,T:ATOD,A13 AND IN T:ATAB @ P XIF @ H P IFF CREDIT=0 @ T 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR @ j ( P SLL A2,1 CALC. REAL LENGTH (BYTES) @ P ADK A2,2 @ 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S
0x35df3c…35e0d0 Dummy {f00=0x011b, f01=0x0190, f02=» LEN.) * @ x $ P******************************** A P A 8 P IFT CREDIT-MMUPAG=1 A @ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS A P LDR* A3,A5 LENGTH A P ST A3,SAVE06,A13 A P ADK A5,2 SKIP LENGTH WORD A P SUK A3,2 -"- A " PSYA180 RF(Z) SYA185 AL
0x35e0d0…35e264 Dummy {f00=0x011b, f01=0x0190, f02=»ABLE LENGTH A , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB B P ADK A5,2 B D P SUK A3,2 SUB LENGTH-WORD B V PSYA180 RF(Z) SYA185 B x P ELR A10,A5 GET ADDRESS B P ADR A10,A6 RELOCATE B P ESR A10,A5 B P XIF B P IFF CREDIT=0 B 8 P A
0x35e264…35e3f8 Dummy {f00=0x011b, f01=0x0190, f02=» CREDIT+MMUSWB=3 B P* C $ P* COMPUTE REAL LENGTH OF S:BTAB C " P* C J $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS C T " P ELR A3,A5 LENGTH OF PROTOTYPE C | P LDR A2,A3 SAVE C " P SUK A3,2 EXCLUDE LENGTH WORD C , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED!
0x35e3f8…35e58c Dummy {f00=0x011b, f01=0x0190, f02=»BER OF COPIES C v P ANK A4,/FF GET RIGHT BYTE D . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! D 8 P ADK A2,2 INCREMENT LENGTH D j ( P SUK A4,1 DECREMENT NUMBER OF COPIES D P RB SYA192 D 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE D $ P S
0x35e58c…35e720 Dummy {f00=0x011b, f01=0x0190, f02=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE D P LDR A2,A3 SAVE E . " P SUK A3,2 EXCLUDE LENGTH WORD E F , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! E l $ P LD A4,2,A5 GET PROT. W.B.-ADDR. E P ADR A4,A6 RELOCATE E P ST A4,2,A5 STORE IT BACK E , P LD A4
0x35e720…35e8b4 (4, 157) Dummy {f00=0x011b, f01=0x0190, f02=»TH E x ( P SUK A4,1 DECREMENT NUMBER OF COPIES F P RB SYA196 F 6 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F H $ P SUK A3,UP:REC DECREMENT LENGTH F P RB SYA195 F P XIF F P IFT CREDIT+SWPBLK=2 F 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPU
0x35e8b4…35ea48 Dummy {f00=0x011b, f01=0x0190, f02=» F P ADS A6,T:ATOD,A13 G P ADS A6,U:BTOD,A13 G " P IFT CREDIT+SWPBLK=2 G < P ADS A6,S:BTOD,A13 G X P XIF G r P IFT CREDIT-MMUPAG=1 G ~ P* CALCULATE NEW DDIV END G P G P LDR A5,A9 G P SU A5,SAVE04,A13 END-START G $ P AD A5,SAVE12,A1
0x35ea48…35ebdc Dummy {f00=0x011b, f01=0x0190, f02=» G v P H P LDK A4,MMDDIV H " P ADR A4,A13 GET TABLE ADDRESS H & & P LDR A5,A13 CALC. REAL RELOCATION H L P SU A5,SAVE12,A13 H v P SU A5,MMREL1,A13 H P SUR A4,A5 RELOCATE H P ST A4,MMTO,A13 AND SAVE H P LDK A4,MMTAB H $ P ADR A4,A13
0x35ebdc…35ed70 Dummy {f00=0x011b, f01=0x0190, f02=»D H ~ P SU A5,SAVE04,A13 ENT-START I $ P AD A5,SAVE12,A13 ADD NEW START I . P LDR A6,A5 I V 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) I h $ P SRL A6,11 ADJUST FOR ADDRESSING I . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS I P ADR A6,A13 RELOCA
0x35ed70…35ef04 Dummy {f00=0x011b, f01=0x0190, f02=»3 AND SAVE I P XIF J P IFF CREDIT=0 J P* CONTINUE IN PART 2 * J 4 P J R . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) J ^ ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS J P LDR A5,A2 SAVE J 0 P LDKL A7,START2 GET EXECUTION START ADDRESS J P
0x35ef04…35f098 Dummy {f00=0x011b, f01=0x0190, f02=»DIT-MMUPAG=1 J PNXTMOV LDR* A4,A1 GET WORD K P STR A4,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x35f098…35f22c Dummy {f00=0x011b, f01=0x403c, f02=»ITOR K t P XIF L PLDAEND EQU * L P END L ,@ L 84,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x35f22c…35f3c0 Dummy {f00=0x011b, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x35f3c0…35f554 (4, 158) Dummy {f00=0x011c, f01=0x0190, f02=» ] P***************** ^ P* * ^ " P* BIOSQ * ^ < P* * ^ V P***************** ^ p P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD U
0x35f554…35f6e8 Dummy {f00=0x011c, f01=0x0190, f02=» ^ P IFT IBM=1 _ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ D & P ADR A2,A4 COMPLETE BIO WITH ORDER _ p P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _
0x35f6e8…35f87c Dummy {f00=0x011c, f01=0x0190, f02=»GTH _ t P RTN A5 ` P XIF ` P* ` ( P EJECT DRFD01 ` 2 P* ` H P****************** ` R P* VO:NAM * ` l P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P*
0x35f87c…35fa10 Dummy {f00=0x011c, f01=0x018e, f02=»O ` P LDKL A4,BUF READ TO BUFFER a P CF A5,FD:REA a . P ANK A3,/17 FATAL ERROR a D P RF(NZ) VOL:40 a d P IFT IBM=1 a z P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a
0x35fa10…35fba4 Dummy {f00=0x011c, f01=0x0190, f02=» a P EJECT DRFD01 b P* b P* b * P IFT TOSS=1 b 4 P LDKL A2,BUF b H P IFT IBM=1 b P RF VOL:20 b n P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFE
0x35fba4…35fd38 Dummy {f00=0x011c, f01=0x0190, f02=»L A1,/400 b , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c B 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c f 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P
0x35fd38…35fecc Dummy {f00=0x011c, f01=0x0190, f02=»US c t * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d 8 . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d L P LD A8,DWTECB,A6 d ~ P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d
0x35fecc…360060 Dummy {f00=0x011c, f01=0x0190, f02=» P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e $ & P* INPUT: A7 NO OF CHARACTERS e V P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P
0x360060…3601f4 (4, 159) Opaque[0x194]
0x3601f4…360388 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1fc8, f03=0x0000}
0x3601f4…360388 IdxSect {
0x3601f4…360388 f00 = 0x00fe // 0x3601f4 @0x0
0x3601f4…360388 f01 = 0x000c // 0x3601f6 @0x2
0x3601f4…360388 gno = [ // 0x3601f8 @0x4
0x3601f4…360388 [0x00]: C0x00fe.0x1.0
0x3601f4…360388 [0x01]: C0x00fe.0x2.0
0x3601f4…360388 [0x02]: C0x00fe.0x3.0
0x3601f4…360388 [0x03]: C0x00ff.0x0.0
0x3601f4…360388 [0x04]: C0x00ff.0x1.0
0x3601f4…360388 [0x05]: C0x00ff.0x2.0
0x3601f4…360388 ]
0x3601f4…360388 }
0x360388…36051c Dummy {f00=0x00fe, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x36051c…3606b0 Dummy {f00=0x00fe, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x3606b0…360844 Dummy {f00=0x00fe, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x360844…3609d8 Dummy {f00=0x00fe, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x3609d8…360b6c Dummy {f00=0x00fe, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x360b6c…360d00 Dummy {f00=0x00fe, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x360d00…360e94 (4, 160) Dummy {f00=0x00fe, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x360e94…361028 Dummy {f00=0x00fe, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x361028…3611bc Dummy {f00=0x00fe, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x3611bc…361350 Dummy {f00=0x00fe, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x361350…3614e4 Dummy {f00=0x00fe, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x3614e4…361678 Dummy {f00=0x00fe, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x361678…36180c Dummy {f00=0x00fe, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x36180c…3619a0 Dummy {f00=0x00fe, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x3619a0…361b34 (4, 161) Dummy {f00=0x00fe, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x361b34…361cc8 Dummy {f00=0x00fe, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x361cc8…361e5c Dummy {f00=0x00fe, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x361e5c…361ff0 Dummy {f00=0x00fe, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x361ff0…362184 Dummy {f00=0x00fe, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x362184…362318 Dummy {f00=0x00fe, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x362318…3624ac Dummy {f00=0x00fe, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x3624ac…362640 Dummy {f00=0x00fe, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x362640…3627d4 (4, 162) Dummy {f00=0x00ff, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x3627d4…362968 Dummy {f00=0x00ff, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x362968…362afc Dummy {f00=0x00ff, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x362afc…362c90 Dummy {f00=0x00ff, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x362c90…362e24 Dummy {f00=0x00ff, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x362e24…362fb8 Dummy {f00=0x00ff, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x362fb8…36314c Dummy {f00=0x00ff, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x36314c…3632e0 Dummy {f00=0x00ff, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x3632e0…363474 (4, 163) Dummy {f00=0x00ff, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x363474…363608 Dummy {f00=0x00ff, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x363608…36379c Dummy {f00=0x00ff, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x36379c…363930 Dummy {f00=0x00ff, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x363930…363ac4 Dummy {f00=0x00ff, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x363ac4…363c58 Dummy {f00=0x00ff, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x363c58…363dec Dummy {f00=0x00ff, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x363dec…363f80 Dummy {f00=0x00ff, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x363f80…364114 (4, 164) Dummy {f00=0x00ff, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x364114…3642a8 Dummy {f00=0x00ff, f01=0x2008, f02=» ' NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x3642a8…36443c Dummy {f00=0x00ff, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x36443c…3645d0 Dummy {f00=0x00ff, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x3645d0…364764 Dummy {f00=0x00ff, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x364764…3648f8 Dummy {f00=0x00ff, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x3648f8…364a8c Dummy {f00=0x00ff, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x364a8c…364c20 Dummy {f00=0x00ff, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x364c20…364db4 (4, 165) Opaque[0x194]
0x364db4…364f48 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20d8, f03=0x0000}
0x364db4…364f48 IdxSect {
0x364db4…364f48 f00 = 0x0106 // 0x364db4 @0x0
0x364db4…364f48 f01 = 0x0008 // 0x364db6 @0x2
0x364db4…364f48 gno = [ // 0x364db8 @0x4
0x364db4…364f48 [0x00]: C0x0106.0x3.0
0x364db4…364f48 [0x01]: C0x0107.0x0.0
0x364db4…364f48 [0x02]: C0x0107.0x3.0
0x364db4…364f48 [0x03]: C0x0108.0x1.0
0x364db4…364f48 ]
0x364db4…364f48 }
0x364f48…3650dc Dummy {f00=0x0106, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x3650dc…365270 Dummy {f00=0x0106, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x365270…365404 Dummy {f00=0x0106, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x365404…365598 Dummy {f00=0x0106, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x365598…36572c Dummy {f00=0x0106, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x36572c…3658c0 Dummy {f00=0x0106, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x3658c0…365a54 (4, 166) Dummy {f00=0x0107, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x365a54…365be8 Dummy {f00=0x0107, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x365be8…365d7c Dummy {f00=0x0107, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 0 P* P EJECT P* P* O U T L I N P
0x365d7c…365f10 Dummy {f00=0x0107, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x365f10…3660a4 Dummy {f00=0x0107, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x3660a4…366238 Dummy {f00=0x0107, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x366238…3663cc Dummy {f00=0x0107, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x3663cc…366560 Dummy {f00=0x0107, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x366560…3666f4 (4, 167) Dummy {f00=0x0107, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x3666f4…366888 Dummy {f00=0x0107, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x366888…366a1c Dummy {f00=0x0107, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x366a1c…366bb0 Dummy {f00=0x0107, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x366bb0…366d44 Dummy {f00=0x0107, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x366d44…366ed8 Dummy {f00=0x0107, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x366ed8…36706c Dummy {f00=0x0107, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x36706c…367200 Dummy {f00=0x0107, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x367200…367394 (4, 168) Dummy {f00=0x0108, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x367394…367528 Dummy {f00=0x0108, f01=0x018e, f02=» ~ * PCLT120 LDR A7,A2 REMOTE DATA REQUEST ? P ANK A7,/FF 6 P RF(NE) CLT130 J $ P CWR* A6,A5 DRD BEFORE ANSWER ? ` P ABL(E) EXIT YES =11 PCLT125 SRL A4,4 P ANK A4,/C P ORR A2,A4 STATUS IN A2 P RB CLT105 PCLT130 E
0x367528…3676bc Dummy {f00=0x0108, f01=0x018e, f02=» ( P SC A4,1,A6 STORE NEW STATUS IN DWT $ P LD A4,DWTST,A6 GET STATUS WORD 0 * P ANKL A4,/200 STATUS CHANGE ALLOWED ? X P RF(E) CLT154 EG. EXIT P XRS A4,DWTST,A6 RESET BIT ( P XRR A3,A2 VOUCHER STATUS CHANGED ? P ANK A3,/80 P R
0x3676bc…367850 Dummy {f00=0x0108, f01=0x0190, f02=» P LDK A4,1 P CWR* A4,A5 SYNC SENT ? P RF(NE) CLT154 : < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED P PCLT152 EQU * P ORS A4,CWTRST,A5 PCLT154 ABL EXIT P EJECT P* P* LOOP MODE P*
0x367850…3679e4 Dummy {f00=0x0108, f01=0x0190, f02=»ST OUTPUT DWT ~ P LDR* A6,A5 P SUK A4,1 SYNC ? * P RF(E) CLT178 YES B ( P LDK A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 PCLT178 EQU * P SUK A3,4 ACK ? P RF(NE) EXITA NO $ P LDK A4,2 INDICATE ACK RECEIVED
0x3679e4…367b78 Dummy {f00=0x0108, f01=0x0190, f02=»RESET LOOP TEST BIT ~ P RB CLT100 P EJECT . P* < P* QUEUE F P* X 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. b 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND P* IF SOMETHING THERE. 8 P* IF REMOTE DEVICE CH
0x367b78…367d0c Dummy {f00=0x0108, f01=0x0190, f02=»NTERRUPTING TERMINAL l & P* AND SEND IF SOMETHING THERE. P* F PQUEUE EQU * P P STR A2,A15 SAVE A2 d $ P LDR* A4,A5 GET LAST OUTPUT DWT . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER P CMR A5 SET CHANNEL FREE P LDK A1,0
0x367d0c…367ea0 Dummy {f00=0x0108, f01=0x0190, f02=»E) QUEU20 NO . PQUEU01 LDKL A8,CWTEQ QUEUE FIRST TERMINAL * PQUEU03 ADR A8,A5 ADD CWT-TABLE-ADDRESS F PQUEU04 EQU * t P LDR* A6,A8 QUEUE EMPTY ? P RF(E) QUEU10 YES P LDR A7,A7 =5 $ P RF(N) QUEU06 PREVENT HANG UP =5 P LD A2
0x367ea0…368034 (4, 169) Opaque[0x194]
0x368034…3681c8 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2020, f03=0x0000}
0x368034…3681c8 IdxSect {
0x368034…3681c8 f00 = 0x0101 // 0x368034 @0x0
0x368034…3681c8 f01 = 0x0004 // 0x368036 @0x2
0x368034…3681c8 gno = [ // 0x368038 @0x4
0x368034…3681c8 [0x00]: C0x0101.0x0.0
0x368034…3681c8 [0x01]: C0x0101.0x2.0
0x368034…3681c8 ]
0x368034…3681c8 }
0x3681c8…36835c Dummy {f00=0x0101, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x36835c…3684f0 Dummy {f00=0x0101, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x3684f0…368684 Dummy {f00=0x0101, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x368684…368818 Dummy {f00=0x0101, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x368818…3689ac Dummy {f00=0x0101, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x3689ac…368b40 Dummy {f00=0x0101, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x368b40…368cd4 (4, 170) Dummy {f00=0x0101, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x368cd4…368e68 Dummy {f00=0x0101, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x368e68…368ffc Dummy {f00=0x0101, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x368ffc…369190 Dummy {f00=0x0101, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x369190…369324 Dummy {f00=0x0101, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x369324…3694b8 Dummy {f00=0x0101, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x3694b8…36964c Dummy {f00=0x0101, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x36964c…3697e0 Dummy {f00=0x0101, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x3697e0…369974 (4, 171) Opaque[0x194]
0x369974…369b08 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x0908, f03=0x0000}
0x369974…369b08 IdxSect {
0x369974…369b08 f00 = 0x0048 // 0x369974 @0x0
0x369974…369b08 f01 = 0x0002 // 0x369976 @0x2
0x369974…369b08 gno = [ // 0x369978 @0x4
0x369974…369b08 [0x00]: C0x0048.0x1.0
0x369974…369b08 ]
0x369974…369b08 }
0x369b08…369c9c Dummy {f00=0x0048, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x369c9c…369e30 Dummy {f00=0x0048, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x369e30…369fc4 Dummy {f00=0x0048, f01=0x416a, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x369fc4…36a158 Dummy {f00=0x0048, 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
0x36a158…36a2ec Dummy {f00=0x0048, f01=0x0190, f02=» SCTPSZ SCTMMC SCTLAC 2 SCTMMPL F SCTLAP0 Z SCTNPE n SCTSTB SCTOPT SCTBUG SCTDMT~ , ( SCT
0x36a2ec…36a480 Dummy {f00=0x0048, f01=0x4068, f02=» _ 2 R@ d Z SCTNPE n SCTSTB SCTOPT SCTBUG SCTDMT~ , ( SCT
0x36a480…36a614 (4, 172) Opaque[0x194]
0x36a614…36a7a8 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d38, f03=0x0000}
0x36a614…36a7a8 IdxSect {
0x36a614…36a7a8 f00 = 0x00e9 // 0x36a614 @0x0
0x36a614…36a7a8 f01 = 0x0002 // 0x36a616 @0x2
0x36a614…36a7a8 gno = [ // 0x36a618 @0x4
0x36a614…36a7a8 [0x00]: C0x00e9.0x3.0
0x36a614…36a7a8 ]
0x36a614…36a7a8 }
0x36a7a8…36a93c Dummy {f00=0x00e9, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x36a93c…36aad0 Dummy {f00=0x00e9, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l P EXTRN TABORT ABORT FUNCTION $ P EXTRN SETTIM SET MONITOR CLOCK 4 P EXTRN GETTIM GET CURRENT VALUE OF MONITOR C
0x36aad0…36ac64 Dummy {f00=0x00e9, f01=0x0190, f02=» P DATA TEXIT TERMINAL EXIT ( P DATA TACTOT ACTIVATE OTHER TERMINAL & P DATA TPAUSE TERMINAL PAUSE R P DATA TIMER TIMER v P DATA TMWAIT MULTIPLE WAIT P DATA 0 P DATA 0 P DATA TABORT ABORT FUNCTION
0x36ac64…36adf8 Dummy {f00=0x00e9, f01=0x4026, f02=»QU * P* P END @ " DATA TACTOT ACTIVATE OTHER TERMINAL & P DATA TPAUSE TERMINAL PAUSE R P DATA TIMER TIMER v P DATA TMWAIT MULTIPLE WAIT P DATA 0 P DATA 0 P DATA TABORT ABORT FUNCTION
0x36adf8…36af8c Dummy {f00=0x00e9, 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
0x36af8c…36b120 Dummy {f00=0x00e9, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x36b120…36b2b4 (4, 173) Opaque[0x194]
0x36b2b4…36b448 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2198, f03=0x0000}
0x36b2b4…36b448 IdxSect {
0x36b2b4…36b448 f00 = 0x010c // 0x36b2b4 @0x0
0x36b2b4…36b448 f01 = 0x0002 // 0x36b2b6 @0x2
0x36b2b4…36b448 gno = [ // 0x36b2b8 @0x4
0x36b2b4…36b448 [0x00]: C0x010c.0x3.0
0x36b2b4…36b448 ]
0x36b2b4…36b448 }
0x36b448…36b5dc Dummy {f00=0x010c, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x36b5dc…36b770 Dummy {f00=0x010c, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x36b770…36b904 Dummy {f00=0x010c, 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 @
0x36b904…36ba98 Dummy {f00=0x010c, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x36ba98…36bc2c Dummy {f00=0x010c, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x36bc2c…36bdc0 Dummy {f00=0x010c, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x36bdc0…36bf54 (4, 174) Opaque[0x194]
0x36bf54…36c0e8 # DirEnt {nam=»TIODMX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a0, f03=0x0000}
0x36bf54…36c0e8 IdxSect {
0x36bf54…36c0e8 f00 = 0x010d // 0x36bf54 @0x0
0x36bf54…36c0e8 f01 = 0x0002 // 0x36bf56 @0x2
0x36bf54…36c0e8 gno = [ // 0x36bf58 @0x4
0x36bf54…36c0e8 [0x00]: C0x010d.0x0.0
0x36bf54…36c0e8 ]
0x36bf54…36c0e8 }
0x36c0e8…36c27c Dummy {f00=0x010d, f01=0x018e, f02=» 2 P IDENT TIODMX REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x36c27c…36c410 Dummy {f00=0x010d, f01=0x403c, f02=» $ P DATA /6300 SOMETHING BAD, TRAP P END ,@ 8 : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 8 P**************************************************** P* (
0x36c410…36c5a4 Dummy {f00=0x010d, 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
0x36c5a4…36c738 Dummy {f00=0x010d, f01=0x0190, f02=»ADF@ N FDBAI1 P FDBDBR: X " FDBDMIL Y 6 FDBMRO Z J FDBBLZ ^ FDBMEC ^ r FDBKEY ^ CRNTID CRNSTA CRNCDF TIODM ECBCW * & 6
0x36c738…36c8cc Dummy {f00=0x010d, f01=0x0190, f02=» _ Y A X T X % T U , ( $P ^ =A Y 6T * CRNGETG Z , ( P H I T l , ( I $ C C T , ( / X?j ?j W _l X X , ( O # Xt
0x36c8cc…36ca60 Dummy {f00=0x010d, f01=0x0190, f02=»PB:FR ECBRL , ( 6P I , ( @ B Y < H H C N FNDFDB ~ , ( C _ X "" * & 6 Q X C X DT T W Y , ( H H S W
0x36ca60…36cbf4 (4, 175) Opaque[0x194]
0x36cbf4…36cd88 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21a8, f03=0x0000}
0x36cbf4…36cd88 IdxSect {
0x36cbf4…36cd88 f00 = 0x010d // 0x36cbf4 @0x0
0x36cbf4…36cd88 f01 = 0x000a // 0x36cbf6 @0x2
0x36cbf4…36cd88 gno = [ // 0x36cbf8 @0x4
0x36cbf4…36cd88 [0x00]: C0x010d.0x1.0
0x36cbf4…36cd88 [0x01]: C0x010f.0x0.0
0x36cbf4…36cd88 [0x02]: C0x010f.0x1.0
0x36cbf4…36cd88 [0x03]: C0x010f.0x2.0
0x36cbf4…36cd88 [0x04]: C0x010f.0x3.0
0x36cbf4…36cd88 ]
0x36cbf4…36cd88 }
0x36cd88…36cf1c Dummy {f00=0x010d, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x36cf1c…36d0b0 Dummy {f00=0x010d, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x36d0b0…36d244 Dummy {f00=0x010d, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x36d244…36d3d8 Dummy {f00=0x010d, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x36d3d8…36d56c Dummy {f00=0x010d, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x36d56c…36d700 Dummy {f00=0x010d, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x36d700…36d894 (4, 176) Dummy {f00=0x010f, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x36d894…36da28 Dummy {f00=0x010f, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 0 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0
0x36da28…36dbbc Dummy {f00=0x010f, f01=0x0190, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU X:A P* P* 2 P* A PR
0x36dbbc…36dd50 Dummy {f00=0x010f, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* VOLCLR * P P********** b P* t P* ~ 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBE
0x36dd50…36dee4 Dummy {f00=0x010f, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* D PVCLR10 EQU * N P CMR A1 CLEAR ONE WORD b P ADK A1,2 INCREMENT POINTER $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DS
0x36dee4…36e078 Dummy {f00=0x010f, f01=0x0190, f02=»E NAME OF SELECTED DISC r 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* X P* INPUT: A6 = DWT ADDRESS b P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A
0x36e078…36e20c Dummy {f00=0x010f, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x36e20c…36e3a0 Dummy {f00=0x010f, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x36e3a0…36e534 (4, 177) Dummy {f00=0x010f, f01=0x0190, f02=»****** P* VOLADR * P********** P* 2 P* < P* INPUT: A6 = DWT ADDRESS F P* j ( P* OUTPUT: A1 = VOLUME NAME ADDRESS t P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x36e534…36e6c8 Dummy {f00=0x010f, f01=0x0190, f02=»4,1 P RB(NN) VOLA10 P LDK A4,6 " P RF RETURN 4 P* F P EJECT DSKSUB P P* h P* r P********** | P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO
0x36e6c8…36e85c Dummy {f00=0x010f, f01=0x0190, f02=»A6 = DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) " 0 P* A2 = DWT ADDRESS + DOUBLE INDEX $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWT
0x36e85c…36e9f0 Dummy {f00=0x010f, f01=0x0190, f02=»FF RESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 * P ANK A1,/FF CHECK IF NVL B " P RF(Z) RETURN RETURN IF NO NVL b " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P
0x36e9f0…36eb84 Dummy {f00=0x010f, f01=0x0190, f02=»,A3 CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK F * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB j P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETUR
0x36eb84…36ed18 Dummy {f00=0x010f, f01=0x0190, f02=»* P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 < 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS R P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P**
0x36ed18…36eeac Dummy {f00=0x010f, f01=0x018e, f02=» DISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* > ( P* INPUT: A2 = DISC BUFFER ADDRESS H 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) t 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P*
0x36eeac…36f040 Dummy {f00=0x010f, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 6 P* V PVGET10 EQU * ` , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME t , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P
0x36f040…36f1d4 (4, 178) Dummy {f00=0x010f, f01=0x0190, f02=»FFER POINTERS z P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER ( P RB(P) VGET10 P P CF A15,INXDWT f P ADK A7,0 CHECK NVL FLAG | " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST S
0x36f1d4…36f368 Dummy {f00=0x010f, f01=0x0190, f02=»THIS DISC l P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL $ P* L P EJECT DSKSUB V P* n P* x P********** P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS
0x36f368…36f4fc Dummy {f00=0x010f, f01=0x0190, f02=»THE CONCERNED FILE CODE AND FILES 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE * 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE f ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER)
0x36f4fc…36f690 Dummy {f00=0x010f, f01=0x0190, f02=»* A1-A2 ARE DESTROYED P* PNEWVOL EQU * * P LD A2,NVLBIT NVL BIT MASK > 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED ` P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB
0x36f690…36f824 Dummy {f00=0x010f, f01=0x0190, f02=» POINTER r P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* PNEW:10 EQU * f P LDR* A2,A1 NEXT FWT ADDRESS z P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST E
0x36f824…36f9b8 Dummy {f00=0x010f, f01=0x0190, f02=»F(NE) NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED 2 P RB NEW:10 f P* x PNEW:30 EQU * . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTI
0x36f9b8…36fb4c Dummy {f00=0x010f, f01=0x0190, f02=»**** P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* l P* INPUT: A6 = DWT ADDRESS v P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x36fb4c…36fce0 Dummy {f00=0x010f, f01=0x0190, f02=» P* P EJECT DSKSUB P* * P* 4 P********** > P* NVLTAB * P P********** b P* t P* ~ 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS
0x36fce0…36fe74 (4, 179) Dummy {f00=0x010f, f01=0x0190, f02=» | P DATA TTABLD LDTASK TTAB P XIF ( P* 4 PNVLDMT EQU * > P IFT FILMAN=1 R P IFT DATMAN=1 h P DATA 0 TTAB #D ~ P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1
0x36fe74…370008 Dummy {f00=0x010f, f01=0x4164, f02=» FILMAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB . P* N PNVLEND EQU * X P* l PNVLBIT DATA 3 NVL BIT MASK v P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* P
0x370008…37019c Dummy {f00=0x010f, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x37019c…370330 Dummy {f00=0x010f, f01=0x0190, f02=» BY SETTING X:B=1 ~ P* PX:B EQU 0 $ PFLASH EQU X:B 6 P* L P* V . P* A PROGRAM VERSION USING TOSS MMU PAGING ` * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION US
0x370330…3704c4 Dummy {f00=0x010f, f01=0x0190, f02=» P* P* P* MMU BUFFER SIZE P* 4 PX:C EQU 4 > PDVBLEN EQU X:C P P* f P* p P********************* z P* DWT-DISPLACEMENTS * P********************* P* P* 0 PDWTDRD EQU /10 START OF DRIVER D
0x3704c4…370658 Dummy {f00=0x010f, f01=0x0190, f02=»+4 P XIF P* " PDWTDIB EQU START+/02 SAVE AREA 2 PDWTFLA EQU START+/08 SAVE AREA FOR FLASH IMAGE F & PDWTTP EQU START+/0A TIMER POINTER | PTIME EQU 5 FLASH TIME P* P EJECT P* P* A C D I P* > P*
0x370658…3707ec Dummy {f00=0x010f, f01=0x0190, f02=»CREDIT=1 P CCK A7,/0707 P RF(E) ADI050 ORDER /07 & P XIF F P IFT ORD7+CREDIT=2 R P CCK A7,/0606 l P RF(E) ADI050 ORDER /06 P XIF $ P LD A4,10,A8 CONTROL WORD TO A4 P LDR* A3,A6 4 P ANK A3,/10 TEST IF ONE OR TWO
0x3707ec…370980 Dummy {f00=0x010f, f01=0x018e, f02=»0 P SLL A3,4 P ORR A4,A3 LAMPCODES IN A4 PADI005 EQU * > P IFT FLASH=1 R P CCK A7,/3939 f P RF(E) FLA05 | P XIF P IFT CREDIT=0 P SUK A7,5 P XIF P IFT CREDIT=1 P SUK A7,/37 P XIF P R
0x370980…370b14 (4, 180) Opaque[0x194]
0x370b14…370ca8 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2038, f03=0x0000}
0x370b14…370ca8 IdxSect {
0x370b14…370ca8 f00 = 0x0101 // 0x370b14 @0x0
0x370b14…370ca8 f01 = 0x0002 // 0x370b16 @0x2
0x370b14…370ca8 gno = [ // 0x370b18 @0x4
0x370b14…370ca8 [0x00]: C0x0101.0x3.0
0x370b14…370ca8 ]
0x370b14…370ca8 }
0x370ca8…370e3c Dummy {f00=0x0101, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x370e3c…370fd0 Dummy {f00=0x0101, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x370fd0…371164 Dummy {f00=0x0101, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x371164…3712f8 Dummy {f00=0x0101, 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
0x3712f8…37148c Dummy {f00=0x0101, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x37148c…371620 Dummy {f00=0x0101, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x371620…3717b4 (4, 181) Opaque[0x194]
0x3717b4…371948 # DirEnt {nam=»DVTG1 «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2048, f03=0x0000}
0x3717b4…371948 IdxSect {
0x3717b4…371948 f00 = 0x0102 // 0x3717b4 @0x0
0x3717b4…371948 f01 = 0x0002 // 0x3717b6 @0x2
0x3717b4…371948 gno = [ // 0x3717b8 @0x4
0x3717b4…371948 [0x00]: C0x0102.0x1.0
0x3717b4…371948 ]
0x3717b4…371948 }
0x371948…371adc Dummy {f00=0x0102, f01=0x0190, f02=» 0 P IDENT DVTG1 REL 10.0 80-03-14 870105041000 P 8 P =1, SYST. START IND. @ P PRR 10.1 79-09-12 ` , P* DEVICE WORK TABLE FOR GENERAL PRINTER | P* P ENTRY DVTG1 TABLE ENTRY P* P* * P EXTRN GPAD8 POINTER TO ADDRES
0x371adc…371c70 Dummy {f00=0x0102, f01=0x0190, f02=» DATA /8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS 4 P DATA DWTEND-DVTG1 ORDER P ( P DATA GPAD8 POINTER TO ADDRESS BLOCK p P DATA 'GP' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P IFT M
0x371c70…371e04 Dummy {f00=0x0102, f01=0x0190, f02=» , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK 4 P DATA 0 TIMER POINTER P " P DATA 0 DOCUMENT CHARACTER SET n " P DATA 0 PRINTER CHARACTER SET P DATA 0 PRINTER PAPER LENGTH " P DATA 0 DOCUMENT PAPER LENGTH P DAT
0x371e04…371f98 Dummy {f00=0x0102, f01=0x416c, f02=» 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER > P DATA 0,0 r P DATA 0 P DATA 0 SYSTEM START IND. =1 ( P DATA 0 LINE/FORM FEED INDICATOR =1 P IFT MMUPAG=1 PDEVECB EQU *
0x371f98…37212c Dummy {f00=0x0102, 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
0x37212c…3722c0 Dummy {f00=0x0102, f01=0x0190, f02=» 2 : END OF JOURNAL **IN REL 10...** =6(=4) @ P* BIT 10 : END OF JOURNAL **IN REL 8 & 9** =6 < 4 P* BIT 10 : DOCUMENT OUT =4 ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE
0x3722c0…372454 (4, 182) Opaque[0x194]
0x372454…3725e8 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2388, f03=0x0000}
0x372454…3725e8 IdxSect {
0x372454…3725e8 f00 = 0x011c // 0x372454 @0x0
0x372454…3725e8 f01 = 0x000e // 0x372456 @0x2
0x372454…3725e8 gno = [ // 0x372458 @0x4
0x372454…3725e8 [0x00]: C0x011c.0x1.0
0x372454…3725e8 [0x01]: C0x011c.0x2.0
0x372454…3725e8 [0x02]: C0x011c.0x3.0
0x372454…3725e8 [0x03]: C0x011d.0x3.0
0x372454…3725e8 [0x04]: C0x011e.0x0.0
0x372454…3725e8 [0x05]: C0x011e.0x1.0
0x372454…3725e8 [0x06]: C0x011e.0x2.0
0x372454…3725e8 ]
0x372454…3725e8 }
0x3725e8…37277c Dummy {f00=0x011c, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x37277c…372910 Dummy {f00=0x011c, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x372910…372aa4 Dummy {f00=0x011c, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x372aa4…372c38 Dummy {f00=0x011c, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x372c38…372dcc Dummy {f00=0x011c, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x372dcc…372f60 Dummy {f00=0x011c, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x372f60…3730f4 (4, 183) Dummy {f00=0x011c, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x3730f4…373288 Dummy {f00=0x011c, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x373288…37341c Dummy {f00=0x011c, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x37341c…3735b0 Dummy {f00=0x011c, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x3735b0…373744 Dummy {f00=0x011c, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x373744…3738d8 Dummy {f00=0x011c, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 1 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x3738d8…373a6c Dummy {f00=0x011c, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x373a6c…373c00 Dummy {f00=0x011c, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x373c00…373d94 (4, 184) Dummy {f00=0x011c, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 0 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x373d94…373f28 Dummy {f00=0x011c, f01=0x0190, f02=» d P* PCPU852 EQU 0 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 000 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x373f28…3740bc Dummy {f00=0x011c, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x3740bc…374250 Dummy {f00=0x011c, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x374250…3743e4 Dummy {f00=0x011c, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x3743e4…374578 Dummy {f00=0x011c, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x374578…37470c Dummy {f00=0x011c, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x37470c…3748a0 Dummy {f00=0x011c, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x3748a0…374a34 (4, 185) Dummy {f00=0x011d, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x374a34…374bc8 Dummy {f00=0x011d, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x374bc8…374d5c Dummy {f00=0x011d, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x374d5c…374ef0 Dummy {f00=0x011d, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x374ef0…375084 Dummy {f00=0x011d, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x375084…375218 Dummy {f00=0x011d, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x375218…3753ac Dummy {f00=0x011d, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x3753ac…375540 Dummy {f00=0x011d, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x375540…3756d4 (4, 186) Dummy {f00=0x011e, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x3756d4…375868 Dummy {f00=0x011e, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x375868…3759fc Dummy {f00=0x011e, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x3759fc…375b90 Dummy {f00=0x011e, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x375b90…375d24 Dummy {f00=0x011e, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x375d24…375eb8 Dummy {f00=0x011e, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x375eb8…37604c Dummy {f00=0x011e, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x37604c…3761e0 Dummy {f00=0x011e, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x3761e0…376374 (4, 187) Dummy {f00=0x011e, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x376374…376508 Dummy {f00=0x011e, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x376508…37669c Dummy {f00=0x011e, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x37669c…376830 Dummy {f00=0x011e, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x376830…3769c4 Dummy {f00=0x011e, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x3769c4…376b58 Dummy {f00=0x011e, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x376b58…376cec Dummy {f00=0x011e, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x376cec…376e80 Dummy {f00=0x011e, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x376e80…377014 (4, 188) Dummy {f00=0x011e, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x377014…3771a8 Dummy {f00=0x011e, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x3771a8…37733c Dummy {f00=0x011e, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x37733c…3774d0 Dummy {f00=0x011e, f01=0x0190, f02=» ( | P SUK A1,/3 CR =1 ) P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) < P RF(E) ECGP50 CLEAR ) R 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) n P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND C
0x3774d0…377664 Dummy {f00=0x011e, f01=0x0190, f02=»CLEAR SECTION ) x P* * P IFT COSPAC=1 * P* * 6 P LDK A2,SPACE NO SEND SPACE * @ P RB ECGP10 * d P* * v P XIF * P* * 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT *
0x377664…3777f8 Dummy {f00=0x011e, f01=0x0190, f02=» CANCEL * P* + PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + 0 P LDK A4,3 + V P RB ECGP10 + h PECGP60 LDK A2,LF LINE FEED + z P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE +
0x3777f8…37798c Dummy {f00=0x011e, f01=0x0190, f02=» P* , P* R C G P , P* , " 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , , P* , ` P* , j ( P* RECOVERY IS CARRIED OUT ONLY IF , t P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P
0x37798c…377b20 Dummy {f00=0x011e, f01=0x0190, f02=» XIF , P* - P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - , P XIF - R P* - ^ P LD A2,DWTST,A6 BUSY ? - h P RB(N) EXIT NO - ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 -
0x377b20…377cb4 (4, 189) Opaque[0x194]
0x377cb4…377e48 # DirEnt {nam=»DRRT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2050, f03=0x0000}
0x377cb4…377e48 IdxSect {
0x377cb4…377e48 f00 = 0x0102 // 0x377cb4 @0x0
0x377cb4…377e48 f01 = 0x002a // 0x377cb6 @0x2
0x377cb4…377e48 gno = [ // 0x377cb8 @0x4
0x377cb4…377e48 [0x00]: C0x0102.0x2.0
0x377cb4…377e48 [0x01]: C0x0102.0x3.0
0x377cb4…377e48 [0x02]: C0x0103.0x0.0
0x377cb4…377e48 [0x03]: C0x0103.0x1.0
0x377cb4…377e48 [0x04]: C0x0103.0x2.0
0x377cb4…377e48 [0x05]: C0x0103.0x3.0
0x377cb4…377e48 [0x06]: C0x0104.0x0.0
0x377cb4…377e48 [0x07]: C0x011e.0x3.0
0x377cb4…377e48 [0x08]: C0x011f.0x1.0
0x377cb4…377e48 [0x09]: C0x011f.0x2.0
0x377cb4…377e48 [0x0a]: C0x011f.0x3.0
0x377cb4…377e48 [0x0b]: C0x0120.0x0.0
0x377cb4…377e48 [0x0c]: C0x0120.0x1.0
0x377cb4…377e48 [0x0d]: C0x0120.0x2.0
0x377cb4…377e48 [0x0e]: C0x0120.0x3.0
0x377cb4…377e48 [0x0f]: C0x0121.0x0.0
0x377cb4…377e48 [0x10]: C0x0121.0x1.0
0x377cb4…377e48 [0x11]: C0x0121.0x2.0
0x377cb4…377e48 [0x12]: C0x0121.0x3.0
0x377cb4…377e48 [0x13]: C0x0122.0x0.0
0x377cb4…377e48 [0x14]: C0x0122.0x1.0
0x377cb4…377e48 ]
0x377cb4…377e48 }
0x377e48…377fdc Dummy {f00=0x0102, f01=0x0190, f02=» 2 P IDENT DRRT01 REL 10.0 80-04-15 870105041000 P : " P =12,PRINTER RECOVERY ERROR B P REL 10.0 80-03-14 h ( P =11,RMT TST MISS, RST OF INT ALL P DISPL. RECOV. ERROR P PRR 10.0 79-12-07 & P =10,RTN FROM OUTLRT IN INH
0x377fdc…378170 Dummy {f00=0x0102, f01=0x0190, f02=»EMENT p P REL 9.1 79-05-23 P =7,CLT100 CORRECTED * P REL 9.1 79-04-06 H & P =1-6,GEN UPDATE TO 8.2+ STATUS d P REL 8.2 79-03-22 " P =6,C.U. PRESENT CHECK ERROR P REL 8.2 79-03-20 P =5,HANG UP PREVENT
0x378170…378304 Dummy {f00=0x0102, f01=0x018e, f02=»9-03-17 P =2,LOOP TEST ERROR P REL 8.2 79-03-16 . P =1,IMPROV. OF TEST ORDER J P REL 8.2 78-09-15 n P* 4 P************************************************ P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P
0x378304…378498 Dummy {f00=0x0102, f01=0x0190, f02=» 4 P************************************************ P* @ L P* THIS IS THE DRIVER TO CHANNEL UNITS FOR LOCAL AND REMOTE TERMINALS. J B P* AT INTERRUPT AN INPUT WORD IS READ TO REGISTER A2. IF DATA D P* INPUT OR DATA REQUEST A BRANCH IS MA
0x378498…37862c Dummy {f00=0x0102, f01=0x0190, f02=» ARE CARRIED OUT. P* P* $ < P* THE DRIVER ALSO INCLUDES THE FOLLOWING SUBROUTINES:- . P* n . P* - OUTLRT SEND ONE CHARACTER VIA CHLT x P* < P* - CHLTON EXECUTE CIO-START ON EVERY CHLT IN SYSTEM P* 2 P* CONTR
0x37862c…3787c0 Dummy {f00=0x0102, f01=0x018e, f02=»EGISTER USAGE IN THE DRIVER:- P* & P* A1 = RETURN CODE 0 P* A2 = INPUT WORD L P* A3 = LINE NUMBER * 2 h P* A4 = DEVICE NUMBER * 2 P* A5 = CWT-ADDRESS P* A6 = DWT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADD
0x3787c0…378954 (4, 190) Dummy {f00=0x0102, f01=0x0190, f02=» P* P* 2 P ENTRY CHLT1 INTERRUPT FROM FIRST CHANNEL UNIT : P ENTRY CHLT2 INTERRUPT FROM SECOND CHANNEL UNIT LOCAL N 2 P ENTRY CHLT3 INTERRUPT FROM THIRD CHANEL LOCAL 4 P ENTRY CHLT4 INTERRUPT FROM FOURtH CHANEL LOCAL : P ENTRY CHRT1 I
0x378954…378ae8 Dummy {f00=0x0102, f01=0x018e, f02=»M THIRD CHANEL REMOT v 4 P ENTRY CHRT4 INTERRUPT FROM FOURTH CHANEL REMOTE $ P ENTRY OUTLRT SEND ONE CHARACTER T P ENTRY CHLTON START OF CHLT | P ENTRY CHTAB CHANNEL TABLE P AND GO TO DISPATCHER P @ P ENTRY DWREMU DWT-DUMMY FOR LO
0x378ae8…378c7c Dummy {f00=0x0102, f01=0x0190, f02=» b & P ENTRY REMFC REMOTE TEST FILE CODE P EJECT 2 P* @ P* J * P************************************** T * P* EXTERNAL TOSS MODULE ENTRIES * * P************************************** P* P* & P EXTRN SAVE8 SAVE REGI
0x378c7c…378e10 Dummy {f00=0x0102, f01=0x0190, f02=»E SET TIMER P EXTRN SETIMP SET TIME 6 P EXTRN INTLT1 INTERRUPT TABLE FOR LOCAL TERMINALS 2 , P EXTRN INTLT2 INTERRUPT TABLE FOR CHLT2 l & P EXTRN INTLT3 INTERRUPT FROM CHLT3 & P EXTRN INTLT4 INTERRUPT FROM CHLT4 6 P EXTRN INTRT1 INTERRUPT
0x378e10…378fa4 Dummy {f00=0x0102, f01=0x0190, f02=»3 ` 6 P EXTRN INTRT4 INTERRUPT TABLE FOR REMOTE CHANEL 4 $ P EXTRN DISIOE I/O REQUEST ERROR D & P EXTRN DISEND END I/O AND DISPATCH l * P EXTRN INTSAV SAVE AREA LAST INTERRUPT . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE . P EXTRN IHRET8 REST
0x378fa4…379138 Dummy {f00=0x0102, f01=0x0190, f02=»*********************** P* P EXTRN DWTOR ORDER * ( P EXTRN DWTOCH LAST OUTPUT CHARACTER D P EXTRN DWTECB ECB-ADDRESS p * P EXTRN DWTADR ADDRESS TO ADDRESS-BLOCK P EXTRN DWTST STATUS P EXTRN DWTOTQ OUTPUT QUEUE & P EXTRN DWT
0x379138…3792cc Dummy {f00=0x0102, f01=0x0190, f02=»VERY ADDRESS DISPLACEMENT ~ P* " P EJECT , P* : P* D P******************** N P* CONSTANTS * j P******************** P* P* ( PNOERR EQU 1 RETURN CODE NOT OPERABLE , PTIME EQU 5 TIME BEFORE TIME-OUT FOR SY
0x3792cc…379460 Dummy {f00=0x0102, f01=0x018e, f02=» ACK FOR PRINTERS v P EJECT P* ( , P*************************************** 2 , P* CONDITIONAL ASSEMBLY * b , P*************************************** P* P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHAR
0x379460…3795f4 (4, 191) Dummy {f00=0x0103, f01=0x0190, f02=» > P* BY SETTING X:B TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE & P* OR UP TO FOUR LOCAL CHANNELS. J P* t PX:B EQU 1 ~ PLOCHAN EQU 1 P* P* 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND 4 P* UNDEFINED CONTR
0x3795f4…379788 Dummy {f00=0x0103, f01=0x0190, f02=»* PX:C EQU 1 PACKMUL EQU 0 P* 0 P* : > P* BY SETTING X:D TO 1,2,3 OR 4 THIS DRIVER HANDLES ONE D , P* OR UP TO FOUR REMOTE CHANNEL CARDS. P* PX:D EQU 2 PRECHAN EQU 3 P* P* P* , P*
0x379788…37991c Dummy {f00=0x0103, f01=0x0190, f02=» 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. B P* t PCPU852 EQU 0 ~ P* P EJECT : P***************************************************** : P* C W T L T 1
0x37991c…379ab0 Dummy {f00=0x0103, f01=0x0190, f02=»CHANNEL NO. 1 n P* PDWA1 EQU /03 DEVICEADDRESS P* B PCWTLT1 EQU * TABLE ENTRY L PCWTLDW EQU *-CWTLT1 l P DATA 0 LAST OUTPUT DWT PCWTLOW EQU *-CWTLT1 P DATA 0 LAST OUTPUT WORD PCWTITA EQU *-CWTLT1 , P DATA IN
0x379ab0…379c44 Dummy {f00=0x0103, f01=0x0190, f02=» OTR PCWTCIS EQU *-CWTLT1 P CIO A2,1,DWA1 CIO-START ( PCWTRTC EQU *-CWTLT1 H " P DATA 0 RETRANSMISSION COUNTER d PCWTEQ EQU *-CWTLT1 P DATA 0 QUEUE P DATA 0 QUEUE 2 PCWTADD EQU *-CWTLT1 P* P IFT ACKMUL=1
0x379c44…379dd8 Dummy {f00=0x0103, f01=0x0190, f02=»ACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* H P XIF R P* ^ P EJECT h P* v P* : P***************************************************** : P* C W T L T 2 * : P**
0x379dd8…379f6c Dummy {f00=0x0103, f01=0x0190, f02=»CWTLT2 EQU * P* P IFT LOCHAN=2 P* 4 P* > P* H PDWA2 EQU /13 DEVICE ADDRESS R P* v P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,
0x379f6c…37a100 Dummy {f00=0x0103, f01=0x0190, f02=»* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR * $ P DATA 0 RETR. FAULT-ACKUMULATOR J , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR r ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P IFT LOCHAN=3 P*
0x37a100…37a294 (4, 192) Dummy {f00=0x0103, f01=0x0190, f02=» DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR $ P OTR A2,0,DWA2 OTR > P CIO A2,1,DWA2 CIO-START X " P DATA 0 RETRANSMISSION COUNTER x P DATA 0 QUEUE P DATA 0 SECOND QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-AC
0x37a294…37a428 Dummy {f00=0x0103, f01=0x0190, f02=»LATOR r P* P XIF P* $ P IFT LOCHAN=4 . P* D P* N P* X PDWA2 EQU /13 DEVICE ADDRESS b P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR
0x37a428…37a5bc Dummy {f00=0x0103, f01=0x0190, f02=»ND QUEUE P* P IFT ACKMUL=1 P* 0 P DATA 0 NAK-ACKUMULATOR : $ P DATA 0 RETR. FAULT-ACKUMULATOR Z , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR P* P XIF P* P EJECT
0x37a5bc…37a750 Dummy {f00=0x0103, f01=0x0190, f02=» * ^ : P***************************************************** P* J 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 T P* PCWTLT3 EQU * P* P IFT LOCHAN=3 P* P* P* PDWA3 EQU /23 DEVICE ADDRESS
0x37a750…37a8e4 Dummy {f00=0x0103, f01=0x0190, f02=» P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER > P DATA 0 QUEUE d P DATA 0 SECOND QUEUE z P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P
0x37a8e4…37aa78 Dummy {f00=0x0103, f01=0x0190, f02=»4 P* P* P* PDWA3 EQU /23 DEVICE ADDRESS ( P* L P DATA 0 LAST OUTPUT DWT V P DATA 0 LAST OUTPUT WORD v P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START
0x37aa78…37ac0c Dummy {f00=0x0103, f01=0x0190, f02=» DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR H ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR x P* P XIF P* P EJECT P* P* : P**********************************
0x37ac0c…37ada0 Dummy {f00=0x0103, f01=0x0190, f02=»******* b P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 4 P* R PCWTLT4 EQU * P* p P IFT LOCHAN=4 z P* P* P* PDWA4 EQU /33 P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD
0x37ada0…37af34 (4, 193) Dummy {f00=0x0103, f01=0x0190, f02=»ANSMISSION COUNTER P DATA 0 QUEUE P DATA 0 SECOND QUEUE 0 P* L P IFT ACKMUL=1 V P* l P DATA 0 NAK-ACKUMULATOR v $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT AC
0x37af34…37b0c8 Dummy {f00=0x0103, f01=0x0190, f02=» p $ P******************************* 4 P* CONTROL WORK TABLE FOR REMOTE CHANNEL NO. 1 0 P* CONNECTED TO FIRST CHRT h P* PDWA5 EQU /1 DEVICE ADDRESS PCWTRT1 EQU * P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD
0x37b0c8…37b25c Dummy {f00=0x0103, f01=0x0190, f02=»ANSMISSION COUNTER P DATA 0 QUEUE TERMINAL 1 P DATA 0 QUEUE TERMINAL 2 : P* Z P IFT ACKMUL=1 d P* z P DATA 0 NAK-ACKUMULATOR $ P DATA 0 BLOCK ERROR ACKUMULATOR , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( P DATA 0 PRIN
0x37b25c…37b3f0 Dummy {f00=0x0103, f01=0x0190, f02=»RT1 P DATA /7055 SYNC CHARACTER ! PLRCDWT EQU *-CWTRT1 ! . 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 ! J 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 ! ~ PLRCACK EQU *-CWTRT1 ! & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 ! & P DATA 0 LRC-ACKU
0x37b3f0…37b584 Dummy {f00=0x0103, f01=0x0190, f02=»INDICATOR ! n ( P DATA 0 BIT 0: BLOCKSENDING RUNNING " $ P BIT 15: BLOCKSENDING ALLOWED " > P EJECT " f $ P******************************** " t $ P* C W T R T 2 * " $ P******************************** " : P* CHANNEL UNIT WORK TABLE
0x37b584…37b718 Dummy {f00=0x0103, f01=0x0190, f02=»A 0 LAST OUTPUT WORD " P # P DATA INTRT1 INTERRUPT TABLE # $ P INR A2,0,DWA5 INR # H P OTR A2,1,DWA5 OTR # b P CIO A2,1,DWA5 CIO-START # | " P DATA 0 RETRANSMISSION COUNTER # P DATA 0 QUEUE TERMINAL 1 # P DATA 0 QUEUE TERMINAL 2 # P* #
0x37b718…37b8ac Dummy {f00=0x0103, f01=0x0190, f02=»ACKUMULATOR # t ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR $ P* $ @ P XIF $ J P* $ V P DATA 0 TIMER POINTER $ ` P DATA /7255 SYNC-CHARACTER $ ~ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 $ 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 $ & P
0x37b8ac…37ba40 Dummy {f00=0x0103, f01=0x0190, f02=»A 0 BLOCK SENDING INDICATOR $ P EJECT % $ $ P******************************** % 2 $ P* C W T R T 3 * % Z $ P******************************** % P* % : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 1 % " P* CONNECTED TO SECO
0x37ba40…37bbd4 (4, 194) Dummy {f00=0x0103, f01=0x0190, f02=»ATA 0 LAST OUTPUT DWT % P DATA 0 LAST OUTPUT WORD & P DATA INTRT2 INTERRUPT TABLE & > P INR A2,0,DWA6 INR & b P OTR A2,0,DWA6 OTR & | P CIO A2,1,DWA6 CIO-START & " P DATA 0 RETRANSMISSION COUNTER & P DATA 0 QUEUE TERMINAL 1 & P DATA 0 QUEU
0x37bbd4…37bd68 Dummy {f00=0x0103, f01=0x0190, f02=»FINED-INTERRUPT-ACKUMULATOR & ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ' $ P* ' P P XIF ' Z P IFT RECHAN=3 ' f PDWA6 EQU /11 DEVICE ADDRESS ' | P* ' P DATA 0 LAST OUTPUT DWT ' P DATA 0 LAST OUTPUT WORD ' P DATA INTRT2 INTERRUPT TABLE '
0x37bd68…37befc Dummy {f00=0x0103, f01=0x018e, f02=»QUEUE TERMINAL 1 ' P DATA 0 QUEUE TERMINAL 2 ( P* ( 8 P IFT ACKMUL=1 ( B P DATA 0 NAK-ACKUMULATOR ( X $ P DATA 0 BLOCK ERROR ACKUMULATOR ( x , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR ( ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR ( P* ( P X
0x37befc…37c090 Dummy {f00=0x0103, f01=0x0190, f02=» ( v P DATA INTRT2 INTERRUPT TABLE ) P INR A2,0,DWA6 INR ) , P OTR A2,0,DWA6 OTR ) F P CIO A2,1,DWA6 CIO-START ) ` " P DATA 0 RETRANSMISSION COUNTER ) P DATA 0 QUEUE TERMINAL 1 ) P DATA 0 QUEUE TERMINAL 2 ) P* ) P IFT ACKMUL=1 ) P D
0x37c090…37c224 Dummy {f00=0x0103, f01=0x0190, f02=»MEOUT ACKUMULATOR ) ~ P* * P XIF * $ P IFT RECHAN=2 * 0 P DATA 0 TIMER POINTER * F P DATA /7055 SYNC-CHARACTER * d 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 * 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 * & P DATA 0 LRC-ACKUMULATOR TE
0x37c224…37c3b8 Dummy {f00=0x0103, f01=0x0190, f02=»R * r P XIF + P IFT RECHAN=3 + P DATA 0 TIMER POINTER + , P DATA /7055 SYNC-CHARACTER + J 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 + l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 + & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 + & P DATA 0 LR
0x37c3b8…37c54c Dummy {f00=0x0103, f01=0x0190, f02=» RECHAN=4 + P DATA 0 TIMER POINTER , P DATA /7055 SYNC-CHARACTER , 0 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 , R 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 , & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 ,
0x37c54c…37c6e0 Dummy {f00=0x0103, f01=0x018e, f02=»**************** , $ P* C W T R T 4 * - $ P******************************** - @ P* - h : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 - r " P* CONNECTED TO SECOND CHRT - P* - PCWTRT4 EQU * - P* - P IFT RECHA
0x37c6e0…37c874 (4, 195) Dummy {f00=0x0104, f01=0x0190, f02=» P OTR A2,1,DWA6 OTR . P CIO A2,1,DWA6 CIO-START . " P DATA 0 RETRANSMISSION COUNTER . > P DATA 0 QUEUE TERMINAL 1 . d P DATA 0 QUEUE TERMINAL 2 . P* . P IFT ACKMUL=1 . P DATA 0 NAK-ACKUMULATOR . $ P DATA 0 BLOCK ERROR ACKUMULATOR .
0x37c874…37ca08 Dummy {f00=0x0104, f01=0x0190, f02=»0 LAST OUTPUT DWT . P DATA 0 LAST OUTPUT WORD / P DATA INTRT2 INTERRUPT TABLE / : P INR A2,0,DWA6 INR / ^ P OTR A2,1,DWA6 OTR / x P CIO A2,1,DWA6 CIO-START / " P DATA 0 RETRANSMISSION COUNTER / P DATA 0 QUEUE TERMINAL 1 / P DATA 0 QUEUE TE
0x37ca08…37cb9c Dummy {f00=0x0104, f01=0x018e, f02=»D-INTERRUPT-ACKUMULATOR / ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 0 P XIF 0 L P IFT RECHAN=4 0 X P DATA 0 LAST OUTPUT DWT 0 n P DATA 0 LAST OUTPUT WORD 0 P DATA INTRT2 INTERRUPT TABLE 0 P INR A2,0,DWA6 INR 0 P OTR A2,1,DWA6 OTR 0 P C
0x37cb9c…37cd30 Dummy {f00=0x0104, f01=0x018e, f02=» 0 P IFT ACKMUL=1 1 P DATA 0 NAK-ACKUMULATOR 1 $ P DATA 0 BLOCK ERROR ACKUMULATOR 1 > , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 1 f ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 1 P XIF 1 P IFT RECHAN=2 1 P* 1 P DATA 0 TIMER POINTER 1
0x37cd30…37cec4 Dummy {f00=0x0104, f01=0x018e, f02=» 1 b & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 2 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 2 2 , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 2 $ P DATA 0 BLOCK SENDING INDICATOR 2 P* 2 P XIF 2 P* 2 P IFT RECHAN=3 2 P DATA 0 TIMER POINTER 2 P
0x37cec4…37d058 Dummy {f00=0x0104, f01=0x0190, f02=» & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 3 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 3 . , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 3 X $ P DATA 0 BLOCK SENDING INDICATOR 3 P* 3 P XIF 3 P* 3 P IFT RECHAN=4 3 P DATA 0 TIMER POINTER 3 P DAT
0x37d058…37d1ec Dummy {f00=0x0104, f01=0x0190, f02=»ATA 0 LRC-ACKUMULATOR TERMINAL 1 3 & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 4 ( , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) 4 R $ P DATA 0 BLOCK SENDING INDICATOR 4 P* 4 P XIF 4 P* 4 P EJECT 4 $ P******************************** 4 $ P* C
0x37d1ec…37d380 Dummy {f00=0x0104, f01=0x0190, f02=» 4 Z P* CONNECTED TO THIRD CHRT 5 P 5 , P* 5 4 PCWTRT5 EQU * 5 > P* 5 R P IFT RECHAN=3 5 P* 5 r PDWA7 EQU /21 DEVICE ADDRESS 5 | P* 5 P DATA 0 LAST OUTPUT DWT 5 P DATA 0 LAST OUTPUT WORD 5 P DATA INTRT3 INTERRUPT TABLE 5
0x37d380…37d514 (4, 196) Dummy {f00=0x011e, f01=0x0190, f02=»QUEUE TERMINAL 1 5 P DATA 0 QUEUE TERMINAL 2 6 P* 6 8 P IFT ACKMUL=1 6 B P DATA 0 NAK-ACKUMULATOR 6 X $ P DATA 0 BLOCK ERROR ACKUMULATOR 6 x , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR 6 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 6 P* 6 P X
0x37d514…37d6a8 Dummy {f00=0x011e, f01=0x0190, f02=»PUT WORD 6 P DATA INTRT3 INTERRUPT TABLE 7 P INR A2,0,DWA7 INR 7 4 P OTR A2,0,DWA7 OTR 7 N P CIO A2,1,DWA7 CIO-START 7 h " P DATA 0 RETRANSMISSION COUNTER 7 P DATA 0 QUEUE TERMINAL 1 7 P DATA 0 QUEUE TERMINAL 2 7 P* 7 P IFT ACKMUL=1 7
0x37d6a8…37d83c Dummy {f00=0x011e, f01=0x0190, f02=»INTER TIMEOUT ACKUMULATOR 7 P* 8 " P XIF 8 , P IFT RECHAN=3 8 8 P DATA 0 TIMER POINTER 8 N P DATA /7055 SYNC-CHARACTER 8 l 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 8 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 8 & P DATA 0 LRC-ACKUMU
0x37d83c…37d9d0 Dummy {f00=0x011e, f01=0x0190, f02=»INDICATOR 8 z P XIF 9 P IFT RECHAN=4 9 P DATA 0 TIMER POINTER 9 4 P DATA /7055 SYNC-CHARACTER 9 R 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 9 t 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 2 9 & P DATA 0 LRC-ACKUMULATOR TERMINAL 1 9 & P D
0x37d9d0…37db64 Dummy {f00=0x011e, f01=0x0190, f02=» P EJECT : $ P******************************** : $ P* C W T R T 6 * : : $ P******************************** : b P* : : P* CHANNEL UNIT WORK TABLE FOR REMOTE CHANNEL NO. 2 : P* CONNECTED TO THIRD CHRT : P* : PCWTRT6 E
0x37db64…37dcf8 Dummy {f00=0x011e, f01=0x018e, f02=» : t P INR A2,0,DWA7 INR ; P OTR A2,1,DWA7 OTR ; " P CIO A2,1,DWA7 CIO-START ; < " P DATA 0 RETRANSMISSION COUNTER ; P DATA 0 QUEUE TERMINAL 1 ; P DATA 0 QUEUE TERMINAL 2 ; P* ; P IFT ACKMUL=1 ; P DATA 0 NAK-ACKUMULATOR ; $ P DATA
0x37dcf8…37de8c Dummy {f00=0x011e, f01=0x0190, f02=» P IFT RECHAN=4 < P DATA 0 LAST OUTPUT DWT < P DATA 0 LAST OUTPUT WORD < : P DATA INTRT3 INTERRUPT TABLE < Z P INR A2,0,DWA7 INR < ~ P OTR A2,1,DWA7 OTR < P CIO A2,1,DWA7 CIO-START < " P DATA 0 RETRANSMISSION COUNTER < P DATA 0 QUEUE TE
0x37de8c…37e020 Dummy {f00=0x011e, f01=0x0190, f02=»MULATOR < x , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR = ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR = @ P XIF = l P* = x P IFT RECHAN=3 = P DATA 0 TIMER POINTER = P DATA /7255 SYNC-CHARACTER = 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1 =
0x37e020…37e1b4 (4, 197) Dummy {f00=0x011f, f01=0x0190, f02=» , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) > $ P DATA 0 BLOCK SENDING INDICATOR > 4 P* > P XIF > f P* > r P IFT RECHAN=4 > | P* > P DATA 0 TIMER POINTER > P DATA /7255 SYNC-CHARACTER > 0 P DATA 0 DWT OF GOING LRC-PROCESS TERMINAL 1
0x37e1b4…37e348 Dummy {f00=0x011f, f01=0x018e, f02=» > n , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) ? $ P DATA 0 BLOCK SENDING INDICATOR ? 8 P* ? ` P XIF ? j P* ? v P EJECT ? $ P******************************** ? $ P* C W T R T 7 * ? $ P******************************** ? P*
0x37e348…37e4dc Dummy {f00=0x011f, f01=0x0190, f02=» P* @ P IFT RECHAN=4 @ P* @ $ PDWA8 EQU /31 DEVICE ADDRESS @ . P* @ R P DATA 0 LAST OUTPUT DWT @ P DATA 0 LAST OUTPUT WORD @ | P DATA INTRT4 INTERRUPT TABLE @ P INR A2,0,DWA8 INR @ P OTR A2,0,DWA8 OTR @ P CIO A2,1,DWA8 CIO-S
0x37e4dc…37e670 Dummy {f00=0x011f, f01=0x0190, f02=»1 @ P DATA 0 NAK-ACKUMULATOR A $ P DATA 0 BLOCK ERROR ACKUMULATOR A * , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR A R ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR A P* A P XIF A P IFT RECHAN=4 A P DATA 0 TIMER POINTER A P DATA /7055 SYNC
0x37e670…37e804 Dummy {f00=0x011f, f01=0x0190, f02=»KUMULATOR TERMINAL 1 A & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 B , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) B F $ P DATA 0 BLOCK SENDING INDICATOR B v P XIF B P EJECT B $ P******************************** B $ P* C W T R T 8 * B $ P
0x37e804…37e998 Dummy {f00=0x011f, f01=0x0190, f02=» CHRT B x P* C PCWTRT8 EQU * C P* C , P IFT RECHAN=4 C 6 P DATA 0 LAST OUTPUT DWT C L P DATA 0 LAST OUTPUT WORD C l P DATA INTRT4 INTERRUPT TABLE C P INR A2,0,DWA8 INR C P OTR A2,1,DWA8 OTR C P CIO A2,1,DWA8 CIO-START C " P DAT
0x37e998…37eb2c Dummy {f00=0x011f, f01=0x0190, f02=»0 NAK-ACKUMULATOR C $ P DATA 0 BLOCK ERROR ACKUMULATOR D , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR D B ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR D r P XIF D P IFT RECHAN=4 D P* D P DATA 0 TIMER POINTER D P DATA /7255 SYNC-CHARACTER D 0
0x37eb2c…37ecc0 Dummy {f00=0x011f, f01=0x0190, f02=»AL 1 D r & P DATA 0 LRC-ACKUMULATOR TERMINAL 2 E , P DATA 0 CHANNEL STATUS WORD (LOOP-TESTS) E 6 $ P DATA 0 BLOCK SENDING INDICATOR E f P* E P XIF E P* E P EJECT E 6 P************************************************* E 6 P* C H T A B
0x37ecc0…37ee54 (4, 198) Dummy {f00=0x011f, f01=0x018e, f02=»ES OF CONTROLLER WORK E t 8 P* TABLES CWT TO CHANNEL UNITS FOR LOCAL OR REMOTE F P* TERMINALS. F Z P* F p P* F z P* F PCHTAB EQU * F P DATA CHTABE-* TABLE LENGTH F P IFT LOCHAN=1 F P DATA CWTLT1 F P DATA 0 F P DATA
0x37ee54…37efe8 Dummy {f00=0x011f, f01=0x0190, f02=» F P XIF G P* G P IFT LOCHAN=3 G P DATA CWTLT1 G 4 P DATA CWTLT2 G H P DATA CWTLT3 G P DATA 0 G p P XIF G P IFT LOCHAN=4 G P DATA CWTLT1 G P DATA CWTLT2 G P DATA CWTLT3 G P DATA CWTLT4 G P XIF G P* G P
0x37efe8…37f17c Dummy {f00=0x011f, f01=0x0190, f02=»A CWTRT6 G P* H P XIF H P* H & P IFT RECHAN=2 H 0 P DATA CWTRT3 H F P DATA CWTRT4 H Z P XIF H n P* H z P IFT RECHAN=4 H P DATA CWTRT3 H P DATA CWTRT4 H P DATA CWTRT5 H P DATA CWTRT6 H P DATA CWTRT7 H P DATA CWTR
0x37f17c…37f310 Dummy {f00=0x011f, f01=0x0190, f02=»********** H v ( P* D W R E M U * I ( P************************************ I > P* I j . P* DUMMY TABLE USED WHEN LOOP-TESTING OF I t $ P* REMOTE CHANNELS ARE NEEDED. I P* I PDWREMU EQU * I P DATA 0 I P DATA /8000
0x37f310…37f4a4 Dummy {f00=0x011f, f01=0x0190, f02=» O O P - T E S T S E C T I O N I P* J ( P* J 2 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION J < P* J r : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. J | 6 P* THE REQUEST IS COMPLETED WITH FOLLOWING BITS J P* IN RETURN CODE
0x37f4a4…37f638 Dummy {f00=0x011f, f01=0x018e, f02=»OUTPUT J l P* K 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT K PAREM DATA LOPTST K L " P DATA 0 ABORT ROUTINE ADDRESS K d " P DATA IHLOP INTERRUPT HANDLER K PLOPTST EQU * K $ P LD A2,10,A8 GET CHANNEL NUMBER K P ANK A2,/FF K P RF(E) D
0x37f638…37f7cc Dummy {f00=0x011f, f01=0x018e, f02=» K l P RF(E) DISIIE L P LDR A7,A7 WRONG ORDER ? L P RF(E) LOPT10 NO L > ( PDISIIE ABL DISIOE I/O REQUEST ERROR L V PLOPT10 EQU * L , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS L P ANK A1,/40 L ( P RF(NE) IHLP10 CHANNEL UNIT NOT BUSY L & P L
0x37f7cc…37f960 Dummy {f00=0x011f, f01=0x0190, f02=» P* END OF LOOP-TEST M P* M " PIHLOP EQU * M , P LDR A5,A1 GET CWT-ADDRESS M @ , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS M b P ANK A1,3 M P XRK A1,3 M PIHLP10 EQU * M P LDK A2,0 M : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANN
0x37f960…37faf4 (4, 199) Dummy {f00=0x011f, f01=0x0190, f02=» R T 2 M | P* N 8 P* THIS IS THE INTERRUPT HANDLER FOR CHLT AND CHRT N P* N T 2 P* WHEN INTERRUPT FROM A CHANNEL UNIT OCCURS N ^ 2 P* DRIVER FIRST RELATES INTERRUPT TO A CWT. N 0 P* THEN DRIVER GETS THE INTERRUPT MESSAGE, N 2 P* LOGGS
0x37faf4…37fc88 Dummy {f00=0x011f, f01=0x0190, f02=»OLLOWING TYPES OF INTERRUPT ARE RELEVANT N P* O 0 . P* D = DEVICE ADDRESS C = CHARACTER O : P* O l 8 P* ACK OUTPUT ACKNOWLEDGED D = 0 C = 7 O v 8 P* NAK OUTPUT ERROR D = 0 C = 5 O 8 P* OER TIME OUT
0x37fc88…37fe1c Dummy {f00=0x011f, f01=0x0190, f02=»GN BIT SET O f 8 P* ABC+ BLOCK TR. ACKNOWLEDGED D = 0 C = 8 P 8 P* ABC-L LRC ERROR IN BLOCK D = 0 C = A P N 8 P* ABC-V VRC ERROR IN BLOCK D = 0 C = C P 8 P* ABC-LV LRC O VRC ERROR IN BLOCK D = 0 C = E P 8 P* D
0x37fe1c…37ffb0 Dummy {f00=0x011f, f01=0x0190, f02=» STATUS MESSAGE D # 0 C # 0 P 2 P* DIN DATA INPUT D # 0 Q 4 P EJECT Q j P* Q x P* C H L T 1 Q P* Q P* INTERRUPT FROM CHLT1 Q P* Q PCHLT1 EQU * Q P* Q $ P ST P,INTSAV SAVE LAST INTER
0x37ffb0…380144 Dummy {f00=0x011f, f01=0x0190, f02=»,A15 SAVE A1-A8 ON STACK Q P XIF R P* R , P LDK A7,2 INDICATE CHLT1 R 6 P RF CLT010 R V P* R h PCHLT2 EQU * R r P* R P* R P* R P* R P* C H L T 2 R P* R P* INTERRUPT FROM CHLT2 R P* R P IFT LOCHAN=2
0x380144…3802d8 Dummy {f00=0x011f, f01=0x0190, f02=» R P IFT LOCHAN=2 S P IFT CPU852=0 S " P MSR 8,A15 SAVE A1-A8 ON STACK S 4 P XIF S Z P* S f P IFT LOCHAN=2 S p P LDK A7,4 INDICATE CHLT2 S P RF CLT010 S P* S P XIF S P* S P IFT LOCHAN=3 S $ P ST P,INTSAV SAVE LAST INT
0x3802d8…38046c Dummy {f00=0x011f, f01=0x0190, f02=» CPU852=0 S " P MSR 8,A15 SAVE A1-A8 ON STACK T P XIF T 8 P* T D P IFT LOCHAN=3 T N P LDK A7,4 INDICATE CHLT2 T d P RF CLT010 T P* T P XIF T P* T P IFT LOCHAN=4 T $ P ST P,INTSAV SAVE LAST INTERRUPT T P* T P IFT CPU85
0x38046c…380600 Dummy {f00=0x011f, f01=0x0190, f02=»A1-A8 ON STACK T P XIF U P* U " P IFT LOCHAN=4 U , P LDK A7,4 INDICATE CHLT2 U B P RF CLT010 U b P* U t P XIF U ~ P* U PCHLT3 EQU * U P* U P* U P* U P* C H L T 3 U P* U P* INTERRUPT FROM CHLT3 U P
0x380600…380794 (4, 200) Dummy {f00=0x0120, f01=0x0190, f02=»K U p P XIF V P* V P IFT LOCHAN=4 V P IFT CPU852=0 V 6 " P MSR 8,A15 SAVE A1-A8 ON STACK V L P XIF V r P* V ~ P IFT LOCHAN=4 V P LDK A7,6 INDICATE CHLT3 V P RF CLT010 V P XIF V P* V P* V P IFT LOCHAN=3 V $ P S
0x380794…380928 Dummy {f00=0x0120, f01=0x0190, f02=»FT LOCHAN=3 V P IFT CPU852=0 W " P MSR 8,A15 SAVE A1-A8 ON STACK W * P XIF W P P* W P IFT LOCHAN=3 W f P LDK A7,6 INDICATE CHLT3 W | P RF CLT010 W P* W P XIF W P* W PCHLT4 EQU * W P* W P* W P* W P* C H
0x380928…380abc Dummy {f00=0x0120, f01=0x0190, f02=» P IFT CPU852=1 X & P CF A15,SAVE8 SAVE A1-A8 ON STACK X P XIF X D P* X P P IFT LOCHAN=4 X Z P IFT CPU852=0 X p " P MSR 8,A15 SAVE A1-A8 ON STACK X P XIF X P* X P IFT LOCHAN=4 X P LDK A7,8 INDICATE CHLT4 X P RF CLT010 X
0x380abc…380c50 Dummy {f00=0x0120, f01=0x0190, f02=»RT1 EQU * X P ST P,INTSAV Y P* Y & P IFT CPU852=1 Y 0 & P CF A15,SAVE8 SAVE A1-A8 ON STACK Y F P XIF Y p P* Y | P IFT CPU852=0 Y " P MSR 8,A15 SAVE A1-A8 ON STACK Y P XIF Y P* Y P LDK A7,10 INDICATE CHRT1 Y P RF CLT010 Y
0x380c50…380de4 Dummy {f00=0x0120, f01=0x018e, f02=»P,INTSAV SAVE LAST INTERRUPT Y P* Z $ P IFT CPU852=1 Z . & P CF A15,SAVE8 SAVE A1-A8 ON STACK Z D P XIF Z n P* Z z P IFT RECHAN=2 Z P IFT CPU852=0 Z " P MSR 8,A15 SAVE A1-A8 ON STACK Z P XIF Z P* Z P IFT RECHAN=2 Z P LDK A
0x380de4…380f78 Dummy {f00=0x0120, f01=0x0190, f02=» Z P IFT CPU852=1 [ & P CF A15,SAVE8 SAVE A1-A8 ON STACK [ P XIF [ H P* [ T P IFT RECHAN=3 [ ^ P IFT CPU852=0 [ t " P MSR 8,A15 SAVE A1-A8 ON STACK [ P XIF [ P* [ P IFT RECHAN=3 [ P LDK A7,14 INDICATE CHRT2 [ P RF CLT010
0x380f78…38110c Dummy {f00=0x0120, f01=0x0190, f02=»8 SAVE A1-A8 ON STACK [ P XIF P* * P IFT RECHAN=4 4 P IFT CPU852=0 J " P MSR 8,A15 SAVE A1-A8 ON STACK ` P XIF P* P IFT RECHAN=4 P LDK A7,14 INDICATE CHRT2 P RF CLT010 P XIF P* P* P*
0x38110c…3812a0 Dummy {f00=0x0120, f01=0x0190, f02=»ST INTERRUPT | P* ] P IFT CPU852=1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ] 4 P XIF ] ^ P* ] j P IFT RECHAN=3 ] t P IFT CPU852=0 ] " P MSR 8,A15 SAVE A1-A8 ON STACK ] P XIF ] P* ] P IFT RECHAN=3 ] P LDK A7,18 INDICATE CH
0x3812a0…381434 (4, 201) Dummy {f00=0x0120, f01=0x018e, f02=»1 ] & P CF A15,SAVE8 SAVE A1-A8 ON STACK ^ P XIF ^ 4 P* ^ @ P IFT RECHAN=4 ^ J P IFT CPU852=0 ^ ` " P MSR 8,A15 SAVE A1-A8 ON STACK ^ v P XIF ^ P* ^ P IFT RECHAN=4 ^ P LDK A7,18 INDICATE CHRT3 ^ P RF CLT010 ^ P XIF ^ P
0x381434…3815c8 Dummy {f00=0x0120, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT _ P* _ , P IFT CPU852=1 _ 6 & P CF A15,SAVE8 SAVE A1-A8 ON STACK _ L P XIF _ v P* _ P IFT RECHAN=4 _ P IFT CPU852=0 _ " P MSR 8,A15 SAVE A1-A8 ON STACK _ P XIF _ P* _ P IFT RECHAN=4 _
0x3815c8…38175c Dummy {f00=0x0120, f01=0x0190, f02=» EX CWTINR,A5 EXECUTE INR-INSTRUCTION _ P* ` . P IFT LOGING=1 ` 8 P* ` N 4 PCLT012 CF A15,LOGG ** LOGG OF INPUT CHARACTER ** ` X P* ` P XIF ` P EJECT ` P* ` & P* DETERMINE TYPE OF INTERRUPT. ` 4 P* MOREOVER, IF REMOTE, GET TH
0x38175c…3818f0 Dummy {f00=0x0120, f01=0x0190, f02=» ` r P LDR A3,A2 a . P SLC A3,6 REMOTE FIRST OR SECOND CHANNEL ? a P RF(NN) CLT015 FIRST a L > P LD A5,CHTAB+12,A7 GET CWT-ADDRESS SECOND CHANNEL OF CHRT a h 4 PCLT015 CF A15,RESTSY START OR RESTART SYNC-TIMER a * P ANK A3,/2 FIRST OR SECOND TERMINAL ?
0x3818f0…381a84 Dummy {f00=0x0120, f01=0x0190, f02=»TURN CODE a x ( P LDR A3,A2 DATA REQUEST IMMEDIATE ? b P ABL(N) CLT050 U =11 b > $ P ANKL A3,/7000 DEVICE ADDRESS ? b Z ( P ABL(NE) CLT100 YES, DIN, STD OR DRD b P EJECT b P* b P* b , P* DETERMINE TYPE OF CONTROL CHARACTER b P* b
0x381a84…381c18 Dummy {f00=0x0120, f01=0x018e, f02=» P ADK A3,2 c P ABL(E) CLT080 NAK c P ADK A3,2 c 0 P ABL(E) CLT100 POWER ON c B P LDR A7,A7 LOCAL ? c b P RF(N) CLTQUE YES c | P LC A4,LRCACK,A7 c $ P LDK A6,/80 ABC-ANSWER ALLOWED ? c P TM A6,A4 c P RF(E) EXIIT NO c P XRK A4,
0x381c18…381dac Dummy {f00=0x0120, f01=0x0190, f02=» P RF(Z) CLT046 YES d * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER d ( P LDK A4,1 RESET BLOCKSENDING RUNNING d L P ANS A4,CWTBLK,A5 d x P SUK A3,5 d & P RF(E) CLT043 ABC+ , GO TO DRIVER d P IFT ACKMUL=1 d P* d , P IM CWTADD+2,A5 UPDATE ERR
0x381dac…381f40 Dummy {f00=0x0120, f01=0x0190, f02=» RF(E) CLT033 d P ADK A3,4 e P RF(E) CLT033 e ( P EJECT e > P* e L 0 P* RESOLVE QUEUE AND EXAMINE RECOVERY BIT. e V . P* ONE RECOVERY ATTEMPT IS MADE AND THEN e , P* RETURN CODE NOT OPERABLE IS SENT TO e P* DEVICE DRIVER. e P
0x381f40…3820d4 (4, 202) Dummy {f00=0x0120, f01=0x018e, f02=» CM LRCDWT,A7 RESET LRC-DEVICE POINTER e P LDK A4,1 f . 2 P ANS A4,CWTBLK,A5 RESET BLOCKSENDING RUNNNING f @ & PCLTQUE CF A15,QUEUE RESOLVE QUEUE f v 6 PCLT031 LC A2,DWTST,A6 GET LEFT BYTE OF STATUS WORD f P LDR A3,A2 f & P ANK A2,/30 ECHO AND RECOVER
0x3820d4…382268 Dummy {f00=0x0120, f01=0x0190, f02=» 0 PCLT033 LDK A3,2 INDICATE RECOVERY OF DEVICE g P U =11(=3) g 8 P RF CPO025 g L P EJECT g ^ P* g l P* ABC- VRC-ERROR g v P* g 8 P* IF BLOCKSENDING SAME PROCEDURE AS FOR THE OTHER g P* ERRORS OF TYPE ABC-. g 4 P* IF OUTPUT
0x382268…3823fc Dummy {f00=0x0120, f01=0x0190, f02=» CLT031 g PCLT043 ABL CLT107 h P EJECT h * P* h 8 P* POWER ON h B P* h X 8 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE h b < P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL UNIT h P* OR THOSE IN ECHO MODE. h P* h
0x3823fc…382590 Dummy {f00=0x0120, f01=0x0190, f02=» h , P LDR* A2,A5 GET CHANNEL OCCUPYING DEVICE i . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER i 8 P LDR A7,A7 REMOTE ? i j P RF(N) CPO010 NO i * P CM LRCDWT,A7 RESET LRC-DEVICE POINTER i P LDK A7,1 i 0 P ANS A7,CWTBLK,A5 RESET BLOCKSENDING RUNNI
0x382590…382724 Dummy {f00=0x0120, f01=0x0190, f02=»* A6,A1 GET DWT-ADDRESS i P RF(E) CPO030 j P SRC A6,1 j 6 P RF(N) CPO030 j H P SLC A6,1 j ^ ( P LCR A7,A6 GET LEFT OF CHANNEL PAR. j p P ANK A7,1 INPUT DEVICE ? j P RF(NE) CPO025 YES j & P LDKL A7,/EFFF RESET RECOVERY BIT j P ANS A7,
0x382724…3828b8 Dummy {f00=0x0120, f01=0x018e, f02=»ANSWER j j P RF(E) CPO030 YES k : PCPO025 LD A7,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A7 k ( 6 P LD A7,RECADR,A7 ADDRESS TO RECOVERY ROUTINE IN A7 k f P RF(E) CPO030 k P LDKL A5,DWTSB2 STACK BASE k P ADR A5,A6 k P INH k & P CFR A15,A7 GO TO
0x3828b8…382a4c Dummy {f00=0x0120, f01=0x0190, f02=» k P* l 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER l P* l L PCLT045 EQU * l V " P LD A1,DWTST,A6 GET STATUS =11 l j P SLL A1,2 ECHO? =11 l P RF(N) CLT047 YES =11 l 2 P LDKL A1,/EEFF NO, RESET INT ALL AND RECOV =11 l P RF CLT0
0x382a4c…382be0 Dummy {f00=0x0120, f01=0x0190, f02=» OPERABLE l v * P ABL CLT107 RESET TIMER AND FINISH =11 m PCLT046 EQU * m @ P ABL CLT110 m T P EJECT m h P* m v P* A C K , D R I m 2 P* FIRST RESOLVE QUEUE AND THEN EXAMINE LAST m 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR m 6 P*
0x382be0…382d74 (4, 203) Dummy {f00=0x0120, f01=0x0190, f02=»* RECOVERY BIT IN DWT. THEN A SIMULATION OF DATA m < P* REQUEST FOR DEVICES WITHOUT DATA REQUEST IS CARRIED n < < P* OUT. FOR DEVICES WITH DATA REQUEST FUNCTION A TIMER n | : P* HANDLING ANSWERS FROM DEVICE IS AFFECTED AND THEN n > P* IF DRI A
0x382d74…382f08 Dummy {f00=0x0120, f01=0x0190, f02=»AST OUTPUT WORD n ~ " P ANK A3,/F0 KEEP DEVICE NUMBER o P CF A15,QUEUE RESOLVE QUEUE o > P LDKL A4,/EFFF o b 6 P ANS A4,DWTST,A6 RESET RECOVERY BIT IN STATUS WORD o x P LDR A7,A7 REMOTE ? =11 o P RF(N) CLT052 NO =11 o P LDK A4,2 o 4 P ORS A4,
0x382f08…38309c Dummy {f00=0x0120, f01=0x018e, f02=»7 INDICATE ABC ALLOWED o P RF CLT055 p PCLT052 EQU * p 0 . P LDR* A3,A6 DEVICE WITHOUT DATA REQUEST ? p D P RF(NN) CLT055 p v P CW A6,LRCDWT,A7 p P ABL(NE) CLT110 p P EJECT p P* p P* p P* PRINTER TIMING p P* p PCLT0
0x38309c…383230 Dummy {f00=0x0120, f01=0x018e, f02=» p " P LDKL A3,-DRQTIM RESTART TIMER q P ST* A3,DWTTP,A6 q . P RF CLT068 q F P* q X P* START TIMER q b P* q z PCLT060 EQU * q P LDR A1,A6 PARAMETER q P LDKL A4,DWTTP TIMER POINTER q P ADR A4,A6 ADD DWT-ADDRESS q " P CF A15,SETIMP
0x383230…3833c4 Dummy {f00=0x0120, f01=0x0190, f02=» P RF(E) EXIT YES r P LDK A1,0 r & P LDR* A4,A6 GET CHANNEL PARAMETER r . . P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST r X ( P LDR A2,A2 DATA REQUEST IMMEDIATE ? r P ABL(N) CLT125 YES =11 r " PEXIT ABL TDISP DISPATCHER EXIT r P EJECT r P
0x3833c4…383558 Dummy {f00=0x0120, f01=0x0190, f02=» USING THE LRC-FUNCTION , MISSING BLOCK CONTROL r . P* CHARACTERS (ABC) FROM SELECTOR UNIT. s 8 P* s j PDRQTUT EQU * s t P LDR A6,A1 GET DWT-ADDRESS s . P CM DWTTP,A6 RESET POINTER TO TIMER BLOCK s P LD A3,DWTST,A6 s P RB(N) EXIT s P
0x383558…3836ec Dummy {f00=0x0120, f01=0x0190, f02=» P LDK A2,/83 t P CC A2,DWTOCH,A6 t P RF(NE) DRQT10 t 0 P SUK A5,8 LOCAL DEVICE ? =4 t F P RB(N) EXIT t j P CF A15,OUTLIN t ~ P RB EXIT t PDRQT10 EQU * t P* t P IFT ACKMUL=1 t P* t & P LD A5,CHTAB+2,A5 GET CWT-ADDRESS t
0x3836ec…383880 Dummy {f00=0x0120, f01=0x0190, f02=»R 01 =10(=1) t 2 P RB(E) CLT045 YES, GO TO DEV. INT. HANDLER =1 u & P LDR* A1,A6 CHANNEL PARAMETER =12 u J 0 P RF(NN) DRQT20 DEVICE WITH DATA REQUEST =12 u t P LDK A4,1 U =11 u PDRQT20 EQU * U =12 u 2 P ABL CLT033 NO, EXECUTE DEV. RECOVERY =12(=1)
0x383880…383a14 (4, 204) Dummy {f00=0x0121, f01=0x0190, f02=»ST OUTPUT CHARACTER IS RETRANSMITTED u < P* BY CHANNEL DRIVER SIX TIMES AND IF STILL NO SUCCESS v , < P* RETURN CODE NOT OPERABLE IS SENT TO DEVICE DRIVER. v l P* v PCLT080 EQU * v $ P LDR* A6,A5 GET LAST OUTPUT DWT v P RB(E) EXIT v P*
0x383a14…383ba8 Dummy {f00=0x0121, f01=0x0190, f02=»ORE NAK? v ~ P RB(E) EXIT YES w 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER w ( P LD A4,CWTRTC,A5 GET COUNTER w ^ P SUK A4,7 SEVEN TIMES ? w P ABL(E) CLT030 w * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD w $ P EX CWTOTR,A5 EXECUTE OTR-INSTR. w
0x383ba8…383d3c Dummy {f00=0x0121, f01=0x0190, f02=»WTLOW,A5 STORE LAST OUTPUT WORD w P LDR A7,A7 REMOTE? x ( P RF(N) CLT090 NO x B P ANK A2,/FF x Z , P XRS A2,LRCACK,A7 UPDATE LRC-ACKUMULATOR x n . P CF A15,RESTSY START OR RESTART SYNC-TIMER x PCLT090 ABL TDISP x P EJECT x P* x P* x $
0x383d3c…383ed0 Dummy {f00=0x0121, f01=0x0190, f02=» DEVICE-DEPENDENT INTERRUPT x v P* HANDLER. y $ P* y : P* REMOTE DEVICES: y D P* y ` > P* DATA INPUT: SAME PROCEDURE AS FOR LOCAL DEVICES y j : P* DATA REQUEST: INPUT WORD IS COMPLEMENTED WITH y 8 P* STATUS F
0x383ed0…384064 Dummy {f00=0x0121, f01=0x018e, f02=»TATUS-INDICATOR y d < P* IS CHECKED TO SEE IF THE DEVICE IS z < P* WAITING FOR A STATUS CHANGE. IF SO z X > P* GET ORDER AND ECB-ADDRESS AND GO TO z < P* DEVICE WITH THE NEW STAT
0x384064…3841f8 Dummy {f00=0x0121, f01=0x018e, f02=» P* { PCLT100 EQU * { P LDR A3,A2 { " P SRL A3,8 { 4 P LDR A4,A3 { F P ANK A3,/E 2 * LINE NUMBER { X P SRL A4,3 { z P ANK A4,/E 2 * DEVICE NUMBER { P CWK A4,/E SYNC-INPUT ? { P RF(E) CLT150 YES { P LOOP SWITCH SET { 0 P LD*
0x3841f8…38438c Dummy {f00=0x0121, f01=0x0190, f02=» P RB(Z) EXIT NOT DEFINED | P LDR* A6,A8 GET ID-WORD | $ P SUR A6,A4 | D $ P RB(N) EXIT UNDEFINED INTERRUPT | V " P LDR A4,A4 NO DEVICE NUMBER ? | ~ P ABL(E) CHPOWO POWER ON | & P ADR A8,A4 ADDRESS TO DWT-ADDRESS | P LDR* A6,A8 GET DWT-ADDRES
0x38438c…384520 Dummy {f00=0x0121, f01=0x018e, f02=» RF(NE) CLT110 YES | & P LDR* A4,A6 GET CHANNEL PARAMETER } P RB(N) EXIT } D P LDR A7,A7 REMOTE ? } X P RF(NN) CLT120 YES } t PCLT105 LC A3,DWTOCH,A6 } P ANK A3,/7F } P SUK A3,DUMMSP } P RF(NE) CLT110 } & P LDR* A3,A6 CHANNEL PARAMETE
0x384520…3846b4 (4, 205) Dummy {f00=0x0121, f01=0x0190, f02=» } P INH ~ & P LD A7,DWTTP,A6 GET TIMER POINTER ~ & P RF(E) CLT110 TIMER ALREADY RESET ~ > P* ~ h P************************* ~ r P* ~ P CM* DWTTP,A6 ~ P CM DWTTP,A6 ~ PCLT110 LD A7,DWTOR,A6 ORDER ~ P ANK A7,/FF ~ P LD A8,D
0x3846b4…384848 Dummy {f00=0x0121, f01=0x018e, f02=» ~ * PCLT120 LDR A7,A2 REMOTE DATA REQUEST ? P ANK A7,/FF 6 P RF(NE) CLT130 J $ P CWR* A6,A5 DRD BEFORE ANSWER ? ` P ABL(E) EXIT YES =11 PCLT125 SRL A4,4 P ANK A4,/C P ORR A2,A4 STATUS IN A2 P RB CLT105 PCLT130 E
0x384848…3849dc Dummy {f00=0x0121, f01=0x018e, f02=» ( P SC A4,1,A6 STORE NEW STATUS IN DWT $ P LD A4,DWTST,A6 GET STATUS WORD 0 * P ANKL A4,/200 STATUS CHANGE ALLOWED ? X P RF(E) CLT154 EG. EXIT P XRS A4,DWTST,A6 RESET BIT ( P XRR A3,A2 VOUCHER STATUS CHANGED ? P ANK A3,/80 P R
0x3849dc…384b70 Dummy {f00=0x0121, f01=0x0190, f02=» P LDK A4,1 P CWR* A4,A5 SYNC SENT ? P RF(NE) CLT154 : < P LDKL A4,/8001 INDICATE LOOP MODE AND SYNC-ACK RECEIVED P PCLT152 EQU * P ORS A4,CWTRST,A5 PCLT154 ABL EXIT P EJECT P* P* LOOP MODE P*
0x384b70…384d04 Dummy {f00=0x0121, f01=0x0190, f02=»ST OUTPUT DWT ~ P LDR* A6,A5 P SUK A4,1 SYNC ? * P RF(E) CLT178 YES B ( P LDK A1,NOERR INDICATE NOT OPERABLE PCLT177 RB CLT110 PCLT178 EQU * P SUK A3,4 ACK ? P RF(NE) EXITA NO $ P LDK A4,2 INDICATE ACK RECEIVED
0x384d04…384e98 Dummy {f00=0x0121, f01=0x0190, f02=»RESET LOOP TEST BIT ~ P RB CLT100 P EJECT . P* < P* QUEUE F P* X 2 P* GET LAST OUTPUT DWT AND SET CHANNEL FREE. b 4 P* IF LOCAL DEVICE CHECK OUTPUT QUEUE AND SEND P* IF SOMETHING THERE. 8 P* IF REMOTE DEVICE CH
0x384e98…38502c Dummy {f00=0x0121, f01=0x0190, f02=»NTERRUPTING TERMINAL l & P* AND SEND IF SOMETHING THERE. P* F PQUEUE EQU * P P STR A2,A15 SAVE A2 d $ P LDR* A4,A5 GET LAST OUTPUT DWT . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER P CMR A5 SET CHANNEL FREE P LDK A1,0
0x38502c…3851c0 Dummy {f00=0x0121, f01=0x0190, f02=»E) QUEU20 NO . PQUEU01 LDKL A8,CWTEQ QUEUE FIRST TERMINAL * PQUEU03 ADR A8,A5 ADD CWT-TABLE-ADDRESS F PQUEU04 EQU * t P LDR* A6,A8 QUEUE EMPTY ? P RF(E) QUEU10 YES P LDR A7,A7 =5 $ P RF(N) QUEU06 PREVENT HANG UP =5 P LD A2
0x3851c0…385354 (4, 206) Dummy {f00=0x0121, f01=0x0190, f02=»OUT OF QUEUE v * P STR A2,A8 SET NEXT DWT FIRST IN QUEUE . P LC A2,DWTOCH,A6 GET LAST OUTPUT CHARACTER B P CF A15,OUTLIN SEND IT t PQUEU05 LDR* A2,A15 RELOAD A2 0 P CWR A6,A4 DEVICE ALREADY IN OUTPUT QUEUE ? P RF(E) QUEU30 " P LDR A6,
0x385354…3854e8 Dummy {f00=0x0121, f01=0x018e, f02=»1,0 P ABL RTNA15 PQUEU10 LDR A1,A1 READY ? P RB(E) QUEU05 @ P LDK A1,0 V " P CWR A7,A5 TERMINAL 2 REMOTE ? h P RB(E) QUEU01 NO & PQUEU20 LDKL A8,CWTEQ+2 NEXT QUEUE P RB QUEU03 PQUEU30 ADKL A15,4 P RF EXITA
0x3854e8…38567c Dummy {f00=0x0121, f01=0x018e, f02=» P* PRESTSY EQU * P STR A4,A15 " ( P LD A4,CWTTP,A5 TIMER POINTER ZERO? 6 P RF(NE) RESY20 b P LDR A1,A5 x P LDK A4,CWTTP TIMER POINTER P ADR A4,A5 ADD CWT-ADDRESS P CF A15,SETIMP SET TIMER P DATA SYNCUT,TIME
0x38567c…385810 Dummy {f00=0x0121, f01=0x018e, f02=» P LDR* P,A15 P EJECT P* * P* 4 * P* TIME-OUT ROUTINE FOR SYNC-SENDING > 0 P* IF NOTHING HAPPENS ON A LINE IN 500 MS l P* SYNC-CHARACTER IS SENT. P* PSYNCUT EQU * $ P CM CWTTP,A1 RESET TIMER POINTER
0x385810…3859a4 Dummy {f00=0x0121, f01=0x0190, f02=» P LDK A6,1 P EX CWTOTR,A1 OUTPUT P RF(U) EXITA 2 , P STR A6,A1 STORE "1" AS LAST OUTPUT DWT F P* v P IFT LOGING=1 P* * P CF A15,LOGG LOGG OF OUTPUT CHARACTER P XIF P* P LDR A3,A2 P SLL A3,4 P
0x3859a4…385b38 Dummy {f00=0x0121, f01=0x0190, f02=»WTRST,A1 LOOP MODE ? P LDR A3,A4 P ANK A4,/80 . P RF(E) EXITA NO B P ANK A3,/60 Z P RF(E) SYNC20 THIRD SYNC n P SUK A3,/20 P RF(NE) SYNC10 FIRST SYNC P LDK A3,/20 SECOND SYNC * PSYNC10 XRS A3,CWTRST,A1 CHANGE COUNT
0x385b38…385ccc Dummy {f00=0x0121, f01=0x0190, f02=» 6 P* OUTLRT = SUBROUTINE TO SEND ONE CHARACTER VIA P* CHANNEL UNIT > P* ` P* j B P* GET CWT-ADDRESS AND IF CHANNEL UNIT FREE SEND CHARACTER. t 8 P* RUNNING LRC-PROCESS CAN STOP OUTPUT FROM OTHER 8 P* DEVICES ON SA
0x385ccc…385e60 Dummy {f00=0x0121, f01=0x0190, f02=»L PARAMETER ~ P ANK A7,/F P SLL A7,1 DOUBLE INDEX & & P LD A5,CHTAB+2,A7 GET CWT-ADDRESS D P SUK A7,8 REMOTE ? n P RF(N) OUL100 NO . P LCR A3,A6 LEFT BYTE IN CHANNEL PARAMETER * P SRL A3,2 SECOND TERMINAL IN CHANNEL ? P ANK A3,
0x385e60…385ff4 (4, 207) Dummy {f00=0x0121, f01=0x0190, f02=» IF UNIT NOT FREE QUEUE OUTPUT. 2 P* IF REMOTE DEVICE AND LRC-PROCESS ALREADY * 0 P* RUNNINGON TERMINAL FOR ANOTHER DEVICE, ` 0 P* QUEUE THIS NEW OUTPUT IF LRC-CONTROL ON P* IT IS WANTED. P* ELSE SEND CHARACTER. P*
0x385ff4…386188 Dummy {f00=0x0121, f01=0x0190, f02=» P SUK A3,/82 STX ? P RF(NE) OUL200 NO P EJECT 8 P* F P* S T X P P* b * P LD A3,LRCDWT,A7 LRC-PROCESS RUNNING ? l P RF(NE) OUL175 YES P LDK A2,0 $ P ST A6,LRCDWT,A7 SET LRC-DEVICE , P CM LRCACK,A7 RESET LRC-AC
0x386188…38631c Dummy {f00=0x0121, f01=0x0190, f02=»ERO l P RF OUL510 & POUL175 CWR A3,A6 SAME LRC-DEVICE ? P RF(NE) OUL800 QUEUE OUTPUT H P RF OUL350 l POUL200 SUK A3,/15 ETB ? ~ P RF(NE) OUL300 NO P EJECT P* P* E T B P* & P SC A2,LRCACK,A7 INDICATE LA
0x38631c…3864b0 Dummy {f00=0x0121, f01=0x0190, f02=»,LRCDWT,A7 SAME DEVICE SENDING WITH LRC P RF(Z) OUL350 YES 0 P LD A3,CWTBLK,A5 J , P RF(NN) OUL500 BLOCKSENDING NOT RUNNING b * P RF OUL800 BLOCKSENDING RUNNING, QUEUE P 0 POUL350 LDR* A3,A6 DEVICE WITH DATA REQUEST ? " P RF(NN) OUL5
0x3864b0…386644 Dummy {f00=0x0121, f01=0x0190, f02=» SC A3,CWTBLK,A5 INDICATE BLOCKSENDING RUNNING P EJECT 6 P* D P* N & P* SEND CHARACTER SECTION. X 2 P* CHARACTER IS SENT,SYNC-TIMER UPDATED 8 P* LAST OUTPUT DWT AND LAST OUTPUT CHARACTER 6 P* IS SAVED.
0x386644…3867d8 Dummy {f00=0x0121, f01=0x0190, f02=»PARAMETER | P ANKL A3,/7E00 & POUL510 ORR A2,A3 OUTPUT WORD IN A2 ( P* R P* P* f POUL515 EX CWTOTR,A5 OTR p P RF(R) OUL800 REFUSED P RF(A) OUL520 ACCEPTED P ADKL A15,20 RESET STACK P LDK A1,1 , P LD A2,DWT
0x3867d8…38696c Dummy {f00=0x0121, f01=0x018e, f02=» P* 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** P* B P XIF L P* X P STR A6,A5 SET CHANNEL BUSY b , P ST A2,CWTLOW,A5 STORE LAST OUTPUT WORD P LDR A7,A7 REMOTE ? P RF(N) OUL600 P ANK A2,/FF , P XRS A2,LRCA
0x38696c…386b00 Dummy {f00=0x0121, f01=0x0190, f02=» ^ POUL700 EQU * P IFT CPU852=1 ( P ABL IHRET8 RESTORE A1-A8 AND RETURN 2 P XIF ^ P* j P IFT CPU852=0 t * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P INH =10 . P ADKL A15,2 ...ADJUST STACK POINTER... =10 " P LDR* P,A15
0x386b00…386c94 (4, 208) Dummy {f00=0x0122, f01=0x018e, f02=» POUL800 EQU * P LDR A7,A7 REMOTE ? P RF(NN) OUL805 YES 8 P LDR A7,A5 CWT-ADDRESS R , POUL805 LD A4,CWTEQ,A7 GET QUEUE POINTER p P RF(E) OUL820 POUL810 CWR A6,A4 & P RB(E) OUL600 DWT ALREADY IN QUEUE P LD A3,DWTOTQ,A4
0x386c94…386e28 Dummy {f00=0x0122, f01=0x0190, f02=» $ POUL830 ST A6,DWTOTQ,A4 QUEUE DWT P LDK A4,0 0 : POUL840 ST A4,DWTOTQ,A6 SET OR RESET OUTPUT QUEUE LINK B P RB OUL600 P EJECT P* P* P* C H L T O N P* > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START
0x386e28…386fbc Dummy {f00=0x0122, f01=0x0190, f02=»D A4,CHTAB " PCON010 SUK A4,2 ALL TREATED ? P RF(NZ) CON020 NO TAKE NEXT 8 ( PRTNA15 ADKL A15,2 RETURN AND ENABLE P ENB P LDR* P,A15 PCON020 EQU * P INH $ P LD A5,CHTAB,A4 LOAD CWT-ADDRESS P RB(Z) CON010 P C
0x386fbc…387150 Dummy {f00=0x0122, f01=0x0190, f02=»E CIO-START | P RF(U) CON027 $ P LDK A3,0 INDICATE CHANNEL BUSY * . P CF A15,RESTSY START OR RESTART SYNC-TIMER R PCON027 EQU * 4 P ST A3,CWTRST,A5 INDICATE C.U. PRESENT OR NOT =6 P LD* A1,CWTITA,A5 P LDR A2,A4 P ANK A2,2
0x387150…3872e4 Dummy {f00=0x0122, f01=0x0190, f02=»E ON SECOND TERMONAL z 0 P RF(NZ) CON029 YES BLOCK SENDING NOT ALLOWED 4 PCON028 LDK A2,1 INDICATE BLOCK SENDING PERMITTED P PCONRET ST A2,CWTBLK,A5 P RF CON035 PCON029 LDK A2,0 4 P RB CONRET INDICATE BLOCK SENDING NOT PREMITTED P
0x3872e4…387478 Dummy {f00=0x0122, f01=0x018e, f02=»WK A6,1 SYNC ? P RB(E) CON010 P CMR A5 RESET LAST OUTPUT , P LDK A2,/00 DUMMY N P CF A15,OUTLIN SEND IT h P RB CON010 P EJECT P* P* P* L O G G P* 8 P* IF CONDITIONALY ASSEMBLY IS SET EVERY INPUT
0x387478…38760c Dummy {f00=0x0122, f01=0x0190, f02=» P LD A1,POINT P ADK A1,2 & P CWK A1,BUFE BUFE IS MAX LOGG AREA * P RF(NE) L1 T ( P LDKL A1,BUF SET FIRST LOGG ADDRESS f PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RE
0x38760c…3877a0 Dummy {f00=0x0122, f01=0x4026, f02=» XIF P* P END @ " & P CWK A1,BUFE BUFE IS MAX LOGG AREA * P RF(NE) L1 T ( P LDKL A1,BUF SET FIRST LOGG ADDRESS f PL1 ST A1,POINT & P STR A2,A1 LOGG OF INR OR OTR WORD P LDR* A1,A15 P ADKL A15,2 P LDR* P,A15 RE
0x3877a0…387934 (4, 209) Dummy {f00=0x0122, f01=0x2008, f02=» INR OR OTR WORD e P LDR* A1,A15 f P ADKL A15,2 f 4 P LDR* P,A15 RETURN f H P* f b P* f l PPOINT DATA BUF LOGG POINTER f v P* f PBUF RES 500 LOGG AREA f PBUFE EQU * f P* f P XIF f P* f P END f @ f
0x387934…387ac8 Dummy {f00=0x0122, f01=0x018e, f02=»TIM2 ABORT TIMER IF ANY P* PRD:N05 EQU * * " P XRR A2,A6 EXCHANGE A2 AND A6 > P XRR A6,A2 d P XRR A2,A6 v P RB ITC:15 P* ( PRD:N10 LDR* A3,A2 REMOVE FROM QUEUE ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR P RB RD:N00
0x387ac8…387c5c Dummy {f00=0x0122, f01=0x0190, f02=» * P* W R I T E, N O T A D D R E S S E D P* 6 & PWR:NAD EQU * WRITE, NOT ADDRESSED @ < P LD A2,DWTANC,A6 CHECK QUEUE OF ADDRESSED READ REQUESTS j $ P RF(NZ) WR:N10 ANYTHING IN QUEUE 8 P LD A2,RD:QUE CHECK QUEUE OF NOT ADDRESSED READ REQ.
0x387c5c…387df0 Dummy {f00=0x0122, f01=0x0190, f02=»:N05 CF A15,ABTIM2 ABORT TIMER IF ANY P RB ITC:15 . P* @ ( PWR:N10 LDR* A3,A2 REMOVE FROM QUEUE J ( P ST A3,DWTANC,A6 UPDATE QUEUE ANCHOR v P RB WR:N05 P* , PWR:N20 LDKL A2,WR:QUE GET WR:QUE ADDRESS P RB ITC:50 P*
0x387df0…387f84 Dummy {f00=0x0122, f01=0x0190, f02=» r P LDR A2,A6 $ P CF A15,ITAB10 REMOVE FROM QUEUE P* B PTWR:30 EQU * L P CMR A6 RESET QUEUE LINK ` P LDK A1,/40 RETURN CODE P RB END:IO P* P EJECT DRIC01 P* P* I T A B R T P* . P* THIS SU
0x387f84…388118 Dummy {f00=0x0122, f01=0x0190, f02=» t P* " P* OUTPUT: A1-A4 ARE DESTROYED P* 8 PITABRT EQU * B P LDR A2,A6 V P* h PITAB05 EQU * r P CF A15,ABTIM ABORT TIMER P* P* REMOVE DWT FROM QUEUE P* PITAB10 EQU * & P LD A1,DWTQUE,A2 GET QUE
0x388118…3882ac Dummy {f00=0x0122, f01=0x018e, f02=»D WRITE REQUEST v : P ADK A1,DWTANC POINT TO ADDRESS OF FIRST DWT IN QUEUE P* V P EJECT DRIC01 ` P* x P* PITAB20 LDR A4,A1 SAVE P LDR* A1,A1 NEXT IN QUEUE P CWR A1,A2 SEARCHED DWT P RB(NE) ITAB20 NO! " P L
0x3882ac…388440 Dummy {f00=0x0122, f01=0x0190, f02=» P RF IH:RTN P XIF P* " P IFT CPU852=0 , P RTN A15 B P XIF R P* ^ P EJECT DRIC01 h P* P* A B T I M P* . P* SUBROUTINE FOR ABORTING TIMER (IF ANY). P* P* INPUT: A2 = DWT ADDRESS P
0x388440…3885d4 (4, 210) Opaque[0x194]
0x3885d4…388768 # DirEnt {nam=»DRGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2088, f03=0x0000}
0x3885d4…388768 IdxSect {
0x3885d4…388768 f00 = 0x0104 // 0x3885d4 @0x0
0x3885d4…388768 f01 = 0x0014 // 0x3885d6 @0x2
0x3885d4…388768 gno = [ // 0x3885d8 @0x4
0x3885d4…388768 [0x00]: C0x0104.0x1.0
0x3885d4…388768 [0x01]: C0x0104.0x2.0
0x3885d4…388768 [0x02]: C0x0104.0x3.0
0x3885d4…388768 [0x03]: C0x0105.0x0.0
0x3885d4…388768 [0x04]: C0x0105.0x1.0
0x3885d4…388768 [0x05]: C0x0105.0x2.0
0x3885d4…388768 [0x06]: C0x0105.0x3.0
0x3885d4…388768 [0x07]: C0x0106.0x0.0
0x3885d4…388768 [0x08]: C0x0106.0x1.0
0x3885d4…388768 [0x09]: C0x0106.0x2.0
0x3885d4…388768 ]
0x3885d4…388768 }
0x388768…3888fc Dummy {f00=0x0104, f01=0x0190, f02=» 2 P IDENT DRGP02 REL 10.0 80-03-14 870105041000 P : * P =1,IMPROVEMENT OF FORM LENGTH CON- B * P TROL & FORM FEED FUNCTION ON CONT. p & P STATIONARY. PRR 10.0 79-12-07 " P =2,XIF MOVED TO RIGHT PLACE P PRR 10.0 80-01-25
0x3888fc…388a90 Dummy {f00=0x0104, f01=0x0190, f02=» < P* PHILIPS TERMINAL SYSTEM PTS * < P* * D 4 P* DRGP02 = DRIVER GENERAL PRINTER * < P* * < P*
0x388a90…388c24 Dummy {f00=0x0104, f01=0x0190, f02=»*********************************** | P* , 4 P* THIS DRIVER HANDLES GENERAL PRINTER PTS 8081 6 P* n 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS : x P* $ P* A C T P : ACTIVATION PART P* & P* I H T P : INTERRUPT HA
0x388c24…388db8 Dummy {f00=0x0104, f01=0x0190, f02=» TREATED: t P* $ P* ORDER 00 : TEST STATUS P* ORDER 06 : WRITE D * P* ORDER 0B : POSITION DOCUMENT f . P* ORDER 24 : SET PRINTER PARAMETERS ( P* ORDER 38 : RELEASE DOCUMENT P* , P* THE FOLL
0x388db8…388f4c Dummy {f00=0x0104, f01=0x0190, f02=»T OUT ` ( P* BIT 13 : CODE CHECK ERROR $ P* BIT 15 : NOT OPERABLE : P* b P* l P* NORMAL REGISTER USAGE: v P* " P* REGISTER A1: WORK REGISTER " P* A2: INPUT/OUTPUT $ P* A3: BUFFER PO
0x388f4c…3890e0 Dummy {f00=0x0104, f01=0x0190, f02=» A7: ORDER P* A8: ECB-ADDRESS P* 8 P* B P EJECT L P* Z P* d 0 P******************************************* n P* P* ENTRIES P* 0 P******************************************* P* P*
0x3890e0…389274 (4, 211) Dummy {f00=0x0104, f01=0x0190, f02=»EXTERNALS P* 0 P******************************************* P* P P* Z , P EXTRN TDISP DISPATCHING FROM INTERRUPT d $ P EXTRN DISIOE DISPATCH I/O ERROR & P EXTRN DISEND END I/O AND DISPATCH & P EXTRN OUTPUT OUTPUT ONE CHARACTER
0x389274…389408 Dummy {f00=0x0104, f01=0x0190, f02=»XTRN DWTST DWT STATUS DISPLACEMENT & P EXTRN DWTECB DWT ECB DISPLACEMENT * ( P EXTRN DWTOR DWT ORDER DISPLACEMENT T 2 P EXTRN STREG STORE REG = GET STATUS INPUT CHAR ( P EXTRN INIFLG SYSTEM START INDICATOR P EJECT P* P* . P
0x389408…38959c Dummy {f00=0x0104, f01=0x0190, f02=» P* P* $ PSTB EQU /82 START OF TEXT BLOCK " PETB EQU /97 END OF TEXT BLOCK @ " PSPEC EQU /2E SPECIAL CHARACTER f PSTX EQU /02 START OF TEXT PETX EQU /03 END OF TEXT PLF EQU /0A LINE FEED PFF EQU /0C FORM FEED PCR
0x38959c…389730 Dummy {f00=0x0104, f01=0x0190, f02=»QUENCE INTRODUCER z PREP EQU /62 REPEAT * PVPR EQU /65 VERTICAL POSITION RELATIVE 4 " PINFF EQU /74 INPUT FRONT FEED b . PVPFF EQU /71 VERTICAL POSITION FRONT FEED " PEJFF EQU /38 EJECT FRONT FEED ( PSNV EQU /77 SELECT NATIONAL VERSION
0x389730…3898c4 Dummy {f00=0x0104, f01=0x0190, f02=»0 DEVICE CONTROL STRING PST EQU /5C STRING TERMINATOR PDEL EQU /7F DELETE D PZERO EQU /30 ZERO ^ PNEG EQU /FF x P EJECT P* P* > P********************************************************* P* P* CONTROL
0x3898c4…389a58 Dummy {f00=0x0104, f01=0x0190, f02=»* P* PCSREP EQU * REPEAT P BYTE ESC,CSI . P BYTE ZERO,ZERO D P BYTE ZERO,REP P BYTE NEG,NEG r * PCSVPR EQU * VERTICAL POSITION RELATIVE P BYTE ESC,CSI P BYTE ZERO,ZERO P BYTE ZERO,VPR P BYTE NEG,NEG
0x389a58…389bec Dummy {f00=0x0104, f01=0x0190, f02=»POSITION FRONT FEED z P BYTE ESC,CSI P BYTE ZERO,ZERO 2 P BYTE VPFF,NEG J " PCSEJFF EQU * EJECT FRONT FEED ` P BYTE ESC,EJFF P BYTE NEG,NEG P EJECT PCSSNV EQU * P SELECT NATIONAL VERSION P BYTE ESC,CSI
0x389bec…389d80 Dummy {f00=0x0104, f01=0x0190, f02=»YTE SLPL,NEG * P BYTE NEG,NEG & PCSRIS EQU * RESET TO INITIAL STATE . P BYTE ESC,RIS X P BYTE NEG,NEG n $ PCSDSR EQU * DEVICE STATUS REPORT P BYTE ESC,CSI P BYTE /35,DSR P BYTE NEG,NEG P EJECT P* P*
0x389d80…389f14 (4, 212) Dummy {f00=0x0104, f01=0x0190, f02=»***************************************** P* 2 P* < P* F 4 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN P 8 P* BY SETTING X:A TO 1-15 ACCORDING TO THE LIST BELOW P* P* 4 P* NCV=1 GERMANY,AUSTRIA,LUXEMBOURG,SWITZERLAND
0x389f14…38a0a8 Dummy {f00=0x0104, f01=0x0190, f02=» =4 SPAIN,MEXICO,ARGENTINA,VENEZUELA P =5 ITALY,SWITZERLAND . P =6 SWEDEN,FINLAND N P =7 DENMARK,NORWAY l P =8 PORTUGAL,BRAZIL P =9 YUGOSLAVIA P =10 USA,CANADA,AUSTRALIA $ P =11 SWEDEN (SPECIAL VERSION)
0x38a0a8…38a23c Dummy {f00=0x0104, f01=0x0190, f02=»02 GREAT BRITAIN AS STANDARD PSTDNCV EQU 07 $ P EJECT : P* H P* R , P* THE FRONT FEED DEVICE CAN BE EXCLUDED P* BY SETTING X:B = 0 P* P* PX:B EQU 1 " PFFDEV EQU 0 FRONT FEED DEVICE P* P* P
0x38a23c…38a3d0 Dummy {f00=0x0104, f01=0x0190, f02=»GLEN EQU 51 P* P* . P* THE STANDARD NUMBER OF LINES IS DEFINED ( & P* BY SETTING X:D = NUMBER OF LINES Z P* P* PX:D EQU 36 * PDOCLEN EQU 48 P EJECT P* P* P* P* MMU BUFFER SIZE
0x38a3d0…38a564 Dummy {f00=0x0104, f01=0x0190, f02=» f * P* IS OBTAINED BY SETTING MMUPAG EQU 1 P* 6 P* @ PMMUPAG EQU 0 J P* ^ P* h P* r 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION | . P* SET IS OBTAINED BY SETTING CPU852 EQU 0 P* P* PCPU852 EQU 0
0x38a564…38a6f8 Dummy {f00=0x0104, f01=0x0190, f02=» 0 P******************************************* P* < P* F P* P 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART Z P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4
0x38a6f8…38a88c Dummy {f00=0x0104, f01=0x0190, f02=»U START+/16 PRINTER PAPER LENGTH . PDWTDL EQU START+/18 DOCUMENT PAPER LENGTH ( 0 PDWTALN EQU START+/1A ACTUAL LINE ON DOCUMENT Z 4 PDWTRLN EQU START+/1C REQUESTED LINE ON DOCUMENT 2 PDWTRC EQU START+/1F RETURN CODE (ACKUMULATED) 0 PDWTSTR EQU S
0x38a88c…38aa20 Dummy {f00=0x0104, f01=0x018e, f02=»UAL COLUMN DOCUMENT x , PDWTACP EQU START+/27 ACTUAL COLUMN PAPER * PDWTCO1 EQU START+/2A COLUMN COUNTER 1 L * PDWTCO2 EQU START+/2B COLUMN COUNTER 2 z , PDWTSYST EQU START+/30 SYSTEM START IND. 2 PDWTLFD EQU START+/32 LINE/FORM FEED INDICATOR
0x38aa20…38abb4 (4, 213) Dummy {f00=0x0105, f01=0x0190, f02=» 0 P******************************************* P* < & PECBBA EQU 2 BUFFER ADDRESS IN ECB F ( PECBRL EQU 4 REQUESTED LENGTH IN ECB p ( PECBEL EQU 6 EFFECTIVE LENGTH IN ECB " PECBRC EQU 8 RETURN CODE IN ECB $ PECBCW EQU 10 CONTROL WORD
0x38abb4…38ad48 Dummy {f00=0x0105, f01=0x0190, f02=»********************************* P* * P* 4 P DATA DVBLEN MMU BUFFER SIZE > P DATA 2 DEVICE INDEX b PGPAD8 EQU * ADDRESS BLOCK ~ P DATA ACTP ACTIVATION DRIVER " P DATA 0 ABORT ROUTINE ADDRESS P DATA IHTP INTERRUPT HANDLER
0x38ad48…38aedc Dummy {f00=0x0105, f01=0x0190, f02=»6,/2424 PTPLEN EQU *-TPTAB P * P 2 P EJECT : P* H P* R P* A C T P P* p 2 P* THIS IS THE ACTIVATION PART OF THE DRIVER z > P* CHECKS VALIDITY OF ORDERS AND JUMPS TO ORDER PROCESSOR P* P* P*
0x38aedc…38b070 Dummy {f00=0x0105, f01=0x018e, f02=» LC A2,DWTOR,A6 GET DWT INDEX P ANK A2,1 MASK & * P LC A3,DWTST+1,A6 GET OLD DEVICE VALUE < P ANK A3,/FE j P ORR A3,A2 ~ " P SC A3,DWTST+1,A6 STORE INDEX & P ADR A7,A2 ADD DWT INDEX TO ORDER * P SC A7,DWTOR+1,A6 STORE MODIFIED ORDER
0x38b070…38b204 Dummy {f00=0x0105, f01=0x0190, f02=» P RB(NN) ACT010 TRY NEXT P* $ P ABL DISIOE ILLEGAL ORDER . P* P P* Z PACT020 EQU * d P ADR A3,A3 GET INDEX x P ABI TPFUC,A3 EXECUTE ORDER P EJECT PTPFUC EQU * P IFT FFDEV=1 4 P DATA TSTSTA,WRTDOC,POSDOC
0x38b204…38b398 Dummy {f00=0x0105, f01=0x0190, f02=»T STATUS ~ P* P* PTSTSTA EQU * TEST STATUS $ P CF A5,RESREC D * P CF A5,GTSTAT GET STATUS FROM PRINTER Z P ABL DISEND END REQUEST P EJECT P IFT FFDEV=1 P* P* P* ORDER 06: WRITE DOCUMENT P*
0x38b398…38b52c Dummy {f00=0x0105, f01=0x0190, f02=» P RF(NZ) WRDO05 YES P LDKL A3,/2000 * P TM A1,A3 DOCUMENT OUT ? 8 P RF(Z) WRDO06 NO X , P LDKL A3,/8000 YES SET BIT 0 (REQ ERROR) p P ORS A3,ECBRC,A8 P ABL DISEND END REQUEST PWRDO05 EQU * * PWRDO06 LDK A3,1
0x38b52c…38b6c0 Dummy {f00=0x0105, f01=0x0190, f02=» RF(NZ) WRDO15 ( P LDK A3,1 SET UP ECB BUFFER POINTER * P CF A15,GETCHR GET CONTROL CHARACTER B P CWK A2,/31 CTRL CHAR=/31 ? p * P ABL(NE) POSERR NO,DOC NOT POSITIONED P LD A3,DWTDL,A6 * ( P ST A3,DWTRLN,A6 FIRST LINE ON DOC. , P
0x38b6c0…38b854 (4, 214) Dummy {f00=0x0105, f01=0x0190, f02=» n P LD A3,DWTRLN,A6 & P ST A3,DWTALN,A6 SET DWTALN=DWTRLN P J 0 PWRDO15 LDKL A2,CSSNV SELECT NATIONAL VERSION R 6 P LDK A3,DWTDCS DOCUMENT CHARACTER SET DISPLACEMENT , P CF A5,SEND SEND SELECT NATIONAL VERSION P * =1 P * =1
0x38b854…38b9e8 Dummy {f00=0x0105, f01=0x0190, f02=»NTINOUS STATIONARY z P* P* $ PWRTCON EQU * . P * B $ P CF A5,GTSTAT GET DEVICE STATUS P P LDKL A3,/2000 * x P TM A1,A3 END OF PAPER? P RF(Z) WRCO05 NO. P ABL ENDIO END REQUEST " PWRCO05 LDK A3,1 NOT OPERABLE?
0x38b9e8…38bb7c Dummy {f00=0x0105, f01=0x0190, f02=» 2 P LDK A3,DWTPCS PRINTER CHAR. SET DISPLACEMENT , P CF A5,SEND SEND SELECT NATIONAL VERSION : P U =1 j P U =1 z P U =1 P* P* GET CONTROL CHARACTER P* , PWRT01 LDK A3,1 SET UP ECB BUFFER POINTER ( P CF A15,GE
0x38bb7c…38bd10 Dummy {f00=0x0105, f01=0x018e, f02=»D ? n P RF(Z) WRT04 NO ! P CF A5,RESREC YES ! $ " P CWK A2,/2B CTRL. CHAR.=/2B ? ! > P RF(NE) WRT08 NO ! d $ P LC A1,DWTOR+1,A6 GET DWT INDEX ! ~ P ANK A1,1 DOCUMENT ? ! P RF(NZ) WRT09 YES ! P RF WRT07 NO ! & PWRT04 CWK A2,/2B CTR
0x38bd10…38bea4 Dummy {f00=0x0105, f01=0x0190, f02=» ! | & P LD A4,DWTCO1,A6 GET ACTUAL COLUMN " * P CF A5,KONVER CONVERT BINARY TO ASCII " 2 P " ` > P SC A2,DWTACP,A6 STORE THE VALUE IN ACTUAL COLUMN PAPER D " h J P ST A4,DWTACP+2,A6 STORE THE VALUE IN ACTUAL COLUMN PAPER DISPLACEMENT " PWRT07 LDK A2,/20
0x38bea4…38c038 Dummy {f00=0x0105, f01=0x0190, f02=»END SEND REPEAT " ( P LDK A3,2 SET UP ECB BUFFER POINTER # P RF WRT15 # D , PWRT03 LD A4,DWTCO2,A6 GET ACTUAL COLUMN # V * P CF A5,KONVER CONVERT BINARY TO ASCII # > P SC A2,DWTACD,A6 STORE THE VALUE IN ACTUAL COLUMN DOC. DI # J P SC A4,DWTACD+2,A6
0x38c038…38c1cc Dummy {f00=0x0105, f01=0x0190, f02=»LDK A2,/20 SEND SPACE # P CF A5,OUTPUT $ P LDKL A2,CSREP REPEAT $ 4 6 P LDK A3,DWTACD ACTUAL COLUMN DOCUMENT DISPLACEMENT $ R P CF A5,SEND SEND REPEAT $ ( P LDK A3,2 SET UP ECB BUFFER POINTER $ P RF WRT15 $ ( PWRT08 LC A1,DWTLFD,A6 GET INDI
0x38c1cc…38c360 Dummy {f00=0x0105, f01=0x0190, f02=»* $ P RF(Z) WRT13 NO % P* % " P CWK A2,/30 TWO LINE FEED ? % , P RF(E) WRT11 YES % P P* % j P CWK A2,/31 FORM FEED ? % t P RF(E) WRT12 YES % P RF WRT16 * % * PWRT11 LD A1,DWTRLN,A6 GET REQ LINE NO % ( P CF A5,BINARY CONV ASCII
0x38c360…38c4f4 (4, 215) Dummy {f00=0x0105, f01=0x018e, f02=»A5,BINARY CONV ASCII TO BINARY % " PTWO SUK A3,1 INCR REQ LINE NO & ( P LDR A4,A3 * & N ( P CF A5,KONVER CONV BINARY TO ASCII & d ( P ST A4,DWTRLN,A6 STORE REQ LINE NO & P* & , P LDKL A2,CSVPFF VERTICAL POS FRONT FEED & , P LDK A3,DWTRLN REQ
0x38c4f4…38c688 Dummy {f00=0x0105, f01=0x0190, f02=» P RF WRT12 ' P* ' P* ' * PWRT13 CWK A2,/30 CONTINOUS STATIONARY ' * $ P RF(E) WRT05 TWO LINE FEED,YES ' X P* ' P CWK A2,/31 FORM FEED ? ' P RF(NE) WRT10 NO ' P* ' P LDK A2,FF SEND FORM FEED ' P CF A5,OUTPUT * ' P
0x38c688…38c81c Dummy {f00=0x0105, f01=0x0190, f02=»UTPUT ' ( PWRT12 LC A1,DWTLFD,A6 GET INDICATOR ( , P ORK A1,/4 INDICATE LINE/FORM FEED DONE ( : & P SC A1,DWTLFD,A6 STORE INDICATOR ( j ( PWRT14 LC A2,DWTOR+1,A6 GET DWT INDEX ( P ANK A2,1 DOCUMENT? ( P RF(NZ) WRT45 YES ( . P CM DWTCO1,A6 CLEA
0x38c81c…38c9b0 Dummy {f00=0x0105, f01=0x0190, f02=»T ( P ) PWRT15 LDK A3,2 * ) P RF WRT20 * ) , . PWRT17 SUK A3,/02 ECB BUFFER POINTER = /02 ) @ P RF(Z) WRT18 YES. ) r ( P LDK A2,CR NO. SEND CARRIAGE RETURN ) P CF A5,OUTPUT ) " PWRT18 CF A5,GTSTAT GET STATUS ) P RF ENDIO END REQUES
0x38c9b0…38cb44 Dummy {f00=0x0105, f01=0x0190, f02=» LDR A4,A2 ) P* * @ P* EXAMINE CHARACTER AND SEND DEPENDING ON TYPE OF CHARACTER * P* * ` P * j P SUK A4,/20 CHAR < /20? * r ( P RB(N) WRT20 YES GET A NEW CHARACTER * P SUK A4,/5F CHAR < /7F? * P RF(N) WRT25 YES. * P SUK A4,/2F NO.
0x38cb44…38ccd8 Dummy {f00=0x0105, f01=0x0190, f02=» * P RB WRT20 + PWRT30 LDK A2,/2E + PWRT25 LDR A4,A1 + 2 P CF A5,OUTPUT SEND CHARACTER + J $ P LC A2,DWTOR+1,A6 GET DWT INDEX + n P ANK A2,1 DOCUMENT? + P RF(NZ) WRT40 YES + & P IM DWTCO1,A6 INC.COLUMN COUNTER 1 + P RB WRT20 + , P
0x38ccd8…38ce6c Dummy {f00=0x0105, f01=0x0190, f02=» SC A2,DWTLFD,A6 RESET LF/FF IND. + P ABL DISEND END REQUEST , * P , J P EJECT , R P IFT FFDEV=1 , ` P* , t P* , ~ $ P* ORDER 0B : POSITION DOCUMENT , 0 P* CONTROL WORD CONTAINS REQUESTED LINE NO , P* , P* , " PPOSDOC EQU * POS
0x38ce6c…38d000 Dummy {f00=0x0105, f01=0x0190, f02=» RF(NZ) POS020 YES , * P LDKL A2,CSSNV SELECT NATIONAL VERSION - $ P LDK A3,DWTDCS DOCUMENT VERSION - J P CF A5,SEND SEND SNV - r P * =1 - P * =1 - P * =1 - & P LD A4,ECBCW,A8 GET REQUESTED LINE - P ANK A4,/FF - & P RF(Z) POSER
0x38d000…38d194 (4, 216) Dummy {f00=0x0105, f01=0x0190, f02=»LINE - v P RF(G) POSERR YES . P ADK A3,1 CORRECT POSITION . & P SUR A4,A3 INVERT LINE NO. . H ( P NGR A4,A4 GET PRINTER REQ. LINE NO. . j * P CF A5,KONVER CONVERT BINARY TO ASCII . ( P ST A4,DWTRLN,A6 SET REQUESTED LINE . $ P LD A4,DWTALN,A6 GET ACT
0x38d194…38d328 Dummy {f00=0x0105, f01=0x0190, f02=»TRLN REQUESTED LINE NUMBER DISPLACEMENT . & P CF A5,SEND SEND INPUT FRONT FEED / 0 PPOS010 EQU * / Z P CF A5,GTSTAT GET STATUS / n P LDR A2,A1 GET RETURN CODE / ( P ANKL A2,/2000 PAPER DOCUMENT OUT ? / 8 P RB(NZ) POS005 YES WAIT FOR DOCUMENT TO BE I
0x38d328…38d4bc Dummy {f00=0x0105, f01=0x0190, f02=»ISEND / PPOS030 EQU * 0 0 P LDKL A2,CSVPFF VERTICAL POSITION FRONT FEED 0 " 6 P LDK A3,DWTRLN REQUESTED LINE NUMBER DISPLACEMENT 0 V 2 P CF A5,SEND SEND VERTICAL POSITION FRONT FEED 0 P RB POS010 0 P XIF =2 =2 0 PPOSERR EQU * 0 P LDKL A1
0x38d4bc…38d650 Dummy {f00=0x0105, f01=0x0190, f02=»T PARAMETERS 0 x P* 1 P* 1 $ PDOCPAR EQU * DOCUMENT PARAMETERS 1 ( P LDK A1,0 CLEAR A1 1 P P CF A5,RESREC 1 l ( P LD A4,ECBCW,A8 GET NUMBER OF LINES 1 P SRL A4,8 GET LINES 1 $ P RF(Z) DOC010 NO CHANGE OF LINES 1 P CWK A4,/10 INDEX TO B
0x38d650…38d7e4 Dummy {f00=0x0105, f01=0x0190, f02=»T A4,DWTDL,A6 SET PAGE LENGTH FOR DOCUMENT 1 PDOC010 EQU * 2 2 4 P LD A4,ECBCW,A8 GET NATIONAL CHARACTER VARIATION 2 F P ANK A4,/FF 2 ~ 6 P RF(Z) DOC020 NO CHANGE OF NATIONAL CHARACTER SET 2 P CWK A4,/F INDEX TO BIG 2 P RB(G) POSERR YES 2 " P A
0x38d7e4…38d978 Dummy {f00=0x0105, f01=0x0190, f02=»UMENT 2 f PDOC020 EQU * 3 P RB ENDIO END REQUEST 3 " P XIF 3 @ P EJECT 3 L P* 3 Z P* 3 d 6 P* ORDER 24 : SET CONTINUOUS STATIONARY PARAMETERS 3 n P* 3 P* 3 6 PCSTPAR EQU * SET PARAMETERS CONTINUOUS STATIONARY 3 P LDK A1,0 CLEAR A1
0x38d978…38db0c Dummy {f00=0x0105, f01=0x0190, f02=»INES 3 t P CWK A4,/10 INDEX TO BIG 4 P RB(G) POSERR YES 4 , * P ADR A4,A4 ADJUST INDEX TO LINE TABLE 4 F 2 P LD A4,LINNUM,A4 GET LINES ACCORDING TO INDEX 4 t 2 P ST A4,DWTPL,A6 SET PAGE LENGTH FOR CONT.STAT. 4 ( P LDKL A2,CSSLPL SELECT PAGELENGTH =1 4
0x38db0c…38dca0 Dummy {f00=0x0105, f01=0x0190, f02=»8 GET NATIONAL CHARACTER VARIATION 4 P ANK A4,/FF 5 * . P RF(Z) CST020 NO CHANGE OF NAT. CHAR. SET 5 > P CWK A4,/F INDEX TO BIG 5 p P RB(G) POSERR YES 5 0 P ADR A4,A4 ADJUST INDEX TO NAT. CHAR. TABLE 5 6 P LD A4,NCVTAB,A4 GET NAT. CHAR. SET ACC. T
0x38dca0…38de34 (4, 217) Dummy {f00=0x0106, f01=0x0190, f02=» 5 P* 6 P EJECT 6 P IFT FFDEV=1 6 P* 6 4 P* 6 > " P* ORDER 38 : RELEASE DOCUMENT 6 H P* 6 n P* 6 x PRELDOC EQU * 6 P CF A5,RESREC 6 2 P LDKL A2,CSEJFF CONTROL SEQ. EJECT FRONT FEED 6 P CF A5,SEND SEND SEQUENCE 6 * P CF
0x38de34…38dfc8 Dummy {f00=0x0106, f01=0x0190, f02=»Y AGAIN 6 z P ANKL A1,/8000 REQUEST ERROR 7 $ P CM DWTALN,A6 RESET ACTUAL LINE 7 4 & P CM DWTRLN,A6 RESET REQUESTED LINE 7 P ABL ENDIO END REQUEST 7 P XIF 7 P EJECT 7 P* 7 P* 7 P* I H T P 7 P* 7 P* 7 . P* INTERRUPT HAND
0x38dfc8…38e15c Dummy {f00=0x0106, f01=0x0190, f02=» DISPATCH 7 ~ & P ABL LDREG RETURN TO READ ROUTINE 8 P EJECT 8 < P* 8 J P* 8 T P* R C T P 8 ^ P* 8 p : P* RECOVERY ROUTINE REPEATS RUNNING REQUEST AT POWER ON 8 z P* 8 P* 8 PRCTP EQU * 8 P CF A15,SAVE8 SAVE A1 - A8 8 $ P LC A4,D
0x38e15c…38e2f0 Dummy {f00=0x0106, f01=0x018e, f02=»INE/FORM FEED DONE 8 x B P SC A4,DWTLFD,A6 * * 9 < P RF RCTP07 * * 9 b & PRCTP05 LDK A4,0 RESET INDICATORS 9 P ST A4,DWTLFD,A6 * 9 * PRCTP07 LDKL A1,/7FFF SET DEVICE
0x38e2f0…38e484 Dummy {f00=0x0106, f01=0x0190, f02=» 0 P LD A1,DWTSYST,A6 INTERN. SYSTEM START IND. : $ P RF(NZ) RCTP10 NO SYSTEM START : 8 P * : ` . P IM DWTSYST,A6 SET SYSTEM START INDICATOR : n P * : 0 P LDKL A4,STDNCV GET STANDARD NAT. CHAR. SET : * P CF A5,KONVER CONVERT BIANARY TO ASCII
0x38e484…38e618 Dummy {f00=0x0106, f01=0x0190, f02=»LENGTH : r * P CF A5,KONVER CONVERT BINARY TO ASCII ; . P ST A4,DWTPL,A6 SET PAGE LENGTH CONT.STAT. ; < ( P LDKL A2,CSSLPL SELECT PAGELENGTH =1 ; n 0 P LDK A3,DWTPL PRINTER PAPER LENGTH DISPL. =1 ; * P CF A5,SEND SEND SELECT PAGELENGTH =1 ; 6 P LDKL A4,DOC
0x38e618…38e7ac Dummy {f00=0x0106, f01=0x0190, f02=» PRCTP10 EQU * < $ P CM DWTALN,A6 RESET ACTUAL LINE < , P LDKL A1,/200 INDICATE POWER OFF OCCURED < @ P ORS A1,DWTST,A6 < p $ P LD A1,DWTECB,A6 RUNNING REQUEST < , P ABL(NZ) ACT005 YES , REPEAT THE REQUEST < P ABL DISEND DISPATCH < P EJECT <
0x38e7ac…38e940 Dummy {f00=0x0106, f01=0x0190, f02=»* AND ANALYZES THE DEVICE STATUS SENT FROM THE PRINTER < P* = > P* AT EXIT A1 = RETURN CODE = H P* = j P* = t PGTSTAT EQU * = ~ " P CM DWTRC,A6 RESET RETURN CODE = P LDK A2,ESC ESCAPE = P CF A5,OUTPUT SEND ESC = , P LDK A2,CSI CONTROL SE
0x38e940…38ead4 (4, 218) Dummy {f00=0x0106, f01=0x0190, f02=»RT = r P CF A5,OUTPUT SEND DSR > P LDR* A2,A6 > ( P ANK A2,/F * > < P CWK A2,/C PTS 8000 ? > R P RF(L) GTST05 NO > p P SUK A2,/F SALCUZ ? > P RF(Z) GTST05 YES > P LDK A2,ETX END OF TEXT > P CF A5,OUTPUT SEND ETX > ( PGTST05 LDKL
0x38ead4…38ec68 Dummy {f00=0x0106, f01=0x0190, f02=»/FF GET CHARACTER > $ P CCK A2,/5C5C STRING TERMINATOR ? P RF(E) GTSEND YES ? B $ P LCR A3,A4 GET MASK RETURN CODE ? P ANR A2,A3 ? * P LDKL A3,/3AC0 SHIFT LEFT CIRCULAR A2 ? P LC A3,1,A4 A3 TIMES ? $ P EXR A3 EXECUT SHIFT INSTRUCTION ? 2 P
0x38ec68…38edfc Dummy {f00=0x0106, f01=0x0190, f02=»ND EQU * ? $ P LD A1,DWTRC,A6 GET RETURN CODE @ P RTN A5 @ 8 P EJECT @ H P* @ V : P* THIS ROUTINE CONVERTS A BINARY VALUE TO ASCII CODE @ ` P* @ P* REGISTERS : @ P* A1= WORK REGISTER @ P* A4= BINARY INPUT @ P* A2,A4= ASCII
0x38edfc…38ef90 Dummy {f00=0x0106, f01=0x018e, f02=» P RF(L) KONV05 NO A P SUKL A4,100 A & P LDKL A2,/100 LEFT BYTE OF A2=X=1 A 0 * PKONV05 CWK A4,10 ARE THERE ANY TENS ? A Z P RF(L) KONV04 NO A P SUK A4,10 A 2 P ADK A2,/1 NUMBER OF TENS IN RIGHT B. OF A2=Y A P RB KONV05 NEXT A " PKONV04 O
0x38ef90…38f124 Dummy {f00=0x0106, f01=0x0190, f02=» . P ANK A2,/FF KEEP X IN R. BYTE OF A2. ASCII B P ORR A4,A1 YZ IN A1. ASCII B 6 P RTN A5 B X P EJECT B h P* B v P* RESET RECORVERY B P* B PRESREC EQU * B " P LD A4,DWTST,A6 DEVICE STATUS B P ANKL A4,/200 RECOVERY? B P RF(E) RES
0x38f124…38f2b8 Dummy {f00=0x0106, f01=0x0190, f02=» B P* C , P* THIS ROUTINE SENDS AN CONTROL SEQUENCE C P* TO THE PRINTER C B P* C Z P* C d P* AT ENTRY : C n " P* A2 = CONTROL SEQUENCE ADRESS C 4 P* A3 = DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC C P* C P* C P* AT EXIT : C P
0x38f2b8…38f44c Dummy {f00=0x0106, f01=0x0190, f02=»EMENT C n , P ST A2,DWTSTR,A6 CONTROL SEQUENCE ADRESS D PSEND10 EQU * D > 0 P LD A3,DWTSTR,A6 GET CONTROL SEQUENCE ADRESS D R P LCR A2,A3 GET CHARACTER D P ANK A2,/FF MAKE CHARACTER D & P SLL A2,8 END OF CONTROL SEQUENCE D P RF(N) SENDEND YES,RET
0x38f44c…38f5e0 Dummy {f00=0x0106, f01=0x018e, f02=»T SEND CHARACTER D PSEND20 EQU * E . P IM DWTSTR,A6 INC. CONTROLSEQUENCE ADRESS E , P RB SEND10 GET NEXT E ^ PSEND30 EQU * E z * P LD A3,DWTDISP,A6 GET DWT-DISPLACEMENT E P ADR A3,A6 GET PROPER VALUE E P LCR A2,A3 GET CHARACTER E P CF A5,O
0x38f5e0…38f774 (4, 219) Dummy {f00=0x0106, f01=0x0190, f02=» E P EJECT F P* F P* F P* BINARY F * P* F : 8 P* THIS ROUTINE CONVERTS ASCII CODE TO A BINARY VALUE F D P* F P* REGISTERS: F P* A1= ASCII INPUT F P* A2= WORK REGISTER F P* A3= BINARY OUTPUT F P* F P* F P* F
0x38f774…38f908 Dummy {f00=0x0106, f01=0x0190, f02=»3,A2 F P SLL A2,3 G P ADR A3,A2 G P ANK A1,/F G 0 P ADR A3,A1 MAX. LINE BINARY G B P RTN A5 G f P EJECT G v " PLINNUM EQU *-2 NUMBER OF LINES G " P DATA /3132,/3135,/3138,/3234 G " P DATA /3235,/3330,/3333,/3335 G " P DATA /3336,/3438,
0x38f908…38fa9c Dummy {f00=0x0106, f01=0x416a, f02=»ATION YABLE G j " P DATA /3031,/3032,/3033,/3034 H " P DATA /3035,/3036,/3037,/3038 H : " P DATA /3039,/3130,/3131,/3131 H ` P DATA /3133,/3134,/3135 H 8 PTAB EQU * MASK TABLE FOR STATUS REPORT FROM PRINTER H P DATA /C0,/C0,/C0,/2CC * H P DAT
0x38fa9c…38fc30 Dummy {f00=0x0106, f01=0x2008, f02=» I * 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
0x38fc30…38fdc4 Dummy {f00=0x0106, f01=0x0190, f02=» L O O P - T E S T S E C T I O N I P* J * P* J 4 2 P* ORDER /00: TEST REMOTE CHANNEL CONNECTION J > P* J t : P* CHANNEL TO TEST IS GIVEN IN CONTROL WORD OF ECB. J ~ 6 P* THE REQUEST IS COMPLETED WITH FOLLOWING BITS J P* IN RETURN COD
0x38fdc4…38ff58 Dummy {f00=0x0106, f01=0x0190, f02=»R OUTPUT J n P* K 0 P* BIT 15: SYNC NOT RECEIVED AFTER OUTPUT K PAREM DATA LOPTST K N " P DATA 0 ABORT ROUTINE ADDRESS K f " P DATA IHLOP INTERRUPT HANDLER K PLOPTST EQU * K $ P LD A2,10,A8 GET CHANNEL NUMBER K P ANK A2,/FF K P RF(E)
0x38ff58…3900ec Dummy {f00=0x0106, f01=0x018e, f02=» K n P RF(E) DISIIE L P LDR A7,A7 WRONG ORDER ? L P RF(E) LOPT10 NO L > ( PDISIIE ABL DISIOE I/O REQUEST ERROR L V PLOPT10 EQU * L , P LD A1,CWTRST,A2 GET CHANNEL LOOP STATUS L P ANK A1,/40 L ( P RF(NE) IHLP10 CHANNEL UNIT NOT BUSY L & P L
0x3900ec…390280 Dummy {f00=0x0106, f01=0x0190, f02=» P* END OF LOOP-TEST M P* M " PIHLOP EQU * M , P LDR A5,A1 GET CWT-ADDRESS M @ , P LD A1,CWTRST,A5 GET CHANNEL LOOP STATUS M b P ANK A1,3 M P XRK A1,3 M PIHLP10 EQU * M P LDK A2,0 M : P SC A2,CWTRST+1,A5 RESET RIGHT BYTE IN CHANN
0x390280…390414 (4, 220) Opaque[0x194]
0x390414…3905a8 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x20f0, f03=0x0000}
0x390414…3905a8 IdxSect {
0x390414…3905a8 f00 = 0x0107 // 0x390414 @0x0
0x390414…3905a8 f01 = 0x0002 // 0x390416 @0x2
0x390414…3905a8 gno = [ // 0x390418 @0x4
0x390414…3905a8 [0x00]: C0x0107.0x2.0
0x390414…3905a8 ]
0x390414…3905a8 }
0x3905a8…39073c Dummy {f00=0x0107, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 10.0 80-03-14 870105041000 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x39073c…3908d0 Dummy {f00=0x0107, 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*
0x3908d0…390a64 Dummy {f00=0x0107, f01=0x40b0, f02=» P* P* 2 P* TABLE FOR CONVERSION OF ASCII CODE TO EBCDIC P* R P* PTEBCDIC EQU * f P IFF CODE+RCOM=0 | P XIF P END @ MAND HANDLING IF = 1 (DRDC15) PRCOM EQU X:B P EJECT P* P*
0x390a64…390bf8 Dummy {f00=0x0107, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x390bf8…390d8c Dummy {f00=0x0107, f01=0x0190, f02=» k P* l 6 P* INDICATE NOT OPERABLE BEFORE GOING TO DRIVER l P* l L PCLT045 EQU * l V " P LD A1,DWTST,A6 GET STATUS =11 l j P SLL A1,2 ECHO? =11 l P RF(N) CLT047 YES =11 l 2 P LDKL A1,/EEFF NO, RESET INT ALL AND RECOV =11 l P RF CLT0
0x390d8c…390f20 Dummy {f00=0x0107, f01=0x0190, f02=» OPERABLE l v * P ABL CLT107 RESET TIMER AND FINISH =11 m PCLT046 EQU * m @ P ABL CLT110 m T P EJECT m h P* m v P* A C K , D R I m 2 P* FIRST RESOLVE QUEUE AND THEN EXAMINE LAST m 0 P* OUTPUT DWT. IF NOT DEFINED UPDATE ERROR m 6 P*
0x390f20…3910b4 (4, 221) Opaque[0x194]
0x3910b4…391248 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2248, f03=0x0000}
0x3910b4…391248 IdxSect {
0x3910b4…391248 f00 = 0x0112 // 0x3910b4 @0x0
0x3910b4…391248 f01 = 0x0006 // 0x3910b6 @0x2
0x3910b4…391248 gno = [ // 0x3910b8 @0x4
0x3910b4…391248 [0x00]: C0x0112.0x1.0
0x3910b4…391248 [0x01]: C0x0112.0x2.0
0x3910b4…391248 [0x02]: C0x0112.0x3.0
0x3910b4…391248 ]
0x3910b4…391248 }
0x391248…3913dc Dummy {f00=0x0112, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x3913dc…391570 Dummy {f00=0x0112, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x391570…391704 Dummy {f00=0x0112, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x391704…391898 Dummy {f00=0x0112, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x391898…391a2c Dummy {f00=0x0112, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 0 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x391a2c…391bc0 Dummy {f00=0x0112, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x391bc0…391d54 (4, 222) Dummy {f00=0x0112, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x391d54…391ee8 Dummy {f00=0x0112, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x391ee8…39207c Dummy {f00=0x0112, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x39207c…392210 Dummy {f00=0x0112, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x392210…3923a4 Dummy {f00=0x0112, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x3923a4…392538 Dummy {f00=0x0112, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x392538…3926cc Dummy {f00=0x0112, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x3926cc…392860 Dummy {f00=0x0112, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x392860…3929f4 (4, 223) Dummy {f00=0x0112, 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
0x3929f4…392b88 Dummy {f00=0x0112, f01=0x0190, f02=» P BYTES 0,0 /1A, /1B G P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G < P BYTES 0,TINDEX+1 /20, /21 G X P BYTES TINDEX+1,0 /22, /23 G z P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /
0x392b88…392d1c Dummy {f00=0x0112, f01=0x0190, f02=»YTES 0,0 /34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H 6 P BYTES 0,0 /3A, /3B H R P BYTES 0,0 /3C, /3D H n P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLE
0x392d1c…392eb0 Dummy {f00=0x0112, f01=0x018e, f02=»* COMPLETION OF THE REQUEST IS 'TEN:DM'. H P* I 0 " P* INPUT: A8 = DWT ECB ADDRESS I : $ P* A9 = USER ECB ADDRESS I ` P* I P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUF
0x392eb0…393044 Dummy {f00=0x0112, f01=0x0190, f02=» I ~ P* J PA15RTN EQU * J P RTN A15 J & P* J 6 P EJECT TOSSIO J @ P* J X P* T I O P C I J b P* J x B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B
0x393044…3931d8 Dummy {f00=0x0112, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K 8 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K h P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS
0x3931d8…39336c Dummy {f00=0x0112, f01=0x0190, f02=»A1,ECBRL,A8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L $ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L Z P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L
0x39336c…393500 Dummy {f00=0x0112, f01=0x0190, f02=»DRESS EVEN L n P ANS A1,ECBBA,A8 M P RTN A15 M * P* M : P EJECT TOSSIO M D P* M P* T I O M X I M f P* M | B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M
0x393500…393694 (4, 224) Opaque[0x194]
0x393694…393828 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1e30, f03=0x0000}
0x393694…393828 IdxSect {
0x393694…393828 f00 = 0x00f1 // 0x393694 @0x0
0x393694…393828 f01 = 0x0004 // 0x393696 @0x2
0x393694…393828 gno = [ // 0x393698 @0x4
0x393694…393828 [0x00]: C0x00f1.0x2.0
0x393694…393828 [0x01]: C0x00f1.0x3.0
0x393694…393828 ]
0x393694…393828 }
0x393828…3939bc Dummy {f00=0x00f1, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x3939bc…393b50 Dummy {f00=0x00f1, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x393b50…393ce4 Dummy {f00=0x00f1, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x393ce4…393e78 Dummy {f00=0x00f1, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x393e78…39400c Dummy {f00=0x00f1, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x39400c…3941a0 Dummy {f00=0x00f1, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x3941a0…394334 (4, 225) Dummy {f00=0x00f1, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST
0x394334…3944c8 Dummy {f00=0x00f1, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x3944c8…39465c Dummy {f00=0x00f1, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x39465c…3947f0 Dummy {f00=0x00f1, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x3947f0…394984 Dummy {f00=0x00f1, f01=0x2008, f02=»
0x394984…394b18 Dummy {f00=0x00f1, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x394b18…394cac Dummy {f00=0x00f1, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x394cac…394e40 Dummy {f00=0x00f1, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x394e40…394fd4 (4, 226) Opaque[0x194]
0x394fd4…395168 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x1d00, f03=0x0000}
0x394fd4…395168 IdxSect {
0x394fd4…395168 f00 = 0x00e8 // 0x394fd4 @0x0
0x394fd4…395168 f01 = 0x0006 // 0x394fd6 @0x2
0x394fd4…395168 gno = [ // 0x394fd8 @0x4
0x394fd4…395168 [0x00]: C0x00e8.0x0.0
0x394fd4…395168 [0x01]: C0x00e9.0x2.0
0x394fd4…395168 [0x02]: C0x00f2.0x0.0
0x394fd4…395168 ]
0x394fd4…395168 }
0x395168…3952fc Dummy {f00=0x00e8, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x3952fc…395490 Dummy {f00=0x00e8, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x395490…395624 Dummy {f00=0x00e8, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x395624…3957b8 Dummy {f00=0x00e8, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 0 P* P EJECT MONTIM P* P* P* G E T T I
0x3957b8…39594c Dummy {f00=0x00e8, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x39594c…395ae0 Dummy {f00=0x00e8, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x395ae0…395c74 (4, 227) Dummy {f00=0x00e9, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x395c74…395e08 Dummy {f00=0x00e9, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x395e08…395f9c Dummy {f00=0x00e9, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x395f9c…396130 Dummy {f00=0x00e9, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x396130…3962c4 Dummy {f00=0x00e9, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x3962c4…396458 Dummy {f00=0x00e9, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x396458…3965ec Dummy {f00=0x00e9, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x3965ec…396780 Dummy {f00=0x00e9, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x396780…396914 (4, 228) Dummy {f00=0x00f2, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x396914…396aa8 Dummy {f00=0x00f2, f01=0x0002, f02=» @
0x396aa8…396c3c Dummy {f00=0x00f2, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x396c3c…396dd0 Dummy {f00=0x00f2, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x396dd0…396f64 Dummy {f00=0x00f2, f01=0x2008, f02=»
0x396f64…3970f8 Dummy {f00=0x00f2, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x3970f8…39728c Dummy {f00=0x00f2, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x39728c…397420 Dummy {f00=0x00f2, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x397420…3975b4 (4, 229) Opaque[0x194]
0x3975b4…397748 # DirEnt {nam=»DVG100«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x21b8, f03=0x0000}
0x3975b4…397748 IdxSect {
0x3975b4…397748 f00 = 0x010d // 0x3975b4 @0x0
0x3975b4…397748 f01 = 0x0002 // 0x3975b6 @0x2
0x3975b4…397748 gno = [ // 0x3975b8 @0x4
0x3975b4…397748 [0x00]: C0x010d.0x3.0
0x3975b4…397748 ]
0x3975b4…397748 }
0x397748…3978dc Dummy {f00=0x010d, f01=0x0190, f02=» 2 P IDENT DVG100 REL 10.0 80-03-14 870105041000 P : P =1, SYST. START IND. B P PRR 10.1 79-09-12 b , P* DEVICE WORK TABLE FOR GENERAL PRINTER ~ P* P ENTRY DVG100 TABLE ENTRY P* P* * P EXTRN GPAD8 POINTER TO AD
0x3978dc…397a70 Dummy {f00=0x010d, f01=0x0190, f02=» 0 P DATA /8000 STATUS./8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS 8 P DATA DWTEND-DVG100 ORDER T ( P DATA GPAD8 POINTER TO ADDRESS BLOCK v P DATA 'GP' TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE P
0x397a70…397c04 Dummy {f00=0x010d, f01=0x0190, f02=»K x , P DATA 0,0,0 SAVE AREA FOR REGS. A3,A4,A5 P DATA 0,0,0,0 STACK : P DATA 0 TIMER POINTER V " P DATA 0 DOCUMENT CHARACTER SET t " P DATA 0 PRINTER CHARACTER SET P DATA 0 PRINTER PAPER LENGTH " P DATA 0 DOCUMENT PAPER LENGTH
0x397c04…397d98 Dummy {f00=0x010d, f01=0x4172, f02=»S r 6 P DATA 0 DWT-DISPLACEMENT TO LINE NO,CHAR.SET,ETC. 0 P DATA 0,0,0 ACTUAL COLUMN DOCUMENT AND PAPER D P DATA 0,0 x P DATA 0 P DATA 0 SYSTEM START IND. =1 ( P DATA 0 LINE/FORM FEED INDICATOR =1 P IFT MMUPAG=1 PDEVECB E
0x397d98…397f2c Dummy {f00=0x010d, 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
0x397f2c…3980c0 Dummy {f00=0x010d, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x3980c0…398254 (4, 230) Opaque[0x194]
0x398254…3983e8 # DirEnt {nam=»DVGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2180, f03=0x0000}
0x398254…3983e8 IdxSect {
0x398254…3983e8 f00 = 0x010c // 0x398254 @0x0
0x398254…3983e8 f01 = 0x0002 // 0x398256 @0x2
0x398254…3983e8 gno = [ // 0x398258 @0x4
0x398254…3983e8 [0x00]: C0x010c.0x0.0
0x398254…3983e8 ]
0x398254…3983e8 }
0x3983e8…39857c Dummy {f00=0x010c, f01=0x018e, f02=» 2 P IDENT DVGP01 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP01 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVGP01 EQU *
0x39857c…398710 Dummy {f00=0x010c, f01=0x0190, f02=» P DATA DWTEND-DVGP01 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x398710…3988a4 Dummy {f00=0x010c, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x3988a4…398a38 Dummy {f00=0x010c, 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
0x398a38…398bcc Dummy {f00=0x010c, 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
0x398bcc…398d60 Dummy {f00=0x010c, f01=0x2008, f02=»
0x398d60…398ef4 (4, 231) Opaque[0x194]
0x398ef4…399088 # DirEnt {nam=»M:LP «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x2450, f03=0x0000}
0x398ef4…399088 IdxSect {
0x398ef4…399088 f00 = 0x0122 // 0x398ef4 @0x0
0x398ef4…399088 f01 = 0x000c // 0x398ef6 @0x2
0x398ef4…399088 gno = [ // 0x398ef8 @0x4
0x398ef4…399088 [0x00]: C0x0122.0x2.0
0x398ef4…399088 [0x01]: C0x0123.0x3.0
0x398ef4…399088 [0x02]: C0x0124.0x0.0
0x398ef4…399088 [0x03]: C0x0124.0x1.0
0x398ef4…399088 [0x04]: C0x0124.0x2.0
0x398ef4…399088 [0x05]: C0x0124.0x3.0
0x398ef4…399088 ]
0x398ef4…399088 }
0x399088…39921c Dummy {f00=0x0122, f01=0x0190, f02=» B -A 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 8 > c @ z ^ ^ j X H 2 Z i% z
0x39921c…3993b0 Dummy {f00=0x0122, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A 4 " _ @ > > U H ( ( P c P W. A V ( U P @ tV L t > U
0x3993b0…399544 Dummy {f00=0x0122, f01=0x0190, f02=» A 8 A 6Q _ A 6 < Q 0 P 0 Q 0 Z Y _ 8 Q Z P 0 9 t t_ j _, ? _ P H H ? ? ? ? ? ^ A _ _ ^ $P T I R $ 5 % > ? RW ? W ? T T U U U
0x399544…3996d8 Dummy {f00=0x0122, f01=0x0190, f02=» Q Q > > 0 @ 1 A P P > " ? * X R Y P _ ? @ 8 R Y P _ W0 8 X W( ? ` @ @ P $ H W W > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^ _ > ? 6A. n #M 1
0x3996d8…39986c Dummy {f00=0x0122, f01=0x0190, f02=» pU J BQB rU J!B!B pU J!BaB rU z 6 ~ B " P Q :A H `P P H !@T I T ! 1 U A 4 ? W A 4 ? W A 4 ? W A
0x39986c…399a00 Dummy {f00=0x0122, f01=0x0190, f02=»$ P ] U PB P: P0 P, R 4T ] U X "0Tn+ Y WH 8Z X 4 U R ] U # $P4> R0> 8' T Y X ' T P X P >W X 9BR W Y X h T # Y R U T ] W 8V h
0x399a00…399b94 (4, 232) Dummy {f00=0x0123, f01=0x0190, f02=» 4XB XH U T x T U 5 U R " ] T ;h # <c$ P X X " Z "X 8# T& 8Z V2 X # T 8R X P y Y X ' X (@ L ' T 4 <d$ _F $?:D" Y X P Y # P 4T U # P 4 4 P
0x399b94…399d28 Dummy {f00=0x0123, f01=0x0190, f02=» _H Wj ? T T 6 | W u > > E D E E S( % ;DV " U D $ P #`P T E n_ " 8' ?A Z R 8;b# 4T RT T T ] ] 8 W< TrW T ] _ P T V WT 8V T P U 8 ~ U Q2P
0x399d28…399ebc Dummy {f00=0x0123, f01=0x0190, f02=» XX R4 @ U S T U t " D P D T U W _ U 4XV X 5 _f ( H N 0 ) t $P $ ) U @ C W ` 0P P > T C T" V$ Y N Pp q 0 ) tWb X P^ N T& B RPP" A @ ` P A ` 6 WD
0x399ebc…39a050 Dummy {f00=0x0123, f01=0x0190, f02=» XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P W P Y (@ 2 @ _ > ?(@ X L U0 L QL L # T R < 5 ^ R < 5 Y
0x39a050…39a1e4 Dummy {f00=0x0123, f01=0x0190, f02=» P. P& # P 0P 1 _ t W Y > > T 4 $ t P 4 ( | _ t ? ^ 4 _ P P @ 1 A _ P 9 > > 4 N b | 4 B 6
0x39a1e4…39a378 Dummy {f00=0x0123, f01=0x0190, f02=» > > [ [ Z Z ? Z > P~ "R~ Y Pj T P` <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ t | ? 8! W0" P T 8! P< P8 Y Y Y Y X X Y X
0x39a378…39a50c Dummy {f00=0x0123, f01=0x0190, f02=» X .!"$&;<>@^_ 2 N PB P8 B P B L # +P ! ! T ! Y " ! W ! ! W ! Y Y F U P" T Y "_. P4 R( Pj O]> V _F T Y Y " V Y _^ C _P F F" $ P X " X ]r ! Y
0x39a50c…39a6a0 Dummy {f00=0x0123, f01=0x0190, f02=» U D ! T _ C > X Z^<BR P j X _x R0 V0 ! P* P P P" R ?Q ! Y R Q -_ ? _ X # ! ^ Y _( ? X Z ! P0 P X _ X " ! ! X " [000b [000e [00t [00q 8 [00w
0x39a6a0…39a834 (4, 233) Dummy {f00=0x0124, f01=0x0190, f02=» P $ ! F X P ! z +Tf X ! TJW +T^ X " T$ X : ! J Y 7 Y 9 ! 7 ! W X ; ! J Y 4 Y 6<h Y 5 ! 4 ! W X B! Pt X ! PB 0P 1PVW X , ! W X , ! ! J Y , , ! X , Y *W 0P 1T ! W !
0x39a834…39a9c8 Dummy {f00=0x0124, f01=0x0190, f02=»_: X B" Y B _ ! z B <hP Y P Y & & ! B $ P Y< P Y $ X X B$ T , Y BW Y B Y ( ! X @T6 Y @ ! J Y " Y $ 3 ! J Y & & ! 0 ! J Y ( Y * Y X Z Y / ! [ ! 5 ! n ! 8"
0x39a9c8…39ab5c Dummy {f00=0x0124, f01=0x0190, f02=» P Y 4 Y 2 Y 0 X 0 ," :HR$ 0 P :h ! Y 0_ X 2 , ! Y 2_ 4 :h 0 :C ! 412151824253033353648505160667072010203040506070809101111131415 "RT PL X TF X R@? V X " X H P h X P t Y X H P @ h
0x39ab5c…39acf0 Dummy {f00=0x0124, f01=0x0190, f02=» > = =_: R _ 00 > & <h$ P > ($SWAP A A A A A. & UU @ @ ! P$>B @'J A'J @'J E D P _ $ % $P _ % A >f A A A @ " Q" , :d @ # U R>P0 P
0x39acf0…39ae84 Dummy {f00=0x0124, f01=0x0190, f02=»COP A W F A @ : V, @ P 'P;b=H : z F zW =J : R F P W W @ $ P @ R| W W ) R" W W V V 8 !RRT W V X W W V V V PF A @ ) U
0x39ae84…39b018 Dummy {f00=0x0124, f01=0x0190, f02=» $ 'J Y P @ P @ T W - 'JP _ T <B :L A W A A W 'J T F W V 'P = V W Y( P Z& = :L <
0x39b018…39b1ac Dummy {f00=0x0124, f01=0x0190, f02=»P _ @ ! P* &n9h !RRP V V & W _> 'P &n &n &> V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ N 4 W A 4 A W W ! ! PH !
0x39b1ac…39b340 Dummy {f00=0x0124, f01=0x0190, f02=» !4 !T V 00P& !d !< !T !D !T _0 V 00P !d !L !T _ 0 !TTX W A N !CCT CC A v r_ 0 !;; !t _ S A% A%G $ @ R @ ! T A$ A$ @ * V V I '` W V
0x39b340…39b4d4 (4, 234) Dummy {f00=0x0124, f01=0x0190, f02=» ! n : 'P j : 0 !TTT 0 !;;T : W W 0 !99Q P !00R P 00W 11 A P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : !| : ! : ! : ! : ! : ! : 0 )
0x39b4d4…39b668 Dummy {f00=0x0124, f01=0x0190, f02=»! # " ! ! :A K : A T.I T P 1 I P < R P A _> 'P : @ " P P " A" A" A" A" W " A * A#2 A#6 A#^ A#b A&H A j A$ A$ : 9e :e Q P 9e @ 0P A 09C) A I " @ 0!
0x39b668…39b7fc Dummy {f00=0x0124, f01=0x0190, f02=»" @ 0$ P " :B A 2 t w B J " r R,Q$ @ ( = @ .Q @ 2 "| _@ _$ : A# A# A$& A$* # A&H A j A$ A$ : h:B* A 2 @ 0P A 0B J 4R 4 :B 4 @ 0: V V 49B @ 2 4R @ t w A I ! j : $v A&H A j A$
0x39b7fc…39b990 Dummy {f00=0x0124, f01=0x0190, f02=» S : 'P $ $ 9PJ S Y T@ $ 1T: C !CCTr : 1P P$_ P =H P 0 @ T X W n : YX d C !CCTx xB. ! <X B.9 H 4 Q $8_ "._ !SSTF 0 U : P A X X W W X X S W W
0x39b990…39bb24 Dummy {f00=0x0124, f01=0x0190, f02=»p W '` T : A% &H_ 0V , - P X 9A_ : @ ! P (W ( :W> 2 W 0 . " A A A A A j 2 ; Z [ : : [ [ : 2
0x39bb24…39bcb8 Dummy {f00=0x0124, f01=0x0190, f02=»V 'P t ) Z W r _j V <B W : $ ' w : V $ V l $ ' V M : W V R R, Y R <B V x " 1 W V z : ' _@ V : W R ) P ' ' W x ( ) _ V : t " D P W
0x39bcb8…39be4c Dummy {f00=0x0124, f01=0x0190, f02=»V 'P t_~ " V r D T E % ' E : " R ;B D D ' " P P R P |P M M : V W 0 : V P 9a _ " ( ) 8 ( ) : " $ V P 9A _ 0 : W W W ?AP ^ 0 : W ; V : : J @ 0 V @ 'P 0 H
0x39be4c…39bfe0 Dummy {f00=0x0124, f01=0x0190, f02=» v b - I Y& : @ ` V b pPp * *. $ @ ! P I " = 4 Q *v_D )P I = * *. $ @ ! P I (l ( _D V r A V 9n A V tT @ A A V @ ! @ P P^ P
0x39bfe0…39c174 (4, 235) Dummy {f00=0x0124, f01=0x0190, f02=» A A V .V 3 S Y& P4 S P 3 _ 3 $ A. @ & @ W Z f A : A A > l : ) R ' W n V pT : N
0x39c174…39c308 Dummy {f00=0x0124, f01=0x0190, f02=» 'P P _ N L % V d V f G G U ' G : ) P ' ) V ) : ' ' V ~P -~ W x ( _$ 8 V V x % V v % : V V P W t $ ) ^ r V ' W f ) G V ' ) W b G ' ) G ` " W p
0x39c308…39c49c Dummy {f00=0x0124, f01=0x0190, f02=» ' " E R - W ~ R - R P /8 R X^ /8_dW ) T : ' ' W x ( ) _ V P. * I ' @ D ) @ ! P C C $ W z ` pPJ (l " R ) E R T E D E @ H E ( )P #_T W | j W V b ( W p V ` $
0x39c49c…39c630 Dummy {f00=0x0124, f01=0x0190, f02=» 8" R _ ZY QY : @ H W z W | CRP W ` ` H W d 2 @ ) R 'P - @ - N !TTP 'P N :H N TBT W W4 2 " T @ 'P X 2 N =H N 0 @ ) 02 !TTXT !CCT 06 !UUT d 1zWT
0x39c630…39c7c4 Dummy {f00=0x0124, f01=0x0190, f02=» @ W D ) V W W ` " W p @ pP* " 4X 1 R Z0 % _ W l a w ` :A W V d 4 W P 5 _ W ` W d V V W V V $ ) ^ A * @ @ P 3 W
0x39c7c4…39c958 Dummy {f00=0x0124, f01=0x0190, f02=»_6 : W @ R ] @ P @ " P : V _ W W . !TTP 'P ?v @ T 'P Y 02 !TTX" A 9 A : ` @ V :a @ ) @ A @ ) ;a P$ W @ A @ T 'P A : ` @ P 4 _ 4 3 S S V V W
0x39c958…39caec Dummy {f00=0x0124, f01=0x0190, f02=»P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T 'P : W . !TTP 'P ?v W t N =H N W l V CRT N =H N ? W p N =H N 0 W | ( @ % 5 T W @ = V W = V
0x39caec…39cc80 Dummy {f00=0x0124, f01=0x0190, f02=» _2 V tPx ) R 'P S ( V | S =J @ " S V l S W l V CRT V p S W p W W _z 02 !TTT 5t &~ : . !TTP 'P V ?v W t * ? P ? r
0x39cc80…39ce14 (4, 236) Dummy {f00=0x0124, f01=0x0190, f02=» V p _f V t Y 02 !TTX @ @ T 'P : W % @ P _ R @ WT R @ 0 W ` W W& T 'P P _ V A V W ?v W t ? PT W f (
0x39ce14…39cfa8 Dummy {f00=0x0124, f01=0x0190, f02=»T 'P : 02 !TTX !CCTr ?v P, ? V r 4 U 'P $ $ _. ? P, ? V 4 U 'P $ $ _. @ @ @ ! P V 8 8 8 3 . !CCP W ?v P0 W f ? W d ? V
0x39cfa8…39d13c Dummy {f00=0x0124, f01=0x0190, f02=» K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T 'P : W V F !SST = WJ !AAT = W> = V V 0 V P _ W $ q > R P >b W >b & 8P <0 < V B V W R 9 W D
0x39d13c…39d2d0 Dummy {f00=0x0124, f01=0x0190, f02=» T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P ;2 V : ` P: @ @ @ D (P W H $ I " % E , a : V Q R $ F !LLT # W ;I # ;b W ;a WR
0x39d2d0…39d464 Dummy {f00=0x0124, f01=0x0190, f02=»T A V W Y0 Z6 @ T A V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ / P *_ *T P$ _ .P _ / V z U Y$
0x39d464…39d5f8 Dummy {f00=0x0124, f01=0x0190, f02=» @ P V '` A (P ) @ @ @ T 'P : N =H N 0 : N =H N 0 : &=H F 0 : F =H F 0 : F =H F 0 : P N =H N T ?v 02_ : @ ! P (W ( : 00=H 00 P P _ _ : 3l
0x39d5f8…39d78c Dummy {f00=0x0124, f01=0x0190, f02=» D 6GP $ P ;c F AAP # $ < $ : W | v z *T P _ / P *_ *T P _ .P _ / V z U Y$
0x39d78c…39d920 Dummy {f00=0x0124, f01=0x0190, f02=» , P ST A1,DWTRSN,A6 INDICATE ACK 0 EXPECTED - IFT IDLELN=1 - 4 2 P CF A15,CLIDLE CLEAR IDLE LINE ACTIVITY TIMER - J XIF - P ABL TRENQB SEND ENQ TO BID - P EJECT - P* - P* - P* START WRITE IF POSSIBLE - P* - P* - , P
0x39d920…39dab4 (4, 237) Opaque[0x194]
0x39dab4…39dc48 # DirEnt {nam=»TEST «, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x24a0, f03=0x0000}
0x39dab4…39dc48 IdxSect {
0x39dab4…39dc48 f00 = 0x0125 // 0x39dab4 @0x0
0x39dab4…39dc48 f01 = 0x0002 // 0x39dab6 @0x2
0x39dab4…39dc48 gno = [ // 0x39dab8 @0x4
0x39dab4…39dc48 [0x00]: C0x0125.0x0.0
0x39dab4…39dc48 ]
0x39dab4…39dc48 }
0x39dc48…39dddc Dummy {f00=0x0125, f01=0x009e, f02=» ASM DRGP01 ASM DRGP02 ASM DVG100 ( ASM DVGP01 : ASM DVTGP L ASM DVTG1 ^ ASM SYSTAB p SCR ASG /E0,TY10 ASG /02,LP0F SCR INC SYSTAB LKE M KPF /L,M:LP ASG /E0,TY10 **
0x39dddc…39df70 Dummy {f00=0x0125, f01=0x2008, f02=» DRGP01 ASM DRGP02 ASM DVG100 ( ASM DVGP01 : ASM DVTGP L ASM DVTG1 ^ ASM SYSTAB p SCR ASG /E0,TY10 ASG /02,LP0F SCR INC SYSTAB LKE M KPF /L,M:LP ASG /E0,TY10 **
0x39df70…39e104 Dummy {f00=0x0125, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x39e104…39e298 Dummy {f00=0x0125, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x39e298…39e42c Dummy {f00=0x0125, 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
0x39e42c…39e5c0 Dummy {f00=0x0125, 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 $
0x39e5c0…39f260 (5, 0) DirGranule ((5, 0)) {
0x39e5c0…39f260 DirEnt {nam=»M:TU10«, typ=» «, f00=0x0000, f01=0x0000, f02=0x08d0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»M:TU10«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f58, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x24e0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f10, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2588, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2628, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25a8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25e8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27b8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2918, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e40, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a28, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29d0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29e0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cb8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d48, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a98, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ae8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b38, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b88, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c08, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c28, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cd8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2600, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2590, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2640, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2660, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x30c0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e68, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f08, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMOPCL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2eb0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2558, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ea8, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ea0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fc0, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3000, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3010, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3028, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3040, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3058, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3148, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2518, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2520, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f38, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f28, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f48, f03=0x0000}
0x39e5c0…39f260 DirEnt {nam=»M:TU10«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3120, f03=0x0000}
0x39e5c0…39f260 }
0x39f260…39f3f4 (5, 1) Opaque[0x194]
0x39f3f4…39f588 # DirEnt {nam=»M:TU10«, typ=»UF«, f00=0x0000, f01=0x0000, f02=0x2290, f03=0x0000}
0x39f3f4…39f588 IdxSect {
0x39f3f4…39f588 f00 = 0x0114 // 0x39f3f4 @0x0
0x39f3f4…39f588 f01 = 0x000c // 0x39f3f6 @0x2
0x39f3f4…39f588 gno = [ // 0x39f3f8 @0x4
0x39f3f4…39f588 [0x00]: C0x0114.0x2.0
0x39f3f4…39f588 [0x01]: C0x0125.0x1.0
0x39f3f4…39f588 [0x02]: C0x0125.0x2.0
0x39f3f4…39f588 [0x03]: C0x0125.0x3.0
0x39f3f4…39f588 [0x04]: C0x0126.0x0.0
0x39f3f4…39f588 [0x05]: C0x0126.0x1.0
0x39f3f4…39f588 ]
0x39f3f4…39f588 }
0x39f588…39f71c Dummy {f00=0x0114, f01=0x0190, f02=» ASG /02,NO MOV TCLASS,/S,TOSSWORK KPF /S,TCLASS 4 SCR J INC TCLASS,TOSSWORK V KPF /O r MOV SCLASS,/S,TOSSWORK KPF /S,SCLASS SCR INC SCLASS,TOSSWORK KPF /O MOV MONTAB,/S,TOSSWORK
0x39f71c…39f8b0 Dummy {f00=0x0114, f01=0x0190, f02=» INC SYSTAB,TOSSWORK KPF /O MOV TDISP,/S,TOSSWORK . KPF /S,TDISP L SCR ` INC TDISP,TOSSWORK l KPF /O MOV LRPINT,/S,TOSSWORK KPF /S,LRPINT SCR INC LRPINT,TOSSWORK KPF /O MOV TPR
0x39f8b0…39fa44 Dummy {f00=0x0114, f01=0x0190, f02=»BS SCR INC MSUBS,TOSSWORK KPF /O 2 MOV TTMJOB,/S,TOSSWORK @ KPF /S,TTMJOB ^ SCR t INC TTMJOB,TOSSWORK KPF /O MOV TOSSIO,/S,TOSSWORK KPF /S,TOSSIO SCR INC TOSSIO,TOSSWORK KP
0x39fa44…39fbd8 Dummy {f00=0x0114, f01=0x018e, f02=»WORK ~ KPF /S,SYSLDA SCR " INC SYSLDA,TOSSWORK . KPF /O J MOV LDTASK,/S,TOSSWORK X KPF /S,LDTASK v SCR INC LDTASK,TOSSWORK KPF /O MOV DRSW01,/S,TOSSWORK KPF /S,DRSW01 SCR INC DR
0x39fbd8…39fd6c Dummy {f00=0x0114, f01=0x0190, f02=» MOV PFTAB,/S,TOSSWORK KPF /S,PFTAB & SCR : INC PFTAB,TOSSWORK F KPF /O b MOV LKMAL,/S,TOSSWORK p KPF /S,LKMAL SCR INC LKMAL,TOSSWORK KPF /O MOV CTABX,/S,TOSSWORK KPF /S,CTABX
0x39fd6c…39ff00 Dummy {f00=0x0114, f01=0x0190, f02=»ORK KPF /O LED DSKSUB !!CH $$ X:A$$ 1$$ , !!CH $$ X:B$$ 1$$ F !!EN ` ASM /S l KPF /O z KPF /S SCR MOV DVTKB,/S,TOSSWORK KPF /S,DVTKB SCR INC DVTKB,TOSSWORK KPF /O
0x39ff00…3a0094 (5, 2) Dummy {f00=0x0125, f01=0x0190, f02=»KPF /S,DVTDY SCR INC DVTDY,TOSSWORK KPF /O < MOV DRKB03,/S,TOSSWORK J KPF /S,DRKB03 h SCR ~ INC DRKB03,TOSSWORK KPF /O MOV DRKB01,/S,TOSSWORK KPF /S,DRKB01 SCR INC DRKB01,TOSSWORK
0x3a0094…3a0228 Dummy {f00=0x0125, f01=0x018e, f02=»01,/S,TOSSWORK KPF /S,DRDY01 SCR , INC DRDY01,TOSSWORK 8 KPF /O T MOV DRLT01,/S,TOSSWORK b KPF /S,DRLT01 SCR INC DRLT01,TOSSWORK KPF /O MOV DRTC01,/S,TOSSWORK KPF /S,DRTC01 SCR
0x3a0228…3a03bc Dummy {f00=0x0125, f01=0x018e, f02=» KPF /O MOV DRDU01,/S,TOSSWORK KPF /S,DRDU01 0 SCR F INC DRDU01,TOSSWORK R KPF /O n MOV DRLP01,/S,TOSSWORK | KPF /S,DRLP01 SCR INC DRLP01,TOSSWORK KPF /O MOV DRFD01,/S,TOSSWORK KPF
0x3a03bc…3a0550 Dummy {f00=0x0125, f01=0x018e, f02=» | !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 2$$ " !!CH $$ X:E$$ 1$$ < !!CH $$ X:F$$ 30$$ V !!CH $$ X:G$$ 1$$ p !!CH $$ X:H$$ 0$$ !!CH $$ X:I$$ 1$$ !!CH $$ X:J$$ 000$$ !!CH $$ X:K$$ 00$$ !!EN ASM /S
0x3a0550…3a06e4 Dummy {f00=0x0125, f01=0x018e, f02=» | !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 0$$ " !!CH $$ X:F$$ 1$$ < !!CH $$ X:G$$ 1$$ V !!CH $$ X:H$$ 000$$ p !!EN ASM /S KPF /O KPF /S SCR LED DRDY01 !!CH $$ X:A$$ 0$$ !!CH $$ X:B$$
0x3a06e4…3a0878 Dummy {f00=0x0125, f01=0x0190, f02=» | !!CH $$ X:H$$ 000$$ !!EN $ ASM /S 0 KPF /O > KPF /S L SCR Z LED DRLT01 f !!CH $$ X:A$$ 0$$ x !!CH $$ X:B$$ 1$$ !!CH $$ X:C$$ 0$$ !!CH $$ X:D$$ 0$$ !!CH $$ X:E$$ 01$$ !!EN AS
0x3a0878…3a0a0c Dummy {f00=0x0125, f01=0x018e, f02=»000$$ !!EN ASM /S KPF /O ( KPF /S 6 SCR D LED DRDU01 P !!CH $$ X:A$$ 1$$ b !!CH $$ X:B$$ 2$$ | !!CH $$ X:C$$ 1$$ !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 00$$ !!EN ASM /S KPF /O
0x3a0a0c…3a0ba0 Dummy {f00=0x0125, f01=0x0190, f02=» KPF /S SCR LED DRFD01 " !!CH $$ X:A$$ 1$$ 4 !!CH $$ X:B$$ 1$$ N !!CH $$ X:C$$ 1$$ h !!CH $$ X:D$$ 1$$ !!CH $$ X:E$$ 000$$ !!EN ASM /S KPF /O KPF /S SCR MOV EBCDIC,/S,
0x3a0ba0…3a0d34 (5, 3) Dummy {f00=0x0125, f01=0x0190, f02=»KPF /O KPF /S SCR LED DRKB03 ( !!CH $$ X:A$$ 0$$ : !!CH $$ X:B$$ 1$$ T !!CH $$ X:C$$ 1$$ n !!CH $$ X:D$$ 2$$ !!CH $$ X:E$$ 1$$ !!CH $$ X:F$$ 30$$ !!CH $$ X:G$$ 1$$ !!CH $$ X:H$$ 0$$
0x3a0d34…3a0ec8 Dummy {f00=0x0125, f01=0x018e, f02=»SCR LED DVTKB !!DL 35 DATA 0,0,0,0,0,0,0,0 . DATA 0,0,0,0,0,0,0, L !!IL 38 h DATA x !!EN ASM /S KPF /O KPF /S SCR LED DRSW01 !!CH $$ X:B$$ 01$$ !!CH $$ X:C$$ 00$$
0x3a0ec8…3a105c Dummy {f00=0x0125, f01=0x0190, f02=» !!CH $$ X:A$$ 1$$ !!EN " ASM /S . KPF /O < KPF /S J SCR X MOV TIMER,/S,TOSSWORK d KPF /S,TIMER SCR INC TIMER,TOSSWORK KPF /O MOV TPROC,/S,TOSSWORK KPF /S,TPROC SCR
0x3a105c…3a11f0 Dummy {f00=0x0125, f01=0x0190, f02=»KPF /O MOV MONTIM,/S,TOSSWORK KPF /S,MONTIM , SCR B INC MONTIM,TOSSWORK N KPF /O j MOV TOSSFM,/S,TOSSWORK x KPF /S,TOSSFM SCR INC TOSSFM,TOSSWORK KPF /O LED LKMAL !!DL 016 !!DL
0x3a11f0…3a1384 Dummy {f00=0x0125, f01=0x0190, f02=»A 00 !!DL 040 DATA 00 !!DL 042 < DATA 00 L !!DL 045 h DATA 00 x !!DL 048 !!DL 049 !!DL 050 !!DL 051 !!EN ASM /S KPF /O KPF /S
0x3a1384…3a1518 Dummy {f00=0x0125, f01=0x0190, f02=»S,TOSSWORK KPF /S,TIODM SCR & INC TIODM,TOSSWORK 2 KPF /O N MOV DMTASK,/S,TOSSWORK KPF /S,DMTASK z SCR INC DMTASK,TOSSWORK KPF /O MOV DMINIT,/S,TOSSWORK KPF /S,DMINIT SCR IN
0x3a1518…3a16ac Dummy {f00=0x0125, f01=0x0190, f02=»/O MOV DMBUF,/S,TOSSWORK KPF /S,DMBUF ( SCR < INC DMBUF,TOSSWORK H KPF /O d MOV DMFDB,/S,TOSSWORK r KPF /S,DMFDB SCR INC DMFDB,TOSSWORK KPF /O MOV DFTAB,/S,TOSSWORK KPF /S,DFTAB
0x3a16ac…3a1840 Dummy {f00=0x0125, f01=0x0190, f02=»SWORK KPF /O MOV ADDMOD,/S,TOSSWORK KPF /S,ADDMOD : SCR P INC ADDMOD,TOSSWORK KPF /O x MOV DSUMOD,/S,TOSSWORK KPF /S,DSUMOD SCR INC DSUMOD,TOSSWORK KPF /O MOV MPYMOD,/S,TOSSWORK
0x3a1840…3a19d4 (5, 4) Dummy {f00=0x0125, f01=0x0190, f02=»R INC DIVMOD,TOSSWORK KPF /O & MOV DMSUBR,/S,TOSSWORK 4 KPF /S,DMSUBR R SCR h INC DMSUBR,TOSSWORK t KPF /O LED TIODM !!CH $$ X:A$$ 00000$$ !!EN ASM /S KPF /O KPF /S SCR
0x3a19d4…3a1b68 Dummy {f00=0x0125, f01=0x0190, f02=» SCR LED DMTASK !!CH $$ X:B$$ 00000$$ " !!CH $$ X:C$$ 00004$$ @ !!EN ^ ASM /S j KPF /O x KPF /S SCR LED DFTAB !!DL 024 !!DL 026 !!DL 027 !!IL 29 " DATA /0000,/0000,/010
0x3a1b68…3a1cfc Dummy {f00=0x0125, f01=0x0190, f02=»LED DMFDB !!CH $$ X:B$$ 00012$$ !!CH $$ X:C$$ 00000$$ 0 !!CH $$ X:D$$ 00114$$ N !!EN l ASM /S x KPF /O KPF /S SCR LED DMOPCL !!CH $$ X:B$$ 00000$$ !!EN ASM /S KPF /O KP
0x3a1cfc…3a1e90 Dummy {f00=0x0125, f01=0x0190, f02=»TASK !!EN ASM /S KPF /O & KPF /S 4 SCR B LED SYSTAB N !!CH $$IHINPT$$TRAP$$ ` !!CH $$ X:A$$ 00004$$ ~ !!CH $$ EXTRN BUG$$*$$ !!CH $$ BUG$$ 0$$ !!CH $$ X:B$$ 00003$$ !!CH $$ X:C$$ 00004$$
0x3a1e90…3a2024 Dummy {f00=0x0125, f01=0x0190, f02=» DATA ILLINT !!DL 125 DATA ILLINT * !!DL 126 J DATA ILLINT Z !!DL 127 z DATA ILLINT !!DL 128 DATA ILLINT !!DL 131 DATA ILLINT
0x3a2024…3a21b8 Dummy {f00=0x0125, f01=0x0190, f02=»NT z !!DL 135 DATA ILLINT !!DL 136 : DATA ILLINT J !!DL 138 j DATA ILLINT z !!DL 140 DATA ILLINT !!DL 141 DATA ILLINT !!DL 142
0x3a21b8…3a234c Dummy {f00=0x0125, f01=0x018e, f02=»63 DATA ILLINT !!EN * ASM /S 6 KPF /O D KPF /S R SCR ` LED PFTAB l !!IL 12 ~ !!IL 41 !!DL 042 !!DL 046 !!DL 047 !!DL 048 !!DL 051 !!DL 053 !!DL 054
0x3a234c…3a24e0 Dummy {f00=0x0125, f01=0x0190, f02=» !!CH $$DVTKB$$DVKB00$$ !!CH $$KBAD$$KBAD3$$ " !!CH $$/1111$$/1100$$ > !!CH $$BCA$$5F5E$$ !!CH $$ED0$$FF0D$$ v " !!CH $$0 CODE $$CTAB01 CODE $$ !!CH $$ECH$$DVDY00$$ !!DL 5 EXTRN CTAB01 !!EN ASM /S
0x3a24e0…3a2674 (5, 5) Dummy {f00=0x0126, f01=0x0190, f02=»$$/C000$$ !!EN ASM /S KPF /O , KPF /S : SCR H LED DVTKB T !!CH $$DVTKB$$DVKB01$$ f !!CH $$/1111$$/1110$$ !!CH $$BCA$$DFDE$$ !!CH $$ED0$$AAAC$$ !!CH $$ECH$$DVDY01$$ !!EN ASM /S
0x3a2674…3a2808 Dummy {f00=0x0126, f01=0x0190, f02=»DE$$ !!CH $$ED0$$AAAC$$ !!CH $$8000$$8002$$ & !!CH $$ECH$$DVDY01$$ B !!EN ^ ASM /S j KPF /O x KPF /S SCR LED DVTDY !!CH $$DVTDY$$DVDY01$$ !!CH $$/ABC$$/1850$$ !!CH $$/1111$$/C000$$
0x3a2808…3a299c Dummy {f00=0x0126, f01=0x0190, f02=»$ | !!EN ASM /S KPF /O $ KPF /S 2 SCR @ LED TCLASS L !!IL 6 ^ EXTRN DVKB00 l EXTRN DVDY00 EXTRN DVKB01 EXTRN DVDY01 EXTRN DVGP02
0x3a299c…3a2b30 Dummy {f00=0x0126, f01=0x018e, f02=»ATA TC00E-* DATA /0020 ! DATA DVKB00 ! 8 DATA /00300 ! X DATA DVDY00 ! x TC00E EQU * ! TC01 DATA TC01E-* ! DATA /00200 ! DATA
0x3a2b30…3a2cc4 Dummy {f00=0x0126, f01=0x0190, f02=» ! v TC01E EQU * " TC02 DATA TC02E-* " $ DATA /00801 " F DATA DVGP02 " f TC02E EQU * " !!EN " ASM /S " KPF /O " KPF /S " SCR " LED SCLASS " !!IL 6 "
0x3a2cc4…3a2e58 Dummy {f00=0x0126, f01=0x0190, f02=»RN DWLP01 " EXTRN DWDM01 # EXTRN DWDU01 # 4 EXTRN DWFD01 # T !!IL 11 # t DATA TC00 # DATA TC01 # DATA TC02 # DATA TC03 # DAT
0x3a2e58…3a2fec Dummy {f00=0x0126, f01=0x0190, f02=» DATA /00121 # DATA DWTC01 $ DATA /00101 $ 8 DATA DWSI01 $ X DATA /00111 $ x DATA DWSO01 $ TC00E EQU * $ TC01 DATA TC01E-* $ DATA
0x3a2fec…3a3180 Dummy {f00=0x0126, f01=0x0190, f02=» DATA DWLP01 % TC02E EQU * % $ TC03 DATA TC03E-* % @ DATA /00C01 % b DATA DWDM01 % TC03E EQU * % TC04 DATA TC04E-* % DATA /00C11 %
0x3a3180…3a3314 (5, 6) Dummy {f00=0x0126, f01=0x0190, f02=»DWDM01 % ~ TC05E EQU * & TC06 DATA TC06E-* & * DATA /02F21 & L DATA DWDU01 & l DATA /03F31 & DATA DWDU01 & DATA /00F01 & DATA DWDU01 & DATA /01F11 &
0x3a3314…3a34a8 Dummy {f00=0x0126, f01=0x0190, f02=» DATA /02FA1 & DATA DWFD01 ' DATA /03FB1 ' 6 DATA DWFD01 ' V TC06E EQU * ' l !!EN ' ASM /S ' KPF /O ' KPF /S ' SCR ' LED MONTAB ' !!IL 19 ' **** ' EXTRN CTAB01 '
0x3a34a8…3a363c Dummy {f00=0x0126, f01=0x018e, f02=»DL 033 ' !!DL 034 ( !!DL 035 ( !!DL 036 ( . !!IL 50 ( > **** ( N DATA CTAB01 ( Z !!DL 053 ( p !!DL 055 ( !!DL 056 ( !!DL 059 ( !!DL 060 ( !!DL 061 ( !!DL 062 ( !!DL 063 ( !!DL 064 ( !!DL 065
0x3a363c…3a37d0 Dummy {f00=0x0126, f01=0x004a, f02=» INC SYSTAB ) LKE M ) KPF /L,M:TU10 ) $ ASG /E0,TY10 ) : **** ( N DATA CTAB01 ( Z !!DL 053 ( p !!DL 055 ( !!DL 056 ( !!DL 059 ( !!DL 060 ( !!DL 061 ( !!DL 062 ( !!DL 063 ( !!DL 064 ( !!DL 065
0x3a37d0…3a3964 Dummy {f00=0x0126, f01=0x2008, f02=» * SYSTAB ) LKE M ) KPF /L,M:TU10 ) $ ASG /E0,TY10 ) : **** ( N DATA CTAB01 ( Z !!DL 053 ( p !!DL 055 ( !!DL 056 ( !!DL 059 ( !!DL 060 ( !!DL 061 ( !!DL 062 ( !!DL 063 ( !!DL 064 ( !!DL 065
0x3a3964…3a3af8 Dummy {f00=0x0126, f01=0x0190, f02=»7 A7 2 C A7 @7 @7 < A7 A7 ( @7 / < 7 6 P J S T $ 1T P _ 7 X`_2 A7 : @7 T ? @7 < Q : 7 ? @7 E8 @7 K @7 K @7 K @7 K @7 K @7 K K K R 2 K R 1:H R K R !
0x3a3af8…3a3c8c Dummy {f00=0x0126, f01=0x0190, f02=» : @7 T ? @7 < Q : 7 ? @7 ? A7 B* 2 A7 @8 % @7 R 2 R 1 % Y @7 A7 @7 A7 @7 @7 A7 A7 [ A7 A7 7 @8 C @7 A7 @7 A7 ( C @7 @7 @8 @7 P @7 [ A7 A7 @7 @7 YXR @7 @7 Yd @7 A7 @7 A
0x3a3c8c…3a3e20 Dummy {f00=0x0126, f01=0x0190, f02=» @7 A7 @7 A7 : A7 @7 Q6 A7 EF EZ E8 AEJ ( Eb 9 AEf ( E E8 @7 0 AE @7 @7 E [ @7 @7 E [ 7 E @7 T E E8 E A AE ( 7 @7 : A7 B T @7 T : A7 A7 8 A7 T> ? @7 P.
0x3a3e20…3a3fb4 (5, 7) Opaque[0x194]
0x3a3fb4…3a4148 # DirEnt {nam=»TCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f58, f03=0x0000}
0x3a3fb4…3a4148 IdxSect {
0x3a3fb4…3a4148 f00 = 0x017a // 0x3a3fb4 @0x0
0x3a3fb4…3a4148 f01 = 0x0002 // 0x3a3fb6 @0x2
0x3a3fb4…3a4148 gno = [ // 0x3a3fb8 @0x4
0x3a3fb4…3a4148 [0x00]: C0x017a.0x3.0
0x3a3fb4…3a4148 ]
0x3a3fb4…3a4148 }
0x3a4148…3a42dc Dummy {f00=0x017a, f01=0x0190, f02=» 2 P IDENT TCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY TCLASS V P* l P* v P EXTRN DVKB00 P EXTRN DVDY00 P EXTRN DVKB01 P EXTRN DVDY01 P
0x3a42dc…3a4470 Dummy {f00=0x017a, f01=0x0190, f02=» TC01 P DATA TC02 PTCLASE EQU * . PTC00 DATA TC00E-* B P DATA /0020 d P DATA DVKB00 P DATA /0030 P DATA DVDY00 PTC00E EQU * PTC01
0x3a4470…3a4604 Dummy {f00=0x017a, f01=0x40fc, f02=» DVKB01 P DATA /0030 P DATA DVDY01 2 PTC01E EQU * R PTC02 DATA TC02E-* n P DATA /0080 P DATA DVGP02 PTC02E EQU * P END @ PTC01
0x3a4604…3a4798 Dummy {f00=0x017a, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x3a4798…3a492c Dummy {f00=0x017a, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x3a492c…3a4ac0 Dummy {f00=0x017a, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x3a4ac0…3a4c54 (5, 8) Opaque[0x194]
0x3a4c54…3a4de8 # DirEnt {nam=»/OBJCT«, typ=»OB«, f00=0x0000, f01=0x0000, f02=0x24e0, f03=0x0000}
0x3a4c54…3a4de8 IdxSect {
0x3a4c54…3a4de8 f00 = 0x0127 // 0x3a4c54 @0x0
0x3a4c54…3a4de8 f01 = 0x008c // 0x3a4c56 @0x2
0x3a4c54…3a4de8 gno = [ // 0x3a4c58 @0x4
0x3a4c54…3a4de8 [0x00]: C0x0127.0x0.0
0x3a4c54…3a4de8 [0x01]: C0x0127.0x1.0
0x3a4c54…3a4de8 [0x02]: C0x0127.0x3.0
0x3a4c54…3a4de8 [0x03]: C0x0128.0x1.0
0x3a4c54…3a4de8 [0x04]: C0x0129.0x2.0
0x3a4c54…3a4de8 [0x05]: C0x0129.0x1.0
0x3a4c54…3a4de8 [0x06]: C0x012c.0x0.0
0x3a4c54…3a4de8 [0x07]: C0x012d.0x0.0
0x3a4c54…3a4de8 [0x08]: C0x012f.0x0.0
0x3a4c54…3a4de8 [0x09]: C0x012f.0x3.0
0x3a4c54…3a4de8 [0x0a]: C0x0134.0x2.0
0x3a4c54…3a4de8 [0x0b]: C0x0134.0x3.0
0x3a4c54…3a4de8 [0x0c]: C0x013d.0x0.0
0x3a4c54…3a4de8 [0x0d]: C0x013d.0x1.0
0x3a4c54…3a4de8 [0x0e]: C0x013d.0x2.0
0x3a4c54…3a4de8 [0x0f]: C0x013c.0x3.0
0x3a4c54…3a4de8 [0x10]: C0x0148.0x2.0
0x3a4c54…3a4de8 [0x11]: C0x0134.0x1.0
0x3a4c54…3a4de8 [0x12]: C0x014b.0x1.0
0x3a4c54…3a4de8 [0x13]: C0x014c.0x0.0
0x3a4c54…3a4de8 [0x14]: C0x014c.0x2.0
0x3a4c54…3a4de8 [0x15]: C0x014d.0x1.0
0x3a4c54…3a4de8 [0x16]: C0x014d.0x3.0
0x3a4c54…3a4de8 [0x17]: C0x014f.0x1.0
0x3a4c54…3a4de8 [0x18]: C0x0150.0x3.0
0x3a4c54…3a4de8 [0x19]: C0x014e.0x1.0
0x3a4c54…3a4de8 [0x1a]: C0x014e.0x3.0
0x3a4c54…3a4de8 [0x1b]: C0x0151.0x0.0
0x3a4c54…3a4de8 [0x1c]: C0x016c.0x2.0
0x3a4c54…3a4de8 [0x1d]: C0x0155.0x0.0
0x3a4c54…3a4de8 [0x1e]: C0x016e.0x0.0
0x3a4c54…3a4de8 [0x1f]: C0x015a.0x0.0
0x3a4c54…3a4de8 [0x20]: C0x016d.0x2.0
0x3a4c54…3a4de8 [0x21]: C0x0170.0x3.0
0x3a4c54…3a4de8 [0x22]: C0x0171.0x0.0
0x3a4c54…3a4de8 [0x23]: C0x0161.0x2.0
0x3a4c54…3a4de8 [0x24]: C0x0170.0x1.0
0x3a4c54…3a4de8 [0x25]: C0x0170.0x2.0
0x3a4c54…3a4de8 [0x26]: C0x0166.0x2.0
0x3a4c54…3a4de8 [0x27]: C0x0169.0x0.0
0x3a4c54…3a4de8 [0x28]: C0x0172.0x1.0
0x3a4c54…3a4de8 [0x29]: C0x0172.0x2.0
0x3a4c54…3a4de8 [0x2a]: C0x0131.0x0.0
0x3a4c54…3a4de8 [0x2b]: C0x0130.0x3.0
0x3a4c54…3a4de8 [0x2c]: C0x0132.0x3.0
0x3a4c54…3a4de8 [0x2d]: C0x0171.0x3.0
0x3a4c54…3a4de8 [0x2e]: C0x0174.0x2.0
0x3a4c54…3a4de8 [0x2f]: C0x0174.0x3.0
0x3a4c54…3a4de8 [0x30]: C0x0178.0x0.0
0x3a4c54…3a4de8 [0x31]: C0x0174.0x1.0
0x3a4c54…3a4de8 [0x32]: C0x017b.0x1.0
0x3a4c54…3a4de8 [0x33]: C0x017b.0x2.0
0x3a4c54…3a4de8 [0x34]: C0x017b.0x0.0
0x3a4c54…3a4de8 [0x35]: C0x017d.0x1.0
0x3a4c54…3a4de8 [0x36]: C0x017d.0x3.0
0x3a4c54…3a4de8 [0x37]: C0x017f.0x3.0
0x3a4c54…3a4de8 [0x38]: C0x017f.0x2.0
0x3a4c54…3a4de8 [0x39]: C0x0181.0x0.0
0x3a4c54…3a4de8 [0x3a]: C0x0181.0x3.0
0x3a4c54…3a4de8 [0x3b]: C0x0182.0x2.0
0x3a4c54…3a4de8 [0x3c]: C0x0185.0x2.0
0x3a4c54…3a4de8 [0x3d]: C0x0185.0x3.0
0x3a4c54…3a4de8 [0x3e]: C0x0189.0x3.0
0x3a4c54…3a4de8 [0x3f]: C0x018a.0x0.0
0x3a4c54…3a4de8 [0x40]: C0x014c.0x1.0
0x3a4c54…3a4de8 [0x41]: C0x0179.0x2.0
0x3a4c54…3a4de8 [0x42]: C0x017a.0x0.0
0x3a4c54…3a4de8 [0x43]: C0x017a.0x2.0
0x3a4c54…3a4de8 [0x44]: C0x017d.0x0.0
0x3a4c54…3a4de8 [0x45]: C0x0188.0x3.0
0x3a4c54…3a4de8 ]
0x3a4c54…3a4de8 }
0x3a4de8…3a4f7c Dummy {f00=0x0127, f01=0x4162, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( D 0 DVDY01 DVGP02
0x3a4f7c…3a5110 Dummy {f00=0x0127, f01=0xc0b0, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d x @ ATA TCLASE-* PTCLASE EQU * P END @
0x3a5110…3a52a4 Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT MONTAB REL 10.0 80-03-14 870105041000 F B MONTABK SPDLCI FREQUE PAGQUE INTLT1 INTLT2 INTLT3L INTLT4 R 2 . INTRT1 INTRT2 INTRT3 INTRT4 INTAS INTSL MONTABK FREQUE PAGQUE
0x3a52a4…3a5438 Dummy {f00=0x0127, f01=0x4124, f02=» INTRT4 SYSLOD CTAB01 0 KBAD3 B * & R KBADN GPADN DYADN INTAS " INTSL $ SPDLCI & "
0x3a5438…3a55cc Dummy {f00=0x0127, f01=0xc01a, f02=» 4 @ SYSLOD KBAD3 0 KBADN @ * & P TPADN ~ GPADN DNADN DIADN DYADN MSADN ODADN TPAD3 , (
0x3a55cc…3a5760 Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT SYSTAB REL 10.0 80-03-14 870105041000 F B SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO SCTADA SCTIOEL SCTPAG R F B SCTSWB SCTNOP SCTPSZ SCTMMC SCTLAC SCTMMPL SCTLAP0 SCTNPE F B SCTSTB SCTOPT SCTTCT SCTCDTB
0x3a5760…3a58f4 (5, 9) Dummy {f00=0x0127, f01=0x0190, f02=»:PB PAG:QF PAG:QB PAG:PA PAG:SBS SWB:NC0 z SWB:DS SWB:ELV SWB:NS 4 SEG:FCL V SEG:NS j SEG:STI ~ SEG:DS SEG:ELV SEG:PB PAG:QF PAG:QB PAG:PA
0x3a58f4…3a5a88 Dummy {f00=0x0127, f01=0x0190, f02=» IHRTC ILLINTM IHTCN " , ( 2 IHSOP b CHLT1 r IHFDN , ( , ( ! , ( 1
0x3a5a88…3a5c1c Dummy {f00=0x0127, f01=0x0190, f02=» , ( a " , ( q R HALTN SCTMSZK SCTSFA SCTEFA SCTIPL SCTANO
0x3a5c1c…3a5db0 Dummy {f00=0x0127, f01=0x018e, f02=» SCTPAG SCTSWB SCTNOP & SCTPSZ : SCTMMC N SCTLAC b SCTMMPL v SCTLAP0 SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x3a5db0…3a5f44 Dummy {f00=0x0127, f01=0x409a, f02=» SCTBLK SCTDCT p 0 _ N d @ SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x3a5f44…3a60d8 Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT TDISP REL 10.0 80-03-14 870105041000 H D ! TDISP TPAUSE TEXIT MEXIT QMEXITA ACTDISA DISIOE DISEND` DISQUE R PRUNY RETUR8 DISQUE PRUNY RETUR8 QTJOB QMEXI
0x3a60d8…3a626c Dummy {f00=0x0127, f01=0x0190, f02=»SA * DISIOE 0 TENDIO DISEND` 4 2 TPAUSE 8 F , ( A W W Z TDISP 8 TTB:ST , ( 9 ^ ! Z@ (XH @ P T , ( W@ M ]X , ) A P P Y U
0x3a626c…3a6400 Dummy {f00=0x0127, f01=0x4146, f02=» [ [ [ [ TTB:PWL , ( [ [ > > [ [ 2 , ( @ Z Z ? ? Z Z b , ( I$ Z Z Z Z Z * & H >
0x3a6400…3a6594 (5, 10) Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT LRPINT REL 10.0 80-03-14 870105041000 J F " IHLKM LKM030 LKMRQE LKMERR LKMQDI IHRTC TIMQUE@ MONCLO IHPFARC R INIFLG PFPOSTN IHLKM INTSAV PRUNN TTB:SAT , ( A
0x3a6594…3a6728 Dummy {f00=0x0127, f01=0x0190, f02=» U H ( ( P c P W A SWL48 & , ( W V ( U 6 LKMAL f LKMERR v HALTN LKMRQE , ( q! P @ V L LKMQDI QTJOB TDI
0x3a6728…3a68bc Dummy {f00=0x0127, f01=0x018e, f02=» A A Q DISQUEA . * & @ @ , ( XV ) A A _b A A n PFINIT IHRTC , ( $@ A _t A A Q > QMJOB SWL
0x3a68bc…3a6a50 Dummy {f00=0x0127, f01=0x4160, f02=» , ( O Z Y _ 8 FREBLK 8 , ( o D Q Z P 0 9 _ J , ( _, _ P z TIMQUE@ H H H D ! ] 4 IP OP SW. aV qP wV Q
0x3a6a50…3a6be4 Dummy {f00=0x0127, f01=0x018e, f02=» J F IDENT TPROC REL 10.0 80-03-14 870105041000 TWAIT TMWAIT TACTOT R FNDDWT r TWAIT DWTWATL TDISP TACTOT FNDTIDN , ( @ P "R Y
0x3a6be4…3a6d78 Dummy {f00=0x0127, f01=0x4144, f02=» DWTTAB * & 3 U "R P X R X , ( M T X T . T G H , ( g Y6 G _` P ,P x LKMRQE` LKMQDIA - _ < 8 P~ R~ Pj )P` 3UR ;
0x3a6d78…3a6f0c Dummy {f00=0x0127, f01=0x0190, f02=» J F IDENT MSUBS REL 10.0 80-03-14 870105041000 D @ SAVE8 QTJOB QMJOB ACTOT ACTOTP EXITY GETBLK FREBLKL FNDDWT R H D ! FNDDWD FNDTID PFINIT SWL48 SWLXY ILLINT@ INTSAV HALTY RELPAG , ( RELPA2@ IHRET8V IHRET2 IHRET18
0x3a6f0c…3a70a0 Dummy {f00=0x0127, f01=0x0190, f02=» ! ? ? ? $P T I QMJOB N . TTMJOB @ ACTOTP X R , ( = R $ 5 % W f ACTOT ` TTB:SA * & D Y W T T U U TTB:ID , ( s H U
0x3a70a0…3a7234 (5, 11) Dummy {f00=0x0128, f01=0x0190, f02=» T P 0 U ~ GETBLK FREQUE 2 , ( _n ? @ T D FREBLKL t , ( 0 A 1 Q Q >W 0 @ FNDDWT TTB:TD , ( 1 A P P W " ? X
0x3a7234…3a73c8 Dummy {f00=0x0128, f01=0x0190, f02=» Y P _ W 8 X W ? ` @ IHRET8V j * , ( S @ @ P $ H W W > IHRET2 v n IHRET18 x IHRTN z PFINIT PFTAB , ( m > > > > > > > > @ V SWL48
0x3a73c8…3a755c Dummy {f00=0x0128, f01=0x4134, f02=» ? ^ ! Y ^ _ RELPAG * RELPA2@ > LKMERRD R * & @@ A. d H D ! $ 5P ?R M t WW _W kT W T P T < 8 W Wp R !P 3R 9P AW6 IW. [P e
0x3a755c…3a76f0 Dummy {f00=0x0128, f01=0x018e, f02=» J F IDENT TTMJOB REL 10.0 80-03-14 870105041000 F B TTB:AMK TTB:MT TTB:CB TTB:SP TTB:SB TTMJOB TTB:QLL TTB:ID R . * TTB:ST TTB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x3a76f0…3a7884 Dummy {f00=0x0128, f01=0x40a8, f02=» TTB:PW TTB:SA , ( #M 1 0 TTB:TD ( ` ! t . @ TB:PP TTB:PW TTB:SA TTB:TD TTB:AMK TTB:MT TTB:CB
0x3a7884…3a7a18 Dummy {f00=0x0128, f01=0x8190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX( F B PC:DIXV MX:DIX KB:DIX8
0x3a7a18…3a7bac Dummy {f00=0x0128, f01=0x8190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x3a7bac…3a7d40 Dummy {f00=0x0128, f01=0x8190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x3a7d40…3a7ed4 (5, 12) Dummy {f00=0x0129, f01=0x818e, f02=» RECADRV ECHADR DC:DIX ( DM:DIX( < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x3a7ed4…3a8068 Dummy {f00=0x0129, f01=0x8190, f02=» QUEFIL TTB:STM * & C C 8W T . TTB:SA , ( 8P Y ^ 5 ) P n TDISP FNDDWT |TIO @ TIO:FM D , ( 9I U
0x3a8068…3a81fc Dummy {f00=0x0129, f01=0x818e, f02=» Y Y t GETBLKS QTJOB & , ( T # P W Y (@ 6 DC:MIN@ f SAVE8 z , ( 2 @ _ > (@ X L , ( U L Q L # T R < 5 , ( ^ R < 5 Y
0x3a81fc…3a8390 Dummy {f00=0x0129, f01=0x8190, f02=» , ( I (@ X P 0P , ( e X T 4 Y X 1 4 , ( 1 X P - M X P P # P d FREBLK: ACTOTPO * & 0P 1 _ " @ W Y
0x3a8390…3a8524 Dummy {f00=0x0129, f01=0xc016, f02=» @ (@ X P 0P , ( e X T 4 Y X 1 4 , ( 1 X P - M X P P # P d FREBLK: ACTOTPO * & 0P 1 _ " @ W Y
0x3a8524…3a86b8 Dummy {f00=0x0129, f01=0x018e, f02=» J F IDENT SYSLDM REL 10.0 80-03-17 870105041000 SYSLDMK R SYSLDMK d SCTSFAD x SYSBAS SCTEFA TCLASS( , ( I A SCLASSL SAV
0x3a86b8…3a884c Dummy {f00=0x0129, f01=0x018e, f02=» f , ( K , P , - 4 ] CMPADR 8 SCTOPT J , ( i @ 4 Y 5 X SAVE03N SAVE01 * & * _6 : W TTMJOB SCTDMT , (
0x3a884c…3a89e0 Dummy {f00=0x0129, f01=0x0190, f02=» , ( !TTP " @ T NXTBLK 8 , ( ! " Y $ !TTX" A J SCTTCT z SCTNFT, , ( "H 9 A & : ` & @ & V :a @ MULTN SCTNOF SCTFWL * & !
0x3a89e0…3a8b74 (5, 13) Dummy {f00=0x0129, f01=0x0190, f02=» " A : FREQUE " SCTBLK 4 , ( eI 4 ` & @ 6 P F BUFSIZM v , ( } _ 3 S S V 8 V SYSBUFM , ( HB W 8 : @ @ , ( @T
0x3a8b74…3a8d08 Dummy {f00=0x0129, f01=0x018e, f02=» _ l , ( : @ " P @ P 3 _ SAVE30M < , ( %B @ " P V > 3 S N , ( A 1 S 9J S ( 3 ( 9B ~ , ( a! @ @ T " SAVE04 SAVE10R * & {
0x3a8d08…3a8e9c Dummy {f00=0x0129, f01=0x0190, f02=» , ( @ N =H N W F V H CRT N SAVE17 8 CONVRT J SAVE24 , ( =H N W J N =H N L n , ( B W N ( @ % 5 T W TTB:CBM , ( @ @ = V W = V P
0x3a8e9c…3a9030 Dummy {f00=0x0129, f01=0x0190, f02=» p , ( u @ " U " , ( _2 V DP @ , ( R " p , ( S ( V N S =J @ " S , ( V F S W F V H CRT , ( A
0x3a9030…3a91c4 Dummy {f00=0x0129, f01=0x0190, f02=» n , ( I . !TTP " V W , ( e D * P > , ( @ _ n , ( P W J V 8 8 MOVEN , ( H 4 D P T @ # P
0x3a91c4…3a9358 Dummy {f00=0x0129, f01=0x0190, f02=»T n * & /B " : W B % @ * & G P _ 0 R @ < , ( _ $ 2 W B j , ( w @ R @ B 0 W , ( @ ` W W T , (
0x3a9358…3a94ec Dummy {f00=0x0129, f01=0x0190, f02=»5 SAVE14P * & $ P W V ( W , ( X G =h G V X J , ( + B V < V V P W V z , ( E $ _B V W V D , ( _ Yv $ !TTX @ @ T *
0x3a94ec…3a9680 Dummy {f00=0x0129, f01=0x0190, f02=» h , ( " $ $ _. , ( P V 4 U " 8 SCTDCT h , ( $ $ $ _. @ Z @ z , ( !A @ ! P V 8 8 8 SCTCDT , ( = 3 .
0x3a9680…3a9814 (5, 14) Dummy {f00=0x012c, f01=0x0190, f02=» z , ( U V 8 8 8 4 D , ( P T @ # P H J , ( I K T + Y@ z , ( _`R @ @ Z @ % , ( ! P V 4 4 4 _r @
0x3a9814…3a99a8 Dummy {f00=0x012c, f01=0x0190, f02=» W V 0 V | SAVE06 SAVE07 , , ( B 0 V `P _ W b $ > , ( q > R P >b W >b & 8P n SYSLOD , ( V d V W R , ( @ 9 W D T ) $ P
0x3a99a8…3a9b3c Dummy {f00=0x012c, f01=0x0190, f02=» 7I h I h I h $# P , ( Q@ V b -W W D V ` T 0 , ( m D @ 1 Q a : @ % ` , ( P H I H T P H , ( U V 8U W , ( 8 :
0x3a9b3c…3a9cd0 Dummy {f00=0x012c, f01=0x0190, f02=» f % E , a : V , ( 3 ^ Q R $ F ! , ( Q LLT # W `;I # ;b W 0;a P * & m W # T W `W # T W , ( `W # T W `W , ( @ W ` R _ $ W 0
0x3a9cd0…3a9e64 Dummy {f00=0x012c, f01=0x0190, f02=» $$Z6 l @ lT A l V @ , ( >A 8T 9 0 1 8 $; # . , ( / V ^ ;c F !AAP # ^ * & M @$ < $ : W SAVE21 SAVE23 , ( i N n B p
0x3a9e64…3a9ff8 Dummy {f00=0x012c, f01=0x0190, f02=» U p , ( @ Y$ P W N V p 3 % , ( W P _ V N @ INTLT1 p , ( $@P V n ] rW n P , ( 3 _ @ jP V T A j , ( K (P ) @ j @ lP
0x3a9ff8…3aa18c Dummy {f00=0x012c, f01=0x018e, f02=» N L r * & : N =H N L : &=H F , ( @ L : F =H F L : F =H F @ , ( @ L : P N =H p , ( N T $_ : @ , ( # ! P (W ( : 00=H 00 P , ( C
0x3aa18c…3aa320 Dummy {f00=0x012c, f01=0x0190, f02=» , ( R @ t $ D L v A x CRT SYSLDX 8 $ @ M " z J H D !pC P # N / N G X WP@ P P V P T ;P$ MT wP { r H D ! V T P P V P P +P oT P T T W H
0x3aa320…3aa4b4 (5, 15) Dummy {f00=0x012d, f01=0x0190, f02=»R W& T V H D !oJ P PT . 7 T ?P M wT Tr P, U H D ! } P, U )P QP [W e iP0 q y T U^ ^ H D ! P P$ P R& !P AT qT u wWJ }T W> 0 P R P W H D !` P ^
0x3aa4b4…3aa648 Dummy {f00=0x012d, f01=0x40c0, f02=» T W R T W T T EP T P P T P$ P U P H D ! W P P #W /P 9P QP _P wP T P T %P )W =P EP J R T @ T qT u wWJ }T W> 0 P R P W H D !` P ^
0x3aa648…3aa7dc Dummy {f00=0x012d, f01=0x0190, f02=» J F IDENT SYSLDA REL 10.0 80-05-29 870105041000 D @ JUMPY SYSLDX dREL LDALEN MOVEY ERROR CMPADR NXTBLKL NXTCOM R F B CONVRT GETNUM MULTY MMTAB TABBE MMEND MMDDIV BUFSIZ SYSBUF D @ M:REL I:RSTE SAVE01 SAVE12 SAV
0x3aa7dc…3aa970 Dummy {f00=0x012d, f01=0x0190, f02=» SAVE18 SAVE19 SAVE20 SAVE21S SAVE220 v F B SAVE23 SAVE24V SAVE254 SAVE26 SAVE27> SAVE282 SAVE29 SAVE30 0 APPTYPN z I:RSTE * |REL $ W W " , ( 1 ; Z [ : : [ [
0x3aa970…3aab04 Dummy {f00=0x012d, f01=0x0190, f02=» SAVE03 SAVE04~ SAVE05 0 SAVE06 D SAVE07 X , ( o l SAVE08 SAVE09 SAVE10 SAVE11 SAVE12 SAVE1
0x3aab04…3aac98 Dummy {f00=0x012d, f01=0x0190, f02=»AVE30 , ( M:REL @ SYSBUF R BUFSIZ f LDALEN z SAVE14I d SAVE15 f SAVE16V l SAVE17 p SAVE18 r SAVE19 t
0x3aac98…3aae2c Dummy {f00=0x012d, f01=0x0190, f02=» MMEND , ( ERROR @ MOVEY R SCTEFA d , ( W Z A. c @ v , ( V W U R $ )_ CMPADR MULTY , ( :
0x3aae2c…3aafc0 Dummy {f00=0x012d, f01=0x0190, f02=» H W : @ A SCTSFA * & g H 9n A @ A A 2 SCTBUGY ` SCTSTB r , ( } @ A. @ PFINIT SAVE8 , ( @ W A
0x3aafc0…3ab154 (5, 16) Dummy {f00=0x012f, f01=0x0190, f02=»KL NXTCOM , ( : .=H N GETNUM . P , ( @ .=H N N : d SYSLDX L , ( / d 8" R _ ZY QY : , ( O @ H W z W | CRP
0x3ab154…3ab2e8 Dummy {f00=0x012f, f01=0x4064, f02=» V W U R V W GV n =R iP* m z * N@ ` @ .=H N N : d SYSLDX L , ( / d 8" R _ ZY QY : , ( O @ H W z W | CRP
0x3ab2e8…3ab47c Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT LDTASK REL 10.0 80-03-14 870105041000 F B LT:DSKK LT:SWB TTABLD QLTDSK QLTSWB QLTASK LD:ECBL LD:BUF R LD:BUE PQEMTY LD:STB LD:ECBL LD:BUF L
0x3ab47c…3ab610 Dummy {f00=0x012f, f01=0x0190, f02=» TLDS15 , ( 7 $V QMEXITL J PAGQUE PAG:QB n , ( U H A ( @ X PAG:SB , ( oH H A ( 1 ) @ H P 1 SEG:PB# S
0x3ab610…3ab7a4 Dummy {f00=0x012f, f01=0x018e, f02=» SEG:DS TTB:CB , ( H H D $! " ECBCW1I R ECBCW2 d , ( A u C C v ECBRL ECBBA , ( V P ECBEL , (
0x3ab7a4…3ab938 Dummy {f00=0x012f, f01=0x4190, f02=» f ECBRC TTB:SAV , ( CA C _,( B & T :" * RELPA2 Z SCTIOES l , ( _H U ( F * ' @ , U ~ LT:SWB z QLTSWB z LKMERR| QLTDSK ~ QLTASK
0x3ab938…3abacc Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT DRSW01 REL 10.0 80-03-14 870105041000 H D ! OUTLINK OUTPUT LDREG LDREGE LDREGF STREG GETCHR@ ECHRTN ECHOY R ECHENDN OUTLINK SAVE8 OUTLRT OUTPUT , ( A
0x3abacc…3abc60 Dummy {f00=0x012f, f01=0x0190, f02=»A4 DWTA5 TDISP LDREG F * , ( 9 H Y Y X < LDREGF T l LDREGE X DWTOR , ( O$ X Y X X X X DWTECB GETCHR@ l , ( e '
0x3abc60…3abdf4 (5, 17) Dummy {f00=0x012f, f01=0x4128, f02=» DWTWAT DWTSB2 * & H X 9BV X Y $ DWTADR R ECHADR d ECHRTN v TENDIO * & X D V X T , ( W0 P T #P< 'P8 sU W V$
0x3abdf4…3abf88 Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT ST8000 REL 10.0 80-06-09 870105041000 ST8000K R ST8000K d IHPFAR x IHLKM IHRTC ILLINT IHTWA IASCUZ , (
0x3abf88…3ac11c Dummy {f00=0x012f, f01=0x4150, f02=» ~ , ( ! , ( 1 N , ( A ~ , ( Q , ( a
0x3ac11c…3ac2b0 Dummy {f00=0x012f, f01=0x4164, f02=» J F IDENT PFTAB REL 10.0 80-03-14 870105041000 PFTAB R PFTAB b TCDRON t SOPRN CHLTONA FDONN LPONN DUONN FMINIT DMINIT` * & UT
0x3ac2b0…3ac444 Dummy {f00=0x012f, f01=0xc0b8, f02=» DMINIT` SLCUON , ( $ ASCUON T CDONN f ! " $ v & & @ C1DRONA C2DRON C3DRON` FDONN * & UT
0x3ac444…3ac5d8 Dummy {f00=0x012f, f01=0x0190, f02=» J F IDENT LKMAL REL 10.0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x3ac5d8…3ac76c Dummy {f00=0x012f, f01=0x4032, f02=» r " " @ ..0 80-03-14 870105041000 LKMAL R LKMAL b bTIO t TWAIT TEXIT TACTOT TPAUSE TIMER TMWAIT , ( UT
0x3ac76c…3ac900 Dummy {f00=0x012f, f01=0x40aa, f02=» J F IDENT CTABX REL 10.0 80-03-14 870105041000 CTABX R CTABX b t @ P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x3ac900…3aca94 (5, 18) Dummy {f00=0x0134, f01=0x8190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x3aca94…3acc28 Dummy {f00=0x0134, f01=0x8190, f02=» ) Y W X | NVLCHK H DWTORD 0 , ( 9 $ $ ^ W X Y :g B DWTNVL: r DWTTAB , ( S! H I ! P X , ( m " P ,P 9A _ H P I IHRTN
0x3acc28…3acdbc Dummy {f00=0x0134, f01=0xc0f0, f02=» INXDWTL NVLTAB NVLDMT & NVLEND : NVLBIT N , ( @ X " _F X $ _R b D @ 2 Wz Tr 2 1WX GWB cP& m q sP wP P P @ IHRTN
0x3acdbc…3acf50 Dummy {f00=0x0134, f01=0x0190, f02=» J F IDENT DSKSUB REL 10.0 80-03-14 870105041000 F B VOLCLRK VOLNAM VOLADR NVLCHK VOLGET NEWVOL INXDWTL NVLTAB R NVLDMT NVLEND NVLBIT VOLCLRK VOLNAM ECBRL ECBEL , (
0x3acf50…3ad0e4 Dummy {f00=0x0134, f01=0x0190, f02=» ) Y W X | NVLCHK H DWTORD 0 , ( 9 $ $ ^ W X Y :g B DWTNVL: r DWTTAB , ( S! H I ! P X , ( m " P ,P 9A _ H P I IHRTN
0x3ad0e4…3ad278 Dummy {f00=0x0134, f01=0x0190, f02=» SCTFWTC FWTEW1 , ( X " $XL " EWTVOL R FWTPAR d INXDWTL v * & ( I T E _ (X _ X NVLTAB TTABFM NVLDMT NVLEND
0x3ad278…3ad40c Dummy {f00=0x0134, f01=0x4016, f02=» @ EW1 , ( X " $XL " EWTVOL R FWTPAR d INXDWTL v * & ( I T E _ (X _ X NVLTAB TTABFM NVLDMT NVLEND
0x3ad40c…3ad5a0 Dummy {f00=0x0134, f01=0x4136, f02=» J F IDENT DVTKB REL 10.0 80-03-14 870105041000 DVTKB R DVTKB b KBADN t & " KB bECH , ( !@ ?
0x3ad5a0…3ad734 (5, 19) Dummy {f00=0x0134, f01=0x40e8, f02=» J F IDENT DVTGP REL 10.0 80-03-14 870105041000 DVTGP R DVTGP b GPADN t & " P ! $ $ @ DATA DEVECB MMU ECB ADD
0x3ad734…3ad8c8 Dummy {f00=0x0134, f01=0x40ec, f02=» J F IDENT DVTDY REL 10.0 80-03-14 870105041000 DVTDY R DVTDY b DYADN t & " Y ! ( ( @ DEVECB DATA 0,0,0,0,0,0
0x3ad8c8…3ada5c Dummy {f00=0x0134, f01=0x0190, f02=» J F IDENT DRKB01 REL 10.0 80-03-14 870105041000 $ KBADY EOQUEU DWTINQ DWTUTQ R DWTINQ ( z DWTUTQ * KBADY SAVE8 DWTST , ( X V T
0x3ada5c…3adbf0 Dummy {f00=0x0134, f01=0x018e, f02=» X P Y C , ( q B P T B % X * $ & STREG V , ( 4 T % W X (T ! W Y f ECHON , ( * V ! B _P B P $ , ( $ R % C W Y & , (
0x3adbf0…3add84 Dummy {f00=0x0134, f01=0x0190, f02=» f ECHEND DISEND , ( K C ! 0 , , ( e Z ! B Z ZH X * , ( ,T J W X (P Y * 0 , ( %_. % Y * _d _ P , ( _ ?" 8 T
0x3add84…3adf18 Dummy {f00=0x0134, f01=0x0190, f02=» ! P $ <c ,P $ , X R LDREG , , ( ? ;GV X ( $4 P X *T < EOQUEU x l , ( ] * W Y ( - B 1 " W " { JT , (@ > H D ! * V )W: 9U =P ?R G R U N _P o
0x3adf18…3ae0ac Dummy {f00=0x0134, f01=0x40a4, f02=» GT k j T W P P j T n H D ! W T R Q T R R W W #P /P =R AV OP U x [T * _W wW T v @ W " { JT , (@ > H D ! * V )W: 9U =P ?R G R U N _P o
0x3ae0ac…3ae240 Dummy {f00=0x0134, f01=0x0190, f02=» J F IDENT DRGP01 REL 10.0 80-03-14 870105041000 GPADY ECHOGP R GPADY j , ( !"$&;<>@^_ P | DISIOE OUTPUT , ( ! P B P B L # +P ! , ( ?
0x3ae240…3ae3d4 (5, 20) Dummy {f00=0x013d, f01=0x0190, f02=» Y , ( U P T Y "_. P R P , ( @ O]> V _F T Y Y " V P , ( @D Y _^ C _P " DWTBC * & $ P X " X ]r ! * & Y Y
0x3ae3d4…3ae568 Dummy {f00=0x013d, f01=0x0190, f02=» X C _ X Y ~ , ( G " Y > B B U $ , ( e ! T _ U D ! T _ N LDREG ~ , ( C > X Z^<BR P f ECHOGP , ( X _x R V ! P P , (
0x3ae568…3ae6fc Dummy {f00=0x013d, f01=0x417a, f02=» ^ Y _( X , ( Z ! P P X _ X $ , ( / " ! ! X T $ I " 6 H D ! PB !P8 -P ;P KT _W mW P U P" T P4 H D ! R( Pj V T P - @
0x3ae6fc…3ae890 Dummy {f00=0x013d, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x3ae890…3aea24 Dummy {f00=0x013d, f01=0x0190, f02=» ! B B U , ( $ ! T _ U D ! T . GETCHR ^ , ( _ $$ X" X& X* C p , ( X`" E P 8'0P E , ( T ! T 9 _ ! T @_ ! , ( 5
0x3aea24…3aebb8 Dummy {f00=0x013d, f01=0x018e, f02=» DWTBC , ( X # X ] ! , ( B ! ! ! @ , ( @ B Y " ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! 1P X " C ,T Y TENDI
0x3aebb8…3aed4c Dummy {f00=0x013d, f01=0x0190, f02=» LDREG SAVE8 , ( U Z2<BR > Y $ , ( o D ! T X ! T , ( Y " Zn " T _ ! ECHODY , ( @ @ X $ P ! R V ECHRTN ,
0x3aed4c…3aeee0 Dummy {f00=0x013d, f01=0x0190, f02=» j * & " X "" Y %U W ! ! , ( 3 ! Y 4 B 8 * & @ M U )X R X h , ( k X "" Y & X % V Y , ( ! X $ X " ! X & , ( H
0x3aeee0…3af074 (5, 21) Dummy {f00=0x013d, f01=0x0190, f02=»" X ## R 4 * > H D ! R d )P -P 3 9 CP SP WP. ]T oR| yR & H D ! F : U4 T U T P( P TD T )T GP M Y cP r H D !> gR P : W T P P * P T KQ [R H
0x3af074…3af208 Dummy {f00=0x013d, f01=0x4008, f02=»@
0x3af208…3af39c Dummy {f00=0x013d, f01=0x0190, f02=» J F IDENT DRLT01 REL 10.0 80-03-14 870105041000 D @ CHLT1 CHLT2 CHLT3 CHLT4 OUTLRT CHLTON LOCHANL RECHAN REMFC R DWREMU LOCHANL RECHAN REMFC DWREMU INTLT1
0x3af39c…3af530 Dummy {f00=0x013d, f01=0x0190, f02=» INTSAV , ( A J ;h # <c$ " DWTOTQD F DWTOCH X * & ; P P 4 5 T P ? X U X j OUTLIN DWTST , ( W > P P P P 0 , ( sA X T Y
0x3af530…3af6c4 Dummy {f00=0x013d, f01=0x0190, f02=» P $P > R > 8' T Y DWTADR ( RECADR : DWTSB2 L , ( $ X ' T P X P ^ , ( @@ > Z DWTOR DWTECB * & X "X 8' T 8Z" X '
0x3af6c4…3af858 Dummy {f00=0x013d, f01=0x4176, f02=» , ( s@$ P P _ E W Q Y W IHRET8 4 * & 8 " E 4 % E Y F CHLTON t ( $ B @ P A V H D !@ 5 ;P ?PR IP aPZ ePF iP mP wT Wn 0 Tx Rt WP D H D ! P>
0x3af858…3af9ec Dummy {f00=0x013d, f01=0x0190, f02=» J F IDENT DRTC01 REL 10.0 80-03-14 870105041000 $ IHTCY DWTC01 DWTC02 TCDRON R z DISIOE , ( @ 1"78 &3$ Q P ^ ECBRL , ( / A B X T " T
0x3af9ec…3afb80 Dummy {f00=0x013d, f01=0x0190, f02=» , ( H TCDRON 4 SAVE8 H INIFLG X TDISP j , ( @ z , ( @ 8 P X XZ , ( # Y ) W " P P ,
0x3afb80…3afd14 (5, 22) Dummy {f00=0x013d, f01=0x0190, f02=»ST , ( A C C Y A , ( Y P P )@:b P ) :a P : DWTOR j , ( y :a P X '? R Q )@ z TENDIO DISEND , ( 8 8 A , (
0x3afd14…3afea8 Dummy {f00=0x013d, f01=0x0190, f02=»" :C _L) @ _ P _ Y , ( / ;g# + _ Y _ . , ( M Y _ N ^ PFPOST , ( m " XB_P Y 8 M # @ , ( T C P R A _ A A , (
0x3afea8…3b003c Dummy {f00=0x013d, f01=0x0190, f02=» T M -W ,E A A > > , ( @ >M A _ A > $ , ( # ;I C X "A T , ( * A _@ A A A " A & * t , ( @ _ # X& T X T :EV W X T , ( Y :DV X Q
0x3b003c…3b01d0 Dummy {f00=0x013d, f01=0x0190, f02=»V # P W Y t , ( P X ' P Y _ Y " DWTC02 D DWTC01 . X , ( " l 9 H D ! A %P 3 ; =T ET M QT [ c gP kT y {T H D !
0x3b01d0…3b0364 Dummy {f00=0x013d, f01=0x418a, f02=» 7P P H D ! = [P8 cP mP wP P R Q T P: H D !UN P W ~ T* W ! #P + / A M U X H D ! ] o T P B B P: B Pd Q* T W " " . H D ! gT k mT uV wW
0x3b0364…3b04f8 Dummy {f00=0x013d, f01=0x0190, f02=» J F IDENT DRDU01 REL 10.0 80-03-14 870105041000 , ( DUADR DUONY IHDU1 IHDUY IHDU2 DWDU01 R DUADR DWTOR NVLCHKC , ( Y Y X Q ECBRC
0x3b04f8…3b068c Dummy {f00=0x013d, f01=0x0190, f02=» Y t DISIOE@ , ( P P P P P & ECBCW1 V , ( @@ B ! T h , ( " T Y 9 ! I , ( 7 ! ! 9EV ! H y ! , ( W + X
0x3b068c…3b0820 Dummy {f00=0x013d, f01=0x0190, f02=» Z H ^ H x ECBBA , ( Y B Y H P B ( , ( ;b :b ^ 9 Y X , ( Y R P 9 Y ! W ! H , ( R T ! W ! @W ! U ! , ( + ! _ P Q R !
0x3b0820…3b09b4 (5, 23) Dummy {f00=0x013c, f01=0x0190, f02=» 9 ! @ 9 C B C , ( ! Y ! Y ( , ( @ X ' * C X ! ! X , ( _B 8;e t <BV T ! 9F , ( R ! I W ! H T R W I , ( ! ! 9 R ! 9 R Y
0x3b09b4…3b0b48 Dummy {f00=0x013c, f01=0x018e, f02=» Y ! X ! x , ( ! P Y ! H @ , ( @ X $ P t R :AR P Y ! H , ( t $ <A" :E ! ! H A x , ( Y ! W Y x Y Y ! , ( H y Y ! ! W ! W t , (
0x3b0b48…3b0cdc Dummy {f00=0x013c, f01=0x0190, f02=» f , ( V W X " P X ! , ( ! P Y <W 8 T " T 8 , ( 9_l ! ! ! ! ! P Y h , ( ! 4 X ;F 8 X , ( P ! ! ! ! ! P Y , ( @ 3 X
0x3b0cdc…3b0e70 Dummy {f00=0x013c, f01=0x0190, f02=» ;e :e Q , ( P 9 4 8 H " P # & , ( ;B 4 X " 4 8 X P T V , ( @ X :F Y 4 X P X y , ( Y 4 H ;C+ W W W DWTA4 PFPOST , (
0x3b0e70…3b1004 Dummy {f00=0x013c, f01=0x0190, f02=» j TDISP DUONY f SAVE8 * DWTST : , ( a " $ & Y ( Y J INIFLG z , ( @ y" @ *T Y ! ! T Y VOLCLR , ( @ ! ! T Y ! ! P Y , (
0x3b1004…3b1198 Dummy {f00=0x013c, f01=0x0190, f02=» SETIMP , ( 0P -_ . _ A IHDUY * @ IHDU1 * R IHDU2 * d INTSAV v , ( $ Y ( Y _ A 0 & * & 5 I F 9AZN9a P D ) * & S H X V # T X X
0x3b1198…3b132c Dummy {f00=0x013c, f01=0x0190, f02=» 2 $ ! ! T 9 ! I Y VOLGET & , ( $ ! ! ! T X P 8 , ( ! 4 @ ( TOT @ 0 1T @ 8 h , ( @ # " Q P R , ( H P Q X X X Y DWDU01 B
0x3b132c…3b14c0 Dummy {f00=0x013c, f01=0x0190, f02=»C l , ( < H D ! 0 D Q^ l T8 B T B P P P P N H D !E P T !T - D 3 7 N = A EV8 I M N W ] D e @ iT H D ! m q N } R R
0x3b14c0…3b1654 (5, 24) Dummy {f00=0x0148, f01=0x0190, f02=» SW W ] iT: q n sP uQ p p ~ H D ! H p V T R< N Wr N T Rd : H D !4 W N ! % )R - 1R 5 A E N IW` M UV( [ g @ kT6 H D ! L s w N } N D P
0x3b1654…3b17e8 Dummy {f00=0x0148, f01=0x0190, f02=»R A D E Y j [W c g D k j H D ! V W P @ P W: T T & & H D !3 P v P@ ! ' )P - 5 9 D ;T ? r H D !A AW I M N OP W D YT c g j q sW { Q P N P H
0x3b17e8…3b197c Dummy {f00=0x0148, f01=0x40d4, f02=»P B P V H D ! @ @ P$ @ P B @ # B % l 5 B IP W B YV _T> uW( y j H D ! }R T P T N D Tr B P T2 T( Z P R P ^ ! R ;W @ D YT c g j q sW { Q P N P H
0x3b197c…3b1b10 Dummy {f00=0x0148, f01=0x0190, f02=» J F IDENT DRLP01 REL 10.0 80-03-14 870105041000 & " LPADR ACLPY IHLPY LPONY DWLP01 R LPADR | ACLPY DWTBC , ( T 1 W B DISIOEC , ( B P P
0x3b1b10…3b1ca4 Dummy {f00=0x0148, f01=0x0190, f02=» TDISP DWTA5 , ( } Q 1 Y $ PFPOST T LPONY f SAVE8 x , ( @ r t @ B X _" DWTST IHLPY INTSAV DWTOR , (
0x3b1ca4…3b1e38 Dummy {f00=0x0148, f01=0x4092, f02=» H D ! T WP %PD )P 3V I OT UW _P eP m qT uV W l |@ @ r t @ B X _" DWTST IHLPY INTSAV DWTOR , (
0x3b1e38…3b1fcc Dummy {f00=0x0148, f01=0x0190, f02=» J F IDENT DRFD01 REL 10.0 80-03-14 870105041000 FDADR IHFDY FDONY DWFD01 R FDADR v NVLCHK , ( 9 ! ! T DWTORD DWTOR VOLNAM , ( H
0x3b1fcc…3b2160 Dummy {f00=0x0148, f01=0x0190, f02=» A. p SETIMPT TDISP " , ( m Y W L 2 , ( Y X Y ! X P P b DISIOEL * & P P R P X DISEND ECBRL , (
0x3b2160…3b22f4 (5, 25) Dummy {f00=0x0134, f01=0x018e, f02=» B Y v , ( V Y Y Y X , ( ; !? P P P P F , ( Y ! X P ! ! P @ 9W v , ( y ! ! X P X X ! , ( P P R ! # T X P X , (
0x3b22f4…3b2488 Dummy {f00=0x0134, f01=0x0190, f02=» f , ( ( ! ! 9 X Y DWTSB2 8 , ( 3 9 ! _ # 4 ! J , ( Q P C ! ! ! (@ ! z , ( q R _ ! 1 ;h 1 ! , ( 1 ! * ! ! ! ) ! # ,
0x3b2488…3b261c Dummy {f00=0x0134, f01=0x0190, f02=» C j , ( Q V ! ! B , ( ' ! ! W W ! C : , ( E Q (Q ! ! ! P @ j ECBEL , ( e D 9 ! T ) C W , ( ! ( - ! ) W W Y
0x3b261c…3b27b0 Dummy {f00=0x0134, f01=0x0190, f02=» DWTST , ( H Y W 8 Y FDONY > SAVE8 P DWTA2 ` , ( H "_ $ Y " Y & X p , ( P y _, _< , ( / Y Y Y L Y VOLCL
0x3b27b0…3b2944 Dummy {f00=0x0134, f01=0x0190, f02=» 0 Y r , ( 1 0B. X P Y : ! ! , ( X # P Y :A , X A Y B DWTECB r , ( "@ @ B. Y & * Y X , ( Y C '? 8 X & IHFDY INTSAVN , (
0x3b2944…3b2ad8 Dummy {f00=0x0134, f01=0x0190, f02=» h , ( e * X :AZn X P Y , ( ! P + 7P $ P + 8 , ( < $ <C ! 9 9 4 X h , ( 9C X : X X 4 B :C , ( @ B 4 $ ! # T @ , ( TOT @
0x3b2ad8…3b2c6c Dummy {f00=0x0134, f01=0x0190, f02=» 4 j TASCII , ( [ (@ 0! D 0 1 Y W (@ 0 TEBCDIR L , ( y ! D 2 ] Y 4 ! ^ , ( ;E :B 9A ! U P , ( jW kQ 4 9 6 , ( 0" Z Y P
0x3b2c6c…3b2e00 Dummy {f00=0x0134, f01=0x0190, f02=» 4 ! 8 ) 4 ~ DWFD01 N , ( O , , ( o , ( , ( H D
0x3b2e00…3b2f94 (5, 26) Dummy {f00=0x014b, f01=0x0190, f02=» !V - T H D ! f 1 5 AP6 EP IP. MP [ _ aP g p k qP wW { H D ! P Z P P T Pt Pf D Rh Qd H D ! N V D x F X F p F h F ` H D ! F ) - L 1
0x3b2f94…3b3128 Dummy {f00=0x014b, f01=0x0190, f02=» Tx Qh V ) Z + p / 8 1W8 7W 9 h = 8 GQ2 KQ Q H D ! @ W p [ aP i . oTz yWp X 8 p 8 WT W V R T D H H D ! T: S: W4 T$ U W N H P H H D !D H ' , 1 H ; B I M WP _W c
0x3b3128…3b32bc Dummy {f00=0x014b, f01=0x40d2, f02=» P N T` n T p T x H D !) J N W( ! N - 1 J = Z A R G B IT oW M N 4 8 4 @ U P W Q P R x ! 8 + N / ` 3 8 @ P H H D !D H ' , 1 H ; B I M WP _W c
0x3b32bc…3b3450 Dummy {f00=0x014b, f01=0x0190, f02=» J F IDENT EBCDIC REL 10.0 80-03-14 870105041000 TASCIIK TEBCDI R TASCIIK l , ( , ( ! , ( A ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^
0x3b3450…3b35e4 Dummy {f00=0x014b, f01=0x416e, f02=»89:#@'=" p , ( ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^ TEBCDI @ , ( -/STUVWXYZ|,%_>?0123456789:#@'= T , ( 7- <=2&p ?' , ( ! @O {[lP}M] Nk`Ka z^L~no , ( A | J
0x3b35e4…3b3778 Dummy {f00=0x014b, f01=0x0190, f02=» J F IDENT DRKB03 REL 10.0 80-03-14 870105041000 KBAD3 R KBAD3 b SAVE8 t DWTST , ( X V TDISP LDREGE , ( I Y ! W Y
0x3b3778…3b390c Dummy {f00=0x014b, f01=0x0190, f02=» R Q W v , ( B Y <D X ? ?: T p , ( > > P P C F , ( B T B % X * v STREG , ( $ 4 T % X (T ! W ECHON * & @ Y *
0x3b390c…3b3aa0 Dummy {f00=0x014b, f01=0x0190, f02=» Y $P Y %P R _Q , ( P OR R W " ! B r $ , ( W W 0 Z ! B T , ( Z Z& X * ,T J W , ( X (P Y * 0 %_. % Y * W ECHEND , ( _p P
0x3b3aa0…3b3c34 (5, 27) Dummy {f00=0x014c, f01=0x0190, f02=» P X x DWTA3 DWTSB2 ( , ( S @ R ;GV X r X ( : * & m $4 P X *T * W Y ( - j , ( ? X :a Z T T W , ( @ P X :d Y > > | , ( V ? 8
0x3b3c34…3b3dc8 Dummy {f00=0x014c, f01=0x0190, f02=» > >_ P > _v B 1 C > JT , _ ( H D ! * & V )W< 9U =R AP I W aP kP qWT yPP R Q J H D !&J W T 4 Pb P T T T W D V 4 !P H D ! 1P$ =R M 4 UW ]PH cP> iP oP s
0x3b3dc8…3b3f5c Dummy {f00=0x014c, f01=0x4074, f02=»T W T T W P Vd R R6 V W2 RB z $ P R P W. P +P MT 6 T ^@ p aP kP qWT yPP R Q J H D !&J W T 4 Pb P T T T W D V 4 !P H D ! 1P$ =R M 4 UW ]PH cP> iP oP s
0x3b3f5c…3b40f0 Dummy {f00=0x014c, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x3b40f0…3b4284 Dummy {f00=0x014c, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x3b4284…3b4418 Dummy {f00=0x014c, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x3b4418…3b45ac Dummy {f00=0x014c, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x3b45ac…3b4740 Dummy {f00=0x014c, f01=0x0190, f02=» $P n TTB:SA , ( @ $ ) U @ C W IHRTN P , ( ; 0P P T C ` , ( Y T V Y 8 P q 0 ) , ( y W X P 8 T B R P A GETBLKS SET
0x3b4740…3b48d4 (5, 28) Dummy {f00=0x014c, f01=0x0190, f02=» LKMQDI , ( 4 Y C C QUEDEV J QUEFIL ^ TTB:STM r , ( 8W T 8P Y ^ TDISP FNDDWT |TIO TIO:FM $ , ( 5
0x3b48d4…3b4a68 Dummy {f00=0x014c, f01=0x0190, f02=» P R T X "P P H , ( T _ X I Y # C * , ( C # P Y '? Y Y Z , ( @T # P W Y (@ DC:MIN@ SAVE8 , ( 2 @ _ > (@ X L U
0x3b4a68…3b4bfc Dummy {f00=0x014c, f01=0x0190, f02=» TENDIO Z , ( ? P ( ) 1 _( , ( [@ (@ X P 0P X H , ( y T 4 Y X 1 1 X x , ( P - M X P P # P ACTOTPO , ( @$ 0P 1 _
0x3b4bfc…3b4d90 Dummy {f00=0x014c, f01=0x40c0, f02=»T$ P T P W P P ' MP WT gP. oT& uP }P T H D ! @ P T P W U0 QL T R !R 3 Z AP kP sP yT P> P. B P& P P W @ P # P ACTOTPO , ( @$ 0P 1 _
0x3b4d90…3b4f24 Dummy {f00=0x014c, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x3b4f24…3b50b8 Dummy {f00=0x014c, f01=0x4112, f02=» , ( 9 " _ , ( Q ^ 4 _ 8 TIMQUEA h IHRET8A z , ( o @ 1 A _ P 9 ( $ ~ T J : - 4 1 J 3 > P
0x3b50b8…3b524c Dummy {f00=0x014c, f01=0x0190, f02=» J F IDENT TABORT REL 10.0 80-03-14 870105041000 TABORTK R TABORTK d FNDDWT x DWTTAB DWTST , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x3b524c…3b53e0 Dummy {f00=0x014c, f01=0x40a8, f02=» X H x LKMQDI LKMRQE * & " I P @ < ( $ RT PL TF R@ V )P 7P IP f @ , ( "R P X T X R ? DWTECH DWTADR ABTAD
0x3b53e0…3b5574 (5, 29) Dummy {f00=0x014d, f01=0x0190, f02=» J F IDENT MONTIM REL 10.0 80-03-14 870105041000 GETTIMK SETTIM R GETTIMK l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x3b5574…3b5708 Dummy {f00=0x014d, f01=0x4076, f02=»R _ 00 > & <h$ P > ( r %P O SP wR P < `@ r l MONCLO , ( @ < ? < ? <(@ C TTB:SA LKMQDI * & # P >_ < U
0x3b5708…3b589c Dummy {f00=0x014d, f01=0x018e, f02=» J F IDENT TOSSFM REL 10.0 80-03-14 870105041000 TOSSFMK FCHECK FCHEC2 R TOSSFMK t , ( " 2 P P P P P P FM:ADM TTABFM ACTDIS , ( ! T
0x3b589c…3b5a30 Dummy {f00=0x014d, f01=0x0190, f02=» EWTEXL , ( U T L L R Q EWTEXB J , ( o U V , , " _L , ECBRL * & S V :a B EWTVOL FNDDWD , ( # S S
0x3b5a30…3b5bc4 Dummy {f00=0x014d, f01=0x0190, f02=» FCHEC2 , ( _L _< _< " SCTNOF H SCTFWT Z , ( " P @ Q " , Y ," l FWTTAB| FWTPARL , ( P L $P T L &R :AV ' > / _ H D
0x3b5bc4…3b5d58 Dummy {f00=0x014d, f01=0x4016, f02=» 6 @ ( _L _< _< " SCTNOF H SCTFWT Z , ( " P @ Q " , Y ," l FWTTAB| FWTPARL , ( P L $P T L &R :AV ' > / _ H D
0x3b5d58…3b5eec Dummy {f00=0x014d, f01=0x0190, f02=» J F IDENT TIODM REL 10.0 80-03-14 870105041000 D @ TIODM FDBECB FDBSNR FDBRRO FDBRLE FDBBLF FDBTNR FDBLRNC R D @ FDBNIF FDBEAL FDBCRL FDBKA FDBMIA FDBADF@ FDBAI1 CRNTID F B CRNCDF CRNSTA FDBBLZ FDBDMI FDB
0x3b5eec…3b6080 Dummy {f00=0x014d, f01=0x0190, f02=»R PROERR REQERR LGTERR EOFERRS EDMERR0 z EOMERR 2 PROTY @ F NODERR X KEYERR l PROERR REQERR REQER2( LGTERR EDMERR0 EOFERRS RETRIEW
0x3b6080…3b6214 (5, 30) Dummy {f00=0x014d, f01=0x0190, f02=»1 6 , ( ! !" , ( A < , ( a l FDBECB * FDBSNR 8 FDBRRO < FDBRLE > FDBBLF @ FDBTN
0x3b6214…3b63a8 Dummy {f00=0x014d, f01=0x0190, f02=»ADF@ N FDBAI1 P FDBDBR: X " FDBDMI Y 6 FDBMRO Z J FDBBLZ ^ FDBMEC ^ r FDBKEY ^ CRNTID CRNSTA CRNCDF TIODM ECBCW * & 6
0x3b63a8…3b653c Dummy {f00=0x014d, f01=0x0190, f02=» _ Y A X T X % T U , ( $P ^ =A Y 6T * CRNGETG Z , ( P H I T l , ( I $ C C T , ( / X?j ?j W _l X X , ( O # Xt
0x3b653c…3b66d0 Dummy {f00=0x014d, f01=0x0190, f02=»PB:FR ECBRL , ( 6P I , ( @ B Y < H H C N FNDFDB ~ , ( C _ X "" * & 6 Q X C X DT T W Y , ( H H S W
0x3b66d0…3b6864 Dummy {f00=0x014d, f01=0x0190, f02=» C W B B ~ EATEST CALSNOR . , ( X N R T @ FNDTID p , ( #D X ! V X Y TTB:SA FWTVOL DFTAB DMTIDSC , ( P H
0x3b6864…3b69f8 Dummy {f00=0x014d, f01=0x0190, f02=» ACTOT TDISP RELPROV , ( $ $ & A ( X 0 DISENDJ ` N * r H D ! & & J J J v v f H D ! . ! # ? P T T P T P %
0x3b69f8…3b6b8c Dummy {f00=0x014d, f01=0x403e, f02=» W Rd Tf V( P$ P$ P T p (@ : $ & A ( X 0 DISENDJ ` N * r H D ! & & J J J v v f H D ! . ! # ? P T T P T P %
0x3b6b8c…3b6d20 Dummy {f00=0x014d, f01=0x0190, f02=» J F IDENT DMTASK REL 10.0 80-05-28 870105041000 . * DMTASKK DMTERX QOPEN QRFP dQCL RECBFZ R RECBFZ QOPEN DMOPEN tQCL DMCLOS , (
0x3b6d20…3b6eb4 (5, 31) Dummy {f00=0x014f, f01=0x0190, f02=» (@ X R X z FDBKA DWTOR * DWTECBj : ECBCW L * & 7 Q D '? T F FDBLRN EOFERR * & M F E R Q D U FDBDBRD FDBECBL GTBKB
0x3b6eb4…3b7048 Dummy {f00=0x014f, f01=0x0190, f02=» DMTIOT , ( L " C ( $ DMTRBU F ECBBA X , ( & _z ( $ B h BUFSTA , ( $ (W Y * C ( FDBRLE , ( A X '? X X
0x3b7048…3b71dc Dummy {f00=0x014f, f01=0x0190, f02=» DMTREMM , ( P F 2 X ,U X , G 4 , ( /B 6 F S W G B EATEST r , ( ID G F F 8 CALSNO , ( a : X # T * & }I B (
0x3b71dc…3b7370 Dummy {f00=0x014f, f01=0x0190, f02=» FDBTNR0 RELPROE , ( B R W 0W > ( PROERR X , ( HH @ B X , X j DMTBM , ( A F ( $ P DW $ P $ - DMTWM , ( F + X R
0x3b7370…3b7504 Dummy {f00=0x014f, f01=0x0190, f02=»RNCDFI , ( i P T V K J K * & JW K J K J D $ P > EASETB l , ( H 8 T LW E E _ ~ DMTERX * & BH X # T B ( * & X TENDIO
0x3b7504…3b7698 Dummy {f00=0x014f, f01=0x40f6, f02=» T> W T P T0 T( W" p H D ! P %U 5 D =S ?W _ q {T P P T W4 P P R , H D ! " W W P W P )R 9Tz ;W _P2 eP, kP< qT yV W x P T W T @
0x3b7698…3b782c Dummy {f00=0x014f, f01=0x40ec, f02=» J F IDENT DMINIT REL 10.0 80-03-14 870105041000 DMINITK DMI010 R DMINITK l INIFLG DMI020 DMI010 H @ > @ NIFLG P EXTRN DMI020
0x3b782c…3b79c0 Dummy {f00=0x014f, f01=0x0190, f02=» J F IDENT DMOPCL REL 10.0 80-03-14 870105041000 DMOPENK DMCLOS DMRFP R , ( I1M1I2M2I3M3I4M4 r , ( ! , ( A a
0x3b79c0…3b7b54 (5, 32) Dummy {f00=0x0150, f01=0x0190, f02=»MOPENK DWTOPT , ( @ @ L <a Q _ h J " , ( " T # T W 0T # P P R I R DWTECBV ECBBA DMTBM FPB:BO , ( 9 _ J L u FDBECB , (
0x3b7b54…3b7ce8 Dummy {f00=0x0150, f01=0x0190, f02=»MTIOTC , ( T ( T 9a " E & REQERRC > , ( @ P _ W P CRNGET CRNSTA9 , ( @& P & I - ECBRC , ( G W _*
0x3b7ce8…3b7e7c Dummy {f00=0x0150, f01=0x0190, f02=» * & / ^ S G " F $ P J FDBDBR 6 , ( I # " N &# N @ H FDBMEC x , ( c ` ~ @ ^R O & ( FPB:RL , ( R ] _ @ ^ O & F FDBRLEV
0x3b7e7c…3b8010 Dummy {f00=0x0150, f01=0x0190, f02=» * & I F 2 O 4 F 2 O 4 V , O FPB:KA 6 FDBKA H , ( $ 6P F 8 V J O : F ;F X FDBBLZ FWTVOLD * & @ J $ $ P O <;H O & N DFTAB DMTIDP FDBDMI
0x3b8010…3b81a4 Dummy {f00=0x0150, f01=0x0190, f02=» BLKMXL , ( # D , :h! P O <:G J , ( = " W N " P B , ( YD G " G " @ G N &:n G r FPB:S1 DIVMODI * & s V L V L N <& , ( $ N N
0x3b81a4…3b8338 Dummy {f00=0x0150, f01=0x0190, f02=» R P t FPB:FNN DMTBMRS & , ( " T V L 8 * & @$ " T R T "X " h DMTWM DWTTABV * & X_ j " A J FNDFDBT FDBCRL ,
0x3b8338…3b84cc Dummy {f00=0x0150, f01=0x0190, f02=» L P B U B | DMTERXM DMCLOS . , ( oH M R L B b D B DMTRBU r , ( " &V ( d CRNCDF ECBFC , ( $ I I f I f F h R * &
0x3b84cc…3b8660 Dummy {f00=0x0150, f01=0x0190, f02=»<B 6 8_H A J j" , ( H l b V b $ , ( @ # B R " P J Z P T EARELBE FWTPAR , ( = Q ?A "P n(@ N FDBEALR TASHLTE , ( [ H p
0x3b8660…3b87f4 (5, 33) Dummy {f00=0x014e, f01=0x4154, f02=»BUF , ( " 2 R ' P C h v " ( G < H D ! Rl P T !T #W 'T +P /P 5R T T$ PJ W P W b H D !$ T #W 1 B EP2 kR w B R P P P -P K N MW UP U TZ @ < R ;P g
0x3b87f4…3b8988 Dummy {f00=0x014e, f01=0x0190, f02=» J F IDENT DMBUF REL 10.0 80-03-14 870105041000 D @ CURBUFK BUFLNK BUFDMI BUFSNR BUFOR BUFSTA DMTGBU DMTRBUC R BLKMXL CLRBUF DMI020 BLKMXL CURBUFK BUFLNK BUFDMI
0x3b8988…3b8b1c Dummy {f00=0x014e, f01=0x0190, f02=» ~ DMTGBU " , ( # @ , L T L P ?A M , ( C L T L T M W L T L , ( c L T M M L Q L A @ | HALTN , ( Z @ P % P % T W [ , ( [ M M M M
0x3b8b1c…3b8cb0 Dummy {f00=0x014e, f01=0x0190, f02=» DMI020 SCTFWT FDBSTA & CRNQUE@ 8 CRBUFL J CRNEND , ( I$ @ A A n , ( % @ , - M M M DMI010 , ( C M @ =a 9a Q
0x3b8cb0…3b8e44 Dummy {f00=0x014e, f01=0x401a, f02=» @ FWT FDBSTA & CRNQUE@ 8 CRBUFL J CRNEND , ( I$ @ A A n , ( % @ , - M M M DMI010 , ( C M @ =a 9a Q
0x3b8e44…3b8fd8 Dummy {f00=0x014e, f01=0x411e, f02=» J F IDENT DMFDB REL 10.0 80-03-14 870105041000 $ CRNQUEK CRBUFL CRNEND MXIND R CRBUFL z CRNQUEK CRNEND MXIND @ $
0x3b8fd8…3b916c Dummy {f00=0x014e, f01=0x4106, f02=» J F IDENT DFTAB REL 10.0 80-03-14 870105041000 $ DFTAB DFTABE DMTIDP DMTIDS R DFTAB z DFTABE DMTIDP DMTIDS $ @ E
0x3b916c…3b9300 Dummy {f00=0x014e, f01=0x0190, f02=» J F IDENT DMSUBX REL 10.0 80-03-14 870105041000 > : FNDKMXK CHKKEY RDNXTR FNDKEY CRNUPD GTLGRN CRNCIFL R CRNCIFL FNDKMXK MPYMOD * & 4U :! 4 U , (
0x3b9300…3b9494 (5, 34) Dummy {f00=0x014e, f01=0x0190, f02=» , )Q p RDNXTR , ( } R V _ W W : T $ GTBKBU# T DMTIOZ f * & ; [ V ( x FDBRRO , ( T E W D V ; FDBMRO FDBRLE
0x3b9494…3b9628 Dummy {f00=0x014e, f01=0x0190, f02=» DMTRBUT , ( E E W _| , ( # P [ Z : B FNDKEY B r FDBMIA CALSNOH , ( A : D ; Z BUFSTA , ( @ ] T
0x3b9628…3b97bc Dummy {f00=0x014e, f01=0x0190, f02=» EOFRC , ( D W Z r Q R W NOKEY > , ( K ]f J _l W W N CRNUPD ~ FDBADF FDBCRL , ( : : "W FWTFNR , ( P T $
0x3b97bc…3b9950 Dummy {f00=0x014e, f01=0x018e, f02=» S _P (@ : T ~ DSUMOD DIVMOD 0 , ( a T ( T B FDBBLF r , ( y $ * T , T , ( T ^ S W : H D ! UP U 3
0x3b9950…3b9ae4 Dummy {f00=0x014e, f01=0x404e, f02=» 0 , W W W W PL R #Q 3R S W 8@ J T ( T B FDBBLF r , ( y $ * T , T , ( T ^ S W : H D ! UP U 3
0x3b9ae4…3b9c78 Dummy {f00=0x014e, f01=0x4138, f02=» J F IDENT ADDMOD REL 10.0 80-03-14 870105041000 ADDMODK R ADDMODK d , ( S Q R S P W x , ( ! S _ R Q _ ;A A [ [ : , ( S Q" R S
0x3b9c78…3b9e0c Dummy {f00=0x014e, f01=0x414c, f02=» J F IDENT DSUMOD REL 10.0 80-03-14 870105041000 DSUMODK R DSUMODK d , ( Q S W S Q x , ( ! R S P W S _ R _ " A ;A [ [ : 4 0 Q
0x3b9e0c…3b9fa0 Dummy {f00=0x014e, f01=0x4188, f02=» J F IDENT MPYMOD REL 10.0 80-03-14 870105041000 MPYMODK R MPYMODK d , ( T P P V x , ( ! P V S ? V :!9 V , ( A @ P R W * &
0x3b9fa0…3ba134 (5, 35) Dummy {f00=0x0151, f01=0x0190, f02=» J F IDENT DIVMOD REL 10.0 80-03-14 870105041000 DIVMODK R DIVMODK d , ( P T P V x , ( ! Q U V U Q P , ( A P 9A?A:AV R Z _ , (
0x3ba134…3ba2c8 Dummy {f00=0x0151, 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 _ , (
0x3ba2c8…3ba45c Dummy {f00=0x0151, f01=0x0190, f02=» J F IDENT DMSUBR REL 10.0 80-03-14 870105041000 J F " DMTENDK RELPRO DMTWM DMTBM DMTBMR FNDFDB GETA14@ DMTREM EATESTC R F B EASETB EARELBN CRNGET CALSNO GTBKBU@ DMTIOT DMTIOZ MOV:US MOV:SU MOVZUS MOVZSUL
0x3ba45c…3ba5f0 Dummy {f00=0x0151, f01=0x0190, f02=»2E SCTTCTV , ( B $ : ' P W @ TTB:SA L QTJOB ^ , ( 9 D P _ U n TDISP DMTWM f , ( WH R $ - DMTBM ~ DMT
0x3ba5f0…3ba784 Dummy {f00=0x0151, f01=0x0190, f02=» l SCTCDT , ( 0 W T ` U @ DMTREM N FDBRRO b ECBBA t , ( B , @ W : X F , ( $ P ~W $ P $ - f GETA14@ PRUN
0x3ba784…3ba918 Dummy {f00=0x0151, f01=0x018e, f02=»P W p EASETB > GETBLK: $ , ( ; $ : X X 1 6 EARELBN f , ( UA Y (@ : 4W 0P R z , ( q Q P W R T D Q FREQUE CRNGET FDBCR
0x3ba918…3baaac Dummy {f00=0x0151, f01=0x0190, f02=» f HALTN CRBUFL , ( H &T ( ( A & * U * * & 1_ D I $ D " ) E Z CALSNO FDBBLF DIVMOD2 , ( "(@ : T , .S P MPYMOD , (
0x3baaac…3bac40 Dummy {f00=0x0151, f01=0x0190, f02=» DMTIOT Z FDBECB * & E 4 _ 6W U : . DMTIOZ ` ECBCW p DWTECB , ( ] $ 8 D 2 C : D 2 C : ECBRC RETRIEN , ( sH < B >P T @ G
0x3bac40…3badd4 (5, 36) Dummy {f00=0x016c, f01=0x0190, f02=» FWTFNR * & H HT _$ : X J X 2 X ECBRL H DMTGBUN X * & 2 <! # X =H C L j , ( D NW C : C : B C MOV:US MOV:SU MOVZSUL M
0x3badd4…3baf68 Dummy {f00=0x016c, f01=0x40cc, f02=»P R U W T U W P W n H D ! P W P 3P 9W eW kP< oR }W R T W P W6 T U * < 8 SB P W U0 )S +W AP OW {P. T W T W v @ OV:US MOV:SU MOVZSUL M
0x3baf68…3bb0fc Dummy {f00=0x016c, f01=0x0190, f02=» J F IDENT FMTASK REL 10.0 80-03-15 870105041000 F B FMRDWRK FM:ADM FMINIT TTABFM FWTPAR FWTFNR FWTTABL FWTEW1 R F B FWTEXB FWTVOL EWTEXL EWTEXB EWTVOL FPB:RLL FPB:BF0 FPB:FO F B FPB:BO FPB:FN FPB:EL FPB:V1B
0x3bb0fc…3bb290 Dummy {f00=0x016c, f01=0x0190, f02=»:CD FPB:RP z FWTPAR FWTFNR ( FWTTABL < FWTEW1 P FWTVOL d FWTEXB x EWTEXL EWTVOL EWTEXB FPB:RLL FPB:BF0 FPB:FO F
0x3bb290…3bb424 Dummy {f00=0x016c, f01=0x0190, f02=» FPB:V3 & FPB:S3 , FPB:V4 0 ( FPB:S4 6 < FPB:FR : P FPB:US > d FPB:SHL @ x FPB:MN A FPB:SNI B FPB:IF C FPB:KAV D FPB:CD F FPB:RP L T
0x3bb424…3bb5b8 Dummy {f00=0x016c, f01=0x0190, f02=»T SCTNOF TIODM , ( I > A H @ @ , SCTFWL , ( c @ R P % % @ n DWTST DWTADRI SCTDMT * & I I I I _4 @ NVLDM
0x3bb5b8…3bb74c Dummy {f00=0x016c, f01=0x0190, f02=» ,P :A x NVLBITS A > * FM:ADM J F ECBBA Z , ( K F ' j , ( i ! A P P 8! , ( P K @P X T X !? ? , ( W
0x3bb74c…3bb8e0 Dummy {f00=0x016c, f01=0x0190, f02=»(@ I V V ~ , ( " LP V : V V P GETBLK N , ( % W Y Y " V V ` , ( C T Y Y P _t , ( a (@ - $T 1 %_" Y (_ , ( @ @ 0P
0x3bb8e0…3bba74 (5, 37) Dummy {f00=0x0155, f01=0x0190, f02=» Y 9 @ J ! T " Y X G ECBRC . , ( " ! P C $ > , ( P J : J < W W P X V n , ( ; C $W X ! "? K >Q , ( Y @ 9 W Y B $W _.! * ( w T
0x3bba74…3bbc08 Dummy {f00=0x0155, f01=0x018e, f02=» V & K D X P K @ X 9AV K , ( 9 !? K > F " G , , ( R N ! , ( 7 N P N & N T S QMEXIT * & W _ _& - M L G $ ECBCW2
0x3bbc08…3bbd9c Dummy {f00=0x0155, f01=0x0190, f02=» , ( X>_. : X P ,(@ Y Y , ( Y :" (@ X $ T ( 4 DWTVOLR d DFTAB v DFTABE , ( _ ^ . : 0 , ( 2P $ 8X 8 , FCHEC2 ,
0x3bbd9c…3bbf30 Dummy {f00=0x0155, f01=0x0190, f02=» J j , ( w V )$ T B ( * Y $ * & : " $ Y : @ : , ( P 8 T _ " h , ( & Y 4 : : $ FMRDWRK LKMERR - Y : 6
0x3bbf30…3bc0c4 Dummy {f00=0x0155, f01=0x4112, f02=» #P +W CT S H D ! 9 WP( kT P P P, P T W P T l t ( P P* l H D ! G 3P 9V AW E z WQ _ aW mW wT { ( T P V ) d H D ! ( / =P" OT US }W P P T P" 5T G n MP Q T P0 T
0x3bc0c4…3bc258 Dummy {f00=0x0155, f01=0x4152, f02=» J F IDENT DVKB00 REL 10.0 80-03-14 870105041000 DVKB00K R DVKB00K d KBAD3 x CTAB01 ( $ @ KB DVDY00 , ( !@ _^
0x3bc258…3bc3ec Dummy {f00=0x0155, f01=0x40f0, f02=» J F IDENT DVDY00 REL 10.0 80-03-14 870105041000 DVDY00K R DVDY00K d DYADN x & " Y ! P ( ( @ CB DATA 0,0,0,0,0,0
0x3bc3ec…3bc580 Dummy {f00=0x0155, f01=0x413e, f02=» J F IDENT DVKB01 REL 10.0 80-03-14 870105041000 DVKB01K R DVKB01K d KBADN x & " KB DVDY01 , ( !@ ?
0x3bc580…3bc714 (5, 38) Dummy {f00=0x016e, f01=0x40f0, f02=» J F IDENT DVDY01 REL 10.0 80-03-14 870105041000 DVDY01K R DVDY01K d DYADN x & " Y ! P ( ( @ CB DATA 0,0,0,0,0,0
0x3bc714…3bc8a8 Dummy {f00=0x016e, f01=0x40ec, f02=» J F IDENT DVGP02 REL 10.0 80-03-14 870105041000 DVGP02K R DVGP02K d GPADN x & " P ! $ $ @ DATA DEVECB MMU ECB ADD
0x3bc8a8…3bca3c Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT SCLASS REL 10.0 80-03-14 870105041000 SCLASSK R SCLASSK d DWTC01 x DWSI01 DWSO01 , ( $ DWTC02 DWLP01 DWD
0x3bca3c…3bcbd0 Dummy {f00=0x016e, f01=0x4094, f02=» * & KI$ D @ $ * 0 6 < % + 1 7 = " 6 ^ ~@ DWSO01 , ( $ DWTC02 DWLP01 DWD
0x3bcbd0…3bcd64 Dummy {f00=0x016e, f01=0x2008, f02=» L = KMD21 DATE = 80 08 19 1216PACK NBR = 0021
0x3bcd64…3bcef8 Dummy {f00=0x016e, f01=0x417a, f02=» H D ! K S W sQ yP P P R U P P ER, GQ$ _Q { H D ! P R V V R L ! % f P H D !x` )T - x 1 j 9 j ? f mT T V S PJ T@ T: Tr P H D ! P$ T #Tx CQ UTF S W
0x3bcef8…3bd08c Dummy {f00=0x016e, f01=0x0190, f02=» J F IDENT SYSLOD REL 10.0 80-03-15 870105041000 & " SYSLODK SYSBAS NUMSEG PRGLG1 R NUMSEG | PRGLG1 SYSBAS SYSLODK SCTSFA SCTIPL , ( (
0x3bd08c…3bd220 Dummy {f00=0x016e, f01=0x0190, f02=» TABBE , ( 5 A. UU @ @ ! P >B , ( QB@ @ A @ E D D SCTMSZ| t * & k P _ $ % $P _ % A SCTEFA * & H >f A A , ( H
0x3bd220…3bd3b4 (5, 39) Dummy {f00=0x015a, f01=0x018e, f02=»E E x P* F PTRM190 EQU * F ( P LD A6,DCWRQ CHECK APPLICATION QUEUE F ( " P RB(Z) TRM130 NOTHING IN QUEUE F T P EJECT F z P* F P* F P* F " P* HERE TO TRANSMIT AN IFRAME F P* F PTRM300 EQU * F " P SUK A6,DWTWQ GET DWT ADDRESS
0x3bd3b4…3bd548 Dummy {f00=0x015a, f01=0x0190, f02=» F n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH G P ADK A3,1 ADJUST LENGTH G 4 " P ST A6,WRDWT SAVE WRITING DWT G T $ P LDR* A1,A6 GET SUB-TERM ADDRESS G z P ANK A1,/FF G P* G P IFF MMUPAG=0 G * P LDKL A4,MMUBUF GET MMU BUFFER ADDRESS G P LD
0x3bd548…3bd6dc Dummy {f00=0x015a, f01=0x0190, f02=»,A8 G * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER H PTRM320 EQU * H : P XIF H N P* H Z * P LD A7,ECBBA,A8 OUTPUT BUFFER ADDRESS H d ( P ADK A7,1 USE FREE-WORD TO INSERT IT H P SCR A1,A7 H $ P SUK A7,2 INIT OUTPUT ADDRESSING H P ST A7,SWITCH H
0x3bd6dc…3bd870 Dummy {f00=0x015a, f01=0x0190, f02=» H f P CF A5,WRFRAM I > P************** WHEN DONE,UPDATE PROTOCOL COUNTERS ***** I P LD A1,VSCNT UPDATE V(S) I ` P ADK A1,1 I P ANK A1,7 MODULO 7 I P ST A1,VSCNT I " P ST A1,CPCNT UPDATE CHECKPINT I P* I P* DISPATCH I P* I
0x3bd870…3bda04 Dummy {f00=0x015a, f01=0x018e, f02=» LDR* A1,A2 GET COMMAND I P CWK A2,COMQE J $ P RF(NE) TRME10 NOT END OF QUEUE J 6 ( P LDKL A2,COMQ-2 RESET OUTPUT POINTER J ^ PTRME10 EQU * J P ADK A2,2 J P ST A2,QOUT J P ABL TRM J P EJECT J P* J " P* PREPARE C-FIELD FOR I-FRAM
0x3bda04…3bdb98 Dummy {f00=0x015a, f01=0x0190, f02=» J P ORR A1,A2 K P LD A2,VSCNT GET N(S) K P SLL A2,1 K 8 P ORR A1,A2 K J & P STR A1,A4 STORE C-FIELD IN BUFFER K P RTN A5 K P EJECT K P* K P* K , P* QUEUEING FACILITY FOR HDLC TRANSMITTER K 2 P* ON ENTRY A1 CONTAINS REQUESTED
0x3bdb98…3bdd2c Dummy {f00=0x015a, f01=0x0190, f02=»NSMITTER K P* L P CF A15,SETIME L P DATA TRM,1 AFTER 100 MS L 0 P RF QMRTN L P P* L b P* PUT COMMAND ON QUEUE L l P* L PQMTRM10 EQU * L P LD A2,QIN L P CWK A2,COMQE L ( P RF(NE) QMTRM20 STILL SPACE IN QUEUE L " P LDKL A2,C
0x3bdd2c…3bdec0 Dummy {f00=0x015a, f01=0x0190, f02=» PQMRTN EQU * M P IFT CPU852=1 M P ADKL A15,4 M . P ABR* A15 M B P XIF M T P IFT CPU852=0 M ` P RTN A15 M v P XIF M P* M P EJECT M P* M P* RESET PROCEDURE COUNTERS M P* M P* M PRESCON EQU * M P CM VSCNT
0x3bdec0…3be054 (5, 40) Dummy {f00=0x016d, f01=0x0190, f02=»WK A5,8 ALL CHARACTERS CHECKED? P RB(NE) GET:90 NO! ( P* B : P* SWAPPABLE WORK BLOCK FILE FOUND - SAVE DISC ADDRESS L , P* TO FILE AND TO NEXT SECTOR AFTER FILE P* & P IM SCTSWB INDICATE SWB-FILE FOUND & P LD A1,18,A6 GET BIT 16-31
0x3be054…3be1e8 Dummy {f00=0x016d, f01=0x0004, f02=»- -
0x3be1e8…3be37c Dummy {f00=0x016d, f01=0x0190, f02=» J F IDENT DRDY01 REL 10.0 80-03-14 870105041000 DYADY ECHODY R DYADY j OUTPUT | , ( DISIOE * & !@ ! P P & , ( =
0x3be37c…3be510 Dummy {f00=0x016d, f01=0x0190, f02=» ! B B U , ( $ ! T _ U D ! T . GETCHR ^ , ( _ $$ X" X& X* C p , ( X`" E P 8'0P E , ( T ! T 9 _ ! T @_ ! , ( 5
0x3be510…3be6a4 Dummy {f00=0x016d, f01=0x018e, f02=» DWTBC , ( X # X ] ! , ( B ! ! ! @ , ( @ B Y " ! W 8!0T 8 !@ p , ( DP ! $ P ! ! , ( ! 1P X " C ,T Y TENDI
0x3be6a4…3be838 Dummy {f00=0x016d, f01=0x0190, f02=» LDREG SAVE8 , ( U Z2<BR > Y $ , ( o D ! T X ! T , ( Y " Zn " T _ ! ECHODY , ( @ @ X $ P ! R V ECHRTN ,
0x3be838…3be9cc Dummy {f00=0x016d, f01=0x0190, f02=» j * & " X "" Y %U W ! ! , ( 3 ! Y 4 B 8 * & @ M U )X R X h , ( k X "" Y & X % V Y , ( ! X $ X " ! X & , ( H
0x3be9cc…3beb60 Dummy {f00=0x016d, f01=0x0190, f02=»" X ## R 4 * > H D ! R d )P -P 3 9 CP SP WP. ]T oR| yR & H D ! F : U4 T U T P( P TD T )T GP M Y cP r H D !> gR P : W T P P * P T KQ [R H
0x3beb60…3becf4 (5, 41) Dummy {f00=0x0170, f01=0x0190, f02=» LABEL = FIXS3 DATE = 790323 PACK NBR = 001 f =IR E
0x3becf4…3bee88 Dummy {f00=0x0170, f01=0x0006, f02=». . .(
0x3bee88…3bf01c Dummy {f00=0x0170, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x3bf01c…3bf1b0 Dummy {f00=0x0170, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x3bf1b0…3bf344 Dummy {f00=0x0170, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x3bf344…3bf4d8 Dummy {f00=0x0170, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x3bf4d8…3bf66c Dummy {f00=0x0170, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x3bf66c…3bf800 Dummy {f00=0x0170, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x3bf800…3bf994 (5, 42) Dummy {f00=0x0171, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x3bf994…3bfb28 Dummy {f00=0x0171, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x3bfb28…3bfcbc Dummy {f00=0x0171, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x3bfcbc…3bfe50 Dummy {f00=0x0171, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x3bfe50…3bffe4 Dummy {f00=0x0171, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x3bffe4…3c0178 Dummy {f00=0x0171, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x3c0178…3c030c Dummy {f00=0x0171, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x3c030c…3c04a0 Dummy {f00=0x0171, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x3c04a0…3c0634 (5, 43) Dummy {f00=0x0161, f01=0x0190, f02=» * % n * P* * & * P************************************* & : P* & h P* & r PRW:200 EQU * & | P CF A5,IOROUT & P DATA /0048 & P SUK A7,2 NUMBER OF SECTORS & P RF(N) RW:230 1 SECTOR IN IO & $ P RF(NZ
0x3c0634…3c07c8 Dummy {f00=0x0161, f01=0x0190, f02=» XX,XX , & P CF A5,IOROUT ' P DATA /0040 ' , P RF RW:600 ' @ PRW:260 EQU * , XX,XXXXXX, ' R P CF A5,IOROUT ' v P DATA /80C0 ' P* ' P EJECT DRDU01 ' P* ' ( P************************************ ' ( P*
0x3c07c8…3c095c Dummy {f00=0x0161, f01=0x0190, f02=» * ' z ( P************************************ ( P* ( B P* ( L PRW:300 EQU * ( V P SUK A7,3 SECTOR COUNTER ( j 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ( P CF A5,IOROUT ( P DATA /80C0 ( P CF A5,IOROUT ( P DATA /80C
0x3c095c…3c0af0 Dummy {f00=0x0161, f01=0x0190, f02=» * ( z ( P* READ/WRITE ON THE LAST SECTORS * ) ( P* IN IO * ) B ( P* * ) n ( P************************************ ) P* ) P* ) PRW:500 EQU * ) P RF(Z) RW:580 3 SECTORS )
0x3c0af0…3c0c84 Dummy {f00=0x0161, f01=0x018e, f02=»T ) P DATA /0080 * P RF RW:600 * PRW:560 EQU * ,XXXXXX,XX , * 0 P CF A5,IOROUT * T P DATA /80C0 * j P CF A5,IOROUT * ~ P DATA /0040 * P RF RW:600 * PRW:580 EQU * ,XXXXXX,XXXXXX, * P CF A5,IOROUT * P DATA /80C0 * P
0x3c0c84…3c0e18 Dummy {f00=0x0161, f01=0x0190, f02=» * P************************ + P* * + ( P* READ AFTER WRITE * + H P* * + h P************************ + P* + 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO + 8 P* 1ST POS IN DWT=LAST PHYSICAL S
0x3c0e18…3c0fac Dummy {f00=0x0161, f01=0x0190, f02=» & P RF(NZ) RW:700 NOT PHYSICAL WRITE , P LDKL A2,-/100 , . , P LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION , D P RF(Z) RW:645 , XX, , t P RF(P) RW:640 , XXXX, , P ADK A2,/80 , PRW:640 EQU * , P ADK A2,/80 , PRW:645 EQU * , , P ST A2,E
0x3c0fac…3c1140 Dummy {f00=0x0161, f01=0x018e, f02=»ET NUMBER OF PHYSICAL SECTORS , P STR A1,A6 - & P* - 8 P EJECT DRDU01 - B P* - X P* - b PRW:650 EQU * - l P CF A5,IOROUT - P DATA /40C0 - P IMR A6 NEXT PHYSICAL SECTOR - P LDKL A1,PHSECL - " P ADS A1,ECBEL,A8 UPDATE ECBEL -
0x3c1140…3c12d4 (5, 44) Dummy {f00=0x0170, f01=0x0190, f02=» ;e :e Q , ( P 9 4 8 H " P # & , ( ;B 4 X " 4 8 X P T V , ( @ X :F Y 4 X P X y , ( Y 4 H ;C+ W W W DWTA4 PFPOST , (
0x3c12d4…3c1468 Dummy {f00=0x0170, f01=0x0190, f02=» j TDISP DUONY f SAVE8 * DWTST : , ( a " $ & Y ( Y J INIFLG z , ( @ y" @ *T Y ! ! T Y VOLCLR , ( @ ! ! T Y ! ! P Y , (
0x3c1468…3c15fc Dummy {f00=0x0170, f01=0x0190, f02=» SETIMP , ( 0P -_ . _ A IHDUY * @ IHDU1 * R IHDU2 * d INTSAV v , ( $ Y ( Y _ A 0 & * & 5 I F 9AZN9a P D ) * & S H X V # T X X
0x3c15fc…3c1790 Dummy {f00=0x0170, f01=0x0190, f02=» 2 $ ! ! T 9 ! I Y VOLGET & , ( $ ! ! ! T X P 8 , ( ! 4 @ ( TOT @ 0 1T @ 8 h , ( @ # " Q P R , ( H P Q X X X Y DWDU01 B
0x3c1790…3c1924 Dummy {f00=0x0170, f01=0x0190, f02=»C l , ( < H D ! 0 D Q^ l T8 B T B P P P P N H D !E P T !T - D 3 7 N = A EV8 I M N W ] D e @ iT H D ! m q N } R R
0x3c1924…3c1ab8 Dummy {f00=0x0170, f01=0x0190, f02=» SW W ] iT: q n sP uQ p p ~ H D ! H p V T R< N Wr N T Rd : H D !4 W N ! % )R - 1R 5 A E N IW` M UV( [ g @ kT6 H D ! L s w N } N D P
0x3c1ab8…3c1c4c Dummy {f00=0x0170, f01=0x0190, f02=»R A D E Y j [W c g D k j H D ! V W P @ P W: T T & & H D !3 P v P@ ! ' )P - 5 9 D ;T ? r H D !A AW I M N OP W D YT c g j q sW { Q P N P H
0x3c1c4c…3c1de0 Dummy {f00=0x0170, f01=0x40d4, f02=»P B P V H D ! @ @ P$ @ P B @ # B % l 5 B IP W B YV _T> uW( y j H D ! }R T P T N D Tr B P T2 T( Z P R P ^ ! R ;W @ D YT c g j q sW { Q P N P H
0x3c1de0…3c1f74 (5, 45) Dummy {f00=0x0170, f01=0x2008, f02=»
0x3c1f74…3c2108 Dummy {f00=0x0170, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x3c2108…3c229c Dummy {f00=0x0170, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x3c229c…3c2430 Dummy {f00=0x0170, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3c2430…3c25c4 Dummy {f00=0x0170, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3c25c4…3c2758 Dummy {f00=0x0170, 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
0x3c2758…3c28ec Dummy {f00=0x0170, f01=0x0190, f02=»SEGMENT 3 n P* 4 P LDR A2,A8 GET MMU ENTRY 4 & P SLL A2,12 MOVE TO 4 LEFTMOST BITS 4 : , P ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE 4 d P ST A2,SCTLAP SAVE 4 P ADR A2,A4 ADD DISPLACEMENT 4 P ST A2,SAVE08,A13 SAVE 4 , P LDR A2,A8 GET MMU ENTRY
0x3c28ec…3c2a80 Dummy {f00=0x0170, f01=0x0190, f02=» IN SYSTAB 4 ~ P* 5 & P* COMPUTE NUMBER OF PAGE ENTRIES 5 P* 5 F P LDKL A2,16 5 P P SUR A2,A8 5 d P ST A2,SCTNPE 5 v P RF AP:335 5 PAP:330 EQU * 5 P* 5 8 P* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT 5 > P* THE APPLICATI
0x3c2a80…3c2c14 (5, 46) Dummy {f00=0x0166, f01=0x0190, f02=»JECT DRFD01 P* P*************** P* * 8 P* TEST STATUS * P P* * h P*************** P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR
0x3c2c14…3c2da8 Dummy {f00=0x0166, f01=0x0190, f02=» LDKL A2,/7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 . P* B P IFF TOSS+IBM=0 L " P CF A5,VO:NAM GET VOLUME NAME d , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P
0x3c2da8…3c2f3c Dummy {f00=0x0166, f01=0x0190, f02=» * P* ACTIVATION * P* * ( P************** > P* T PFDAD EQU * ACTIVATION ENTRY ^ P IFT MMUPAG=1 P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,D
0x3c2f3c…3c30d0 Dummy {f00=0x0166, f01=0x0190, f02=» P* P IFT OPCLOS=1 P* $ & P* CHECK IF OPEN OR CLOSE ORDER . P* X P LDR A1,A7 ORDER b P SUK A1,/21 z P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********
0x3c30d0…3c3264 Dummy {f00=0x0166, f01=0x0190, f02=»BIT d 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* B " P LDKL A1,/8000 MASK FOR BIT 0 L & P ORS A1,SPDLCI SET OPEN/CLOSE BIT r P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* *
0x3c3264…3c33f8 Dummy {f00=0x0166, f01=0x0190, f02=» b P* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 $ ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT J P* v POPEN10 EQU * 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DR
0x3c33f8…3c358c Dummy {f00=0x0166, f01=0x0190, f02=»A6 SAVE DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME 4 P ABL TDISP EXIT f P* ~ POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE (
0x3c358c…3c3720 Dummy {f00=0x0166, f01=0x0190, f02=» PFD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK 4 P* d P IFT IBM+TOSS=2 n P AN A2,DWTLAB,A6 ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P*
0x3c3720…3c38b4 (5, 47) Dummy {f00=0x0169, f01=0x0190, f02=» ] P***************** ^ P* * ^ " P* BIOSQ * ^ < P* * ^ V P***************** ^ p P* ^ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD U
0x3c38b4…3c3a48 Dummy {f00=0x0169, f01=0x0190, f02=» ^ P IFT IBM=1 _ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ D & P ADR A2,A4 COMPLETE BIO WITH ORDER _ p P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _
0x3c3a48…3c3bdc Dummy {f00=0x0169, f01=0x0190, f02=»GTH _ t P RTN A5 ` P XIF ` P* ` ( P EJECT DRFD01 ` 2 P* ` H P****************** ` R P* VO:NAM * ` l P****************** ` P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P*
0x3c3bdc…3c3d70 Dummy {f00=0x0169, f01=0x018e, f02=»O ` P LDKL A4,BUF READ TO BUFFER a P CF A5,FD:REA a . P ANK A3,/17 FATAL ERROR a D P RF(NZ) VOL:40 a d P IFT IBM=1 a z P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a
0x3c3d70…3c3f04 Dummy {f00=0x0169, f01=0x0190, f02=» a P EJECT DRFD01 b P* b P* b * P IFT TOSS=1 b 4 P LDKL A2,BUF b H P IFT IBM=1 b P RF VOL:20 b n P XIF b P* b P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFE
0x3c3f04…3c4098 Dummy {f00=0x0169, f01=0x0190, f02=»L A1,/400 b , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c B 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c f 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P
0x3c4098…3c422c Dummy {f00=0x0169, f01=0x0190, f02=»US c t * P ORKL A3,/8000 INDICATE NO NEW NVL SET d PVOL:30 EQU * d 8 . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d L P LD A8,DWTECB,A6 d ~ P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d
0x3c422c…3c43c0 Dummy {f00=0x0169, f01=0x0190, f02=» P* ASCII CODE e . P* INPUT STRING ADDRESS IS BUF e $ & P* INPUT: A7 NO OF CHARACTERS e V P* A4 = BUFFER ADDRESS e P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P
0x3c43c0…3c4554 (5, 48) Dummy {f00=0x0172, f01=0x018e, f02=»DER INDEX IN DWTOR RIGHT BYTE P* & P LD A7,DWTOR,A6 ORDER WORD 0 P LDR A5,A7 R & P ANKL A5,/C0C0 SOME BITS FORBIDDEN d P RF(NZ) TIOD19 ERR P LD A5,FDBBLZ,A6 =1 P ANK A5,/FF =1 $ P RF(NZ) TIOD19 COMMIT MISSING =1 & P LDK
0x3c4554…3c46e8 Dummy {f00=0x0172, f01=0x0190, f02=» P RB(NN) TIOD15 >= 0 PTIOD19 EQU * P LDKL A1,REQERR 4 P ABL TIODMX ERR L PTIOD20 EQU * d P SLL A5,1 *2 x & P SC A5,DWTOR+1,A6 SAVE ORDER INDEX P CWK A6,FDBSTA " P RF(NE) TIOD25 NOT SYSTEM FWT P CWK A5,RDSTOF P
0x3c46e8…3c487c Dummy {f00=0x0172, f01=0x0190, f02=» CF A14,CRNGET CURRENCY P LDK A3,0 NEW STATUS P LC A4,CRNSTA,A2 OLD STATUS < P SC A3,CRNSTA,A2 ` ( P ABI TIODMF,A5 BRANCH TO DM FUNCTION x P* " P* A1 = FDB ADDRESS DATA FILE $ P* A2 = CURRENCY BUFFER ADDRESS & P* A4 = OLD
0x3c487c…3c4a10 Dummy {f00=0x0172, f01=0x0190, f02=» USER ORDER WORD P* A8 = USER ECB ADDRESS P EJECT : PRDSTAT EQU * READ STATUS H P SC A4,CRNSTA,A2 STATUS CHAR h P ANK A4,/FF " P ST A4,ECBCW,A8 RETURN STATUS P CM ECBCW+2,A8 P LDK A1,0 RET CODE OK P ABL TIODMX
0x3c4a10…3c4ba4 Dummy {f00=0x0172, f01=0x0190, f02=»DKL A3,/700 P TM A3,A7 ( P RB(NZ) TIOD19 NOT OPTION SEQUENTIAL & P SRL A7,10 INDEX * 2 R P ABL(Z) SEQREA SEQ READ n & P ABL IXRDNX INDEXED SEQ READ NEXT PREADDI EQU * DIRECT READ P SRL A7,10 INDEX * 2 & P ABL(Z) RANREA DIREC
0x3c4ba4…3c4d38 Dummy {f00=0x0172, f01=0x0190, f02=»IXINS EQU * P RB TIOD19 P XIF & P EJECT 2 PWRITE EQU * WRITE ORDERS @ P LC A3,FDBDBR,A6 ` P ANK A3,/3 SHARABILITY x & P RB(Z) TIOD19 ONLY INPUT ACCEPTED P LDKL A4,/100 " P LC A3,FDBNIF,A6 NR OF INDEXES P ANK A3,/FF
0x3c4d38…3c4ecc Dummy {f00=0x0172, f01=0x018e, f02=»ITE t P RB TIOD19 ERR PWRITE2 EQU * INDEXED " P TM A4,A7 > " P ABL(NZ) IXINS INDEXED INSERT P P RB TIOD19 NOT ALLOWED v P EJECT PREWRIT EQU * REWRITE ORDERS P* PDELETE EQU * DELETE ORDERS P* P LC A3,FDBDB
0x3c4ecc…3c5060 Dummy {f00=0x0172, f01=0x0190, f02=» P RF(Z) REW010 NO INDEX P LDK A3,2 " P ADS A3,DWTOR,A6 ORDER INDEX 4 PREW010 EQU * X P LDKL A4,/400 l P TM A4,A7 P RF(NZ) REW020 CURRENT P SRL A7,8 P SUK A7,1 P RB(NZ) TIOD19 ERROR P ABL TIODMB DIRECT
0x3c5060…3c51f4 (5, 49) Dummy {f00=0x0172, f01=0x018e, f02=»R DATA FILE) j P ABL TIODMA P IFT INDXAC=1 ( P EJECT > PSTAIND EQU * START INDEXED L P SRL A7,10 INDEX * 2 n P LD A9,ECBRL,A8 KEY LENGTH P LDK A1,2 P RF STA090 P EJECT $ PIXRARE EQU * INDEXED RANDOM READ P L
0x3c51f4…3c5388 Dummy {f00=0x0172, f01=0x0190, f02=» P LDR A2,A7 P ANKL A2,/FFF9 1-4 INDEXES P RB(NZ) TIOD19 ERROR 8 P ADR A7,A6 BASE IN DATA FDB T $ P LD A2,FDBAI1,A7 INDEX FDB ADDR x P ABL(Z) TIOD19 ERR P LDR A7,A2 P* P* COPY DWT ITEMS P* P LD A1,DWTECB,
0x3c5388…3c551c Dummy {f00=0x0172, f01=0x018e, f02=»DBRLE,A2 P SUK A1,6 KEY LENGTH PIXR050 EQU * , P CM FDBKEY,A2 @ P ADK A2,2 V P SUK A1,2 h P RB(P) IXR050 MORE TO CLEAR z P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P A
0x3c551c…3c56b0 Dummy {f00=0x0172, f01=0x0190, f02=» P* ! P LD A2,FDBRLE,A7 ! P SUK A2,6 MAX KEY LGTH ! & P CWR A2,A9 ! D P RF(NG) IXR070 ! V " P LDR A2,A9 TAKE SMALLEST LGTH ! n PIXR070 EQU * ! P LDR A9,A2 SAVE ! P IFT MMUPAG=0 ! P CF A14,DMTBM FETCH KEY ! P XIF ! P IFT M
0x3c56b0…3c5844 Dummy {f00=0x0172, f01=0x018e, f02=» P IFT INDXAC=1 " P* " 0 P* INCREASE KEY IF 'START GREATER ' IS REQ " $ P* " X P CWK A5,QSTA " b P RF(NE) STA020 NOT START " v P LC A2,DWTOPT,A7 " P ANK A2,/7 OPTION " P SUK A2,1 " P RF(NZ) STA020 NOT GREATER " P LDR A2,A7 "
0x3c5844…3c59d8 Dummy {f00=0x0172, f01=0x018e, f02=» " t P LCR A1,A3 # P ADK A1,1 NEXT HIGHER KEY # P SCR A1,A3 # < P ANK A1,/FF OVERFLOW ? # N P RF(NZ) STA020 NO # l P CWR A2,A3 # P RB(NE) STA010 MORE BYTES # PSTA020 EQU * # P* # P* SWITCH TO INDEX FDB # P* # P LDR A
0x3c59d8…3c5b6c Dummy {f00=0x0172, f01=0x0190, f02=» # r P LDKL A1,EDMERR $ P LDK A4,FCUSED FC USED $ P SC A4,CRNSTA,A2 STATUSA $ > P ABL TIODMX $ ^ POPE050 EQU * $ r P LDK A1,LGTERR $ P LDKL A4,FPB:FR+8 MIN LGTH $ P CW A4,ECBRL,A8 REQ $ P ABL(G) TIODMX ERR $ PTIORRO EQU * $ P
0x3c5b6c…3c5d00 Dummy {f00=0x0172, f01=0x0190, f02=»ERS $ r P LD A3,CRNCDF+2,A2 % $ P LD A2,CRNCDF,A2 CURRENT RECORD % & P ST A2,ECBCW,A8 % N P ST A3,ECBCW+2,A8 % f P RB TIORRO % P EJECT % PCLOSE EQU * CLOSE FILE % P* % ( P* CONNECT FILE CODE TO SYSTEM FWT % P* % $ P LD A1,DWT
0x3c5d00…3c5e94 (5, 50) Dummy {f00=0x0131, f01=0x0190, f02=»BIT x P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB , P XIF Z P* f P IFT ATTDET=1 p P IFT MMUPAG=1 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU L
0x3c5e94…3c6028 Dummy {f00=0x0131, f01=0x0190, f02=»JECT TOSSIO P* P* F N D B L K P* 6 ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH @ P* l P* INPUT: A5 = TTAB ADDRESS v P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELS
0x3c6028…3c61bc Dummy {f00=0x0131, f01=0x018e, f02=»ND:20 END OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND 0 P* P PFND:20 EQU * Z P IFT CPU852=1 n P ABL IHRTN RETURN P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P*
0x3c61bc…3c6350 Dummy {f00=0x0131, f01=0x0190, f02=» P* ATTACH * ! P********** ! P* ! , P* ! 6 * P* THIS MODULE IS CALLED FROM TIO WITH ! @ P* THE FOLLOWING PARAMETERS: ! n P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS !
0x3c6350…3c64e4 Dummy {f00=0x0131, f01=0x0190, f02=»TO DRIVER ADDRESS BLOCK ! P* A13 DWT STATUS " P* " : PATTACH EQU * ENTRY " D P ADK A4,0 SET CR " ^ * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " v P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATT
0x3c64e4…3c6678 Dummy {f00=0x0131, f01=0x0190, f02=» " P IFT ATTDET=1 # P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # 2 P LDR A13,A13 # ` P RF(NN) ATT:50 DEVICE BUSY # t P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB
0x3c6678…3c680c Dummy {f00=0x0131, f01=0x0190, f02=»O # P* $ & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ > P CM* 2,A4 FREE TIMER $ H " P LDR* A3,A4 REMOVE FROM ATT:CH $ d P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P R
0x3c680c…3c69a0 Dummy {f00=0x0131, f01=0x0190, f02=»ACTIVE $ x P* % P* SET TIMER % P* % 0 P IFT MMUPAG=0 % : P LD A1,ECBCW,A8 TIME % P P XIF % l P* % x P EJECT TOSSIO % P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* %
0x3c69a0…3c6b34 (5, 51) Dummy {f00=0x0130, f01=0x0190, f02=» CONTROL WORD 1 " PECBCW2 EQU /0C CONTROL WORD 2 P* > P EJECT TOSSIO H P* ` P* j P IFT MMUPAG=1 t P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES EN
0x3c6b34…3c6cc8 Dummy {f00=0x0130, f01=0x0002, f02=»&
0x3c6cc8…3c6e5c Dummy {f00=0x0130, f01=0x0190, f02=» J F IDENT TIMER REL 10.0 80-03-14 870105041000 TIMER SETIME SETIMP R TIMER r TDISP FNDTIDC LKMRQE , ( $ T GETBLK@ LKMQDI
0x3c6e5c…3c6ff0 Dummy {f00=0x0130, f01=0x4112, f02=» , ( 9 " _ , ( Q ^ 4 _ 8 TIMQUEA h IHRET8A z , ( o @ 1 A _ P 9 ( $ ~ T J : - 4 1 J 3 > P
0x3c6ff0…3c7184 Dummy {f00=0x0130, f01=0x2008, f02=»
0x3c7184…3c7318 Dummy {f00=0x0130, f01=0x0190, f02=»TTDET=1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* P P* T I M O U T Z P* p P* INPUT: A1 = DWT ADDRESS z . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5
0x3c7318…3c74ac Dummy {f00=0x0130, f01=0x0190, f02=»A2,A2 TIMER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS $ P CF A15,FNDBLK D P LDR* A1,A4 Z " P STR A1,A2 REMOVE FROM ATT:CH n P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P*
0x3c74ac…3c7640 Dummy {f00=0x0130, f01=0x0190, f02=» RF(Z) TIM:20 END OF QUEUE P CWR A1,A5 " P RB(NE) TIM:10 NOT FOUND 6 P* V P EJECT TOSSIO ` P* x & P* TTAB FOUND - REMOVE FROM QUEUE P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4
0x3c7640…3c77d4 (5, 52) Dummy {f00=0x0132, f01=0x0190, f02=»ER. U x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V D 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V t F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO
0x3c77d4…3c7968 Dummy {f00=0x0132, f01=0x018e, f02=»E DESTROYED V ~ P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W N $ P LD A3,ECBRL,A8 REQUESTED LENGTH W ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x3c7968…3c7afc Dummy {f00=0x0132, f01=0x018e, f02=» W ~ P* X P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X Z . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X l ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE
0x3c7afc…3c7c90 Dummy {f00=0x0132, f01=0x0190, f02=» X ~ P* Y 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y L PTIPO20 RTN A15 Y V P* Y l 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y v 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER B
0x3c7c90…3c7e24 Dummy {f00=0x0132, f01=0x0190, f02=»FER POINTER Y x ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z @ P EJECT TOSSIO Z J P* Z b P* I O : E R R Z l P* Z , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRAN
0x3c7e24…3c7fb8 Dummy {f00=0x0132, f01=0x0190, f02=»ACKPOINTER Z z P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ 4 P RF(NN) IO:E10 NOT ECHO [ T P LDR A1,A6 SAVE DWT ADDRESS [ t & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ P
0x3c7fb8…3c814c Dummy {f00=0x0132, f01=0x0190, f02=» [ P* P* T I O M X O P* ( " PTIOMXO EQU TIOMXI MUX, OUTPUT 2 P* X P* T I O K B O b P* x * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUT
0x3c814c…3c82e0 Dummy {f00=0x0132, f01=0x0190, f02=»* T E N : D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] Z D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P*
0x3c82e0…3c8474 (5, 53) Dummy {f00=0x0171, f01=0x0190, f02=» ORDER v P EXTRN DWTOPT OPTION BYTE & P EXTRN DWTTAB DM TASK TTAB ADDRESS 0 P EXTRN TTB:ID TASK ID Z P EXTRN MOVZUS,MOVZSU x P EXTRN DMTASK P EXTRN CALSNO P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL
0x3c8474…3c8608 Dummy {f00=0x0171, f01=0x0004, f02=».8.@
0x3c8608…3c879c Dummy {f00=0x0171, f01=0x0190, f02=» J F IDENT TOSSIO REL 10.0 80-04-30 870105041000 J F "dTIO TIO:FM TIOERR TENDIO QUEDEV QUEFIL DC:MIN@ DC:MOT MONMMUC R J F " ECBFC ECBBA ECBRL ECBEL ECBRC ECBCW ECBCW1` ECBCW2 DC:DIX DM:DIX' F B PC:DIXV MX:DIX KB:DIX8
0x3c879c…3c8930 Dummy {f00=0x0171, f01=0x0190, f02=» DWTOR DWTOCHV DWTADR DWTTABR DWTWAT DWTTQ DWTOTQ DWTUEC J F " DWTMECj DWTA2 DWTA3 DWTA4 DWTA5 DWTSB12 DWTSB2 DWTTP DWTECH DWTSQ D DWTORD DWTNVL DWTVOLA DWTCHP DWTST DWTBC DWTECBV DWTOP
0x3c8930…3c8ac4 Dummy {f00=0x0171, f01=0x0190, f02=»C DWTMECj DWTOTQ DWTA2 4 DWTA3 F DWTA4 X DWTA5 j DWTSB12 | DWTSB2 DWTTP DWTORD DWTNVL " DWTECH " DWTVOLA *
0x3c8ac4…3c8c58 Dummy {f00=0x0171, f01=0x0190, f02=» RECADRV ECHADR DC:DIX ( DM:DIX' < PC:DIXV P MX:DIX d KB:DIX8 x IT:DIXT DK:DIXN ECBFC ECBBA ECBRL ECBEL ECBRC
0x3c8c58…3c8dec Dummy {f00=0x0171, f01=0x0190, f02=» $P n TTB:SA , ( @ $ ) U @ C W IHRTN P , ( ; 0P P T C ` , ( Y T V Y 8 P q 0 ) , ( y W X P 8 T B R P A GETBLKS SET
0x3c8dec…3c8f80 Dummy {f00=0x0171, f01=0x0190, f02=» LKMQDI , ( 4 Y C C QUEDEV J QUEFIL ^ TTB:STM r , ( 8W T 8P Y ^ TDISP FNDDWT |TIO TIO:FM $ , ( 5
0x3c8f80…3c9114 (5, 54) Dummy {f00=0x0174, f01=0x0190, f02=» = Z D P LDK A5,8 SET DEFAULT # SECTORS/GRANULE > * P ST A5,DADSPG,A9 (&) > P B P CM DADSTA,A9 CLEAR STATUS (NOT USED YET) > ~ > P* (&) AND DAD-NUMBER (=0) > 2 P
0x3c9114…3c92a8 Dummy {f00=0x0174, f01=0x0006, f02=». . .
0x3c92a8…3c943c Dummy {f00=0x0174, f01=0x0190, f02=» 2 P IDENT TMMLKM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* TMMLKM = TOSS MMU LKM PROCESSORS P* P*
0x3c943c…3c95d0 Dummy {f00=0x0174, f01=0x0190, f02=»WING n P* TOSS MMU LKM PROCESSORS: P* 0 " P* - TCHPAG = CHANGE MMU PAGE : P* ` $ P* - TCHMMU = CHANGE MMU TABLE j P* & P* - TLUSEG = LOCK/UNLOCK SEGMENT P* P* P EJECT TMMLKM P* P* P**
0x3c95d0…3c9764 Dummy {f00=0x0174, f01=0x0190, f02=» MMU TABLE | & P ENTRY TLUSEG LOCK/UNLOCK SEGMENT P EJECT TMMLKM < P* T P* ^ P************* h P* EXTERNALS * ~ P************* P* P* 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID P EXTRN RELPAG RELEASE
0x3c9764…3c98f8 Dummy {f00=0x0174, f01=0x0190, f02=» IN TTAB l ( P EXTRN TTB:SP SEGMENT TABLE ADDRESS $ P EXTRN SEG:NS NUMBER OF SEGMENTS < P EJECT TMMLKM d P* | P* P********** P* TCHPAG * P********** P* P* 2 P* THIS IS THE CHANGE MMU PAGE LKM PROCESSOR.
0x3c98f8…3c9a8c Dummy {f00=0x0174, f01=0x0190, f02=» AT A TIME. ` P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WITH THE FOLLOWING PARAMETERS: L P* v P* A5 = TTAB ADDRESS ( P* A7 = PAGE TO BE CHANGED, 0 - 15 * P* A8 = NEW LOCATION OF PAGE, 0 - 63 P* < P* IT
0x3c9a8c…3c9c20 Dummy {f00=0x0174, f01=0x018e, f02=»(IF ANY) p 0 P ADR A7,A7 ADJUST FOR INDEXING IN MMU TABLE P ADR A7,A5 ADD TTAB ADDRESS D P LDR A2,A8 NEW PAGE LOCATION h . P ANK A2,/3F SKIP IRRELEVANT BITS (IF ANY) P SLL A2,2 < P SC A2,TTB:MT,A7 STORE NEW LOCATION OF PAGE IN MMU TABLE
0x3c9c20…3c9db4 (5, 55) Dummy {f00=0x0174, f01=0x0190, f02=» P* TCHMMU * P********** P* , P* 6 4 P* THIS IS THE CHANGE MMU TABLE LKM PROCESSOR. @ P* x D P* TCHMMU WILL CHANGE THE MMU TABLE CONTENTS OF REQUESTING TASK 4 P* TO THE MMU TABLE CONTENTS OF SPECIFIED TASK. P*
0x3c9db4…3c9f48 Dummy {f00=0x0174, f01=0x0190, f02=»A7 = TASK IDENTIFICATION OF SEARCHED TASK P* 2 ( P* IT RETURNS TO CALLING TASK WITH < P* THE FOLLOWING PARAMETER: h P* 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE & P* A7 = -1 IF TASK NOT IN SYSTEM P* " PTCHMMU E
0x3c9f48…3ca0dc Dummy {f00=0x0174, f01=0x0190, f02=» TL TTB:MT,A2 LOAD SEARCHED MMU TABLE CONTENTS 4 P TS TTB:MT,A5 STORE IN MMU TABLE OF CALLING TASK 6 * P RB T:DISP QUEUE TASK FOR DISPATCHING n P* P EJECT TMMLKM P* P* P********** P* TLUSEG * P********** P
0x3ca0dc…3ca270 Dummy {f00=0x0174, f01=0x018e, f02=» CORE RESIDENT, ` D P* UNTIL AN UNLOCK SEGMENT REQUEST IS ISSUED FOR THAT SEGMENT. P* ` * P* IT IS ENTERED FROM THE LKM HANDLER j & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A7 = SEGMENT NUMBER &
0x3ca270…3ca404 Dummy {f00=0x0174, f01=0x0190, f02=» j " P* THE FOLLOWING PARAMETERS: P* . 2 P* A7 = UNCHANGED IF REQUEST SUCCESSFUL, ELSE 8 P* A7 = -1 IF REQUEST ERROR n P* P* P EJECT TMMLKM P* P* $ PTLUSEG EQU * LOCK/UNLOCK SEGMENT $ P LD A4,TTB:SP,
0x3ca404…3ca598 Dummy {f00=0x0174, f01=0x0190, f02=»GMENT NUMBER TOO BIG t P RF(NG) TLUS00 OK P* 6 PTLCERR EQU * @ , P ABL LKMRQE BRANCH TO LKM REQUEST ERROR T P* PTLUS00 EQU * , P SLL A3,3 ADJUST FOR INDEXING IN SEGTAB " P ADR A3,A4 ADD SEGTAB ADDRESS " P LCR A4,A3 GET S
0x3ca598…3ca72c Dummy {f00=0x0174, f01=0x018e, f02=»T IT IS t " P RF(NZ) TLUS10 UNLOCK SEGMENT P* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x3ca72c…3ca8c0 Dummy {f00=0x0174, f01=0x4036, f02=» P* P* P* END &@ 2* 6 P EJECT TMMLKM @ P* X P* LOCK SEGMENT b P* x 4 P ORRS A4,A3 INDICATE SEGMENT TO BE CORE RESIDENT P RB T:DISP P* P* UNLOCK SEGMENT P* PTLUS10 EQU *
0x3ca8c0…3caa54 (5, 56) Dummy {f00=0x0178, f01=0x0190, f02=» LDKL A3,-4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . 6 P ADK A4,0 SET CR . H P RF(Z) TIOQ50 NO ACTIVATION . ` P SUK A3,2 ACTIVATION . P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDI
0x3caa54…3cabe8 Dummy {f00=0x0178, f01=0x018e, f02=» P* / . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / @ 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / v 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OP
0x3cabe8…3cad7c Dummy {f00=0x0178, f01=0x0190, f02=» / & P* WITH THE FOLLOWING PARAMETERS:- 0 P* 0 2 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 < P* 0 n $ P* A4 = ZERO, NORMAL I/O REQUEST 0 x ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDE
0x3cad7c…3caf10 Dummy {f00=0x0178, f01=0x0190, f02=»EQUESTED ACTIVATION DRIVER 0 r * P* WITH THE FOLLOWING REGISTER VAULES:- 1 " P* 1 P P* A5 = STACK BASE 2 IN DWT 1 Z P* 1 ~ P* A6 = DWT ADDRESS 1 P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS
0x3caf10…3cb0a4 Dummy {f00=0x0178, f01=0x0190, f02=» 1 f P* 2 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 L " P* -DWTOR DWT INDEX AND ORDER 2 V P* -DWTECB ECB ADDRESS 2 | $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2
0x3cb0a4…3cb238 Dummy {f00=0x0178, f01=0x0190, f02=»T 0 IN THE FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 B P* 3 ` P EJECT TOSSIO 3 j P* 3 . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU
0x3cb238…3cb3cc Dummy {f00=0x0178, f01=0x0190, f02=»B(Z) TIOERR FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 & P LD A13,DWTST,A6 DWT STATUS 4 ` P* 4 P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDE
0x3cb3cc…3cb560 Dummy {f00=0x0178, f01=0x0190, f02=»H DETACH ORDER 4 P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 * P CW A5,DWTTAB,A6 5 L * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 d P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTI
0x3cb560…3cb6f4 (5, 57) Dummy {f00=0x0174, f01=0x40f6, f02=» T> W T P T0 T( W" p H D ! P %U 5 D =S ?W _ q {T P P T W4 P P R , H D ! " W W P W P )R 9Tz ;W _P2 eP, kP< qT yV W x P T W T @
0x3cb6f4…3cb888 Dummy {f00=0x0174, f01=0x2008, f02=»
0x3cb888…3cba1c Dummy {f00=0x0174, f01=0x403e, f02=» W Rd Tf V( P$ P$ P T p (@ : $ & A ( X 0 DISEND ` N * r H D ! & & J J J v v f H D ! . ! # ? P T T P T P %
0x3cba1c…3cbbb0 Dummy {f00=0x0174, f01=0x2008, f02=»
0x3cbbb0…3cbd44 Dummy {f00=0x0174, f01=0x2008, f02=» NT TLDSEG PREREL.9.1 780907 BOFE END 6@ B
0x3cbd44…3cbed8 Dummy {f00=0x0174, f01=0x0190, f02=» Z < P** M O V D W B ** [ < P** ** [ L < P** ** [ < P** SEARCH T:D FOR DUMMY W.B. IF ANY FOUND, MOVE D.T. ** [
0x3cbed8…3cc06c Dummy {f00=0x0174, f01=0x0190, f02=»INPUT : A12=T:D-ADDRESS ** [ < P** A8= POINTER TO T:A-ADDRESS ** < < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** | < P** WORK.REGS: A1-A4 ** < P************
0x3cc06c…3cc200 Dummy {f00=0x0174, f01=0x0190, f02=»MOVD10 LD A4,BIT,A13 GET BIT NUMBER " P ADK A4,1 FIRST WAT-ELEMENT =1 ] , P IFT CREDIT-MMUPAG=1 ] R P LD A2,WATLEN,A12 ] n P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A12 ] P XIF ] P IFF CREDIT=0 ] " P SUR A2,A6 ACTUAL TABLE LENG
0x3cc200…3cc394 (5, 58) Dummy {f00=0x017b, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x3cc394…3cc528 Dummy {f00=0x017b, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x3cc528…3cc6bc Dummy {f00=0x017b, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x3cc6bc…3cc850 Dummy {f00=0x017b, 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
0x3cc850…3cc9e4 Dummy {f00=0x017b, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x3cc9e4…3ccb78 Dummy {f00=0x017b, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x3ccb78…3ccd0c Dummy {f00=0x017b, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x3ccd0c…3ccea0 Dummy {f00=0x017b, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x3ccea0…3cd034 (5, 59) Dummy {f00=0x017b, f01=0x0190, f02=»F A14,I:ASDD ALLOCATE DAD = 4 P ABL ASTAT0 (&) AND RETURN > , P EJECT > d P* > z ( P* ASSIGN A FILE CODE TO A DAD > P* > PA:T3 EQU * > 2 P CF A14,I:ASDD ALLOCATE DAD >
0x3cd034…3cd1c8 Dummy {f00=0x017b, f01=0x0004, f02=»/p/x
0x3cd1c8…3cd35c Dummy {f00=0x017b, f01=0x0190, f02=» 2 P IDENT TSWBLK REL 10.0 80-03-14 870105041000 P : * B * L 6 2************************************************** V * $ * PHILIPS TERMINAL SYSTEM PTS * 0 ,* TSWBLK = LOAD/STORE SWAPPABLE WORK BLOCK *
0x3cd35c…3cd4f0 Dummy {f00=0x017b, f01=0x0190, f02=»HE LOAD/STORE SWAPPABLE WORK BLOCK v > :* LKM PROCESSOR, USED IN TOSS MEMORY MANAGEMENT SYSTEMS. * * l * v EJECT TSWBLK * * *********** * ENTRIES * *********** * * 2 - ENTRY TSWBL
0x3cd4f0…3cd684 Dummy {f00=0x017b, f01=0x0190, f02=»******* * * EXTRN TDISP DISPATCHER $ $ EXTRN LKMRQE LKM REQUEST ERROR D EXTRN SCTSWB SWBTAB ADDRESS l 2 - EXTRN QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB EJECT TSWBLK * * ********** * TS
0x3cd684…3cd818 Dummy {f00=0x017b, f01=0x0190, f02=»IT IS ENTERED FROM THE LKM HANDLER & "* WITH THE FOLLOWING PARAMETERS: * * T * A5 = TTAB ADDRESS ^ 0 +* A6 = LKM DATA DIRECTIVE: 19 IF LOAD SWB | 0 ,* = 20 IF STORE SWB * &* A7 = LEFT BYTE : SWB TYPE (NUMBE
0x3cd818…3cd9ac Dummy {f00=0x017b, f01=0x0190, f02=» " " THE SWB TO STORE (A6 = 20) * 4 D ?* TSWBLK WILL ACTIVATE LDTASK (THE LOAD TASK) AT LABEL LT:SWB > 8 8* AND LDTASK WILL LOAD/STORE REQUESTED WORK BLOCK. * ( #* IT RETURNS TO CALLING TASK WITH " * THE FOLLOWIN
0x3cd9ac…3cdb40 Dummy {f00=0x017b, f01=0x0190, f02=» ( #* A7 = -2 IF DISC I/O ERROR, ELSE $ * A7 = -3 IF DISC NOT OPERABLE 0 * X EJECT TSWBLK b * z * %* CHECK VALIDITY OF SWPBLK PARAMETERS * $ TSWBLK EQU * SWB HANDLING ENTRY $ LD A1,SCTSWB GET SWBTAB ADDRESS
0x3cdb40…3cdcd4 (5, 60) Dummy {f00=0x017b, f01=0x0190, f02=» R P t FPB:FNN DMTBMRS & , ( " T V L 8 * & @$ " T R T "X " h DMTWM DWTTABV * & X_ j " A J FNDFDBT FDBCRL ,
0x3cdcd4…3cde68 Dummy {f00=0x017b, f01=0x0190, f02=» L P B U B | DMTERXM DMCLOS . , ( oH M R L B b D B DMTRBU r , ( " &V ( d CRNCDF ECBFC , ( $ I I f I f F h R * &
0x3cde68…3cdffc Dummy {f00=0x017b, f01=0x0190, f02=»<B 6 8_H A J j" , ( H l b V b $ , ( @ # B R " P J Z P T EARELBE FWTPAR , ( = Q ?A "P n(@ N FDBEALR TASHLTE , ( [ H p
0x3cdffc…3ce190 Dummy {f00=0x017b, f01=0x4154, f02=»BUF , ( " 2 R ' P C h v " ( G < H D ! Rl P T !T #W 'T +P /P 5R T T$ PJ W P W b H D !$ T #W 1 B EP2 kR w B R P P P -P K N MW UP U TZ @ < R ;P g
0x3ce190…3ce324 Dummy {f00=0x017b, f01=0x2008, f02=»
0x3ce324…3ce4b8 Dummy {f00=0x017b, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x3ce4b8…3ce64c Dummy {f00=0x017b, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x3ce64c…3ce7e0 Dummy {f00=0x017b, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x3ce7e0…3ce974 (5, 61) Dummy {f00=0x017d, f01=0x0190, f02=» $ PRCABRT EQU BIT1 REQUEST ABORTED , PRCEOT EQU BIT2 EOT RECEIVED DURING READ , : P***************************************************** P* ( PRCETX EQU BIT3 ETX " " " 6 PRCISEQ EQU BIT4+BIT0 ILLEGAL REQ. - SEQUENCE ERROR 4
0x3ce974…3ceb08 Dummy {f00=0x017d, f01=0x0190, f02=» EQU BIT7 RETRIES PERFORMED $ PRCTIMO EQU BIT9 REQUEST TIMEOUT $ " PRCCARR EQU BIT10 CARRIER DOWN L . PRCNCON EQU BIT11 NO CONNECTION ESTABLISHED r , PRCINCL EQU BIT12 INCORRECT BUFFER LENGTH " PRCIDAT EQU BIT13 INVALIDE DATA & PRCTHRU EQU BIT
0x3ceb08…3cec9c Dummy {f00=0x017d, f01=0x0190, f02=»********* h P* P* DEVICE WORK AREAS P* 8 2 P********************************************** B P* x P* DWT STATUS WORD P* ( P* DWTST BIT #00 : 0 = DEVICE BUSY , P* 1 = DEVICE NOT BUSY 6 P*
0x3cec9c…3cee30 Dummy {f00=0x017d, f01=0x0190, f02=»***************************************** P* 2 $ P* LINE CONTROL CHARACTER EQUATES < P* d < P******************************************************* n P* PPAD EQU /FF TRAILING PAD PDLE EQU /10 DATA LINK ESCAPE " PSOH EQU /01
0x3cee30…3cefc4 Dummy {f00=0x017d, f01=0x0190, f02=»EQU /04 PENQ EQU /05 * PETB EQU /17 END OF TRANSMISSION BLOCK $ ( PNAK EQU /15 NEGATIVE ACKNOWLEDGEMENT R ( PRVI EQU /3C SEC CHAR IN RVI SEQUENCE ~ , PACK0 EQU /30 SEC CHAR IN ACK 0 SEQUENCE * PEXCACK EQU 1 DIFFERENCE BETWEEN ACK0/1 P
0x3cefc4…3cf158 Dummy {f00=0x017d, f01=0x0190, f02=»SC=1 * PWACK EQU /3B SEC CHAR IN WACK SEQUENCE P XIF : P IFT CODE=0 F P IFT BSC=0 Z * PWACK EQU /BF SEC CHAR IN WABT SEQUENCE l P SIEMENS MSV2 PROCEDURE P XIF ( P IFT CODE=1 EBCDIC CHARACTER EQUATES PSYN EQU /32 P
0x3cf158…3cf2ec Dummy {f00=0x017d, f01=0x0190, f02=» PEXCACK EQU /11 PIGS EQU /1D GROUP SEPARATOR PGS EQU IGS RENAME IGS > PSPACE EQU /40 SPACE PIUS EQU /1F UNIT SEPARATOR x PUS EQU IUS RENAME US P XIF P EJECT B P****************************************************
0x3cf2ec…3cf480 Dummy {f00=0x017d, f01=0x0190, f02=»************* ` P* P IFT SALCUZ=1 $ PCBBREK EQU /80 CIO START BREAK 8 " PCBECHO EQU /10 ECHO ` , PCBNPAR EQU /0 NO CHAR PARITY . PCBEPAR EQU /4 EVEN CHAR PARITY , PCBOPAR EQU /C ODD CHAR
0x3cf480…3cf614 (5, 62) Dummy {f00=0x017d, f01=0x018e, f02=» % P* & PRD EQU * & P ANK A1,1 CHECK STATUS & " " P RF(NZ) RD400 MODEM CONNECTED & @ 0 P ABL RXMNOP NO CONNECTION ESTABLISHED; EXIT & f P* & P* & & P* ORDER 0A : READ RANDOM (CREDIT) & P* & PRDRNM EQU * & * P LDK
0x3cf614…3cf7a8 Dummy {f00=0x017d, f01=0x0190, f02=» & P* START THE READ REQUEST ' P* ' ( P* ' 2 PRD400 EQU * ' < P IFT MMUPAG=1 ' P $ P LD A2,ECBRL,A8 REQUESTED LENGTH ' f " P CWK A2,BUFLEN INVALID LENGTH? ' " P ABL(G) RXINCL ILLEGAL LENGTH ' & P LD A1,DWTTIM,A6 GET CONTROL WORD ' P XIF
0x3cf7a8…3cf93c Dummy {f00=0x017d, f01=0x0190, f02=»TIME START REQUEST TIMER ' " P DATA RD500 TIME OUT SEQUENCE ( PRD410 DATA 0 TIMER VALUE ( F ( P ST A4,DWTRTI,A6 STORE TIMER POINTER ( f PRD420 EQU * ( IFT IDLELN=1 ( 2 P CF A15,CLIDLE CLEAR IDLE LINE ACTIVITY TIMER ( XIF ( ( P LD A1,DWT
0x3cf93c…3cfad0 Dummy {f00=0x017d, f01=0x0190, f02=»- READ WHEN TRANSMITTING ( r . P LD A1,DWTACK,A6 GET WACK DELAY INDICATOR ) 8 P ABL(Z) EXDISP NOT WACK DELAY - WAIT FOR ENQ OR EOT ) R ( P CF A15,CLPTIM STOP PROCEDURE TIMER ) , P CM DWTACK,A6 RESET WACK DELAY INDICATOR ) P CF A5,TRACK SEND ACK 0/1 )
0x3cfad0…3cfc64 Dummy {f00=0x017d, f01=0x018e, f02=»A6,A1 READ REQUEST TIME OUT, RESTORE A6 ) & P CF A15,CLRTIM CLEAR TIMER LINKS * 0 $ P CF A15,CLPTIM CLEAR PROC TIMER * Z $ P CF A15,CLMTIM CLEAR MODEM TIMER * P CF A5,CHALTI HALT INPUT & * P CF A5,CHALTO OUTPUT * ( P CM DWTSAV+4,A6 CLEAR STACK
0x3cfc64…3cfdf8 Dummy {f00=0x017d, f01=0x018e, f02=» P EJECT + P* + P* + P* ORDER 06: WRITE + & P* + @ : P* IF CONTROL CHARACTER = 0 NOT, TEXT IS ENDED BY ETB + J : P* IF CONTROL CHARACTER = 0 , TEXT IS ENDED BY ETX + P* + PWR EQU * + P ANK A1,1 CHECK STATUS + , P ABL(Z) RX
0x3cfdf8…3cff8c Dummy {f00=0x017d, f01=0x0190, f02=» " P ABL(G) RXINCL ILLEGAL LENGTH , P XIF , * ( P LD A1,DWTXST,A6 GET PROCEDURE STATE , 6 " P RF(Z) BID CONTROL STATE: BID , b P SUK A1,1 , P RF(Z) WR100 TRANSMIT MODE , @ P ABL RXISEQ ILLEGAL SEQUENCE; TRYING TO WRITE WHEN RECEIVING , P* ,
0x3cff8c…3d0120 Dummy {f00=0x017d, f01=0x0190, f02=»6 , & P ST A1,DWTACK,A6 AND BID SEQUENCE - $ P CM DWTENQ,A6 RESET ENQ COUNTER - 4 P LDK A1,ACK0 - , P ST A1,DWTRSN,A6 INDICATE ACK 0 EXPECTED - p IFT IDLELN=1 - 2 P CF A15,CLIDLE CLEAR IDLE LINE ACTIVITY TIMER - XIF - P ABL TRENQB SEND
0x3d0120…3d02b4 (5, 63) Dummy {f00=0x017f, f01=0x0190, f02=» " P LDR A6,A1 RESTORE DWT ADDRESS f " P CF A15,CLPTIM CLEEAR POINTER f * & P LDK A5,DWTSTB LOAD A5 STACK BASE f P P ADR A5,A6 f z , P CM DWTACK,A6 RESET WACK DELAY INDICATOR f P CF A5,TRWACK SEND WACK f P ABL BMM WAIT FOR ENQ f P EJECT f P
0x3d02b4…3d0448 Dummy {f00=0x017f, f01=0x0190, f02=»D A1,DWTRTR,A6 f P CWK A1,RTRCNT g & P ABL(G) TR210 COUNT OUT, SEND EOT g , 0 P CF A5,WRSYN START TRANSMITTER AND SEND SYN g V P IFT TRANSP=1 g P LDK A2,DLE g P CF A5,WRBCCN SEND ONE DLE g P XIF g P LDK A2,STX g P CF A5,WRITEP SEND
0x3d0448…3d05dc Dummy {f00=0x017f, f01=0x0190, f02=» BUFFER ADDRESS g | ( P ADK A4,2 SKIP FIRST WORD IN BUFFER h ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH h D P SUK A3,1 SKIP FIRST BYTE h p P IFT TRANSP=0 h P IFT COMPRS=1 h . P CM DWTCMP,A6 CLEAR SPACE COMPRESS CTNL h P XIF h PTRT1
0x3d05dc…3d0770 Dummy {f00=0x017f, f01=0x018e, f02=»1 INCR POINTER h $ P ANK A2,/FF MASK TO 8 BITS!! =3 i P IFT TRANSP=0 i > P ANK A2,/7F REMOVE P-BIT =3 i T P CWK A2,ETB i x " P RF(G) TRT110 NOT ETB IN TEXT i P CWK A2,SYN i ( P RF(NL) TRT105 REPLACE SYN BY SPACE i P CWK A2,/07 CHECK CODE
0x3d0770…3d0904 Dummy {f00=0x017f, f01=0x0190, f02=» PTRT110 EQU * j P IFT TRANSP=0 j P IFT COMPRS=0 j 0 P CWK A2,GS GROUP SEPARATOR j H P RF(E) TRT117 YES j l P XIF j P IFT TRANSP=0 j P IFT COMPRS=1 j P CWK A2,SPCASC ASCII SPACE j P RF(NE) TRT112 NO j P I
0x3d0904…3d0a98 Dummy {f00=0x017f, f01=0x0190, f02=»XT CHAR j t . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES k & P RB TRT100 COMPRESSED MODE ENDED k B PTRT112 EQU * CHAR /= SPACE k l & P LD A1,DWTCMP,A6 COMPRESS MODE ? k P RF(Z) TRT114 NO k . P CF A5,TRCOMP TRANSMIT COMPRESSED SPACES k PTR
0x3d0a98…3d0c2c Dummy {f00=0x017f, f01=0x0190, f02=»DIC k f P XIF l P IFT TRANSP=1 l P CWK A2,DLE l . P RF(NE) TRT115 NOT DLE l B , P CF A5,WRBCCN INSERT ONE DLE. NO CRC-CAL l ` P LDK A2,DLE l P XIF l PTRT115 EQU * l P CF A5,WRITEP SEND CHAR l P RB TRT100 NEXT CHAR l P IFT TRA
0x3d0c2c…3d0dc0 Dummy {f00=0x017f, f01=0x0190, f02=»S l x P SUK A3,1 DECR BUFF POINTER m " P RF(NP) TRT120 END OF BUFFER m . P LCR A2,A4 GET CHAR m T P ADK A4,1 INCR POINTER m p P ANK A2,/7F CLEAN CHAR m $ P ORK A2,/40 SET SPACE CHAR BIT m ( P CF A5,WRITEP TRANSMIT SPACE COUNT m * P RB
0x3d0dc0…3d0f54 (5, 64) Dummy {f00=0x017f, f01=0x2008, f02=»
0x3d0f54…3d10e8 Dummy {f00=0x017f, f01=0x0190, f02=» ^ h 0 P CF A15,CLRTIM STOP REQUEST TIMER IF RUNNING _ P LDR A1,A4 STORE RETURN CODE _ < ( P CF A15,TENDIO COMPLETE READ REQUEST _ ` P LDK A1,EXCACK _ , P XRS A1,DWTRSN,A6 CHANGE ACK TO BE SENT _ PREC190 EQU * _ P CF A5,CHALTI STOP RECEIVER _
0x3d10e8…3d127c Dummy {f00=0x017f, f01=0x0190, f02=» _ l P LDK A1,1 ` . P ST A1,DWTACK,A6 SET WACK DELAY INDICATOR ` & P WAIT FOR NEXT READ TO SEND ACK ` L P ABL TDISP GO TO DISPATCHER ` v ( P* PARITY ERROR FIND END OF BLOCK ` , PREC200 CF A5,READP PARITY ERROR RECEIVED ` P RB(NZ) REC200 PAR
0x3d127c…3d1410 Dummy {f00=0x017f, f01=0x0190, f02=»T SEPARATOR ` P RF(NE) REC205 NO a . P CF A5,RDBPAR READ AND CHECK BLOCK PARITY a . P RB REC200 a ` PREC205 EQU * a t P CWK A2,ETB a P RF(E) REC210 ETB RECEIVED a P CWK A2,ETX a P RB(NE) REC200 NOT ETB/ETX a PREC210 EQU * a
0x3d1410…3d15a4 Dummy {f00=0x017f, f01=0x0190, f02=» a h PREC250 EQU * b , P CF A5,READP NO REQUEST/BUFFER OVERFLOW b P RB(NZ) REC250 PARITY ERROR b L PREC251 EQU * b p P IFT TRANSP=1 b P CWK A2,DLE b P RB(NE) REC250 NOT DLE b P CF A5,READ b P XIF b P CWK A2,US UNIT SEPARATOR
0x3d15a4…3d1738 Dummy {f00=0x017f, f01=0x0190, f02=» PREC255 EQU * c P CWK A2,ETB c P RF(E) REC260 ETB RECEIVED c . P CWK A2,ETX c P P RB(NE) REC250 NOT ETB/ETX c d PREC260 EQU * c $ P CF A5,RDBPAR READ BLOCK PARITY c ( P CF A15,CLRTIM CLEAR TIMER POINTER c . P LDKL A4,RCINCL PRESET F
0x3d1738…3d18cc Dummy {f00=0x017f, f01=0x0190, f02=»ACKNOWLEDGMENT c t P* d P* d , PREC400 LD A1,DWTLRS,A6 GET LAST RESPONSE d * P CWK A1,NAK d Z P RB(E) REC220 NAK SENT d n P CWK A1,RVI d P RF(E) REC420 RVI SENT d P CWK A1,WACK d * P RF(NE) REC410 WACK NOT SENT:= ACK 0/1 d P LD A1,D
0x3d18cc…3d1a60 Dummy {f00=0x017f, f01=0x0190, f02=» d v P SUK A1,/22-/02 e 0 P ABL(Z) RVI300 SEND RVI AND COMPLETE REQUEST e P RB REC190 e T PREC410 EQU * e f P CF A5,TRACK SEND ACK 0/1 e z " P ABL BMM WAIT FOR NEXT MESSAGE e PREC420 EQU * e P CF A5,TRRVI SEND RVI e P ABL BMM CONTINUE RE
0x3d1a60…3d1bf4 (5, 65) Dummy {f00=0x0181, f01=0x0190, f02=» THR LINE ` P* B P************************************************************** P* b P* START IDLE TIMER l P* PSTIDLE EQU * P LDR A1,A6 " P CF A15,SETIME SET IDLE TIMER P DATA TRIDLE,TIMIDL * P ST A4,DWTITI SA
0x3d1bf4…3d1d88 Dummy {f00=0x0181, f01=0x0190, f02=»LE EQU * " P LDR A6,A1 RELOAD DWT-ADDRESS $ P CF A15,CLIDLE CLEAR IDLE TIMER 6 & P CF A15,STIDLE RE-START IDLE TIMER ^ " P CF A5,CHALTI HALT RECEIVER =6 P CF A5,CSYNCO * RISE RTS =6 $ P CF A5,CHALTO * JUST A MOMENT =6 & P CF A5,CSYNCI
0x3d1d88…3d1f1c Dummy {f00=0x0181, f01=0x0190, f02=»IMER BLOCK POINTER z P RF(Z) CLIRTN NOT RUNNING " P CM* DWTITI,A6 * CLEAR TIME & < " P CM DWTITI,A6 * BLOCK POINTER b PCLIRTN EQU * P RTN A15 P XIF P EJECT P* P* $ P* SST SEQUENCE FOR INPUT CHANNEL P*
0x3d1f1c…3d20b0 Dummy {f00=0x0181, f01=0x0190, f02=»WTSAV+6,A6 P LD A8,DWTSAV+8,A6 " P EX DWTSSI,A6 SST INSTRUCTION 0 P RF(NA) SST205 NOT ACCEPTED V P**LOGG z P IFF LOGG=0 P P CF A5,LOGSST LOGG INPUT SST P XIF P LDR A1,A2 2 P ANK A1,SBERR+SBCALL ERROR OR
0x3d20b0…3d2244 Dummy {f00=0x0181, f01=0x0190, f02=»G CALL ? z ( P RF(Z) SST150 NOT CALLING INDICATOR & P LD A1,DWTST,A6 CALLING INDICATOR < P ABL(N) BMM NO REQUEST f P LD A1,DWTOR,A6 GET ORDER P SUK A1,/31 ( P ABL(NZ) BMM NOT ACCEPT CALL REQUEST . P ABL ACC150 CALL RECEIVED - COMPLE
0x3d2244…3d23d8 Dummy {f00=0x0181, f01=0x0190, f02=»RITY ERROR ? z P RF(NZ) SST205 YES P XIF 2 P LDR A1,A2 MOVE STATUS B P ANK A1,SBNOOP b P RF(NZ) SST200 YES z 0 P LD A1,DWTLCI,A6 CARRIER OFF: I/P ACTIVE ? * P ABL(Z) EXDISP NO IGNORE CARRIER IF P I/P IS NOT AC
0x3d23d8…3d256c Dummy {f00=0x0181, f01=0x0190, f02=»6 CLEAR STACK POINTER & P ABL RXMNOP MODEM NOT OPERABLE =2 PSST204 EQU * H " P LDKL A2,/100 IND SST STATUS Z ^ PSST205 EQU * P LDR A5,A5 . 0 P ABL(Z) TDISP IGNORE INT. IF STACKP. CLEARED & P ADK A5,4 INCREMENT RETURN OFFSET
0x3d256c…3d2700 Dummy {f00=0x0181, f01=0x0190, f02=»ERATE PARITY AND SEND CHARACTER P* ( P* 2 PWRITEP EQU * < P IFT CODE+SALCUZ=0 P P ECR A1,A2 l P ORK A2,/80 ~ PWRP100 EQU * P SLL A1,1 P RB(P) WRP100 P RF(Z) WRP110 P XRK A2,/80 P RB WRP100
0x3d2700…3d2894 (5, 66) Dummy {f00=0x0181, f01=0x0190, f02=»AV * P LDK A1,/5 INDICATE ILLEGAL INTERRUPT * P ABL ILLINT ILLEGAL INTERRUPT ROUTINE 8 P EJECT f P* t P* ~ & P* DCTAB: LINE CONFIGURATION TABLE P* P* PDCTAB EQU * $ P DATA DCTABE-DCTAB TABLE LENGTH P DATA
0x3d2894…3d2a28 Dummy {f00=0x0181, f01=0x0190, f02=»IF PDCTABE EQU * P EJECT P* , P* 6 $ P* DEVICE WORK TABLE FOR LINE 01 @ P* h P* r PDW1701 EQU * | P DATA DAMU01 DEVICE ADDRESS 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY P DATA 0 ECB ADDRESS P D
0x3d2a28…3d2bbc Dummy {f00=0x0181, f01=0x0190, f02=»A 0 TASK QUEUE FOR THIS DEVICE P IFT MMUPAG=1 & P DATA 0 USER ECB < P DATA ECBDC1 MMU ECB T P XIF p , PDWTTIM EQU *-DW1701 REQUEST TIMER VALUE | P DATA 0 PDWTRTI EQU *-DW1701 " P DATA 0 REQUEST TIMER POINTER PDWTPTI EQU
0x3d2bbc…3d2d50 Dummy {f00=0x0181, f01=0x0190, f02=»DLELN=1 PDWTITI EQU * $ P DATA 0 IDLE ACT. TIMER POINTER $ P XIF L PDWTSAV EQU *-DW1701 X $ P RES 5 SAVE AREA FOR A3-A5,A7,A8 t PDWTXST EQU *-DW1701 . P DATA 0 PROCEDURE STATUS: 0= CONTROL STATE . P 1= TRANSM
0x3d2d50…3d2ee4 Dummy {f00=0x0181, f01=0x018e, f02=»1 ~ P DATA 0 RESPONSE STATE P 0= ACK EXPECTED ( P 1= WACK SEQ. DELAY (REC) B P 2= TTD SEQ. DELAY (TRANS) f ( P 3= TTD SEQ. WAIT FOR NAK (TRANS) P 4= WACK SEQ. (TRANS) P 6= BID SEQ. * P 8= ACK EXP. AFTER TRANSMI
0x3d2ee4…3d3078 Dummy {f00=0x0181, f01=0x0190, f02=» n PDWTWAC EQU *-DW1701 P DATA 0 WACK COUNTER $ PDWTRTR EQU *-DW1701 @ " P DATA 0 RETRANSMISSION COUNTER PDWTLRS EQU *-DW1701 P DATA NAK LAST SENT RESPONSE PDWTIUS EQU *-DW1701 P DATA 0 BCC/CRC SAVE P IFT COMPR
0x3d3078…3d320c Dummy {f00=0x0181, f01=0x0190, f02=»701-2 STACK BASE PDWTLCI EQU *-DW1701 $ P DATA 0 LINE CU I/P ACTIVE IND 6 PDWTLCO EQU *-DW1701 . ^ P DATA 0 OUTP. ACT. IND. | PDWTOTR EQU *-DW1701 P OTR A2,0,DAMU01 PDWTSSI EQU *-DW1701 P SST A2,DAMI01 PDWTSSU
0x3d320c…3d33a0 Dummy {f00=0x0181, f01=0x018e, f02=»MU01 PDWTCHI EQU *-DW1701 P CIO A2,0,DAMI01 ( PDWTCHU EQU *-DW1701 @ P CIO A2,0,DAMU01 P IFT SALCUZ=1 t PDWTOSI EQU *-DW1701 P OTR A2,1,DAMI01 PDWTOSU EQU *-DW1701 P OTR A2,1,DAMU01 P XIF
0x3d33a0…3d3534 (5, 67) Dummy {f00=0x0182, f01=0x0190, f02=» P IFF NLINE=4 PDW1704 EQU * P IFF NLINE=3 , PDW1703 EQU * @ P IFF NLINE=2 T PDW1702 EQU * h P XIF | P DATA 0 DUMMY DWT P DATA 0 STATUS BUSY P EJECT P* P* P* INTERRUPT LOGGING ROUTINE P*
0x3d3534…3d36c8 Dummy {f00=0x0182, f01=0x0190, f02=» /1F x , P* OUTPUT STATUS MARKED /0F - NOT USED P* < P IFF LOGG=0 F PLOGSST ST A2,SAVE2,A6 Z P ORKL A2,/1F00 x P RF LOG10 PLOGOUT ST A2,SAVE2,A6 P ORKL A2,/0000 P RF LOG10 PLOGIN CWK A2,/FF P RF(E) LOG
0x3d36c8…3d385c Dummy {f00=0x0182, f01=0x4114, f02=»2 P SUR A3,A6 P CWK A3,LOGEND P RF(L) LOGEXI 2 P LDKL A3,LOGSTA H PLOGEXI EQU * ` P ADR A3,A6 t P ST A3,LOGPNT,A6 P LD A2,SAVE2,A6 P LD A3,SAVE3,A6 PLOGE10 RTN A5 P XIF P* P* P END
0x3d385c…3d39f0 Dummy {f00=0x0182, f01=0x2008, f02=» 0 8 @ x @
0x3d39f0…3d3b84 Dummy {f00=0x0182, f01=0x0190, f02=» 6 P************************************************** P* B P* ORDERS: L P* ^ P* /02 - READ h P* | P* /06 - WRITE P* P* /0A - READ RANDOM P* P* /31 - ACCEPT A CALL P* P* /37 - CONNECT MODE
0x3d3b84…3d3d18 Dummy {f00=0x0182, f01=0x0190, f02=»: P* 6 P* STATUS WORD = 0 REQUEST COMPLETED NORMALLY P* N B P* " " <> 0 ABNORMAL RETURN (SEE BIT EQU'S BELOW) X P* B P************************************************************** P* 8 PBIT0 EQU /8000 R
0x3d3d18…3d3eac Dummy {f00=0x0182, f01=0x0190, f02=» EQU /1000 END OF FILE E.G ETX < PBIT4 EQU /0800 DEVICE DEPENDENT (SEE FURTHER REQ. ORDER) & & PBIT5 EQU /0400 " " f & PBIT6 EQU /0200 " " $ PBIT7 EQU /0100 RETRIES PERFORMED * PBIT8 EQU /0080 MORE INFO E.G NOT USED
0x3d3eac…3d4040 Dummy {f00=0x0182, f01=0x0190, f02=»BUFFER LENGTH (TRANSM./REC. BUFFER) v PBIT13 EQU /0004 DATA ERROR , $ PBIT14 EQU /0002 THROUGHPUT ERROR N & PBIT15 EQU /0001 MODEM NOT OPERABLE v P* * PRCCMPL EQU 0 REQUESTED ORDER PERFORMED . PRCETB EQU RCCMPL ETB RECEIVED DURING READ $
0x3d4040…3d41d4 (5, 68) Dummy {f00=0x0185, f01=0x0190, f02=»ATA /8000 STATUS , /8000 MEANS DEVICE READY U P DATA 0 ECB ADDRESS V 4 P DATA 0 ORDER V P * P DATA DRMUAD POINTER TO ADDRESS BLOCK V f P DATA 0 TTAB ADDRESS V $ P DATA 0 WAIT/ACTIVATE INDICATOR V & P DATA 0 TASK QUEUE FOR THIS DEVICE V P IFT M
0x3d41d4…3d4368 Dummy {f00=0x0185, f01=0x0190, f02=» DATA 0 ACTIVITY TIMER POINTER V & P DATA 0,0,0,0,0,0 SUBROUTINE STACK W & P RES 3 SAVE AREA FOR A3-A5 W P $ P DATA DW8118 OUTPUT DWT ADDRESS W r " P DATA DW8117 INPUT DWT ADDRESS W P DATA 0 SAVE AREA FOR A8 W P DATA 0 CU 6857 I/O IND W P DATA 0
0x3d4368…3d44fc Dummy {f00=0x0185, f01=0x0190, f02=»E09 W P RES LINE09 X P DATA /FFFF X P IFT MMUPAG=1 X 4 , PMECB18 DATA 0,DCBF18,0,0,0,0 DRIVER ECB X J ( PDCBF18 RES TBUFL+1 MMUBUFFER OUTPUT X z P XIF X P IFT MLIN09=1 X P* X P EJECT X P* X P* X * P* DEVICE WORK TABLE
0x3d44fc…3d4690 Dummy {f00=0x0185, f01=0x0190, f02=»8000 MEANS DEVICE READY X z P DATA 0 ECB ADDRESS Y P DATA 0 ORDER Y < * P DATA DRMIAD POINTER TO ADDRESS BLOCK Y R P DATA 0 TTAB ADDRESS Y $ P DATA 0 WAIT/ACTIVATE INDICATOR Y & P DATA 0 TASK QUEUE FOR THIS DEVICE Y P IFT MMUPAG=1 Y P DAT
0x3d4690…3d4824 Dummy {f00=0x0185, f01=0x0190, f02=»ER POINTER Y | & P DATA 0,0,0,0,0,0 SUBROUTINE STACK Z P RES 3 SAVE AREA FOR A3-A5 Z < $ P DATA DW8118 OUTPUT DWT ADDRESS Z ^ " P DATA DW8117 INPUT DWT ADDRESS Z P DATA 0 SAVE AREA FOR A8 Z P DATA 0 CU 6857 I/O IND Z P IFT MMUPAG=1 Z , PMECB17
0x3d4824…3d49b8 Dummy {f00=0x0185, f01=0x0190, f02=» Z P* [ 8 P* DEVICE WORK TABLE FOR LINE 10, OUTPUT AND CONTROL [ P* [ N P* [ X PDW8120 EQU * TABLE ENTRY [ b P DATA DAMU10 DEVICE ADDRESS [ 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY [ P DATA 0 ECB ADDRESS [ P DATA 0 ORDER [
0x3d49b8…3d4b4c Dummy {f00=0x0185, f01=0x0190, f02=»UE FOR THIS DEVICE [ P IFT MMUPAG=1 P DATA 0 USER ECB 0 P DATA MECB20 DRIVER ECB H P XIF h P IFT MLIN10=1 t P DATA 0 TIMER POINTER " P DATA 0 ACTIVITY TIMER POINTER & P DATA 0,0,0,0,0,0 SUBROUTINE STACK P RES 3 SAVE AREA
0x3d4b4c…3d4ce0 Dummy {f00=0x0185, f01=0x018e, f02=»CU 6857 I/O IND P DATA 0 RETRY COUNTER ] P DATA 0 BCC COUNTER ] 6 P DATA 0 ACK COUNTER ] R P DATA 0 PACT ] n P DATA 0 PINACT ] P DATA LINE10+LINE10 ] P RES LINE10 ] P DATA /FFFF ] P IFT MMUPAG=1 ] , PMECB20 DATA 0,DCBF20,0
0x3d4ce0…3d4e74 (5, 69) Dummy {f00=0x0185, f01=0x0190, f02=» P* ^ * P* DEVICE WORK TABLE FOR LINE 10, INPUT ^ P* ^ < P* ^ F PDW8119 EQU * TABLE ENTRY ^ P P DATA DAMI10 DEVICE ADDRESS ^ p 2 P DATA /8000 STATUS , /8000 MEANS DEVICE READY ^ P DATA 0 ECB ADDRESS ^ P DATA 0 ORDER ^ * P DATA DRMIAD
0x3d4e74…3d5008 Dummy {f00=0x0185, f01=0x018e, f02=» ^ n P IFT MMUPAG=1 _ P DATA 0 USER ECB _ P DATA MECB19 DRIVER ECB _ 6 P XIF _ V P IFT MLIN10=1 _ b P DATA 0 TIMER POINTER _ x " P DATA 0 ACTIVITY TIMER POINTER _ & P DATA 0,0,0,0,0,0 SUBROUTINE STACK _ P RES 3 SAVE AREA FOR A3-A5 _ $ P
0x3d5008…3d519c Dummy {f00=0x0185, f01=0x0190, f02=» _ v P IFT MMUPAG=1 ` , PMECB19 DATA 0,DCBF19,0,0,0,0 DRIVER ECB ` ( PDCBF19 RES TBUFL+1 MMU BUFFER INPUT ` N P XIF ` z P IFT MLIN11=1 ` P EJECT ` P* ` P* ` 8 P* DEVICE WORK TABLE FOR LINE 11, OUTPUT AND CONTROL ` P* ` P* `
0x3d519c…3d5330 Dummy {f00=0x0185, f01=0x0190, f02=»ECB ADDRESS ` P DATA 0 ORDER a * P DATA DRMUAD POINTER TO ADDRESS BLOCK a * P DATA 0 TTAB ADDRESS a X $ P DATA 0 WAIT/ACTIVATE INDICATOR a t & P DATA 0 TASK QUEUE FOR THIS DEVICE a P IFT MMUPAG=1 a P DATA 0 USER ECB a P DATA MECB22 DRIVER
0x3d5330…3d54c4 Dummy {f00=0x0185, f01=0x0190, f02=»OUTINE STACK a z P RES 3 SAVE AREA FOR A3-A5 b $ P DATA DW8122 OUTPUT DWT ADDRESS b 6 " P DATA DW8121 INPUT DWT ADDRESS b ^ P DATA 0 SAVE AREA FOR A8 b P DATA 0 CU 6857 I/O IND b P DATA 0 RETRY COUNTER b P DATA 0 BCC COUNTER b P DATA 0 AC
0x3d54c4…3d5658 Dummy {f00=0x0185, f01=0x0190, f02=»PAG=1 b , PMECB22 DATA 0,DCBF22,0,0,0,0 DRIVER ECB c ( PDCBF22 RES TBUFL+1 MMUBUFFER OUTPUT c > P XIF c j P IFT MLIN11=1 c v P* c P EJECT c P* c P* c * P* DEVICE WORK TABLE FOR LINE 11, INPUT c P* c P* c PDW8121 EQU * T
0x3d5658…3d57ec Dummy {f00=0x0185, f01=0x0190, f02=» DATA 0 ORDER c * P DATA DRMIAD POINTER TO ADDRESS BLOCK d P DATA 0 TTAB ADDRESS d D $ P DATA 0 WAIT/ACTIVATE INDICATOR d ` & P DATA 0 TASK QUEUE FOR THIS DEVICE d P IFT MMUPAG=1 d P DATA 0 USER ECB d P DATA MECB21 DRIVER ECB d P XIF d
0x3d57ec…3d5980 Dummy {f00=0x0185, f01=0x0190, f02=» RES 3 SAVE AREA FOR A3-A5 d $ P DATA DW8122 OUTPUT DWT ADDRESS e " " P DATA DW8121 INPUT DWT ADDRESS e J P DATA 0 SAVE AREA FOR A8 e p P DATA 0 CU 6857 I/O IND e P IFT MMUPAG=1 e , PMECB21 DATA 0,DCBF21,0,0,0,0 DRIVER ECB e ( PDCBF21 RES TBUFL+1
0x3d5980…3d5b14 (5, 70) Dummy {f00=0x0189, f01=0x0190, f02=»TN A5 P IFF HILINO=1 P EJECT $ P* 2 P* < P* F PIH8104 EQU * P P ST P,INTSAV d P CF A15,SAVER x P LDKL A6,DW8104 P RB IHU100 P IFF HILINO=2 P EJECT P* P* P* PIH8106 EQU *
0x3d5b14…3d5ca8 Dummy {f00=0x0189, f01=0x0190, f02=»* P* PIH8108 EQU * P ST P,INTSAV ( P CF A15,SAVER < P LDKL A6,DW8108 R P RB IHU100 j P IFF HILINO=4 | P EJECT P* P* P* PIH8110 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8
0x3d5ca8…3d5e3c Dummy {f00=0x0189, f01=0x0190, f02=» CF A15,SAVER P LDKL A6,DW8112 P RB IHU100 . P IFF HILINO=6 @ P EJECT V P* d P* n P* x PIH8114 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8114 P RB IHU100 P IFF HILINO=7 P EJECT
0x3d5e3c…3d5fd0 Dummy {f00=0x0189, f01=0x018e, f02=» P IFF HILINO=8 P EJECT P* ( P* 2 P* < PIH8118 EQU * F P ST P,INTSAV Z P CF A15,SAVER n P LDKL A6,DW8118 P RB IHU100 P IFF HILINO=9 P EJECT P* P* P* PIH8120 EQU * P ST
0x3d5fd0…3d6164 Dummy {f00=0x0189, f01=0x0190, f02=» P* PIH8122 EQU * P ST P,INTSAV " P CF A15,SAVER 6 P LDKL A6,DW8122 L P ABL IHU100 d P IFF HILINO=11 x P EJECT P* P* P* PIH8124 EQU * P ST P,INTSAV P CF A15,SAVER P LDKL A6,DW8124
0x3d6164…3d62f8 Dummy {f00=0x0189, f01=0x0190, f02=»* P* A2 CONTAINS TCA AT ENTRY P* , . P* A3 CONTAINS ADDRESS TO FOUND TC AT EXIT 6 , P* A4 CONTAINS INDEX IN LIST TO FOUND TC h P* P* A1 A3 A4 ARE DESTROYED " P* CR = (Z) : ACTIVE TCA FOUND $ P* CR = (N) : INACTIVE TCA FOUND
0x3d62f8…3d648c Dummy {f00=0x0189, f01=0x0190, f02=»INGLIST n P LDR A3,A6 P ADK A3,PLIST " P ADR A3,A4 8 PFIND10 EQU * J P LDR* A1,A3 GET TCA ^ P CWR A1,A2 z " P RF(E) FIND40 ACTIVE TC FOUND P ANK A1,/FF P CWR A1,A2 $ P RF(E) FIND30 INACTIVE TC FOUND P SUK A3,
0x3d648c…3d6620 Dummy {f00=0x0189, f01=0x0190, f02=» PFIND40 EQU * P ABR* A15 P* . P* 8 PPARTAB EQU * B P* V P NLIST ` @ P DATA /8001,/0283,/0485,/8607,/0889,/8A0B,/8C0D,/0E8F,/1091 n @ P DATA /9213,/9415,/1697,/9819,/1A9B,/1C9D,/9E1F,/20A1,/A223 " P DATA /A425,/26A7,
0x3d6620…3d67b4 (5, 71) Dummy {f00=0x018a, f01=0x0190, f02=»/4CCD,/CE4F ` @ P DATA /D051,/52D3,/54D5,/D657,/58D9,/DA5B,/DC5D,/5EDF,/E061 @ P DATA /62E3,/64E5,/E667,/68E9,/EA6B,/EC6D,/6EEF,/70F1,/F273 X . P DATA /F475,/76F7,/F879,/7AFB,/7CFD,/FE7F P LIST P EJECT P* P* P* P
0x3d67b4…3d6948 Dummy {f00=0x018a, f01=0x018e, f02=» P* P LDR A1,A6 P CF A15,SETIME P DATA TLTO,TIMACT 6 P ST A4,DWTATP,A6 P P* h P* CONNECT MODEM r P* P LD A7,DWTA7,A6 P ST A8,DWTA8,A7 P CF A5,STINP P LDR A1,A6 P CF A15,SETIME P DATA TE
0x3d6948…3d6adc Dummy {f00=0x018a, f01=0x0190, f02=» PTES030 EQU * P CM DWTTP,A6 P LD A7,DWTA7,A6 0 P LD A8,DWTA8,A7 H P LDK A5,STB ` P ADR A5,A6 t P CF A5,HALTIN P ANK A1,1 & P RF(NZ) TES330 MODEM NOT OPERABLE P* & P* START INPUT AND SEND SYNCPATTERN
0x3d6adc…3d6c70 Dummy {f00=0x018a, f01=0x0190, f02=» RESET BIT ERROR COUNTER P CF A5,STINP P CF A5,WRSYN 4 P* H P* TRANSMITT TEST PATTERN R P* r PTES100 EQU * | ( P LDK A4,0 BIT AND CHARACTER COUNTER " P LDKL A3,/1FF 1:ST SHIFT STATE PTES110 EQU * P LDR A2,A3 P
0x3d6c70…3d6e04 Dummy {f00=0x018a, f01=0x018e, f02=»MPLETE PATTERN TRAMSMITTED P* " PTES150 EQU * , P LDK A2,PAD @ P CF A5,WRITE T P RB TES150 h P EJECT z P* P* P* SYNCRONIZE INPUT P* PREC000 EQU * P CF A5,READ PRECPAT EQU * P LDR A2,A2
0x3d6e04…3d6f98 Dummy {f00=0x018a, f01=0x0190, f02=» ( P LDK A4,0 BIT AND CHARACTER COUNTER " P LDKL A3,/1FF 1:ST SHIFT STATE 4 PTES200 EQU * Z P XRR A2,A3 n P ANK A2,/FF P RF(Z) TES240 NO BIT ERRORS P ECR A2,A2 P LDR A2,A2 P RF(NN) TES220 PTES210 EQU * P I
0x3d6f98…3d712c Dummy {f00=0x018a, f01=0x0190, f02=» P RF(E) TES300 P CF A5,READ P CF A5,PATGEN . P LDR A2,A2 D P RF(N) TES400 V P RB TES200 l P* ~ P* COMPLETE PATTERN RECEIVED P* PTES300 EQU * P CF A5,HALTIN P LDKL A1,TES320 P ST A1,STB,A6
0x3d712c…3d72c0 Dummy {f00=0x018a, f01=0x0190, f02=»OG P XIF P CF A15,TENDIO P CF A5,DISCON , P ABL TDISP B P EJECT T P* b P* TIME OUT l P* ~ PTLTO EQU * P LDR A6,A1 P LD A7,DWTA7,A6 P LD A5,DWTA5,A6 P LDK A1,NORESP P RB TES340 P*
0x3d72c0…3d7454 (5, 72) Dummy {f00=0x014c, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x3d7454…3d75e8 Dummy {f00=0x014c, f01=0x0002, f02=»)
0x3d75e8…3d777c Dummy {f00=0x014c, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x3d777c…3d7910 Dummy {f00=0x014c, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x3d7910…3d7aa4 Dummy {f00=0x014c, f01=0x0190, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x3d7aa4…3d7c38 Dummy {f00=0x014c, f01=0x416e, f02=»ON P DATA FDON P DATA LPON FLOPPY P DATA CRON CARD-READER 6 P DATA DUON T P DATA MDON MINI FIXED DISC f P DATA MTDRON P DATA FMINIT FILE MANAGEMENT P DATA DMINIT P DATA SLCUON SALCUZ P DATA ASCUON ASCU4Z
0x3d7c38…3d7dcc Dummy {f00=0x014c, 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
0x3d7dcc…3d7f60 Dummy {f00=0x014c, f01=0x2008, f02=»
0x3d7f60…3d80f4 (5, 73) Dummy {f00=0x0179, f01=0x2008, f02=»
0x3d80f4…3d8288 Dummy {f00=0x0179, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x3d8288…3d841c Dummy {f00=0x0179, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x3d841c…3d85b0 Dummy {f00=0x0179, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x3d85b0…3d8744 Dummy {f00=0x0179, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x3d8744…3d88d8 Dummy {f00=0x0179, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x3d88d8…3d8a6c Dummy {f00=0x0179, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x3d8a6c…3d8c00 Dummy {f00=0x0179, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x3d8c00…3d8d94 (5, 74) Dummy {f00=0x017a, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x3d8d94…3d8f28 Dummy {f00=0x017a, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x3d8f28…3d90bc Dummy {f00=0x017a, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x3d90bc…3d9250 Dummy {f00=0x017a, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x3d9250…3d93e4 Dummy {f00=0x017a, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x3d93e4…3d9578 Dummy {f00=0x017a, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x3d9578…3d970c Dummy {f00=0x017a, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x3d970c…3d98a0 Dummy {f00=0x017a, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x3d98a0…3d9a34 (5, 75) Dummy {f00=0x017a, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x3d9a34…3d9bc8 Dummy {f00=0x017a, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x3d9bc8…3d9d5c Dummy {f00=0x017a, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x3d9d5c…3d9ef0 Dummy {f00=0x017a, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x3d9ef0…3da084 Dummy {f00=0x017a, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x3da084…3da218 Dummy {f00=0x017a, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x3da218…3da3ac Dummy {f00=0x017a, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x3da3ac…3da540 Dummy {f00=0x017a, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x3da540…3da6d4 (5, 76) Dummy {f00=0x017d, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x3da6d4…3da868 Dummy {f00=0x017d, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x3da868…3da9fc Dummy {f00=0x017d, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x3da9fc…3dab90 Dummy {f00=0x017d, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x3dab90…3dad24 Dummy {f00=0x017d, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x3dad24…3daeb8 Dummy {f00=0x017d, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x3daeb8…3db04c Dummy {f00=0x017d, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x3db04c…3db1e0 Dummy {f00=0x017d, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x3db1e0…3db374 (5, 77) Dummy {f00=0x0188, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x3db374…3db508 Dummy {f00=0x0188, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x3db508…3db69c Dummy {f00=0x0188, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x3db69c…3db830 Dummy {f00=0x0188, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x3db830…3db9c4 Dummy {f00=0x0188, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x3db9c4…3dbb58 Dummy {f00=0x0188, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x3dbb58…3dbcec Dummy {f00=0x0188, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x3dbcec…3dbe80 Dummy {f00=0x0188, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x3dbe80…3dc014 (5, 78) Opaque[0x194]
0x3dc014…3dc1a8 # DirEnt {nam=»SCLASS«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d0, f03=0x0000}
0x3dc014…3dc1a8 IdxSect {
0x3dc014…3dc1a8 f00 = 0x0126 // 0x3dc014 @0x0
0x3dc014…3dc1a8 f01 = 0x0004 // 0x3dc016 @0x2
0x3dc014…3dc1a8 gno = [ // 0x3dc018 @0x4
0x3dc014…3dc1a8 [0x00]: C0x0126.0x2.0
0x3dc014…3dc1a8 [0x01]: C0x017d.0x2.0
0x3dc014…3dc1a8 ]
0x3dc014…3dc1a8 }
0x3dc1a8…3dc33c Dummy {f00=0x0126, f01=0x0190, f02=» 2 P IDENT SCLASS REL 10.0 80-03-14 870105041000 P : P* B P* L P ENTRY SCLASS V P* l P* v P EXTRN DWTC01 P EXTRN DWSI01 P EXTRN DWSO01 P EXTRN DWTC02 P
0x3dc33c…3dc4d0 Dummy {f00=0x0126, f01=0x0190, f02=» P* P* PSCLASS DATA TCLASE-* P DATA TC00 4 P DATA TC01 R P DATA TC02 p P DATA TC03 P DATA TC04 P DATA TC05 P DATA TC06 PTC
0x3dc4d0…3dc664 Dummy {f00=0x0126, f01=0x0190, f02=»010 | P DATA DWSI01 P DATA /0011 , P DATA DWSO01 L PTC00E EQU * l PTC01 DATA TC01E-* P DATA /0013 P DATA DWTC02 PTC01E EQU * PTC
0x3dc664…3dc7f8 Dummy {f00=0x0126, f01=0x0190, f02=»A TC03E-* P DATA /00C0 P DATA DWDM01 6 PTC03E EQU * V PTC04 DATA TC04E-* r P DATA /00C1 P DATA DWDM01 PTC04E EQU * PTC05 DATA TC05E-
0x3dc7f8…3dc98c Dummy {f00=0x0126, f01=0x0190, f02=» DATA /02F2 P DATA DWDU01 P DATA /03F3 6 P DATA DWDU01 V P DATA /00F0 l P DATA DWDU01 P DATA /01F1 P DATA DWDU01 P DATA /00F8 P DATA DWFD01
0x3dc98c…3dcb20 Dummy {f00=0x0126, f01=0x404c, f02=»B z P DATA DWFD01 PTC06E EQU * P END <@ H3 6 P DATA DWDU01 V P DATA /00F0 l P DATA DWDU01 P DATA /01F1 P DATA DWDU01 P DATA /00F8 P DATA DWFD01
0x3dcb20…3dccb4 (5, 79) Dummy {f00=0x017d, f01=0x2008, f02=» NT TCLASS * * $ * . ENTRY TCLASS 8 * N * X * b * l * v * * TCLASS DATALTCLASE-* TCLASE EQU * END @ 1 INTLT2 INTRT1
0x3dccb4…3dce48 Dummy {f00=0x017d, f01=0x0002, f02=»/
0x3dce48…3dcfdc Dummy {f00=0x017d, f01=0x4162, f02=» J F IDENT TCLASS REL 10.0 80-03-14 870105041000 TCLASSK R TCLASSK d DVKB00 x DVDY00 DVKB01 , ( D 0 DVDY01 DVGP02
0x3dcfdc…3dd170 Dummy {f00=0x017d, f01=0x2008, f02=»
0x3dd170…3dd304 Dummy {f00=0x017d, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x3dd304…3dd498 Dummy {f00=0x017d, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x3dd498…3dd62c Dummy {f00=0x017d, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x3dd62c…3dd7c0 Dummy {f00=0x017d, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x3dd7c0…3dd954 (5, 80) Opaque[0x194]
0x3dd954…3ddae8 # DirEnt {nam=»MONTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24f0, f03=0x0000}
0x3dd954…3ddae8 IdxSect {
0x3dd954…3ddae8 f00 = 0x0127 // 0x3dd954 @0x0
0x3dd954…3ddae8 f01 = 0x0002 // 0x3dd956 @0x2
0x3dd954…3ddae8 gno = [ // 0x3dd958 @0x4
0x3dd954…3ddae8 [0x00]: C0x0127.0x2.0
0x3dd954…3ddae8 ]
0x3dd954…3ddae8 }
0x3ddae8…3ddc7c Dummy {f00=0x0127, f01=0x0190, f02=» 2 P IDENT MONTAB REL 10.0 80-03-14 870105041000 P : P* B 6 P* THIS TABLE CONTAINS ADDRESSES TO CONFIGURATION L P* DEPENDENT MONITOR TABLES P* P* P ENTRY MONTAB,SPDLCI P ENTRY FREQUE P ENTRY PAGQUE P E
0x3ddc7c…3dde10 Dummy {f00=0x0127, f01=0x0190, f02=» INTRT3 P ENTRY INTRT4,INTAS,INTSL P* 2 P EXTRN SYSLOD < P**** R P EXTRN CTAB01 ^ P EXTRN KBAD3 t P EXTRN KBAD P EXTRN GPAD P EXTRN DYAD P* P P PMONTAB EQU * PFREQUE DATA 0 P
0x3dde10…3ddfa4 Dummy {f00=0x0127, f01=0x4138, f02=»TRT2 DATA 0 PINTRT3 DATA 0 PINTRT4 DATA 0 * P DATA SYSLOD @ P**** T P DATA CTAB01 ` P DATA KBAD3 v P DATA KBAD P DATA GPAD P DATA DYAD P* PINTAS DATA 0 PINTSL DATA 0 2 PSPDLCI DATA 0 LIGHTS C
0x3ddfa4…3de138 Dummy {f00=0x0127, 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
0x3de138…3de2cc Dummy {f00=0x0127, f01=0x0190, f02=»T A4,ECBEL,A8 SET EFFECTIVE LENGTH P* * P IFT MMUPAG=0 4 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS J P* v P EJECT DSKSUB P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT
0x3de2cc…3de460 Dummy {f00=0x0127, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU T P TL TTB:MT,A2 LOAD USER MMU x & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME N
0x3de460…3de5f4 (5, 81) Opaque[0x194]
0x3de5f4…3de788 # DirEnt {nam=»SYSTAB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f10, f03=0x0000}
0x3de5f4…3de788 IdxSect {
0x3de5f4…3de788 f00 = 0x0178 // 0x3de5f4 @0x0
0x3de5f4…3de788 f01 = 0x0006 // 0x3de5f6 @0x2
0x3de5f4…3de788 gno = [ // 0x3de5f8 @0x4
0x3de5f4…3de788 [0x00]: C0x0178.0x2.0
0x3de5f4…3de788 [0x01]: C0x0178.0x3.0
0x3de5f4…3de788 [0x02]: C0x0179.0x0.0
0x3de5f4…3de788 ]
0x3de5f4…3de788 }
0x3de788…3de91c Dummy {f00=0x0178, f01=0x0190, f02=» 2 P IDENT SYSTAB REL 10.0 80-03-14 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x3de91c…3deab0 Dummy {f00=0x0178, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x3deab0…3dec44 Dummy {f00=0x0178, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x3dec44…3dedd8 Dummy {f00=0x0178, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x3dedd8…3def6c Dummy {f00=0x0178, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x3def6c…3df100 Dummy {f00=0x0178, f01=0x0190, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x3df100…3df294 (5, 82) Dummy {f00=0x0178, f01=0x0190, f02=»QU -4 FILE CODE $ PSEG:NS EQU -2 NUMBER OF SEGMENTS PSEG:ST EQU 0 STATUS @ $ PSEG:DS EQU 2 DISC SECTOR ADDRESS " PSEG:EL EQU 4 EFFECTIVE LENGTH $ PSEG:PB EQU 6 PAGE BLOCK ADDRESS P* & PPAG:QF EQU 0 QUEUE POINTER FORWARD ( PPA
0x3df294…3df428 Dummy {f00=0x0178, f01=0x0190, f02=»QU 0 NUMBER OF COPIES WITHIN SWB TYPE 2 PSWB:DS EQU 2 DISC SECTOR ADDRESS OF FIRST COPY . $ PSWB:EL EQU 4 SWB LENGTH (BYTES) d & PSWB:NS EQU 6 SWB LENGTH (SECTORS) P* P P P P P EJECT SYSTAB P* P* INTE
0x3df428…3df5bc Dummy {f00=0x0178, f01=0x0190, f02=» | P DATA ILLINT 4 P DATA ILLINT 5 $ P DATA ILLINT 6 @ P DATA ILLINT P DATA IHTC 8 | P DATA IHSOP 9 P DATA ILLINT P DATA ILLINT P DATA ILLI
0x3df5bc…3df750 Dummy {f00=0x0178, f01=0x0190, f02=» DATA ILLINT P DATA ILLINT P DATA ILLINT 8 P DATA ILLINT X P DATA ILLINT x P DATA ILLINT 22 P DATA ILLINT P DATA CHLT1 24 P DATA ILLINT
0x3df750…3df8e4 Dummy {f00=0x0178, f01=0x0190, f02=»FD 30 P DATA ILLINT 31 P DATA ILLINT 32 . P DATA ILLINT 33 J P DATA IHLP 34 f P DATA ILLINT P DATA ILLINT 36 P DATA ILLINT 37 P DATA ILLINT 38 P DATA ILLINT 39
0x3df8e4…3dfa78 Dummy {f00=0x0178, f01=0x0190, f02=» ILLINT P DATA ILLINT 45 P DATA ILLINT 46 , P DATA ILLINT 47 H P DATA ILLINT d P DATA ILLINT 49 P DATA ILLINT 50 P DATA ILLINT 51 P DATA ILLINT 52 P DATA ILLINT 53
0x3dfa78…3dfc0c Dummy {f00=0x0178, f01=0x0190, f02=» 58 P DATA ILLINT 59 P DATA ILLINT 60 ( P DATA ILLINT 61 D P DATA ILLINT 62 ` P DATA TRAP TRAP ROUTINE | P EJECT SYSTAB P P* " P* SYSTEM CONTROL TABLE POINTER P* P DATA SCT P
0x3dfc0c…3dfda0 Dummy {f00=0x0178, f01=0x018e, f02=» P* DEBUG RESTART ENTRY P* & P XRR A13,A13 0 P XRR A14,A14 D P LD A1,SCTBUG X P ABR(NZ) A1 n P HLT P* P EJECT SYSTAB P* P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM
0x3dfda0…3dff34 (5, 83) Dummy {f00=0x0179, f01=0x0190, f02=» $ PX:F EQU 0 FILE WORK TABLE LENGTH PX:G EQU 0 DC TASK IN SYSTEM , P* P P EJECT SYSTAB Z P* r P* SYSTEM CONTROL TABLE | P* PSCT EQU * P * PSCTMSZ DATA 0 MEMORY SIZE MOD K BYTES & PSCTSFA DATA 0,0 START OF FRE
0x3dff34…3e00c8 Dummy {f00=0x0179, f01=0x0190, f02=» j $ PSCTANO DATA 0 APPLICATION NUMBER 4 PSCTADA DATA 0,0 APPLICATION DISC SECTOR ADDRESS 0 . PSCTIOE DATA 0 APPLICATION RESTART ADDRESS h PSCTTCT DATA 0 TCTAB ADDRESS PSCTCDT DATA 0 CDTAB ADDRESS PSCTPAG DATA 0 PAGTAB ADDRESS PSC
0x3e00c8…3e025c Dummy {f00=0x0179, f01=0x0190, f02=»ART ENTRY p P INDEX REL TTAB 0 PSCTLAC DATA 0 LOGICAL ADDRESS OF COMMON PART , & PSCTMMP DATA 0 MMU TABLE PAGE ENTRY ` P INDEX REL TTAB * PSCTLAP DATA 0 LOGICAL ADDRESS OF PAGES ( PSCTNPE DATA 0 NUMBER OF PAGE ENTRIES & PSCTSTB DAT
0x3e025c…3e03f0 Dummy {f00=0x0179, f01=0x0190, f02=»5:MMUPAG x PSCTBUG DATA 0 DEBUGGER ( PSCTDMT DATA 00003 DMTASKS IN SYSTEM . & P BIT 12:#G, 13:#F, 14:#E, 15:#D Z 2 PSCTDMI DATA 00004 DM INDEX RECORD BUFFER SIZE P EJECT SYSTAB P* P* * PSCTFWT DATA 0 FWT CHAIN START ADDR
0x3e03f0…3e0584 Dummy {f00=0x0179, f01=0x4182, f02=»NGTH l ( PSCTBLK DATA 6 NUMBER OF BLOCKS/TASK , PSCTDCT DATA X:G DC-TASK IN SYSTEM/REMOTE 8 P EJECT SYSTAB h P P* P* SYSTEM STACK P* P RES 143 P DATA /FCC0 AND PSW & PSTB DATA LOOP AND PC FOR IDLE LOOP P
0x3e0584…3e0718 Dummy {f00=0x0179, 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
0x3e0718…3e08ac Dummy {f00=0x0179, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x3e08ac…3e0a40 Dummy {f00=0x0179, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x3e0a40…3e0bd4 (5, 84) Opaque[0x194]
0x3e0bd4…3e0d68 # DirEnt {nam=»TDISP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2538, f03=0x0000}
0x3e0bd4…3e0d68 IdxSect {
0x3e0bd4…3e0d68 f00 = 0x0129 // 0x3e0bd4 @0x0
0x3e0bd4…3e0d68 f01 = 0x0008 // 0x3e0bd6 @0x2
0x3e0bd4…3e0d68 gno = [ // 0x3e0bd8 @0x4
0x3e0bd4…3e0d68 [0x00]: C0x0129.0x3.0
0x3e0bd4…3e0d68 [0x01]: C0x012a.0x0.0
0x3e0bd4…3e0d68 [0x02]: C0x012a.0x1.0
0x3e0bd4…3e0d68 [0x03]: C0x012a.0x2.0
0x3e0bd4…3e0d68 ]
0x3e0bd4…3e0d68 }
0x3e0d68…3e0efc Dummy {f00=0x0129, f01=0x0190, f02=» 0 P IDENT TDISP REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TDISP = TOSS DISPATCHER P* 6 P****************
0x3e0efc…3e1090 Dummy {f00=0x0129, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x3e1090…3e1224 Dummy {f00=0x0129, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x3e1224…3e13b8 Dummy {f00=0x0129, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x3e13b8…3e154c Dummy {f00=0x0129, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x3e154c…3e16e0 Dummy {f00=0x0129, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x3e16e0…3e1874 (5, 85) Dummy {f00=0x012a, f01=0x0190, f02=» QUEUE BACKWARD POINTER ~ P EXTRN TENDIO END I/O P EXTRN EXIT PROGRAM EXIT > 2 P EXTRN QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK ^ , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN SCTLAP LOGICAL ADDRESS OF CODE PAGE & P EXTRN SCTMMP MMU
0x3e1874…3e1a08 Dummy {f00=0x012a, f01=0x0190, f02=»*************** v P* P* CONDITIONAL ASSEMBLY " P* @ . P***************************************** J P* | . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x3e1a08…3e1b9c Dummy {f00=0x012a, f01=0x0190, f02=»U852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING & * &* IS OBTAINED BY SETTING DSKPAG EQU 1. X * PDSKPAG EQU 0 * P* @ P* A PROGRAM VERSION PREVENTING SEGMENTS TO MOVE WHEN HAVING > P* APPLICATIO
0x3e1b9c…3e1d30 Dummy {f00=0x012a, f01=0x0190, f02=» P* P EJECT TDISP P* ( P* D I S Q U E 2 P* J 2 P* POINTER TO FIRST TASK IN DISPATCHER QUEUE T P* PDISQUE DATA 0 P* P* P R U N P* $ P* TTAB ADDRESS OF RUNNING TASK P* PPRUN
0x3e1d30…3e1ec4 Dummy {f00=0x012a, f01=0x018e, f02=» P* PRETUR8 EQU * P " P IFT CPU852=0 * P MLR 8,A15 @ P XIF R P ^ P IFT CPU852=1 f P LDR* A8,A15 | P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15 P
0x3e1ec4…3e2058 Dummy {f00=0x012a, f01=0x0190, f02=» h P* 2 P* DO EXIT ON (MONITOR) TASK AND GO TO TDISP P* H 2 PQMEXIT CF A15,QTJOB QUEUE TASK FOR DISPATCHING R P* PMEXIT INH P LD A5,PRUN P CM PRUN P* PTEXIT EQU * P CF A15,EXIT P RF TDISP
0x3e2058…3e21ec Dummy {f00=0x012a, f01=0x0190, f02=» RF TDISP P EJECT TDISP P ( P* 0 P* D I S I O E : P* R 6 P* SET BIT 0 IN ECB RETURN CODE AND GO TO DISEND P* PDISIOE LDKL A1,/8000 P P* P* D I S E N D P* $ P* CALL TENDIO AND GO T
0x3e21ec…3e2380 Dummy {f00=0x012a, f01=0x0190, f02=»ISP) r P* PTPAUSE EQU * P EJECT TDISP * P* @ P* T D I S P J P* ` $ P* THIS IS THE DISPATCHER ENTRY j P* PTDISP INH & P LC A1,18,A15 LOAD PSW FROM STACK P ANK A1,/FC P SUK A1,/C4 . P RB(L) R
0x3e2380…3e2514 (5, 86) Dummy {f00=0x012a, f01=0x0190, f02=» P RB(Z) RETUR8 QUEUE EMPTY P * P LD A5,PRUN 2 $ P RF(Z) TDCQ10 IDLE LOOP RUNNING F & P LD A4,TTB:ST+1,A5 COMPARE RUNNING n 4 P CC A4,TTB:ST+1,A3 AND QUEUED TASK'S PRIORITIES * P RB(NG) RETUR8 RUNNING HIGHER OR SAME $ PTDCQ10 LDR
0x3e2514…3e26a8 Dummy {f00=0x012a, f01=0x0190, f02=»DDR l P RF(Z) TDISSW NONE P LDR* A7,A1 & P RF(N) TDISSW SEGMENT LOADED : 2 P CF A15,QLTDSK SEGM NOT LOADED QUEUE LOAD TASK ^ & P RB TDISCQ TAKE NEXT TASK INSTEAD P XIF P EJECT TDISP P* P* SWITCH TASKS P* *
0x3e26a8…3e283c Dummy {f00=0x012a, f01=0x018e, f02=»0 QUEUE OLD TASK FIRST ON PRIORITY P RF(Z) TDSW20 EMPTY QUEUE * 0 PTDSW10 CC A4,TTB:ST+1,A6 COMPARE PRIORITIES L 0 P RF(NG) TDSW20 SAME OR LOWER PRIORITY FOUND P LDR A2,A6 P LDR* A6,A2 , P RB(NZ) TDSW10 STILL SOMETHING IN QUEUE
0x3e283c…3e29d0 Dummy {f00=0x012a, f01=0x0190, f02=» P IFT CPU852=0 P MLR 8,A15 P MS 13,TTB:SA+2,A14 , P MLR 2,A15 H P Z P XIF b P IFT CPU852=1 n P LDR* A8,A15 P LDR* A7,A15 P LDR* A6,A15 P LDR* A5,A15 P LDR* A4,A15 P LDR* A3,A15 P LDR* A2,A15
0x3e29d0…3e2b64 Dummy {f00=0x012a, f01=0x0190, f02=»A14 ~ P ST A9,TTB:SA+18,A14 P ST A8,TTB:SA+16,A14 ( P ST A7,TTB:SA+14,A14 D P ST A6,TTB:SA+12,A14 ` P ST A5,TTB:SA+10,A14 | P ST A4,TTB:SA+8,A14 P ST A3,TTB:SA+6,A14 P ST A2,TTB:SA+4,A14 P ST A1,TTB:SA+2,A14 P
0x3e2b64…3e2cf8 Dummy {f00=0x012a, f01=0x0190, f02=»FT DSKPAG+DIFPRI=2 P * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR " P RF(Z) TDISST NONE P P LDR* A2,A1 GET SEGM STATUS j P LDKL A3,/1000 , P TM A2,A3 CHECK IF SEGM USED BY INT TASK P RF(NZ) TDISST YES * P ORRS A3,A1 SET SEGM USED
0x3e2cf8…3e2e8c Dummy {f00=0x012a, f01=0x0190, f02=» P* START NEW TASK P* PTDISST LD A14,PRUN & P IFT DSKPAG=1 @ P V * P LD A1,TTB:SB,A14 GET SEGM BLOCK ADDR ^ P RF(Z) TDST30 NONE ( P LD A4,SEG:PB,A1 GET PAGE BLOCK ADDR P IFT DIFPRI=0 P ( P LDR* A2,A4 CHECK IF PAG
0x3e2e8c…3e3020 Dummy {f00=0x012a, f01=0x0190, f02=»IN PAGQUE v P RF(NZ) TDST10 YES " P LDR* A3,A1 NO GET SEGM STATUS , 2 P ANKL A3,/1000 CHECK IF SEGM USED BY INT TASK R P RF(Z) TDST20 NO 4 P CW A14,PAG:QB,A4 YES CHECK IF IT WAS THIS TASK P RF(NE) TDST20 NO * P XRRS A3,A1 YES RESET
0x3e3020…3e31b4 (5, 87) Dummy {f00=0x012a, f01=0x0190, f02=»E d P STR A2,A3 P ST A3,PAG:QB,A2 P CMR A4 4 P D , PTDST20 LD A1,PAG:PA,A4 GET PAGE ADDRESS L P | P IFT MMUPAG=1 P " P ECR A2,A1 CALC PHYS PAGE ADDR P ANK A2,/FC * P LDR A3,A14 AND MMU PAGE ENTRY IN TTAB
0x3e31b4…3e3348 Dummy {f00=0x012a, f01=0x0190, f02=»UK A4,1 P RF(Z) TDST25 P ADK A2,4 & P ADK A3,2 8 P RB TDST22 J P PTDST25 EQU * d " P TL TTB:MT,A14 LOAD MMU TABLE x 2 P SLL A1,2 UPDATE BASE IN T:A ALSO JUST IN CASE P ANKL A1,/FFE P OR A1,SCTLAP 2 P ES* A1,
0x3e3348…3e34dc Dummy {f00=0x012a, f01=0x0190, f02=»E CURRENT SEGMENT BASE x P XIF P * PTDST30 EQU * 2 P IFT MMUPAG=1 F " P TL TTB:MT,A14 LOAD MMU TABLE P XIF P & PTDST35 LD A1,TTB:SA,A14 GET NEW PC P LD A2,TTB:PW,A14 AND PSW P IFT CPU852=0 P & P MSR 2,A
0x3e34dc…3e3670 Dummy {f00=0x012a, f01=0x0190, f02=»5 PUT PC P STR A2,A15 AND PSW ON STACK & P LD A1,TTB:SA+2,A14 LOAD REGISTERS 4 P LD A2,TTB:SA+4,A14 ^ P LD A3,TTB:SA+6,A14 z P LD A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3e3670…3e3804 Dummy {f00=0x012a, f01=0x4098, f02=» z P LD A13,TTB:SA+26,A14 P LD A14,TTB:SA+28,A14 & P D P XIF L P X P RTN A15 START THE TASK ` P P END @ D A4,TTB:SA+8,A14 P LD A5,TTB:SA+10,A14 P LD A6,TTB:SA+12,A14 P LD A7,TTB:SA+14,A14 P L
0x3e3804…3e3998 Dummy {f00=0x012a, 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
0x3e3998…3e3b2c Dummy {f00=0x012a, f01=0x0190, f02=»SEGMENT 3 n P* 4 P LDR A2,A8 GET MMU ENTRY 4 & P SLL A2,12 MOVE TO 4 LEFTMOST BITS 4 : , P ANKL A2,/F000 MMU ENTRY TO LOGICAL PAGE 4 d P ST A2,SCTLAP SAVE 4 P ADR A2,A4 ADD DISPLACEMENT 4 P ST A2,SAVE08,A13 SAVE 4 , P LDR A2,A8 GET MMU ENTRY
0x3e3b2c…3e3cc0 Dummy {f00=0x012a, f01=0x0190, f02=» IN SYSTAB 4 ~ P* 5 & P* COMPUTE NUMBER OF PAGE ENTRIES 5 P* 5 F P LDKL A2,16 5 P P SUR A2,A8 5 d P ST A2,SCTNPE 5 v P RF AP:335 5 PAP:330 EQU * 5 P* 5 8 P* THIS ENTRY IS ENTERED IF MMU OPTION IN SYSTEM BUT 5 > P* THE APPLICATI
0x3e3cc0…3e3e54 (5, 88) Opaque[0x194]
0x3e3e54…3e3fe8 # DirEnt {nam=»LRPINT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2588, f03=0x0000}
0x3e3e54…3e3fe8 IdxSect {
0x3e3e54…3e3fe8 f00 = 0x012c // 0x3e3e54 @0x0
0x3e3e54…3e3fe8 f01 = 0x000a // 0x3e3e56 @0x2
0x3e3e54…3e3fe8 gno = [ // 0x3e3e58 @0x4
0x3e3e54…3e3fe8 [0x00]: C0x012c.0x1.0
0x3e3e54…3e3fe8 [0x01]: C0x014c.0x3.0
0x3e3e54…3e3fe8 [0x02]: C0x014d.0x0.0
0x3e3e54…3e3fe8 [0x03]: C0x0172.0x3.0
0x3e3e54…3e3fe8 [0x04]: C0x0173.0x0.0
0x3e3e54…3e3fe8 ]
0x3e3e54…3e3fe8 }
0x3e3fe8…3e417c Dummy {f00=0x012c, f01=0x018e, f02=» 2 P IDENT LRPINT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* LRPINT = INTERRUPT HANDLERS FOR LKM, RTC " P*
0x3e417c…3e4310 Dummy {f00=0x012c, 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*
0x3e4310…3e44a4 Dummy {f00=0x012c, f01=0x0190, f02=»QUEUE JOB AND DISPATCH v P* ( P* -LKMQDI: QUEUE JOB AND DISPATCH ( P* T P EJECT LRPINT ^ P* v P* P*********** P* ENTRIES * P*********** P* P* & P ENTRY IHLKM LKM INTERRUPT HANDLER 4 P ENT
0x3e44a4…3e4638 Dummy {f00=0x012c, f01=0x018e, f02=»RROR d ( P ENTRY LKMQDI QUEUE JOB AND DISPATCH & P ENTRY IHRTC RTC INTERRUPT HANDLER 8 8 P ENTRY TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE b P ENTRY MONCLO MONITOR CLOCK 2 P ENTRY IHPFAR POWER FAILURE INTERRUPT HANDLER & P ENTRY INIFLG IN
0x3e4638…3e47cc Dummy {f00=0x012c, f01=0x0190, f02=» P* EXTERNALS * P************* P* 0 P* : P EXTRN TDISP DISPATCHER D " P EXTRN DISQUE DISPATCHER QUEUE d ( P EXTRN PRUN TTAB OF RUNNING PROGRAM " P EXTRN MEXIT MONITOR TASK EXIT , P EXTRN MONMMU MONITOR (SYSTEM) MMU TABLE
0x3e47cc…3e4960 Dummy {f00=0x012c, f01=0x0190, f02=» LEVEL XY z P EXTRN FREBLK SET BLOCK FREE " P EXTRN SAVE8 SAVE 8 REGISTERS 6 $ P EXTRN PFINIT RESTART OF DEVICES P EXTRN HALT HALT MODULE ( P EXTRN INTSAV INTERRUPT SAVE MODULE P EXTRN RELPAG RELEASE PAGE , P EXTRN TLDSEG LOAD SEG
0x3e4960…3e4af4 (5, 89) Dummy {f00=0x014c, f01=0x0190, f02=» OF SAVE AREA IN TTAB x " P EXTRN LKMAL LKM REQUEST TABLE P EJECT LRPINT D P* P* f . P***************************************** p P* P* CONDITIONAL ASSEMBLY P* . P***************************************** P*
0x3e4af4…3e4c88 Dummy {f00=0x014c, f01=0x0190, f02=» P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. L P* ~ PCPU852 EQU 1 P* * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1.
0x3e4c88…3e4e1c Dummy {f00=0x014c, f01=0x0190, f02=»ETTING MONCLK EQU 0. ~ P* PX:A EQU 1 & PMONCLK EQU 1 8 P* L P EJECT LRPINT V P* n P* x P* I H L K M P* P* 8 P* THIS IS THE LKM INTERRUPT HANDLER. THE FOLLOWING P* STEPS ARE CARRIED OUT:
0x3e4e1c…3e4fb0 Dummy {f00=0x014c, f01=0x0190, f02=»* PROGRAM. P* : P* - EXIT CONDITIONS ARE SET AND A BRANCH IS MADE TO $ P* APPROPRIATE LKM PROCESSOR. ^ P* P* EXIT CONDITIONS ARE: P* * P* A4 = LABEL ADDRESS OF LKM REQUEST 8 P* (A4 = 0 INDICATES NO LA
0x3e4fb0…3e5144 Dummy {f00=0x014c, f01=0x0190, f02=» P* : P* ALL OTHER REGISTERS REMAIN UNCHANGED FROM CALLING P* PROGRAM. L P* ` P* j P* t PIHLKM EQU * ~ $ P ST P,INTSAV SAVE LAST INTERRUPT * P RIT /1D RESET INTERNAL INTERRUPT FLAG P* P EJECT LRPINT
0x3e5144…3e52d8 Dummy {f00=0x014c, f01=0x0190, f02=»B:SA+28 SET A15 TO LAST IN SAVE AREA * P STR A14,A15 SAVE USER REGISTERS, -A14 , P STR A13,A15 -A13 Z P STR A12,A15 -A12 t P STR A11,A15 -A11 P STR A10,A15 -A10 P STR A9,A15 -A9 P STR A8,A15 -A8 P STR A7,A15 -A7
0x3e52d8…3e546c Dummy {f00=0x014c, f01=0x0190, f02=»1 P XIF P* P IFT CPU852=0 6 P MS 14,TTB:SA+2,A15 SAVE A1-A14 IN TTAB SAVE AREA 6 P XIF p P* | 0 P LD A5,PRUN GET TTAB ADDRESS OF CALLING TASK * P LDKL A15,0 RESTORE A15 STACK POINTER PLKM010 EQU *-2 P* P
0x3e546c…3e5600 Dummy {f00=0x014c, f01=0x0190, f02=»STACK POINTER n & P ST A3,TTB:PW,A5 STORE PSW IN TTAB P* @ P IFT MMUPAG=0 J & P LD A3,-2,A2 GET INSTRUCTION CODE ` " P LDR* A6,A2 GET DATA DIRECTIVE P XIF P* P IFT MMUPAG=1 P ANK A3,1 P RF(NZ) LKM015 USER MODE
0x3e5600…3e5794 (5, 90) Dummy {f00=0x014d, f01=0x0190, f02=»ET DATA DIRECTIVE P XIF P* & P CWK A3,/2804 0 P RF(E) LKM025 LKM F P CWK A3,/6300 ` P RF(E) LKM025 TRAP v P* $ P* STACK OVERFLOW: HALT SYSTEM P* P LDK A1,7 HALT PARAMETER 0 P RF LKM070 HALT SYSTEM DUE T
0x3e5794…3e5928 Dummy {f00=0x014d, f01=0x018e, f02=» GET SEGMENT BLOCK ADDRESS P RF(Z) LKM027 NO SEGMENT " " P LCR A4,A3 GET SEGMENT STATUS B , P ANK A4,/1E CHECK IF CORE RESIDENT OR... h 2 P RF(NZ) LKM027 ...USED BY AN INTERRUPTED TASK P* ( P* INSERT PAGE BLOCK IN PAGE QUEUE P*
0x3e5928…3e5abc Dummy {f00=0x014d, f01=0x018e, f02=» PLKM027 EQU * P IFF MMUPAG+DSKPAG=0 " P CWK A6,9 CHECK DATA DIRECTIVE 4 ( P ABL(E) TLDSEG LOAD SEGMENT REQUEST Z P XIF P* P EJECT LRPINT P* P* PLKM030 EQU * ( P CM PRUN INDICATE IDLE LOOP RUNNING $ P
0x3e5abc…3e5c50 Dummy {f00=0x014d, f01=0x0190, f02=» P* LKM REQUEST WITH LABEL P* & P ADK A2,2 0 , P NGR A3,A3 MAKE DATA DIRECTIVE POSITIVE B P* r P IFT MMUPAG=0 | P LDR* A4,A2 GET LABEL P XIF P* P IFT MMUPAG=1 P ELR A4,A2 GET LABEL P XIF P*
0x3e5c50…3e5de4 Dummy {f00=0x014d, f01=0x0190, f02=»EXT ADDRESS TO $ P ST A2,TTB:SA,A5 EXECUTE IN TTAB " P ADR A3,A3 GET INDEX IN LKMAL > ( P RF(Z) LKMQDI PROGRAM SWITCH REQUEST d P CW A3,LKMAL * P RF(NL) LKMRQE INVALID DATA DIRECTIVE P INH P LD A3,LKMAL,A3 ( P ABR(NZ) A3 BRANCH
0x3e5de4…3e5f78 Dummy {f00=0x014d, f01=0x0190, f02=»1,15 INDICATE REQUESTED LKM PROC. NOT PRESENT P* 6 PLKM070 EQU * @ P CF A15,HALT HALT SYSTEM T P* t P* ~ P* L K M R Q E P* 6 P* SET A7 = -1, QUEUE TERMINAL JOB AND DISPATCH. P* P* A5 = TTAB ADDRESS
0x3e5f78…3e610c Dummy {f00=0x014d, f01=0x0190, f02=» L K M Q D I P* ( P* QUEUE TERMINAL JOB AND DISPATCH. P* L P* A5 = TTAB ADDRESS V P* t P* ~ PLKMQDI EQU * P CF A15,QTJOB P* * PT:DISP EQU * COMMON EXIT TO DISPATCHER P ABL TDISP GO TO DISPATCHER
0x3e610c…3e62a0 Dummy {f00=0x014d, f01=0x0190, f02=»LER. Z P* P P P & P DATA 0 . & PTTABPF DATA 0 TTAB FOR POWER FAIL > P DATA '#P' h P DATA 0 z PA15SAV DATA 0 P DATA /00C0 P DATA PFTASK P P P P P & PPFX DATA 1 POWER ON/OFF
0x3e62a0…3e6434 (5, 91) Dummy {f00=0x0172, f01=0x018e, f02=» * PPFPOST DATA 0 PWF POST PROCESSING FLAG P NZ=PWF POST PROCESSING 6 P EJECT LRPINT X P p P* x * P* POWER FAIL/AUTO RESTART INTERRUPT P* P PIHPFAR EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT & P RIT /17
0x3e6434…3e65c8 Dummy {f00=0x0172, f01=0x018e, f02=» P* P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A14 ON STACK $ P STR A9,A15 N P STR A10,A15 b P STR A11,A15 v P STR A12,A15 P STR A13,A15 P STR A14,A15 P XIF P P IFT CPU852=0 $ P MSR 14,A15 SAVE A1-A14
0x3e65c8…3e675c Dummy {f00=0x0172, f01=0x0190, f02=» P* POWER ON P* P " " PPOWON LD A15,A15SAV RELOAD A15 * P P P IFT CPU852=1 X P LDR* A14,A15 RESTORE A9-A14 n P LDR* A13,A15 P LDR* A12,A15 P LDR* A11,A15 P LDR* A10,A15 P LDR* A9,A15 P XIF
0x3e675c…3e68f0 Dummy {f00=0x0172, f01=0x0190, f02=» FOR DISPATCHING p P LDKL A2,TTABPF P CWR A1,A2 0 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST B P STR A1,A2 z P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P*
0x3e68f0…3e6a84 Dummy {f00=0x0172, f01=0x0190, f02=»OC FLAG n P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 0 P CM PRUN EXIT PFTASK Z P RB T:DISP v P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P*
0x3e6a84…3e6c18 Dummy {f00=0x0172, f01=0x0190, f02=»LAG v P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE P RTN A15 F P* V PRTC010 EQU * ` P IFT CPU852=1 t & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P X
0x3e6c18…3e6dac Dummy {f00=0x0172, f01=0x0190, f02=»QMJOB P* P IFT MONCLK=1 P IM SECOND . & P RF(P) RTC025 UPDATE MONITOR CLOCK @ P XIF j P* v PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P IFT
0x3e6dac…3e6f40 Dummy {f00=0x0172, f01=0x0190, f02=»T SECOND SWITCH P ST A4,SECOND P LDK A4,4 . P* @ 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS J ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER ( P C
0x3e6f40…3e70d4 (5, 92) Dummy {f00=0x0173, f01=0x0190, f02=» LDK A3,24 UPDATE HOURS P RB MCLO20 P XIF 2 P* > P* H P* M O N C L O R P* j P* t PMONCLO EQU * ~ P IFT MONCLK=1 & P DATA 0 ACCUMULATED 24 HOUR CARRY P DATA 0 HOUR P DATA 0 MINUTE P DATA 0 SECO
0x3e70d4…3e7268 Dummy {f00=0x0173, f01=0x0190, f02=»S. l P* PCLOCK INH , P LDKL A4,TIMQUE LOAD FIRST TIMER ADDRESS & P* V PCLK10 LDR A6,A4 ` $ PCLK20 LDR* A4,A6 GET TIMER BLOCK x P ABL(Z) MEXIT END OF QUEUE P IM 4,A4 INCREMENT TIMER P RB(N) CLK10 NOT TIME OUT P RF(
0x3e7268…3e73fc Dummy {f00=0x0173, f01=0x0190, f02=» P RB CLK20 P* P EJECT LRPINT P* 8 P* B , PCLK30 CF A15,CLK40 CALL TIME OUT ROUTINE L $ P CF A15,SWL48 SWITCH TO LEVEL 48 | P INH P RB CLK10 P* PCLK40 EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE
0x3e73fc…3e7590 Dummy {f00=0x0173, f01=0x0190, f02=»,/C4C0 LEVEL 49 AND ENABLE & P ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x3e7590…3e7724 Dummy {f00=0x0173, f01=0x4022, f02=»* ! P " P END " @ " ST A1,18,A15 SET NEW PSW ON STACK ! " P LD A2,2,A4 LOAD DISP BLOCK ! L P LD A1,4,A2 GET PARAMETER ! p $ P ABI 2,A2 GO TO TIME OUT ROUTINE ! P* ! P* ! PCOUNT DATA 0 100 MS SWITCH ! P* ! P* ! P*
0x3e7724…3e78b8 Dummy {f00=0x0173, 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
0x3e78b8…3e7a4c Dummy {f00=0x0173, f01=0x40ae, f02=»DDR 3 p PTIODMX EQU * 4 P* A1 = ERROR CODE 4 P* A6 = FDB ADDRESS 4 < P INH 4 X , P ABL DISEND CALL TENDIO GOTO DISPATCHER 4 d P* 4 P END 4 @ 4 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x3e7a4c…3e7be0 Dummy {f00=0x0173, f01=0x2008, f02=» 5
0x3e7be0…3e7d74 (5, 93) Opaque[0x194]
0x3e7d74…3e7f08 # DirEnt {nam=»TPROC «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2628, f03=0x0000}
0x3e7d74…3e7f08 IdxSect {
0x3e7d74…3e7f08 f00 = 0x0131 // 0x3e7d74 @0x0
0x3e7d74…3e7f08 f01 = 0x0006 // 0x3e7d76 @0x2
0x3e7d74…3e7f08 gno = [ // 0x3e7d78 @0x4
0x3e7d74…3e7f08 [0x00]: C0x0131.0x1.0
0x3e7d74…3e7f08 [0x01]: C0x0131.0x2.0
0x3e7d74…3e7f08 [0x02]: C0x0131.0x3.0
0x3e7d74…3e7f08 ]
0x3e7d74…3e7f08 }
0x3e7f08…3e809c Dummy {f00=0x0131, f01=0x0190, f02=» 0 P IDENT TPROC REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* TPROC = TOSS LKM PROCESSORS P* P* P*
0x3e809c…3e8230 Dummy {f00=0x0131, f01=0x0190, f02=»AINS THE FOLLOWING | P* TOSS LKM PROCESSORS: P* : P* - TWAIT = WAIT D P* ` P* - TMWAIT = MULTIPLE WAIT j P* ( P* - TACTOT = ACTIVATE/RESTART TASK P* P EJECT TPROC P* P* P***********
0x3e8230…3e83c4 Dummy {f00=0x0131, f01=0x0190, f02=»R l , P ENTRY TACTOT ACTIVATE/RESTART PROCESSOR P EJECT TPROC : P* P P* Z P************* d P* EXTERNALS * z P************* P* P* P EXTRN TDISP DISPATCHER , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING *
0x3e83c4…3e8558 Dummy {f00=0x0131, f01=0x0190, f02=» EXTRN FNDDWT FIND DWT ADDRESS FROM FILE CODE 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID 6 P EXTRN TTB:SA TTAB SAVE AREA j P EXTRN DWTST DWT STATUS P EXTRN DWTTAB TTAB ADDRESS * P EXTRN DWTWAT WAIT/ACTIVATE INDICATOR P EJECT T
0x3e8558…3e86ec Dummy {f00=0x0131, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P EJECT TPROC P* P* P******** P* WAIT *
0x3e86ec…3e8880 Dummy {f00=0x0131, f01=0x0190, f02=» 6 P* WANTS TO SYNCHRONIZE WITH A PARTICULAR EVENT. P* > * P* IT IS ENTERED FROM THE LKM HANDLER H & P* WITH THE FOLLOWING PARAMETERS: v P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRESS P* P* * PTWAIT CF A15,FND
0x3e8880…3e8a14 (5, 94) Dummy {f00=0x0131, f01=0x018e, f02=»,A8 RETURN IF EVENT COMPLETED P XIF & P* 2 P IFT MMUPAG=1 < ( P ELR A1,A8 RETURN IF EVENT COMPLETED R P XIF ~ P* ( P RF(N) TP:QDI I/O ALREADY COMPLETED 0 P IM DWTWAT,A6 NO, SET WAIT INDICATOR IN DWT P* & PT:DISP ABL
0x3e8a14…3e8ba8 Dummy {f00=0x0131, f01=0x0190, f02=» P* P* 8 P* THIS IS THE ACTIVATE/RESTART TASK LKM PROCESSOR. P* T 4 P* THIS MODULE IS ENTERED FROM THE LKM HANDLER ^ ( P* WHEN A TASK HAS TO BE ACTIVATED. P* 0 P* THE FOLLOWING PARAMETERS ARE SUPPLIED:- P* (
0x3e8ba8…3e8d3c Dummy {f00=0x0131, f01=0x0190, f02=»NTIFICATION FOR TASK TO BE ACTIVATED P* , P* 6 PTACTOT EQU * @ $ P CF A15,FNDTID FIND TTAB ADDRESS T P ADK A2,0 SET CR | $ P RF(Z) TP:RQE TASK NOT IN SYSTEM 4 P CF A15,QTJOB QUEUE CALLING TASK FOR DISPATCHING * P LD A3,TTB:SA+6,A5 G
0x3e8d3c…3e8ed0 Dummy {f00=0x0131, f01=0x0190, f02=»ASK AND DISPATCH z P* P EJECT TPROC " P* 8 P* B P********** L P* TMWAIT * ^ P********** p P* P* 0 P* THIS IS THE MULTIPLE WAIT LKM PROCESSOR. P* * P* IT IS ENTERED FROM THE LKM HANDLER & P* WI
0x3e8ed0…3e9064 Dummy {f00=0x0131, f01=0x0190, f02=»E SPECIFIED EVENTS IS COMPLETED, ~ 6 P* RETURN IS MADE TO THE CALLING TASK VIA TENDIO ( & P* WITH THE FOLLOWING PARAMETERS: b P* , P* A8 = ECB ADDRESS OF COMPLETED EVENT P* > P* IF REQUEST ERROR, A7 := -1 (AND NO RETURN VIA TENDIO
0x3e9064…3e91f8 Dummy {f00=0x0131, f01=0x0190, f02=» TPROC P* P* $ PTMWAIT EQU * MULTIPLE WAIT ENTRY " P LDK A3,0 J P* P IFT MMUPAG=0 f * P LDR* A1,A7 GET NO OF ECB:S IN ECBBLK | P XIF P* P IFT MMUPAG=1 ( P ELR A1,A7 GET NO OF ECB:S IN ECBBLK P XIF
0x3e91f8…3e938c Dummy {f00=0x0131, f01=0x0190, f02=» b P* P IFT MMUPAG=0 P LDR* A8,A7 GET ECB ADDRESS ( & P LDR* A2,A8 GET FIRST WORD OF ECB L P XIF v P* P IFT MMUPAG=1 P ELR A8,A7 GET ECB ADDRESS $ P ELR A2,A8 GET FIRST WORD OF ECB P XIF P* ( P RF(N)
0x3e938c…3e9520 Dummy {f00=0x0131, f01=0x0190, f02=»NOT FOUND P* P EJECT TPROC P* 2 P* < " P LD A2,DWTST,A6 GET DWT STATUS F P RF(N) TP:RQE NOT BUSY l P CW A5,DWTTAB,A6 2 P RF(NE) TP:RQE REQUEST NOT ISSUED BY THIS TASK 0 P LD A2,DWTWAT,A6 GET WAIT/ACTIVATE INDICATOR
0x3e9520…3e96b4 (5, 95) Dummy {f00=0x0131, f01=0x018e, f02=»F(NZ) TMW:20 NOT THE FIRST ECB IN ECBBLK & P LDR A9,A6 SAVE FIRST DWT ADDRESS 0 P LDR A3,A6 Z P* l PTMW:20 EQU * v 8 P ST A6,DWTWAT,A9 CHAIN THIS DWT WITH THE ONE BEFORE $ P LDR A9,A6 SAVE THIS DWT ADDRESS P SUK A1,1 & P RB(P) T
0x3e96b4…3e9848 Dummy {f00=0x0131, f01=0x0190, f02=» PTMW:30 EQU * 4 P ST A8,TTB:SA+16,A5 UPDATE A8 IN TTAB SAVE AREA 2 P ADK A3,0 CHECK FLAG IF FIRST ECB TO WAIT FOR T & P RF(Z) TP:QDI FIRST ECB IN ECBBLK P* : PTMW:40 ADKL A3,DWTWAT POINT TO WAIT/ACTIVATE INDICATOR $ P LDR* A2,A3
0x3e9848…3e99dc Dummy {f00=0x0131, f01=0x40e6, f02=»* P EJECT TPROC P* P* * PTP:RQE EQU * 4 " P ABL LKMRQE LKM REQUEST ERROR H P* n PTP:QDI EQU * x ( P ABL LKMQDI QUEUE TASK AND DISPATCH P* P* P* P END @ VATE INDICATOR $ P LDR* A2,A3
0x3e99dc…3e9b70 Dummy {f00=0x0131, 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
0x3e9b70…3e9d04 Dummy {f00=0x0131, f01=0x0190, f02=»R INF =3 A x & P SUK A3,1 DEC TRANSFER COUNTER =3 B , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B : . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B j P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPU
0x3e9d04…3e9e98 Dummy {f00=0x0131, f01=0x0190, f02=»CLEHOM CLEAR AND HOME B P CF A5,OUTPUT SEND C P LDKL A2,/101 C 8 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C N P LDR A3,A3 GET OLD STATUS C P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P
0x3e9e98…3ea02c Dummy {f00=0x0131, f01=0x0190, f02=»DY25 NO C ( P LDK A1,2 INDICATE THROUGHPUT ERROR D P RB RCDY15 D < & PRCDY25 LDK A2,STX START OF MESSAGE D N P CF A5,OUTPUT D x 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKS
0x3ea02c…3ea1c0 Dummy {f00=0x0131, f01=0x0190, f02=»* D 0 P* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE E P* E > PECHODY EQU * E H P LDR A7,A7 EOR? E P RF(N) ECDY17 YES E t P LDR A3,A2 SAVE CHARACTER E P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE E
0x3ea1c0…3ea354 (5, 96) Opaque[0x194]
0x3ea354…3ea4e8 # DirEnt {nam=»MSUBS «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25a8, f03=0x0000}
0x3ea354…3ea4e8 IdxSect {
0x3ea354…3ea4e8 f00 = 0x012d // 0x3ea354 @0x0
0x3ea354…3ea4e8 f01 = 0x000e // 0x3ea356 @0x2
0x3ea354…3ea4e8 gno = [ // 0x3ea358 @0x4
0x3ea354…3ea4e8 [0x00]: C0x012d.0x1.0
0x3ea354…3ea4e8 [0x01]: C0x012d.0x2.0
0x3ea354…3ea4e8 [0x02]: C0x012d.0x3.0
0x3ea354…3ea4e8 [0x03]: C0x012e.0x0.0
0x3ea354…3ea4e8 [0x04]: C0x012e.0x1.0
0x3ea354…3ea4e8 [0x05]: C0x012e.0x2.0
0x3ea354…3ea4e8 [0x06]: C0x012e.0x3.0
0x3ea354…3ea4e8 ]
0x3ea354…3ea4e8 }
0x3ea4e8…3ea67c Dummy {f00=0x012d, f01=0x0190, f02=» 0 P IDENT MSUBS REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 6 P************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* MSUBS = MONITOR SUBROUTINES P* P* P*
0x3ea67c…3ea810 Dummy {f00=0x012d, f01=0x0190, f02=»OLLOWING MONITOR r P* SUBROUTINES: P* 0 , P* -SAVE8 SAVE 8 REGISTERS ON STACK : , P* -QTJOB QUEUE TASK FOR DISPATCHING j 4 P* -QMJOB QUEUE MONITOR JOB FOR DISPATCHING . P* -ACTOT ACTIVATE TASK ON FIFO BASIS . P*
0x3ea810…3ea9a4 Dummy {f00=0x012d, f01=0x0190, f02=»K SET A MONITOR BLOCK FREE " P* -FNDDWT FIND DWT ADDRESS $ * P* -FNDTID FIND TASK IDENTIFICATION J P* -PFINIT RESTART DEVICE x $ P* -SWL48 SWITCH TO LEVEL 48 $ P* -SWLXY SWITCH TO LEVEL XY P* -HALT HALT MODULE
0x3ea9a4…3eab38 Dummy {f00=0x012d, f01=0x0190, f02=»******* P* P* " P ENTRY SAVE8 SAVE 8 REGISTERS $ P ENTRY QTJOB QUEUE TASK J " P ENTRY QMJOB QUEUE MONITOR JOB j & P ENTRY ACTOT ACTIVATE TASK (FIFO) & P ENTRY ACTOTP ACTIVATE TASK (LIFO) P ENTRY EXIT PROGRAM EXIT P ENT
0x3eab38…3eaccc Dummy {f00=0x012d, f01=0x0190, f02=»D FIND TASK INDENTIFICATION P ENTRY PFINIT RESTART DEVICE $ $ P ENTRY SWL48 SWITCH TO LEVEL 48 H $ P ENTRY SWLXY SWITCH TO LEVEL XY p , P ENTRY ILLINT ILLEGAL INTERRUPT ROUTINE * P ENTRY INTSAV SAVE AREA LAST INTERRUPT P ENTRY HALT HALT M
0x3eaccc…3eae60 Dummy {f00=0x012d, f01=0x0190, f02=»RY IHRET2 A2 " P ENTRY IHRET1 A1 2 P ENTRY IHRTN RETURN WITHOUT ENABLE INTERRUPTS : P EJECT MSUBS p P* P* P************* P* EXTERNALS * P************* P* P* : P EXTRN DISQUE POINTER TO
0x3eae60…3eaff4 (5, 97) Dummy {f00=0x012d, f01=0x0190, f02=»RN PQEMTY PAGE QUEUE EMPTY FLAG " P EXTRN PAGQUE FREE PAGE QUEUE ( $ P EXTRN SEG:PB PAGE BLOCK ADDRESS N & P EXTRN PAG:QB QUEUE LINK BACKWARD v 4 P EXTRN LKMERR HALT SYSTEM DUE TO FATAL LKM ERROR & P EXTRN TTMJOB TTAB ADDRESS OF MJOB ( P EXTRN
0x3eaff4…3eb188 Dummy {f00=0x012d, f01=0x0190, f02=»RN TTB:SA SAVE AREA * P EXTRN TTB:PP POINTER TO PENDING QUEUE ( P EXTRN TTB:TD TERMINAL DEVICE TABLE J $ P EXTRN SCTTCT TASK CONTROL TABLE v & P EXTRN SCTCDT COMMON DEVICE TABLE 2 P EXTRN PFTAB TABLE OF DEVICES TO BE RESTARTED P EJECT M
0x3eb188…3eb31c Dummy {f00=0x012d, f01=0x0190, f02=»************************************* P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x3eb31c…3eb4b0 Dummy {f00=0x012d, f01=0x0190, f02=»NG h * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * 8 PDSKPAG EQU 0 B * V P* ` " PSOP EQU /2E SOP DEVICE ADDRESS j P* P EJECT MSUBS P* P* P* S A V E 8 P* 0 P* SUBROUTINE TO SAVE 8 REGISTERS O
0x3eb4b0…3eb644 Dummy {f00=0x012d, f01=0x0190, f02=»A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 4 P STR A7,A15 H P STR A8,A15 , P LD A3,16,A15 LOAD P.C. (RETURN ADDRESS) p , P ST A3,SAVE81 AND MODIFY BRANCH ADDRESS P ST A2,14,A15 P ST A1,16,A15 P LD A3,12,A1
0x3eb644…3eb7d8 Dummy {f00=0x012d, f01=0x0190, f02=»* Q T J O B P* 2 P* SUBROUTINE TO QUEUE TASK FOR DISPATCHING. P* V P* ENTRY PARAMETER: ` P* | 2 P* A5 = TTAB ADDRESS OF PROGRAM TO BE QUEUED. P* 8 P* THE REQUESTED JOB IS PUT IN DISPATCHER QUEUE ON 8 P* PR
0x3eb7d8…3eb96c Dummy {f00=0x012d, f01=0x0190, f02=»* P IFT CPU852=1 $ P STR A1,A15 SAVE A1-A3 ON STACK P STR A2,A15 H P STR A3,A15 P XIF p P* | P IFT CPU852=0 " P MSR 3,A15 SAVE A1-A3 ON STACK P XIF P* . P LDKL A1,DISQUE LOAD QUEUE ANCHOR ADDRESS 2
0x3eb96c…3ebb00 Dummy {f00=0x012d, f01=0x018e, f02=»* P EJECT MSUBS P* P* * 6 PQTJ010 CC A3,TTB:ST+1,A2 COMPARE WITH QUEUED LEVEL 4 P RF(L) QTJ020 INSERT n P LDR A1,A2 SAVE ADDRESS . P LDR* A2,A1 GET NEXT TTAB ADDRESS IN QUEUE $ P RB(NZ) QTJ010 NOT END OF QUEUE P*
0x3ebb00…3ebc94 (5, 98) Dummy {f00=0x012d, f01=0x0190, f02=» P IFT CPU852=0 * P MLR 3,A15 RESTORE A1-A3 FROM STACK... P RTN A15 ...AND RETURN L P XIF j P* v P EJECT MSUBS P* P* P* Q M J O B P* 6 P* SUBROUTINE TO QUEUE MONITOR JOBS ON LEVEL 49. P*
0x3ebc94…3ebe28 Dummy {f00=0x012d, f01=0x0190, f02=»B ADDRESS OF MONITOR JOBS AND THE | < P* SUBROUTINE 'ACTOT' IS USED TO ACTIVATE AND QUEUE THE * P* JOB. j P* z P* PQMJOB EQU * P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0
0x3ebe28…3ebfbc Dummy {f00=0x012d, f01=0x0190, f02=»* P EJECT MSUBS P* P* * P* A C T O T , A C T O T P 4 P* X & P* SUBROUTINE TO ACTIVATE A TASK. b P* P* ENTRY PARAMETERS: P* P* A1 = PARAMETER 1 P* A2 = DISPATCH ADDRESS P* A3 = SEG
0x3ebfbc…3ec150 Dummy {f00=0x012d, f01=0x0190, f02=»GRAM IS ` : P* PUT IN DISPATCHER QUEUE VIA SUBROUTINE 'QTJOB'. @ P* - IF PROGRAM IS ACTIVE, THE REQUEST IS PUT IN A PENDING N P* QUEUE. @ P* - ACTOT WILL PUT REQUEST IN PENDING QUEUE ON FIFO BASIS. B P* - ACTOTP WILL PUT REQUEST
0x3ec150…3ec2e4 Dummy {f00=0x012d, f01=0x0190, f02=» n P XIF P* P IFT CPU852=0 P INH 4 " P MSR 8,A15 SAVE A1-A8 ON STACK @ P XIF f P* r P LDK A6,1 INDICATE LIFO | P RF ACT03 P* P EJECT MSUBS P* P* PACTOT EQU * P IFT CPU852=1
0x3ec2e4…3ec478 Dummy {f00=0x012d, f01=0x0190, f02=» P XIF P* PACT01 LDK A6,0 INDICATE FIFO P* > PACT03 EQU * H 0 P LD A7,TTB:SA,A5 GET (OLD) DISPATCH ADDRESS $ P RF(NZ) ACT020 IS PROGRAM ACTIVE " P ST A1,TTB:SA+2,A5 PARAMETER 1 0 P ST A2,TTB:SA,A5 SAVE (NEW) DISPATCH ADDRE
0x3ec478…3ec60c Dummy {f00=0x012d, f01=0x0190, f02=»,TTB:SA+4,A5 TO A2 IN SAVE AREA P* ( P IFF MMUPAG+DSKPAG=0 2 6 P CM TTB:SB,A5 INDICATE NOT RUNNING IN ANY SEGMENT N P XIF P* P CF A15,QTJOB QUEUE THE JOB P* P EJECT MSUBS P* P* PACT010 EQU *
0x3ec60c…3ec7a0 Dummy {f00=0x012d, f01=0x0190, f02=» FROM STACK... x P RTN A15 ...AND RETURN P XIF 4 P* @ $ P* PUT REQUEST IN PENDING QUEUE J P* r & PACT020 LDR A7,A4 SAVE PARAMETER 2 | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A1,A7 PARAMETER 2 P LDR A2,A4 P CF A15,GE
0x3ec7a0…3ec934 (5, 99) Dummy {f00=0x012e, f01=0x018e, f02=»0 SET CR & P RF(NZ) ACT040 QUEUE ON LIFO BASIS P ADK A5,0 SET CR : $ P RB(NZ) ACT030 NOT END OF QUEUE R P* z PACT040 EQU * " P STR A4,A3 SET BLOCK IN QUEUE P STR A5,A4 P RB ACT010 P* P EJECT MSUBS P*
0x3ec934…3ecac8 Dummy {f00=0x012e, f01=0x0190, f02=» P* ENTRY PARAMETER: P* $ P* A5 = TTAB ADDRESS . P* L P* A3-A4, A7 ARE DESTROYED V P* z P* PEXIT EQU * ( P CM TTB:SA,A5 RESET PROGRAM COUNTER 0 P LD A4,TTB:PP,A5 GET PENDING PROGRAM POINTER $ P RF(Z) I
0x3ecac8…3ecc5c Dummy {f00=0x012e, f01=0x0190, f02=»ELEASE BLOCK AND GET PARAMETERS P LDR A7,A1 SAVE PARAMETER 2 ( P LDR A4,A2 L P CF A15,FREBLK ^ P LDR A4,A7 PARAMETER 2 t P RB ACTOT ACTIVATE TASK P* P EJECT MSUBS P* P* P* G E T B L K P* 4 P
0x3ecc5c…3ecdf0 Dummy {f00=0x012e, f01=0x0190, f02=» P* P* EXIT PARAMETER: P* * ( P* A4 = ADDRESS TO FOUND FREE BLOCK 4 P* ` P* j PGETBLK EQU * t P INH P STR A5,A15 SAVE A5 0 P LD A4,FREQUE GET FIRST BLOCK IN FREE QUEUE P RF(NZ) GBL010 P LDK A1,/B HAL
0x3ecdf0…3ecf84 Dummy {f00=0x012e, f01=0x0190, f02=»FREE QUEUE p $ P STR A3,A4 STORE A3-A1 IN BLOCK P ST A2,2,A4 : P ST A1,4,A4 N P LDR* A5,A15 RESTORE A5 b P* P IFT CPU852=1 P RF IHRTN P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P E
0x3ecf84…3ed118 Dummy {f00=0x012e, f01=0x018e, f02=»* AND SET THIS BLOCK FREE. P* $ P* ENTRY PARAMETER: . P* J P* A4 = BLOCK ADDRESS T P* r P* EXIT PARAMETERS: | P* & P* A3 = FIRST PARAMETER IN BLOCK $ P* A2 = SECOND " " $ P* A1 = THIRD "
0x3ed118…3ed2ac Dummy {f00=0x012e, f01=0x0190, f02=» P ST A4,FREQUE SET BLOCK FREE P LD A2,2,A4 , P LD A1,4,A4 @ P* T P IFT CPU852=1 ^ P RF IHRTN t P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT MSUBS P* P* P* F
0x3ed2ac…3ed440 Dummy {f00=0x012e, f01=0x0190, f02=»S | 8 P* A7 = ORDER CODE WHEN CALLED FROM DATA MANAGEMENT P* A8 = ECB ADDRESS F P* b P* EXIT PARAMETERS: l P* P* A2 = DWT INDEX * P* A6 = DWT ADDRESS IF FOUND, ELSE 0 P* P* P* F N D D W D P*
0x3ed440…3ed5d4 (5, 100) Dummy {f00=0x012e, f01=0x0190, f02=»JECT MSUBS P* P* PFNDDWT EQU * ( P IFT MMUPAG=1 < & P ELR A2,A8 LOAD FILE CODE FROM ECB R P XIF | P* P IFT MMUPAG=0 ( P LDR* A2,A8 LOAD FILE CODE FROM ECB P XIF P* P STR A1,A15 SAVE A1 P L
0x3ed5d4…3ed768 Dummy {f00=0x012e, f01=0x0190, f02=»UK A1,4 ( P RF(N) FND110 FILE CODE NOT IN TTAB & P CC A2,1,A6 SEARCH IN DEVICE TABLE < " P RF(E) FND200 FILE CODE FOUND f ( P ADK A6,4 ADDRESS TO NEXT FILE CODE P RB FND100 TRY NEXT P* P EJECT MSUBS P* $ P* SEARCH I
0x3ed768…3ed8fc Dummy {f00=0x012e, f01=0x0190, f02=» P LDR* A1,A6 CDTAB LENGTH $ P ADK A6,2 POINTER TO FIRST ENTRY $ P* L PFND120 SUK A1,4 V & P RF(N) FND130 FILE CODE NOT FOUND n P CC A2,1,A6 " P RF(E) FND200 FILE CODE FOUND ( P ADK A6,4 ADDRESS TO NEXT FILE CODE & P RB FND120
0x3ed8fc…3eda90 Dummy {f00=0x012e, f01=0x0190, f02=»DEX z P LD A6,2,A6 LOAD DWT ADDRESS ! P RF IHRET1 ! 0 P* ! B P EJECT MSUBS ! L P* ! b P* ! l P* F N D T I D ! v P* ! B P* SUBROUTINE TO FIND TTAB ADDRESS FROM TASK IDENTIFICATION. ! P* ! P* ENTRY PARAMETER: ! P* !
0x3eda90…3edc24 Dummy {f00=0x012e, f01=0x0190, f02=»ATES ILLEGAL IDENTIFICATION ! P* " $ P* " . PFNDTID STR A1,A15 SAVE A1 " 8 P LD* A1,SCTTCT TCTAB LENGTH " Z P AD A1,SCTTCT " ~ P* " PFTI010 SUK A1,2 " P CW A1,SCTTCT " $ P RF(E) FTI030 ALL TTABS EXAMINED " P LDR* A2,A1 TTAB ADD
0x3edc24…3eddb8 Dummy {f00=0x012e, f01=0x0190, f02=»0 ILLEGAL IDENTIFICATION " P RF IHRET1 # P* # 2 P EJECT MSUBS # < P* # R P* # , P* RESTORE REGISTERS AND RETURN WITHOUT # f P* ENABLE INTERRUPTS. # P* # P* # P IFT CPU852=1 # PIHRET8 LDR* A8,A15 # P LDR* A7,A15 #
0x3eddb8…3edf4c Dummy {f00=0x012e, f01=0x0190, f02=»* # PIHRET1 LDR* A1,A15 $ P* $ $ PIHRTN INH $ . $ P ADKL A15,4 ADJUST STACK POINTER $ @ P ABR* A15 AND RETURN $ h P XIF $ P* $ P IFT CPU852=0 $ 0 PIHRET8 MLR 8,A15 RESTORE A1-A8 FROM STACK... $ P RTN A15 ...AND RETURN $ P* $
0x3edf4c…3ee0e0 Dummy {f00=0x012e, f01=0x0190, f02=»... $ h P* % PIHRTN RTN A15 ...AND RETURN % P XIF % : P* % F P EJECT MSUBS % P P* % f P* % p P* P F I N I T % z P* % & P* SUBROUTINE TO RESTART DEVICES. % P* % @ P* ALL RESTART ROUTINES GIVEN IN TABLE 'PFTAB' ARE CALL
0x3ee0e0…3ee274 (5, 101) Dummy {f00=0x012e, f01=0x0190, f02=»DEX TO FIRST ROUTINE % P* & $ PPFI100 CW A1,PFTAB CHECK IF LAST & & P RF(NL) PFI110 ALL RESTARTED & N P STR A1,A15 SAVE A1 & r P INH & * P CFI A15,PFTAB,A1 CALL RESTART MODULE & P LDR* A1,A15 RESTORE A1 & P ADK A1,2 NEXT DEVICE & P R
0x3ee274…3ee408 Dummy {f00=0x012e, f01=0x0190, f02=»8 & P* ' & P* SWITCH TO LEVEL 48 AND ENABLE. ' P* ' > P* ' H PSWL48 EQU * ' R P STR A1,A15 SAVE A1 ' f P* ' PSWL481 EQU * ' $ P LDKL A1,/C0C0 PSW FOR LEVEL 48 ' P* ' PSWL482 EQU * ' & P ST A1,4,A15 SAVE IT ON A15 STACK
0x3ee408…3ee59c Dummy {f00=0x012e, f01=0x018e, f02=» & P* SWITCH TO LEVEL XY AND ENABLE. ( P* ( . . P* LEVEL := 48 IF LEVEL ON STACK IS >= 48 ( 8 0 P* LEVEL := XY " " " " " XY < 48 ( j P* ( > P* THIS MODULE IS TO BE CALLED WITH 8 REGISTERS ON STACK. ( P* ( P* ( PSWLXY EQU
0x3ee59c…3ee730 Dummy {f00=0x012e, f01=0x0190, f02=» ( P LD A1,24,A15 ) " P ANKL A1,/FFFE SYSTEM MODE BIT ) P RB SWL482 ) D P* ) V P EJECT MSUBS ) ` P* ) v P* ) & P* INTERRUPT SAVE AND HALT MODULE ) P* ) P* ) PINTSAV DATA 0 ) PSAVA15 DATA 0 ) P* ) " PILLINT LDK
0x3ee730…3ee8c4 Dummy {f00=0x012e, f01=0x0190, f02=» $ P STR A9,A15 SAVE A9-A14 ON STACK * P STR A10,A15 * , P STR A11,A15 * @ P STR A12,A15 * T P STR A13,A15 * h P STR A14,A15 * | P XIF * P* * P IFT CPU852=0 * $ P MSR 14,A15 SAVE A1-A14 ON STACK * P XIF * P* * P ST A15,SAVA15
0x3ee8c4…3eea58 Dummy {f00=0x012e, f01=0x0190, f02=» P* + < P* RELEASE PAGE AND RESTART LDTASK IF PAGQUE WAS EMPTY + P* + N P* ENTRY PARAMETERS: + X P* + v 6 P* A3 = SEGBLK ADDRESS (PAGBLK ADDRESS IF RELPA2) + " P* A5 = TTAB ADDRESS (RELPA2) + P* + P* EXIT PARAMETER: + P*
0x3eea58…3eebec Dummy {f00=0x012e, f01=0x0190, f02=»ANY SEGMENT + j P RF REL:10 , P* , & ( PRELPAG EQU * RELEASE PAGE MAIN ENTRY , 0 , P LD A3,SEG:PB,A3 GET PAGE BLOCK ADDRESS , P* , PREL:10 EQU * , & P LDKL A4,PAGQUE GET PAGQUE ADDRESS , P ST A4,PAG:QB,A3 , 4 P LDR* A4,A4 GET ADDRESS OF F
0x3eebec…3eed80 Dummy {f00=0x012e, f01=0x0190, f02=»DTASK IS IN PAUSE STATE , x P RF(Z) REL:20 - P* - 6 P EJECT MSUBS - @ P* - V P* RESTART LOAD TASK - ` P* - ~ , P CM PQEMTY INDICATE PAGE QUEUE NOT EMPTY - P LDR A4,A5 SAVE A5 - , P LDKL A5,TTABLD GET LDTASK TTAB ADDRESS - $ P CF A1
0x3eed80…3eef14 (5, 102) Dummy {f00=0x012e, f01=0x412a, f02=»IF - P* . P IFT DSKPAG=1 . P IFT CPU852=0 . * P RTN A15 . @ P XIF . P P* . P IFT DSKPAG=0 . f 2 PRELPAG EQU * DUMMY ENTRIES TO AVOID ASS. ERR. . | PRELPA2 EQU * . & P ABL LKMERR INDICATE SYSGEN ERROR . P XIF . P* . P*
0x3eef14…3ef0a8 Dummy {f00=0x012e, 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. "
0x3ef0a8…3ef23c Dummy {f00=0x012e, f01=0x0190, f02=» 2 P IDENT DSKSUB PRR 10.0 79-12-07 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x3ef23c…3ef3d0 Dummy {f00=0x012e, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x3ef3d0…3ef564 Dummy {f00=0x012e, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x3ef564…3ef6f8 Dummy {f00=0x012e, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x3ef6f8…3ef88c Dummy {f00=0x012e, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x3ef88c…3efa20 Dummy {f00=0x012e, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x3efa20…3efbb4 (5, 103) Opaque[0x194]
0x3efbb4…3efd48 # DirEnt {nam=»TTMJOB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x25e8, f03=0x0000}
0x3efbb4…3efd48 IdxSect {
0x3efbb4…3efd48 f00 = 0x012f // 0x3efbb4 @0x0
0x3efbb4…3efd48 f01 = 0x0004 // 0x3efbb6 @0x2
0x3efbb4…3efd48 gno = [ // 0x3efbb8 @0x4
0x3efbb4…3efd48 [0x00]: C0x012f.0x1.0
0x3efbb4…3efd48 [0x01]: C0x012f.0x2.0
0x3efbb4…3efd48 ]
0x3efbb4…3efd48 }
0x3efd48…3efedc Dummy {f00=0x012f, f01=0x0190, f02=» 2 P IDENT TTMJOB REL 10.0 80-03-14 870105041000 P : P* B P* L P* MONITOR JOB TASK TABLE V P* v P* P********* P*ENTRIES* P********* P* P* P ENTRY TTB:AM ALLOCATION MAP P ENTRY TTB:MT MM
0x3efedc…3f0070 Dummy {f00=0x012f, f01=0x0190, f02=»S n P ENTRY TTMJOB TABLE ENTRY ( P ENTRY TTB:QL DISPATCHER QUEUE LINK , & P ENTRY TTB:ID TASK IDENTIFICATION X P ENTRY TTB:ST TASK STATUS " P ENTRY TTB:PP PENDING POINTER & P ENTRY TTB:PW PROGRAM STATUS WORD $ P ENTRY TTB:SA TERMIN
0x3f0070…3f0204 Dummy {f00=0x012f, f01=0x0190, f02=»***************** x P* P* CONDITIONAL ASSEMBLY $ P* B . P***************************************** L P* ~ . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P*
0x3f0204…3f0398 Dummy {f00=0x012f, f01=0x0190, f02=» TABLE DISPLACEMENT ~ P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 2 " P DATA /1000,/1400,/1800,/1C00 X " P DATA /2000,/2400,/2800,/2C00 ~ " P DATA /3000,/3400,/3800,/3C00 P XIF P* & PTTB:CB EQU -6 CURRENT SEGMENT BASE
0x3f0398…3f052c Dummy {f00=0x012f, f01=0x0190, f02=»K ADDRESS DISPLACEMENT v P DATA 0 P* . P EJECT TTMJOB 8 P* P P* Z PTTMJOB EQU * TTMJOB ENTRY d . PTTB:QL EQU *-TTMJOB DISPATCHER QUEUE LINK P DATA 0 P* , PTTB:ID EQU *-TTMJOB TASK IDENTIFICATION P DATA
0x3f052c…3f06c0 Dummy {f00=0x012f, f01=0x0190, f02=»A 0 P* PTTB:PW EQU *-TTMJOB 4 P DATA /C4C0 PROGRAM STATUS WORD FOR MONITOR JOB 2 P* j P EJECT TTMJOB t P* P* * PTTB:SA EQU *-TTMJOB TERMINAL SAVE AREA P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 SAVE A
0x3f06c0…3f0854 (5, 104) Dummy {f00=0x012f, f01=0x4014, f02=» P END @
0x3f0854…3f09e8 Dummy {f00=0x012f, 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,
0x3f09e8…3f0b7c Dummy {f00=0x012f, f01=0x0190, f02=» 2 P IDENT SYSTAB PRR 10.0 79-12-07 870105041000 P : P* B P* L 8 P*************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* SYSTAB = INTERRUPT VECTORS, SYSTEM CONTROL 2 P*
0x3f0b7c…3f0d10 Dummy {f00=0x012f, f01=0x018e, f02=»*************** l P* P* " P EJECT SYSTAB , P* D P* N P*********** X P* ENTRIES * l P*********** P* P* 4 P ENTRY SCTMSZ,SCTSFA,SCTEFA SYSTEM CONTROL TABLE P ENTRY SCTIPL P ENTRY SCTANO,SCTA
0x3f0d10…3f0ea4 Dummy {f00=0x012f, f01=0x0190, f02=» P ENTRY SCTSTB P ENTRY SCTOPT P ENTRY SCTTCT,SCTCDT 0 P ENTRY SCTBUG L & P ENTRY SCTDMT,SCTDMI,SCTFWT,SCTNOF b & P ENTRY SCTNFT,SCTFWL,SCTBLK,SCTDCT P ENTRY SEG:FC,SEG:NS & P ENTRY SEG:ST,SEG:DS,SEG:EL,SEG:PB & P ENTRY PAG:Q
0x3f0ea4…3f1038 Dummy {f00=0x012f, f01=0x0190, f02=»* P* EXTERNALS * P************* P* 6 P* @ P EXTRN TDISP J , P EXTRN IHPFAR POWER FAIL / AUTO RESTART ^ P EXTRN IHLKM LKM INTERRUPT P EXTRN IHRTC REAL TIME CLOCK P EXTRN IHTW TYPEWRITER P EXTRN IHTC CASSETTE T
0x3f1038…3f11cc Dummy {f00=0x012f, f01=0x0190, f02=» NO. 1 p * P EXTRN CHRT2 REMOTE CHANNEL UNIT NO. 2 P EXTRN CHRT3 < P EXTRN CHRT4 P ( P EXTRN IHCC1 CASSETTE CHANGER NO. 1 d ( P EXTRN IHCC2 2 ( P EXTRN IHCC3 3 * P EXTRN CHLT1 LOCAL CHANNEL UNIT
0x3f11cc…3f1360 Dummy {f00=0x012f, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x3f1360…3f14f4 (5, 105) Opaque[0x194]
0x3f14f4…3f1688 # DirEnt {nam=»TOSSIO«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2948, f03=0x0000}
0x3f14f4…3f1688 IdxSect {
0x3f14f4…3f1688 f00 = 0x014a // 0x3f14f4 @0x0
0x3f14f4…3f1688 f01 = 0x0022 // 0x3f14f6 @0x2
0x3f14f4…3f1688 gno = [ // 0x3f14f8 @0x4
0x3f14f4…3f1688 [0x00]: C0x014a.0x1.0
0x3f14f4…3f1688 [0x01]: C0x014a.0x2.0
0x3f14f4…3f1688 [0x02]: C0x014a.0x3.0
0x3f14f4…3f1688 [0x03]: C0x014b.0x0.0
0x3f14f4…3f1688 [0x04]: C0x0152.0x1.0
0x3f14f4…3f1688 [0x05]: C0x0152.0x2.0
0x3f14f4…3f1688 [0x06]: C0x0152.0x3.0
0x3f14f4…3f1688 [0x07]: C0x0153.0x0.0
0x3f14f4…3f1688 [0x08]: C0x0168.0x2.0
0x3f14f4…3f1688 [0x09]: C0x0168.0x3.0
0x3f14f4…3f1688 [0x0a]: C0x0169.0x1.0
0x3f14f4…3f1688 [0x0b]: C0x0169.0x2.0
0x3f14f4…3f1688 [0x0c]: C0x0169.0x3.0
0x3f14f4…3f1688 [0x0d]: C0x016a.0x0.0
0x3f14f4…3f1688 [0x0e]: C0x0170.0x0.0
0x3f14f4…3f1688 [0x0f]: C0x0171.0x1.0
0x3f14f4…3f1688 [0x10]: C0x0171.0x2.0
0x3f14f4…3f1688 ]
0x3f14f4…3f1688 }
0x3f1688…3f181c Dummy {f00=0x014a, f01=0x0190, f02=» 2 P IDENT TOSSIO REL 10.0 80-04-30 870105041000 P : P REL 10.0 80-03-15 POHO B $ P =1,RELEASE DC-BUFFER UPDATED d P* P* 6 P************************************************** P* $ P* PHILIPS TERMINAL SYSTEM PTS
0x3f181c…3f19b0 Dummy {f00=0x014a, f01=0x0190, f02=»** ` P* P* , P* THIS IS THE TOSS I/O LKM PROCESSOR. 6 P* IT CONTAINS THE FOLLOWING MONITOR SUBROUTINES: N P* P* -TIO INITIALIZE I/O P* P* -TENDIO END I/O P* P* -ATTACH ATTACH DEVICE P
0x3f19b0…3f1b44 Dummy {f00=0x014a, f01=0x0190, f02=» DATA COMMUNICATION MOVE ROUTINE (WRITE) P* 0 4 P* SPECIAL ROUTINES ARE CARRIED OUT IN SYSTEMS : * P* WITH MEMORY MANAGEMENT UNIT (MMU). r P* 8 P* THIS MODULE ALSO CONTAINS STANDARD DISPLACEMENT * P* VALUES FOR ECB, DWT AND DAB AR
0x3f1b44…3f1cd8 Dummy {f00=0x014a, f01=0x0190, f02=»* P ENTRY TIO I/O PROCESSOR 0 P ENTRY TIO:FM ENTRY USED BY FILE MANAGEMENT * 0 P ENTRY TIOERR ERROR: QUEUE TASK AND DISPATCH ^ P ENTRY TENDIO END I/O 0 P ENTRY QUEDEV QUEUE REQUEST IN DEVICE QUEUE 4 P ENTRY QUEFIL QUEUE FILE REQUEST IN
0x3f1cd8…3f1e6c Dummy {f00=0x014a, f01=0x0190, f02=»ONMMU MONITOR (SYSTEM) MMU TABLE P* ( P ENTRY ECBFC FILE CODE 2 P ENTRY ECBBA BUFFER ADDRESS P " P ENTRY ECBRL REQUESTED LENGTH t " P ENTRY ECBEL EFFECTIVE LENGTH P ENTRY ECBRC RETURN CODE P ENTRY ECBCW CONTROL WORD P ENTRY
0x3f1e6c…3f2000 Dummy {f00=0x014a, f01=0x0190, f02=» DM:DIX DEVICE INDEX DATA MANAGEMENT 2 P ENTRY PC:DIX DEVICE INDEX PROGRAMMED CHANNEL , 0 P ENTRY MX:DIX DEVICE INDEX MULTIPLEX CHANNEL b , P ENTRY KB:DIX DEVICE INDEX KEYBOARD/CTW 6 P ENTRY IT:DIX DEVICE INDEX INTERTASK COMMUNICATION $ P ENTRY D
0x3f2000…3f2194 (5, 106) Dummy {f00=0x014a, f01=0x0190, f02=» ENTRY ACTADR ACTIVATION ADDRESS P ENTRY ABTADR ABORT ADDRESS ( $ P ENTRY INTADR INTERRUPT ADDRESS L 2 P ENTRY POLADR BUFFER POOL ADDRESS (DC DRIVERS) t 4 P ENTRY HDRLEN BUFFER HEADER LENGTH (DC DRIVERS) " P ENTRY RECADR RECOVERY ADDRESS P
0x3f2194…3f2328 Dummy {f00=0x014a, f01=0x0190, f02=» ENTRY DWTECB ECB ADDRESS P ENTRY DWTOPT ORDER OPTION " P ENTRY DWTOR INDEX AND ORDER D ( P ENTRY DWTOCH LAST OUTPUT CHARACTER h & P ENTRY DWTADR DRIVER ADDRESS BLOCK P ENTRY DWTTAB TTAB ADDRESS * P ENTRY DWTWAT WAIT/ACTIVATE INDICATOR
0x3f2328…3f24bc Dummy {f00=0x014a, f01=0x0190, f02=»U ECB ADDRESS P ENTRY DWTA2 SAVE AREA A2 P ENTRY DWTA3 SAVE AREA A3 8 P ENTRY DWTA4 SAVE AREA A4 Z P ENTRY DWTA5 SAVE AREA A5 | & P ENTRY DWTSB1 STACK BASE 1 IN DWT & P ENTRY DWTSB2 STACK BASE 2 IN DWT P ENTRY DWTTP TIMER POI
0x3f24bc…3f2650 Dummy {f00=0x014a, f01=0x0190, f02=»NTRY DWTNVL NEW VOLUME LOADED FLAGS " P ENTRY DWTVOL DISC VOLUME NAME , P* R P EJECT TOSSIO P* t P* ~ P************* P* EXTERNALS * P************* P* P* " P EXTRN SAVE8 SAVE 8 REGISTERS 0 P EXT
0x3f2650…3f27e4 Dummy {f00=0x014a, f01=0x018e, f02=»(LIFO) p P EXTRN FNDDWT SEARCH DWT , P EXTRN QTJOB QUEUE TASK FOR DISPATCHING . P EXTRN TDISP DISPATCHER ^ 2 P EXTRN DISEND BRANCH TO DISPATCHER VIA TENDIO ~ * P EXTRN LKMQDI QUEUE TASK AND DISPATCH , P EXTRN GETBLK PUT BLOCK IN PENDING QUE
0x3f27e4…3f2978 Dummy {f00=0x014a, f01=0x0190, f02=» ( P EXTRN TTB:ST TASK STATUS AND LEVEL & P EXTRN TTB:PW PROGRAM STATUS WORD 0 P EXTRN TTB:SA SAVE AREA Z P EXTRN TTB:MT MMUTAB z P* P EJECT TOSSIO P* P* . P***************************************** P* P
0x3f2978…3f2b0c Dummy {f00=0x014a, f01=0x0190, f02=»AGING l * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* < PMMUPAG EQU 0 F P* Z P* d 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION n . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P*
0x3f2b0c…3f2ca0 Dummy {f00=0x014a, f01=0x0190, f02=» EQU 1 P* P* 4 P* A PROGRAM VERSION SPECIALIZED FOR THE 857 CPU " * P* IS OBTAINED BY SETTING CPU857 EQU 1. Z P* PX:B EQU 0 PCPU857 EQU X:B P* P EJECT TOSSIO P* P* P*******************
0x3f2ca0…3f2e34 (5, 107) Dummy {f00=0x014a, f01=0x0190, f02=»* P* P********************* P* DWT DISPLACEMENTS * 2 P********************* P P* n 2 P* DEVICE WORK TABLE DISPLACEMENTS: FIXED PART x P* & PDWTCHP EQU /00 CHANNEL PARAMETERS PDWTST EQU /02 STATUS PDWTBC EQU
0x3f2e34…3f2fc8 Dummy {f00=0x014a, f01=0x0190, f02=»CH EQU /06 LAST OUTPUT CHARACTER ( PDWTADR EQU /08 DRIVER ADDRESS BLOCK ( PDWTTAB EQU /0A TTAB ADDRESS T * PDWTWAT EQU /0C WAIT/ACTIVATE INDICATOR x PDWTTQ EQU /0E TERMINAL QUEUE $ PDWTUEC EQU /10 USER ECB ADDRESS " PDWTMEC EQU /12 MMU ECB
0x3f2fc8…3f315c Dummy {f00=0x014a, f01=0x0190, f02=»G=1 4 PDWTDRD EQU DWTMEC+2 START OF DRIVER DEFINED PART P XIF D P* P P EJECT TOSSIO Z P* r , P* DWT DISPLACEMENTS: DRIVER DEFINED PART | P* , PDWTOTQ EQU DWTDRD+/00 OUTPUT QUEUE LINK & PDWTA2 EQU DWTDRD+/02 SAVE AREA A2
0x3f315c…3f32f0 Dummy {f00=0x014a, f01=0x0190, f02=»TSB1 EQU DWTDRD+/0A STACK BASE 1 IN DWT . PDWTSB2 EQU DWTDRD+/0E STACK BASE 2 IN DWT 0 & PDWTTP EQU DWTDRD+/10 TIMER POINTER b 4 PDWTORD EQU DWTDRD+/10 SAVE AREA INDEX AND ORDER 2 PDWTNVL EQU DWTDRD+/12 NEW VOLUME LOADED FLAGS * PDWTECH EQU DWT
0x3f32f0…3f3484 Dummy {f00=0x014a, f01=0x0190, f02=»CT TOSSIO P* P* P********************* ( P* DAB DISPLACEMENTS * F P********************* d P* ( P* DRIVER ADDRESS BLOCK DISPLACEMENTS P* & PKEYLEN EQU -6 DWT KEYTABLE LENGTH $ PBUFLEN EQU -4 DWT BUFFER LEN
0x3f3484…3f3618 Dummy {f00=0x014a, f01=0x0190, f02=»ERRUPT ADDRESS 2 PPOLADR EQU 4 BUFFER POOL ADDRESS (DC DRIVERS) 2 PHDRLEN EQU 6 BUFFER HEADER LENGTH (DC DRIVERS) L " PRECADR EQU 6 RECOVERY ADDRESS PECHADR EQU 8 ECHO ADDRESS P* P* P*********************** P* DEVICE I
0x3f3618…3f37ac Dummy {f00=0x014a, f01=0x018e, f02=» ROUTINE R F P* FROM ADDRESS TABLES TIOTAB AND TENTAB AT READ/WRITE REQUESTS. P* Z $ PDC:DIX EQU -2 DATA COMMUNICATION d PDM:DIX EQU 0 DATA MANAGEMENT $ PPC:DIX EQU 2 PROGRAMMED CHANNEL " PMX:DIX EQU 4 MULTIPLEX CHANNEL PKB:DIX EQU
0x3f37ac…3f3940 Dummy {f00=0x014a, f01=0x0190, f02=» P* P********************* P* ECB DISPLACEMENTS * , P********************* J P* h ( P* EVENT CONTROL BLOCK DISPLACEMENTS r P* PECBFC EQU /01 FILE CODE PECBBA EQU /02 BUFFER ADDRESS " PECBRL EQU /04 REQUESTED LENG
0x3f3940…3f3ad4 (5, 108) Dummy {f00=0x014b, f01=0x0190, f02=»OL WORD 1 | " PECBCW2 EQU /0C CONTROL WORD 2 P* 8 P EJECT TOSSIO B P* Z P* d P IFT MMUPAG=1 n P* P* P********** P* TIOTAB * P********** P* < P* TIOTAB CONTAINS ADDRESSES TO ROUTINES ENTERED
0x3f3ad4…3f3c68 Dummy {f00=0x014b, f01=0x0190, f02=»TIOPCI PROGRAMMED CHANNEL, INPUT P DATA TIOMXI MUX, INPUT ( $ P DATA TIOKBI KEYBOARD/CTW, INPUT H 0 P DATA TIOITI INTERTASK COMMUNICATION, INPUT p P* PTINDEX EQU *-TIOTAB P DATA TIODKI DISC, INPUT , P DATA TIOPCO PROGRAMMED CHANNE
0x3f3c68…3f3dfc Dummy {f00=0x014b, f01=0x0190, f02=» d P DATA TIODKO DISC, OUTPUT P* * P EJECT TOSSIO 4 P* L P* V P********** ` P* TENTAB * r P********** P* @ P* TENTAB CONTAINS ADDRESSES TO ROUTINES ENTERED FROM TENDIO P* 2 PTENTAB EQU * DEVICE TYPE/R
0x3f3dfc…3f3f90 Dummy {f00=0x014b, f01=0x0190, f02=» MUX, INPUT $ P DATA TENKBI KEYBOARD/CTW, INPUT 0 P DATA TENITI INTERTASK COMMUNICATION, INPUT < P DATA TENDKI DISC, INPUT p , P DATA TENPCO PROGRAMMED CHANNEL, OUTPUT P DATA TENMXO MUX, OUTPUT & P DATA TENKBO KEYBOARD/CTW, OUTPUT 0
0x3f3f90…3f4124 Dummy {f00=0x014b, f01=0x0190, f02=» P* P********** P* MONMMU * $ P********** 6 P* H P* MONITOR (SYSTEM) MMU TABLE R P* v PMONMMU EQU * P IFT MMUPAG=1 " P DATA /0000,/0400,/0800,/0C00 " P DATA /1000,/1400,/1800,/1C00 " P DATA /2000,/2400,
0x3f4124…3f42b8 Dummy {f00=0x014b, f01=0x0190, f02=»1 P* 2 P* SUBROUTINES BELOW ARE USED BY ATTACH/DETACH P* J P* T I M O U T T P* j P* INPUT: A1 = DWT ADDRESS t . P* A2 = ADDRESS TO 2ND TIMER BLOCK P* P* OUTPUT: A4 = BLOCK ADDRESS P* A5 = TTA
0x3f42b8…3f444c Dummy {f00=0x014b, f01=0x0190, f02=»TIMER POINTER ADDRESS P LD A5,2,A2 TTAB ADDRESS P CF A15,FNDBLK > P LDR* A1,A4 T " P STR A1,A2 REMOVE FROM ATT:CH h P CF A15,FREBLK P* P EJECT TOSSIO P* & P* REMOVE TTAB FROM DEVICE QUEUE P* P LDR
0x3f444c…3f45e0 Dummy {f00=0x014b, f01=0x018e, f02=» TIM:20 END OF QUEUE P CWR A1,A5 P RB(NE) TIM:10 NOT FOUND 0 P* P P EJECT TOSSIO Z P* r & P* TTAB FOUND - REMOVE FROM QUEUE | P* P LDR* A1,A1 P STR A1,A2 P* PTIM:20 EQU * P LDK A3,4 . P A
0x3f45e0…3f4774 (5, 109) Dummy {f00=0x0152, f01=0x0190, f02=» r P* P IFT MMUPAG=0 * P ST A3,ECBRC,A8 INDICATE ERROR IN ECB ( P XIF V P* b P IFT ATTDET=1 l P IFT MMUPAG=1 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB * P ES A3,ECBRC,A8 INDICATE ERROR IN ECB . P TL MONMMU LOAD
0x3f4774…3f4908 Dummy {f00=0x0152, f01=0x0190, f02=» TOSSIO P* P* F N D B L K P* 2 ( P* SUBROUTINE TO FIND BLOCK IN ATT:CH < P* h P* INPUT: A5 = TTAB ADDRESS r P* 6 P* OUTPUT: A2 = ADDRESS TO PRECEDING BLOCK IN CHAIN 2 P* A4 = BLOCK ADDRESS IF FOUND, ELSE 0
0x3f4908…3f4a9c Dummy {f00=0x0152, f01=0x018e, f02=»0 END OF ATT:CH P CW A5,4,A4 P RB(NE) FND:10 NOT FOUND , P* L PFND:20 EQU * V P IFT CPU852=1 j P ABL IHRTN RETURN P XIF P* P IFT ATTDET=1 P IFT CPU852=0 P RTN A15 RETURN P XIF P*
0x3f4a9c…3f4c30 Dummy {f00=0x0152, f01=0x0190, f02=» P* ATTACH * ! P********** ! P* ! ( P* ! 2 * P* THIS MODULE IS CALLED FROM TIO WITH ! < P* THE FOLLOWING PARAMETERS: ! j P* ! & P* A3 /8000 (REQUEST ERROR BIT) ! & P* A4 I/O AND ACTIVATE INDICATOR ! P* A5 TTAB ADDRESS ! P
0x3f4c30…3f4dc4 Dummy {f00=0x0152, f01=0x0190, f02=»RIVER ADDRESS BLOCK ! | P* A13 DWT STATUS " P* " 6 PATTACH EQU * ENTRY " @ P ADK A4,0 SET CR " Z * P RF(NZ) TIOERR I/O AND ACTIVATE ERROR " r P* " P IFT MMUPAG=0 " " P CM ECBRC,A8 RESET RETURN CODE " P XIF " P* " P IFT ATTDET=
0x3f4dc4…3f4f58 Dummy {f00=0x0152, f01=0x018e, f02=» P IFT ATTDET=1 # P TM A10,A13 # * P RF(NZ) ATT:40 DEVICE ALREADY ATTACHED # . P LDR A13,A13 # P RF(NN) ATT:50 DEVICE BUSY # p P* # P* ATTACH REQUESTING TASK # P* # P ORS A10,DWTST,A6 ATTACH # , P ST A5,DWTTAB,A6 PUT TTAB ADDR
0x3f4f58…3f50ec Dummy {f00=0x0152, f01=0x0190, f02=» # ~ P* $ & P* FREE BLOCK AND TIMER IN ATT:CH $ P* $ < P CM* 2,A4 FREE TIMER $ F " P LDR* A3,A4 REMOVE FROM ATT:CH $ b P STR A3,A2 $ P CF A15,FREBLK RELEASE BLOCK $ P RF ATTRTN END REQUEST $ P* $ PATT:40 CW A5,DWTTAB,A6 $ . P RF(
0x3f50ec…3f5280 Dummy {f00=0x0152, f01=0x0190, f02=»TIVE $ v P* % P* SET TIMER % P* % . P IFT MMUPAG=0 % 8 P LD A1,ECBCW,A8 TIME % N P XIF % j P* % v P EJECT TOSSIO % P* % P* % P IFT ATTDET=1 % P IFT MMUPAG=1 % P EL A1,ECBCW,A8 TIME % P XIF % P* %
0x3f5280…3f5414 (5, 110) Dummy {f00=0x0152, f01=0x0190, f02=»1,A5 TTAB ADDRESS % P LD A3,ATT:CH ANCHOR & P CF A15,GETBLK BLOCK & 6 P ST A4,ATT:CH UPDATE ANCHOR & R $ P ADK A4,2 TIMER POINTER ADDRESS & v P LDR A1,A6 DWT ADDRESS & P CF A15,SETIMP SET TIMER & P DATA TIMOUT & P* & PATTIM DATA 0 &
0x3f5414…3f55a8 Dummy {f00=0x0152, f01=0x018e, f02=»F TIOERR RETURN & P* ' P EJECT TOSSIO ' " P* ' : P* ' D P********** ' N P* DETACH * ' ` P********** ' r P* ' * P* THIS MODULE IS CALLED FROM TIO WITH ' $ P* THE SAME PARAMETERS AS ATTACH. ' P* ' PDETACH EQU * ' P ADK A
0x3f55a8…3f573c Dummy {f00=0x0152, f01=0x0190, f02=» ' ~ * P RF(NE) TIOERR ATTACHED TO OTHER TASK ( P XRS A10,DWTST,A6 DETACH ( 6 P LDR A3,A5 SAVE TTAB ADDRESS ( V P LD A5,DWTTQ,A6 QUEUE ANCHOR ( z P RF(Z) DET:10 QUEUE EMPTY ( $ P LDR* A2,A5 UPDATE QUEUE ANCHOR ( P ST A2,DWTTQ,A6 ( P CF A15,
0x3f573c…3f58d0 Dummy {f00=0x0152, f01=0x0190, f02=»H NORMAL EXIT ( p PDETRTN LDK A3,0 RETURN CODE ) P XIF ) : P* ) F P EJECT TOSSIO ) P P* ) h P* ) r P********** ) | P* TIOERR * ) P********** ) P* ) P* ERROR: FILE CODE UNKNOWN ) ( P* TIOERR IS ALSO USED AS COMMON EXIT ) (
0x3f58d0…3f5a64 Dummy {f00=0x0152, f01=0x0190, f02=» ) j ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * 4 P* * @ P IFT MMUPAG=1 * J * P ES A3,ECBRC,A8 SET RETURN CODE IN ECB * ` P LDK A3,0 * * P ES A3,ECBEL,A8 RESET EFFECTIVE LENGTH * P XIF * P* * PTIORTN EQU * * ( P ABL LKMQDI QUEU
0x3f5a64…3f5bf8 Dummy {f00=0x0152, f01=0x018e, f02=»********** * P* + P* + 8 P* THIS IS THE ROUTINE FOR QUEUEING DEVICE REQUESTS. + & > P* THE ROUTINE IS ENTERED AT DIFFERENT LABELS DEPENDING ON + b @ P* WHETHER THE DEVICE IS AN ECHO DEVICE OR NOT, AND DEPENDING + 8 P* ON WHETHER THE DEVICE IS ATTAC
0x3f5bf8…3f5d8c Dummy {f00=0x0152, f01=0x0190, f02=» + t P* , PTIOQ00 LDR A6,A2 , P* , * P* QUEUE DEVICE FIRST , 4 P* , P $ PTIOQ05 ADK A6,DWTTQ QUEUE ANCHOR , Z P LDR A2,A6 , P LDR* A6,A6 , $ P RF TIOQ40 INSERT FIRST IN QUEUE , P* , & PTIOQ10 LDR A6,A2 QUEUE ECHO DEVICE , P* ,
0x3f5d8c…3f5f20 Dummy {f00=0x0152, f01=0x0190, f02=»E MANAGEMENT , r P LD A1,TTB:ST+1,A5 LEVEL - P* - 4 P EJECT TOSSIO - > P* - V * P* SEARCH QUEUE FOR PLACE OF INSERTION - ` 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,
0x3f5f20…3f60b4 (5, 111) Dummy {f00=0x0152, f01=0x0190, f02=» LDKL A3,-4 - P STR A6,A5 INSERT IN QUEUE . P STR A5,A2 . 6 P ADK A4,0 SET CR . H P RF(Z) TIOQ50 NO ACTIVATION . ` P SUK A3,2 ACTIVATION . P* . 4 PTIOQ50 ADS A3,TTB:SA,A5 UPDATE PC TO REPEAT LKM . P* . PTIOQ60 EQU * . P ABL TDI
0x3f60b4…3f6248 Dummy {f00=0x0152, f01=0x018e, f02=» P* / . P* THIS MODULE IS ENTERED WHEN TERMINAL I/O / 2 P* IS REQUIRED. IF A REQUEST CANNOT BE SERVICED / @ 4 P* DUE TO E.G. BUSY DEVICE, THE REQUEST IS QUEUED / v 2 P* AND THE TERMINAL PROGRAM SET IN WAIT STATE. / P* / 2 P* WHEN RUNNING WITH MMU OP
0x3f6248…3f63dc Dummy {f00=0x0152, f01=0x0190, f02=» / & P* WITH THE FOLLOWING PARAMETERS:- 0 P* 0 2 . P* A1 = PARAMETER WHEN I/O AND ACTIVATION 0 < P* 0 n $ P* A4 = ZERO, NORMAL I/O REQUEST 0 x ( P* NOT ZERO, I/O AND ACTIVATION 0 P* 0 P* A5 = TTAB ADDRESS 0 P* 0 P* A7 = ORDE
0x3f63dc…3f6570 Dummy {f00=0x0152, f01=0x0190, f02=»EQUESTED ACTIVATION DRIVER 0 r * P* WITH THE FOLLOWING REGISTER VAULES:- 1 " P* 1 P P* A5 = STACK BASE 2 IN DWT 1 Z P* 1 ~ P* A6 = DWT ADDRESS 1 P* 1 P* A7 = ORDER CODE 1 P* 1 P* A8 = ECB ADDRESS 1 P* 1 , P* A12 = ADDRESS
0x3f6570…3f6704 Dummy {f00=0x0152, f01=0x0190, f02=» 1 f P* 2 P* 2 , P* THE FOLLOWING DWT FIELDS ARE UPDATED:- 2 P* 2 L " P* -DWTOR DWT INDEX AND ORDER 2 V P* -DWTECB ECB ADDRESS 2 | $ P* -DWTST READY AND ECHO FIELDS 2 P* -DWTTAB TTAB ADDRESS 2 & P* -DWTWAT WAIT/ACTIVATE INDICATOR 2
0x3f6704…3f6898 Dummy {f00=0x0152, f01=0x0190, f02=»T 0 IN THE FIRST WORD 2 P* -ECBEL EFFECTIVE LENGTH 3 P* -ECBRC RETURN CODE 3 B P* 3 ` P EJECT TOSSIO 3 j P* 3 . P* DWT ADDRESS AND CHECK IF REQUEST IS BUSY 3 P* 3 ( PTIO CF A15,FNDDWT SEARCH DWT ADDRESS 3 P* 3 . PTIO:FM EQU
0x3f6898…3f6a2c Dummy {f00=0x0152, f01=0x0190, f02=»B(Z) TIOERR FILE CODE UNKNOWN 3 6 P LD A12,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK 4 & P LD A13,DWTST,A6 DWT STATUS 4 ` P* 4 P EJECT TOSSIO 4 P* 4 @ P* CHECK IF ATTACH/DETACH ORDER OR IF DEVICE IS BUSY/ATTACHED 4 P* 4 P IFT ATTDE
0x3f6a2c…3f6bc0 Dummy {f00=0x0152, f01=0x0190, f02=»H DETACH ORDER 4 P TM A10,A13 5 P RF(Z) TIO020 NOT ATTACHED 5 * P CW A5,DWTTAB,A6 5 L * P RB(NE) TIOQ20 ATTACHED TO OTHER TASK 5 d P TM A3,A13 5 " P RF(NZ) TIO030 DEVICE NOT BUSY 5 " P RB TIOQ05 BUSY, QUEUE DEVICE 5 P XIF 5 P* 5 PTI
0x3f6bc0…3f6d54 (5, 112) Dummy {f00=0x0153, f01=0x0190, f02=»HEN TRUE CHECK IF ECHO DEVICE IS BUSY/ATTACHED 5 z P* 6 6 * PTIO030 SC A2,DWTOR,A6 STORE DWT INDEX 6 @ P LDK A2,/40 CHECK IF ECHO 6 n P ANR A2,A7 6 P RF(Z) TIO070 NOT ECHO 6 P* 6 " P LD A2,DEVIND,A12 DEVICE INDEX 6 $ P SUK A2,KB:DIX CHECK IF
0x3f6d54…3f6ee8 Dummy {f00=0x0153, f01=0x0190, f02=» ECHO DEVICE 6 $ P LD A14,DWTST,A2 ECHO DWT STATUS 7 P* 7 < P IFT ATTDET=1 7 F P TM A10,A14 7 * P RF(Z) TIO050 ECHO DEVICE NOT ATTACHED 7 p P CW A5,DWTTAB,A2 7 6 P RB(NE) TIOQ10 ECHO DEVICE ATTACHED TO OTHER TASK 7 P TM A3,A14 7 ( P RF(NZ
0x3f6ee8…3f707c Dummy {f00=0x0153, f01=0x0190, f02=»* 7 PTIO050 TM A3,A14 8 " P RB(Z) TIOQ10 ECHO DEVICE BUSY 8 " P* 8 H PTIO060 LDKL A3,/A000 8 R : P XRS A3,DWTST,A2 UPDATE BUSY & ECHO BITS IN DWT STATUS 8 n P* 8 P* UPDATE ECB AND DWT FIELDS 8 P* 8 @ PTIO070 XRS A3,DWTST,A6 UPDATE BUSY &
0x3f707c…3f7210 Dummy {f00=0x0153, f01=0x0190, f02=»F(NZ) TIO100 JUMP IF USER MODE 8 P LDKL A2,/7FFF 9 & , P ANRS A2,A8 RESET BIT 0 IN ECB FILE CODE 9 < , P ST A8,DWTECB,A6 SET ACTUAL ECB ADDRESS 9 l ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH 9 $ P CM ECBRC,A8 RESET RETURN CODE 9 P RF TIO110 9 P* 9
0x3f7210…3f73a4 Dummy {f00=0x0153, f01=0x0190, f02=»OAD FIRST WORD OF USER ECB 9 0 P ANR A3,A2 RESET BITS 0,2,3 IN ECB FILE CODE : " P ESR A3,A8 : V ( P LD A2,DWTMEC,A6 DWT MMU ECB ADDRESS : h , P ST A2,DWTECB,A6 SET ACTUAL ECB ADDRESS : P STR A3,A2 : * P ST A8,DWTUEC,A6 SAVE USER ECB ADDRESS : P LDR
0x3f73a4…3f7538 Dummy {f00=0x0153, f01=0x0190, f02=»10,A1 SAVE PARAMETER : P LDR A1,A8 ; P ADK A1,ECBRL ; . ( P LDR A8,A2 SET A8 TO DWT ECB ADDRESS ; D P ADK A2,ECBRL ; p P LDK A3,8 ; . P MVUS A3 MOVE PART OF USER ECB TO DWT ECB ; " P LDR A1,A10 RESTORE PARAMETER ; P XIF ; P* ; P I
0x3f7538…3f76cc Dummy {f00=0x0153, f01=0x0190, f02=»M ECBRC,A8 RESET RETURN CODE ; P XIF < & P* < 2 P EJECT TOSSIO < < P* < T P* < ^ PTIO110 EQU * < h P ECR A3,A7 < | P ANK A3,/FF ORDER OPTION < , P RF(Z) TIO120 NO SPECIAL OPTION IF ZERO < ( P SC A3,DWTOPT,A6 STORE OPTION IN DWT <
0x3f76cc…3f7860 Dummy {f00=0x0153, f01=0x018e, f02=»TTAB ADDRESS IN DWTTAB < z P* = PTIO130 EQU * = ( P IFT MMUPAG=0 = < & P ST A8,DWTECB,A6 SET ECB ADDRESS = R P XIF = | P* = P EJECT TOSSIO = P* = . P* UPDATE DWTWAT (WAIT/ACTIVATE INDICATOR) = P* = P LDR A2,A4 CHECK PARAMET
0x3f7860…3f79f4 (5, 113) Dummy {f00=0x0168, f01=0x0190, f02=» P LDK A4,1 INDICATE WAIT > P RF TIO230 > $ P* > 6 < PTIO210 CF A15,GETBLK SAVE PARAMETER AND DISPATCH ADDRESS > @ P* > 2 PTIO220 CF A15,QTJOB QUEUE TASK FOR DISPATCHING > P* > 8 PTIO230 ST A4,DWTWAT,A6 STORE WAIT/ACTIVATE INDICATOR > P*
0x3f79f4…3f7b88 Dummy {f00=0x0168, f01=0x0190, f02=»MP IF SYSTEM MODE > " P LD A3,DEVIND,A12 DEVICE INDEX ? , P RF(N) TIO250 NO SPECIAL ACTION REQUIRED ? @ " P RF(Z) TIO240 DATA MANAGEMENT ? p P CWK A3,DK:DIX CHECK IF DISC ? P RF(NE) TIO235 NOT DISC ? ( P CF A15,TIOCW2 MOVE 2ND CONTROL WORD ? P*
0x3f7b88…3f7d1c Dummy {f00=0x0168, f01=0x0190, f02=» IS READ/WRITE ? r . P RF(Z) TIO250 JUMP IF NO READ/WRITE ORDER @ P* @ H PTIO240 EQU * @ R P ENB @ f < P CFI A15,TIOTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE @ r P XIF @ P* @ * PTIO250 ENB GIVE OTHER TASKS A CHANCE @ P* @ * PTIO260 L
0x3f7d1c…3f7eb0 Dummy {f00=0x0168, f01=0x0190, f02=» @ P* A P* A P********** A P* SWITCH * A . P********** A @ P* A R P* SWITCH PRIORITY LEVEL: A P* A | ( P* IF CPU851, THEN SWITCH TO LEVEL 12 A ( P* IF CPU852, " " " " 16 A ( P* IF CPU857, " " " " 16 A
0x3f7eb0…3f8044 Dummy {f00=0x0168, f01=0x0190, f02=» A3,/30 CPU851: LEVEL 12 A P XIF B P* B , P IFF CPU852+CPU857=0 B 6 ( P LDK A3,/40 CPU852/CPU857: LEVEL 16 B R P XIF B ~ P* B ( P SC A3,2,A15 SET NEW LEVEL ON STACK B " P RTN A15 RETURN WITH NEW LEVEL B P* B P EJECT TOSSIO B P
0x3f8044…3f81d8 Dummy {f00=0x0168, f01=0x0190, f02=»CTING B Z @ P* THE APPROPRIATE ROUTINE AT READ/WRITE REQUESTS, DEPENDING C > P* ON THE DEVICE CONNECTION (PROGRAMMED CHANNEL, MUX ETX). C R > P* IF NO READ/WRITE REQUEST, CONDITION REGISTER ON STACK IS C * P* SET TO ZERO, ELSE NOT EQUAL TO ZERO. C P* C
0x3f81d8…3f836c Dummy {f00=0x0168, f01=0x0190, f02=»ING C ^ . P* CR = 0 IF NO READ/WRITE REQUEST D , P* CR <> 0 IF READ/WRITE REQUEST D > P* A4 IS DESTROYED D n P* D , PRD:WR LD A4,DWTOR,A6 ORDER CODE FROM DWT D P ANK A4,/3F D P* D * PRD:WR2 ADKL A15,4 ADJUST STACKPOINTER D
0x3f836c…3f8500 Dummy {f00=0x0168, f01=0x0190, f02=»3,A4 ADD READ/WRITE INDEX D ( P ABR* A15 RETURN WITHOUT CHANGING CR E " P* E N P EJECT TOSSIO E X P* E p P* E z P********** E P* ORDTAB * E P********** E P* E 2 P* ORDTAB CONTAINS ORDER CONSTANTS AS FOLLOWS: E P* E P* =
0x3f8500…3f8694 (5, 114) Dummy {f00=0x0168, f01=0x018e, f02=» BYTES 0,1 /00, /01 E P BYTES 1,1 /02, /03 F P BYTES 0,TINDEX+1 /04, /05 F 8 & P BYTES TINDEX+1,TINDEX+1 /06, /07 F Z P BYTES TINDEX+1,0 /08, /09 F P BYTES 1,TINDEX+1 /0A, /0B F P BYTES 0,0 /0C, /0D F P BYTES 0,0 /0E, /0F F P BYTES 0
0x3f8694…3f8828 Dummy {f00=0x0168, f01=0x0190, f02=» P BYTES 0,0 /1A, /1B G P BYTES 0,0 /1C, /1D G P BYTES 0,0 /1E, /1F G < P BYTES 0,TINDEX+1 /20, /21 G X P BYTES TINDEX+1,0 /22, /23 G z P BYTES TINDEX+1,0 /24, /25 G P BYTES 0,TINDEX+1 /26, /27 G P BYTES 0,0 /28, /29 G P BYTES 0,0 /
0x3f8828…3f89bc Dummy {f00=0x0168, f01=0x0190, f02=»YTES 0,0 /34, /35 G P BYTES 0,0 /36, /37 H P BYTES 0,0 /38, /39 H 6 P BYTES 0,0 /3A, /3B H R P BYTES 0,0 /3C, /3D H n P BYTES 0,0 /3E, /3F H P* H P EJECT TOSSIO H P* H P* T I O : D M H P* H 4 P* THIS MODULE IS CALLE
0x3f89bc…3f8b50 Dummy {f00=0x0168, f01=0x018e, f02=»* COMPLETION OF THE REQUEST IS 'TEN:DM'. H P* I 0 " P* INPUT: A8 = DWT ECB ADDRESS I : $ P* A9 = USER ECB ADDRESS I ` P* I P* OUTPUT: A2 IS DESTROYED I P* I . PTIO:DM EQU * DATA MANAGEMENT, INPUT/OUTPUT I ( P EL A2,ECBBA,A9 USER BUF
0x3f8b50…3f8ce4 Dummy {f00=0x0168, f01=0x0190, f02=» I ~ P* J PA15RTN EQU * J P RTN A15 J & P* J 6 P EJECT TOSSIO J @ P* J X P* T I O P C I J b P* J x B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN J > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. J B
0x3f8ce4…3f8e78 Dummy {f00=0x0168, f01=0x0190, f02=»* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT J , P* COMPLETION OF THE REQUEST IS 'TENPCI'. K 8 4 P* NOTICE THAT ENTRY TIPI05 IS USED BY 'TIOKBI'. K h P* K " P* INPUT: A8 = DWT ECB ADDRESS K $ P* A9 = USER ECB ADDRESS K , P* A12 = ADDRESS
0x3f8e78…3f900c Dummy {f00=0x0168, f01=0x0190, f02=»A1,ECBRL,A8 REQUESTED LENGTH K 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE L $ 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE L Z P* L . PTIPI05 EQU * ENTRY POINT USED BY 'TIOKBI' L ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS L P ANK A1,1 L
0x3f900c…3f91a0 Dummy {f00=0x0168, f01=0x0190, f02=»DRESS EVEN L n P ANS A1,ECBBA,A8 M P RTN A15 M * P* M : P EJECT TOSSIO M D P* M P* T I O M X I M f P* M | B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN M > P* ISSUED AND THE DEVICE IS RUNNING ON MULTIPLEXOR CHANNEL. M
0x3f91a0…3f9334 (5, 115) Dummy {f00=0x0169, f01=0x0190, f02=»ING MODULE CALLED BY 'TENDIO' AT M , P* COMPLETION OF THE REQUEST IS 'TENMXI'. N ( N P* NOTICE THAT MODULES 'TIOMXO', 'TIODKI' AND 'TIODKO' ARE EQUAL TO TIOMXI. N X P* N P* INPUT: A5 = TTAB ADDRESS N " P* A8 = DWT ECB ADDRESS N P* A9 = US
0x3f9334…3f94c8 Dummy {f00=0x0169, f01=0x018e, f02=» P* O PTIOMXI EQU * MUX, INPUT O ( P EL A1,ECBBA,A9 USER BUFFER ADDRESS O . P ECR A2,A1 O Z & P ANKL A1,/FFF SKIP 4 LEFTMOST BITS O l P SRL A2,3 O & P ANK A2,/1E MMUTAB INDEX (5 BITS) O P ADR A2,A5 ADD TTAB ADDRESS O * P LC A2,TTB:MT,A2 P
0x3f94c8…3f965c Dummy {f00=0x0169, f01=0x0190, f02=» O P SRC A2,4 P P ORR A1,A2 P 2 P ST A1,ECBBA,A8 STORE MODIFIED BUFFER ADDRESS P , P RTN A15 P b P* P r P EJECT TOSSIO P | P* P P* T I O K B I P P* P B P* THIS MODULE IS CALLED BY 'TIO' WHEN A READ REQUEST HAS BEEN P N P* IS
0x3f965c…3f97f0 Dummy {f00=0x0169, f01=0x018e, f02=»* IN 'TIOPCI' AND ENTRY TIPO05 IN 'TIOPCO'. P 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT Q 4 , P* COMPLETION OF THE REQUEST IS 'TENKBI'. Q l P* Q P* INPUT: A6 = DWT ADDRESS Q P* A7 = ORDER CODE Q " P* A8 = DWT ECB ADDRESS Q P
0x3f97f0…3f9984 Dummy {f00=0x0169, f01=0x0190, f02=» PTIOKBI EQU * KEYBOARD/CTW R $ P LD A1,ECBRL,A8 REQUESTED LENGTH R & 2 P CW A1,BUFLEN,A12 COMPARE WITH DWT BUFFER SIZE R N 6 P RF(G) IO:ERR REQ. LENGTH EXCEEDS DWT BUFFER SIZE R 6 P CF A15,TIPI05 CHECK AND CORRECT BUFFER ADDRESSES R P CWK A7,1 CHECK
0x3f9984…3f9b18 Dummy {f00=0x0169, f01=0x0190, f02=»E R x P* S P EJECT TOSSIO S P* S , P* S 6 P LDR A1,A9 S @ P ADK A1,8 S R P ADKL A8,12 S d * P ST A8,-2,A8 SET DWT KEYTABLE ADDRESS S x P SUKL A8,4 S * P ELR A3,A4 FIRST WORD OF USER KEYTABLE S P ANK A4,1 S * P RF(NZ) TIKB10 K
0x3f9b18…3f9cac Dummy {f00=0x0169, f01=0x0190, f02=»DK A3,1 S 0 P CW A3,KEYLEN,A12 CHECK KEYTABLE BUFFER SIZE T P RF(G) IO:ERR TOO SMALL T D P CF A15,TIPO05 T d & P SUKL A8,8 ADJUST DWT ECB ADDRESS T z P* T PTIKB20 EQU * T P RTN A15 T P* T P EJECT TOSSIO T P* T P* T I O I
0x3f9cac…3f9e40 Dummy {f00=0x0169, f01=0x0190, f02=»I DISC, INPUT T P* U P EJECT TOSSIO U P* U 8 P* T I O P C O U B P* U X B P* THIS MODULE IS CALLED BY 'TIO' WHEN A WRITE REQUEST HAS BEEN U b > P* ISSUED AND THE DEVICE IS RUNNING ON PROGRAMMED CHANNEL. U B P* TIOPCO CHECKS THAT REQUESTED
0x3f9e40…3f9fd4 (5, 116) Dummy {f00=0x0169, f01=0x0190, f02=»ER. U x 4 P* THE CORRESPONDING MODULE CALLED BY 'TENDIO' AT V , P* COMPLETION OF THE REQUEST IS 'TENPCO'. V D 6 P* NOTICE THAT MODULE 'TIOKBO' IS EQUAL TO TIOPCO. V t F P* NOTICE ALSO THAT ENTRY TIPO05 IS USED BY 'TIOKBI' AND 'TENITO'. V & P* TIOPCO IS ALSO
0x3f9fd4…3fa168 Dummy {f00=0x0169, f01=0x018e, f02=»E DESTROYED V ~ P* W , PTIOPCO EQU * PROGRAMMED CHANNEL, OUTPUT W 4 P LD A2,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK W N $ P LD A3,ECBRL,A8 REQUESTED LENGTH W ( P RF(NP) TIPO20 REQUESTED LENGTH <= 0 W 2 P CW A3,BUFLEN,A2 COMPARE WITH DWT BUFFER SIZE
0x3fa168…3fa2fc Dummy {f00=0x0169, f01=0x018e, f02=» W ~ P* X P* X : PTIPO05 EQU * ENTRY POINT USED BY 'TIOKBI' AND 'TENITO' X P ADK A3,1 X Z . P ANKL A3,/FFFE MAKE REQUESTED LENGTH EVEN X l ( P EL A1,ECBBA,A1 USER BUFFER ADDRESS X & P LD A2,ECBBA,A8 DWT BUFFER ADDRESS X 0 P ANKL A2,/FFFE MAKE
0x3fa2fc…3fa490 Dummy {f00=0x0169, f01=0x0190, f02=» X ~ P* Y 6 PTIPO10 MVUS A3 MOVE (USER BUFFER) TO SYSTEM BUFFER Y P* Y L PTIPO20 RTN A15 Y V P* Y l 0 PTIPO30 EQU * USER BUFFER ADDRESS WAS UNEVEN Y v 4 P ORS A4,ECBBA,A8 MAKE DWT BUFFER ADDRESS UNEVEN Y 0 P ELR A4,A1 FIRST CHARACTER FROM USER B
0x3fa490…3fa624 Dummy {f00=0x0169, f01=0x0190, f02=»FER POINTER Y x ( P RB TIPO10 MOVE REMAINING CHARACTERS Z P* Z @ P EJECT TOSSIO Z J P* Z b P* I O : E R R Z l P* Z , P* DRIVER (DWT) MMU BUFFER IS TOO SMALL. Z B P* SET RETURN CODE /8008 (REQUEST ERROR AND INCORRECT LENGTH). Z & P* BRAN
0x3fa624…3fa7b8 Dummy {f00=0x0169, f01=0x0190, f02=»ACKPOINTER Z z P LD A1,DWTST,A6 DWT STATUS [ P SLL A1,2 CHECK ECHO BIT [ 4 P RF(NN) IO:E10 NOT ECHO [ T P LDR A1,A6 SAVE DWT ADDRESS [ t & P LD A6,DWTECH,A6 ECHO DWT ADDRESS [ P CF A15,TENDIO [ " P LDR A6,A1 RESTORE DWT ADDRESS [ P* [ P
0x3fa7b8…3fa94c Dummy {f00=0x0169, f01=0x0190, f02=» [ P* P* T I O M X O P* ( " PTIOMXO EQU TIOMXI MUX, OUTPUT 2 P* X P* T I O K B O b P* x * PTIOKBO EQU TIOPCO KEYBOARD/CTW, OUTPUT P* P* T I O I T O P* 6 PTIOITO EQU A15RTN INTERTASK COMMUNICATION, OUT
0x3fa94c…3faae0 Dummy {f00=0x0169, f01=0x0190, f02=»* T E N : D M P* ] 6 P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A REQUEST ] . P* FOR DATA MANAGEMENT HAS BEEN COMPLETED. ] Z D P* NOTICE THAT MODULES 'TENDKI' AND 'TENDKO' ARE EQUAL TO TEN:DM. ] P* ] P* INPUT: A6 = DWT ADDRESS ] $ P*
0x3faae0…3fac74 (5, 117) Dummy {f00=0x0169, f01=0x018e, f02=» LD A1,DWTMEC,A6 MMU ECB ADDRESS ] ( P LD A1,ECBCW2,A1 SECOND CONTROL WORD ^ ( P ES A1,ECBCW2,A8 ^ T P RTN A15 ^ l P* ^ | P EJECT TOSSIO ^ P* ^ P* T E N P C I ^ P* ^ D P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A READ REQUEST HAS BEEN
0x3fac74…3fae08 Dummy {f00=0x0169, f01=0x018e, f02=» ^ T P* TO THE USER BUFFER. _ D P* NOTICE THAT MODULES 'TENKBI' AND 'TENITI' ARE EQUAL TO TENPCI. _ & 8 P* NOTICE ALSO THAT ENTRY TEN:DC IS USED BY 'DC:MIN'. _ n P* _ P* INPUT: A6 = DWT ADDRESS _ $ P* A8 = USER ECB ADDRESS _ P* _ & P
0x3fae08…3faf9c Dummy {f00=0x0169, f01=0x0190, f02=» $ P LD A4,ECBEL,A2 EFFECTIVE LENGTH ` " P RF(NP) TEPI30 NO MOVE IF ZERO ` , & P LD A1,ECBBA,A2 DWT BUFFER ADDRESS ` R P* ` | . PTEN:DC EQU * ENTRY POINT USED BY 'DC:MIN' ` ( P EL A2,ECBBA,A8 USER BUFFER ADDRESS ` $ P LDK A3,1 CHECK BUFFER ADDRESSES `
0x3faf9c…3fb130 Dummy {f00=0x0169, f01=0x0190, f02=»UFFER ADDRESS EVEN ` | P* a P EJECT TOSSIO a $ P* a < P* a F 2 PTEPI10 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN a P 0 P LDR* A3,A1 FIRST CHARACTER FROM DWT BUFFER a P ELR A8,A2 a P* a * PTEPI15 ANK A3,/FF SKIP LEFT CHARACTER a ( P ANK
0x3fb130…3fb2c4 Dummy {f00=0x0169, f01=0x0190, f02=»TERS a t P ADK A2,1 b P SUK A4,1 b * P RF(P) TEPI25 MORE CHARACTERS TO MOVE b 0 P RTN A15 NO, RETURN b ^ P* b z PTEPI20 TM A3,A2 b * P RF(Z) TEPI25 USER BUFFER ADDRESS EVEN b " P LDR A3,A1 DWT BUFFER ADDRESS b $ P ADR A3,A4 ADD EFFECTIVE
0x3fb2c4…3fb458 Dummy {f00=0x0169, f01=0x0190, f02=»T TO NEXT CHARACTER b 4 P CWR A3,A1 COMPARE WITH START ADDRESS OF BUFFER c * P RB(NE) TEPI23 MORE CHARACTERS TO MOVE c T 0 P ADK A1,1 NO, MAKE DWT BUFFER ADDRESS UNEVEN c P RB TEPI10 c P* c P EJECT TOSSIO c P* c P* c , PTEPI25 LDR
0x3fb458…3fb5ec Dummy {f00=0x0169, f01=0x0190, f02=»SER BUFFER c n P* d PTEPI30 RTN A15 d P* d 2 , PTEPI40 EQU * EFFECTIVE LENGTH WAS UNEVEN d < ( P SUK A4,1 MAKE EFFECTIVE LENGTH EVEN d l , P RF(Z) TEPI50 ONLY ONE CHARACTER TO MOVE d P LDR A8,A4 NO, SAVE A4 d 0 P MVSU A4 MOVE (SYSTEM BUFFER) TO U
0x3fb5ec…3fb780 Dummy {f00=0x0169, f01=0x0190, f02=»ROM DWT BUFFER d t P ELR A3,A2 e P RB TEPI15 e ( P* e : . PTEPI60 EQU * DWT BUFFER ADDRESS WAS UNEVEN e D " P LDR A3,A1 DWT BUFFER ADDRESS e v $ P ADR A1,A4 ADD EFFECTIVE LENGTH e P* e " PTEPI70 LCR A8,A3 ONE CHARACTER e 6 P SC A8,-1,A3 MOVE TH
0x3fb780…3fb914 (5, 118) Dummy {f00=0x016a, f01=0x0190, f02=»PI70 MORE CHARACTERS TO MOVE e . P SUR A1,A4 NO, RESTORE DWT BUFFER ADDRESS f $ * P SUK A1,1 MAKE DWT BUFFER ADDRESS EVEN f V P RB TEPI25 f P* f P EJECT TOSSIO f P* f P* T E N M X I f P* f PTENMXI EQU A15RTN MUX, INPUT f P*
0x3fb914…3fbaa8 Dummy {f00=0x016a, f01=0x0190, f02=»ENPCI INTERTASK COMMUNICATION, INPUT f P* g , P* T E N D K I g 6 P* g L " PTENDKI EQU TEN:DM DISC, INPUT g V P* g | P EJECT TOSSIO g P* g P* T E N P C O g P* g 0 PTENPCO EQU A15RTN PROGRAMMED CHANNEL, OUTPUT g P* g P*
0x3fbaa8…3fbc3c Dummy {f00=0x016a, f01=0x0190, f02=»/CTW, OUTPUT g v P* h P* T E N D K O h P* h 4 " PTENDKO EQU TEN:DM DISC, OUTPUT h > P* h d P EJECT TOSSIO h n P* h P* T E N I T O h P* h F P* THIS MODULE IS CALLED BY 'TENDIO' WHEN A WRITE REQUEST HAS BEEN h L P* COMPLETED FO
0x3fbc3c…3fbdd0 Dummy {f00=0x016a, f01=0x0190, f02=» h J , P* 'TIOPCO' IS USED FOR MOVING THE DATA. i P* i 8 P* INPUT: A6 = DWT ADDRESS i B P* i d & P* OUTPUT: A1-A4, A8 ARE DESTROYED i n P* i 0 PTENITO EQU * INTERTASK COMMUNICATION, OUTPUT i $ P LD A8,DWTECB,A6 DWT ECB ADDRESS i $ P LD A3,ECB
0x3fbdd0…3fbf64 Dummy {f00=0x016a, f01=0x018e, f02=»S i n P* j PTEIO10 RTN A15 j P* j * P EJECT TOSSIO j 4 P* j L P* D C : M O T j V P* j l < P* THIS MODULE IS CALLED BY THE DATA COMMUNICATION DRIVER j v < P* IN PURPOSE TO MOVE THE CONTENTS OF THE USER BUFFER TO j < P* THE DRIVER BUFFE
0x3fbf64…3fc0f8 Dummy {f00=0x016a, f01=0x0190, f02=» ( P* OUTPUT: NO REGISTERS ARE DESTROYED k P* k 0 , PDC:MOT EQU * DATA COMMUNICATION, OUTPUT k : " P MSR 8,A15 SAVE A1-A8 ON STACK k j $ P SUKL A15,32 ADJUST STACKPOINTER k * P TS 2,A15 SAVE MMU REGISTERS ON STACK k " P LD A5,DWTTAB,A6 TTAB ADDRESS k
0x3fc0f8…3fc28c Dummy {f00=0x016a, f01=0x0190, f02=» P* l $ PDC:RTN EQU * RETURN TO DC DRIVER l . P TL 2,A15 RESTORE MMU REGISTERS FROM STACK l 6 $ P ADKL A15,32 ADJUST STACKPOINTER l h * P MLR 8,A15 RESTORE A1-A8 FROM STACK... l P RTN A15 ...AND RETURN l P XIF l P* l P EJECT TOSSIO l
0x3fc28c…3fc420 Dummy {f00=0x016a, f01=0x0190, f02=»TENTS OF THE DRIVER BUFFER TO THE USER BUFFER. l t P* m 6 P* INPUT: A1 = RETURN CODE m @ ( P* A4 = DRIVER BUFFER ADDRESS m b P* A6 = DWT ADDRESS m P* m ( P* OUTPUT: NO REGISTERS ARE DESTROYED m P* m PDC:MIN EQU * m P IFT
0x3fc420…3fc5b4 (5, 119) Dummy {f00=0x0170, f01=0x0190, f02=» SAVE A1-A8 ON STACK m P* n P IFT MMUPAG=1 n & $ P SUKL A15,32 ADJUST STACKPOINTER n < * P TS 2,A15 SAVE MMU REGISTERS ON STACK n d " P LD A5,DWTTAB,A6 TTAB ADDRESS n $ P TL TTB:MT,A5 LOAD MMU REGISTERS n P XIF n P* n P EJECT TOSSIO n
0x3fc5b4…3fc748 Dummy {f00=0x0170, f01=0x0190, f02=»A6 = DWT ADDRESS n P* o " PMINMOV EQU * DC:MIN MOVE ENTRY o " P ENB o H P LD A3,DWTECB,A6 ECB ADDRESS o T * P LDR A7,A4 SAVE DRIVER BUFFER ADDRESS o x $ P LD A2,ECBEL,A3 EFFECTIVE LENGTH o " P RF(NP) MIN:40 NOTHING TO MOVE o 8 P CW A2,ECBRL,A3 CHEC
0x3fc748…3fc8dc Dummy {f00=0x0170, f01=0x018e, f02=»FER ADDRESS o x P LDR A3,A5 p ( P ANK A3,1 CHECK USER BUFFER ADDRESS p & . P RF(NZ) MIN:30 USER BUFFER ADDRESS UNEVEN p R P SUK A2,2 p , P RF(N) MIN:30 ONLY ONE CHARACTER TO MOVE p P* p P EJECT TOSSIO p P* p P* WORD MOVE p P*
0x3fc8dc…3fca70 Dummy {f00=0x0170, f01=0x0190, f02=» p $ P SUK A2,2 DECREMENT LOOP COUNTER q 2 P RB(NN) MIN:10 AT LEAST ONE MORE WORD TO MOVE q 0 P* q f PMIN:20 EQU * q p P ADK A2,1 q P RF(N) MIN:40 MOVE FINISHED q P* q P* CHARACTER MOVE q P* q PMIN:30 EQU * q " P LCR A3,A7 MOV
0x3fca70…3fcc04 Dummy {f00=0x0170, f01=0x0190, f02=» q p 6 P RB(P) MIN:30 AT LEAST ONE MORE CHARACTER TO MOVE r P XIF r B P* r N P IFT MMUPAG=1 r X * P ST A1,ECBRC,A3 SET RETURN CODE IN ECB r n $ P LDR A1,A4 DRIVER BUFFER ADDRESS r P LDR A4,A2 EFFECTIVE LENGTH r & P LD A8,DWTUEC,A6 USER ECB ADDRES
0x3fcc04…3fcd98 Dummy {f00=0x0170, f01=0x018e, f02=» EJECT TOSSIO r P* s P* s " PMIN:40 EQU * s , P INH s @ " P CF A15,TENDIO PERFORM TENDIO s L P* s r P* RELEASE BUFFER s | P* s * P LD A1,DWTADR,A6 DRIVER ADDRESS BLOCK s , P SU A4,HDRLEN,A1 REAL BUFFER ADDRESS =1 s ( P LD A1,POLAD
0x3fcd98…3fcf2c Dummy {f00=0x0170, f01=0x0190, f02=» s p $ P LDR* A1,A2 NEXT BUFFER ADDRESS t , P RB(NZ) MIN:50 NOT LAST BUFFER IN CHAIN t 0 P* t ` $ P* INSERT BUFFER AT END OF CHAIN t j P* t " P STR A4,A2 UPDATE QUEUE LINKS t P CMR A4 t P* t PMIN:60 EQU * t P IFT CPU852=1 t ( P A
0x3fcf2c…3fd0c0 Dummy {f00=0x0170, f01=0x0190, f02=»PU852=0 t * P MLR 8,A15 RESTORE A1-A8 FROM STACK... u P* u > PDC:MOT RTN A15 ...AND RETURN u H P XIF u l P* u x P IFT MMUPAG=1 u " P RB DC:RTN RETURN TO DC DRIVER u P XIF u P* u P* ERROR EXIT u P* u " PMIN:70 EQU * DC:MIN ER
0x3fd0c0…3fd254 (5, 120) Dummy {f00=0x0171, f01=0x0190, f02=» u P* v P* v P IFT MMUPAG=0 v P IFT CPU852=1 v 2 PDC:MOT EQU * v H 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS v P XIF v P* v P EJECT TOSSIO v P* v P* v P********** v P* TENDIO * v P********** v
0x3fd254…3fd3e8 Dummy {f00=0x0171, f01=0x0190, f02=»T:- v p P* w * P* ACTOTP IS CALLED TO START THE TASK w P* w D P* -IF NORMAL I/O WITH WAIT:- w N P* w r * P* QTJOB IS CALLED TO QUEUE THE TASK w | 8 P* FOR DISPATCHING WITH THE FOLLOWING PARAMETERS:- w P* w P* A5 = TTAB ADDRESS w
0x3fd3e8…3fd57c Dummy {f00=0x0171, f01=0x018e, f02=»HIS DEVICE (DWTTQ NOT ZERO) w r J P* THAT TASK IS PUT IN DISPATCHER QUEUE TO REPEAT THE LKM INSTRUCTION. x $ P* x r P EJECT TOSSIO x | P* x P* x 0 P* ENTRY PARAMETERS TO THIS SUBROUTINE ARE:- x P* x P* A1 = RETURN CODE x P* x
0x3fd57c…3fd710 Dummy {f00=0x0171, f01=0x0190, f02=» x ` * P* DEPENDENT SUBROUTINES ARE PERFORMED. y P* y 6 P EJECT TOSSIO y @ P* y X P* END I/O ENTRY y b P* y z PTENDIO EQU * y P IFT CPU852=1 y & P CF A15,SAVE8 SAVE A1-A8 ON STACK y P XIF y P* y P IFT CPU852=0 y P INH
0x3fd710…3fd8a4 Dummy {f00=0x0171, f01=0x0190, f02=»4,DWTST POINT TO DWT STATUS y P INH z $ ( P LD A5,DWTTQ,A6 TERMINAL QUEUE LINK z 0 P RF(Z) TEN110 NO TASK QUEUED z P LDKL A2,/800 ATTACH BIT z P ANR* A2,A4 z & P RF(Z) TEN100 DEVICE NOT ATTACHED z , P CW A5,DWTTAB,A6 ATTACHED TO OTHER TASK z
0x3fd8a4…3fda38 Dummy {f00=0x0171, f01=0x0190, f02=»UPDATE QUEUE ANCHOR ADDRESS z P ST A3,DWTTQ,A6 { $ . P CF A15,QTJOB QUEUE TASK TO REPEAT REQUEST { < P* { n P* UPDATE ECB AND DWT { x P* { 0 PTEN110 LD A5,DWTTAB,A6 TTAB ADDRESS FROM DWT { P* { PTEN120 LDKL A2,/8000 { , P ORRS A2,A4 INDI
0x3fda38…3fdbcc Dummy {f00=0x0171, f01=0x0190, f02=»F(Z) TEN260 BRANCH IF ENTERED FROM ECHO OR RECOVERY { P* | < P EJECT TOSSIO | F P* | ^ P* | h * P ORRS A2,A3 SET EVENT COMPLETED IN ECB | r , P ORS A1,ECBRC,A3 SET RETURN CODE IN ECB | P* | P IFT MMUPAG=1 | P LD A4,TTB:PW,A5 PSW |
0x3fdbcc…3fdd60 Dummy {f00=0x0171, f01=0x0190, f02=» | $ P SUKL A15,32 ADJUST STACKPOINTER } * P TS 2,A15 SAVE MMU REGISTERS ON STACK } 0 . P TL TTB:MT,A5 LOAD MMU REGISTERS FROM TTAB } ^ P* } P EJECT TOSSIO } P* } P* MOVE DWT ECB TO USER ECB } P* } & P LD A8,DWTUEC,A6 USER ECB ADDRES
0x3fdd60…3fdef4 (5, 121) Dummy {f00=0x0171, f01=0x0190, f02=» A2,A8 } P ADK A2,ECBEL ~ P LDK A4,6 ~ $ 4 P MVSU A4 MOVE EFF. LENGTH, RTN CODE & CNTRL WORD ~ 6 P* ~ n 4 P LD A3,DWTADR,A6 ADDRESS TO DRIVER ADDRESS BLOCK ~ x " P LD A3,DEVIND,A3 DEVICE INDEX ~ , P RF(N) TEN160 NO SPECIAL ACTION REQUIRED ~ " P R
0x3fdef4…3fe088 Dummy {f00=0x0171, f01=0x0190, f02=»E ~ t P* , P CF A15,RD:WR CHECK IF IT WAS READ/WRITE . P RF(Z) TEN160 JUMP IF NO READ/WRITE ORDER D P* v PTEN140 EQU * P ENB < P CFI A15,TENTAB,A3 BRANCH TO RELEVANT READ/WRITE ROUTINE P* P EJECT TOSSIO P*
0x3fe088…3fe21c Dummy {f00=0x0171, f01=0x0190, f02=»ERS FROM STACK t $ P ADKL A15,32 ADJUST STACKPOINTER P XIF > P* J P EJECT TOSSIO T P* l : P* CHECK IF NO WAIT, WAIT, MULTIPLE WAIT OR ACTIVATION v P* PTEN200 EQU * , P LD A4,DWTWAT,A6 WAIT/ACTIVATE INDICATOR ( P RF(Z)
0x3fe21c…3fe3b0 Dummy {f00=0x0171, f01=0x0190, f02=» RF(Z) TEN230 ACTIVATION P LD A8,DWTECB,A6 ECB ADDRESS P* D P IFT MMUPAG=1 N * P AN A3,TTB:PW,A5 SYSTEM/USER MODE BIT d P RF(Z) TEN210 SYSTEM MODE . P LD A8,DWTUEC,A6 NO, GET USER ECB ADDRESS P XIF P* PTEN210 EQU *
0x3fe3b0…3fe544 Dummy {f00=0x0171, f01=0x0190, f02=» LDR* A3,A4 NEXT DWT ADDRESS P RF(Z) TEN240 NO MORE DWT:S $ P CMR A4 SET TO NO WAIT AGAIN H P LDR A4,A3 l P RB TEN220 ~ P* P EJECT TOSSIO P* P* PTEN230 EQU * 8 P CF A15,FREBLK ACTIVATE: GET PARAMETER AND DIS
0x3fe544…3fe6d8 Dummy {f00=0x0171, f01=0x415e, f02=»E TASK FOR DISPATCHING x P* PTEN250 EQU * ( $ P CM DWTECB,A6 RESET ECB ADDRESS < P* d PTEN260 EQU * n P IFT CPU852=1 P ABL IHRET8 P XIF P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P R
0x3fe6d8…3fe86c Dummy {f00=0x0171, f01=0x2008, f02=» NT TOSSIO END @ &
0x3fe86c…3fea00 Dummy {f00=0x0171, f01=0x0190, f02=»HLT,FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR 0 , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR f P ENTRY EOFERR,EDMERR P EJECT P EXTRN SCTTCT P EXTRN RELPRO P EXTRN TDISP P EXTRN H
0x3fea00…3feb94 (5, 122) Opaque[0x194]
0x3feb94…3fed28 # DirEnt {nam=»SYSLDM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x26a0, f03=0x0000}
0x3feb94…3fed28 IdxSect {
0x3feb94…3fed28 f00 = 0x0135 // 0x3feb94 @0x0
0x3feb94…3fed28 f01 = 0x003e // 0x3feb96 @0x2
0x3feb94…3fed28 gno = [ // 0x3feb98 @0x4
0x3feb94…3fed28 [0x00]: C0x0135.0x0.0
0x3feb94…3fed28 [0x01]: C0x0135.0x1.0
0x3feb94…3fed28 [0x02]: C0x0135.0x2.0
0x3feb94…3fed28 [0x03]: C0x0135.0x3.0
0x3feb94…3fed28 [0x04]: C0x0136.0x0.0
0x3feb94…3fed28 [0x05]: C0x0136.0x1.0
0x3feb94…3fed28 [0x06]: C0x0136.0x2.0
0x3feb94…3fed28 [0x07]: C0x0136.0x3.0
0x3feb94…3fed28 [0x08]: C0x0137.0x0.0
0x3feb94…3fed28 [0x09]: C0x0137.0x1.0
0x3feb94…3fed28 [0x0a]: C0x0137.0x2.0
0x3feb94…3fed28 [0x0b]: C0x0137.0x3.0
0x3feb94…3fed28 [0x0c]: C0x0138.0x0.0
0x3feb94…3fed28 [0x0d]: C0x0138.0x1.0
0x3feb94…3fed28 [0x0e]: C0x0138.0x2.0
0x3feb94…3fed28 [0x0f]: C0x0138.0x3.0
0x3feb94…3fed28 [0x10]: C0x0139.0x0.0
0x3feb94…3fed28 [0x11]: C0x0139.0x1.0
0x3feb94…3fed28 [0x12]: C0x0139.0x2.0
0x3feb94…3fed28 [0x13]: C0x0139.0x3.0
0x3feb94…3fed28 [0x14]: C0x013a.0x0.0
0x3feb94…3fed28 [0x15]: C0x013a.0x1.0
0x3feb94…3fed28 [0x16]: C0x013a.0x2.0
0x3feb94…3fed28 [0x17]: C0x013a.0x3.0
0x3feb94…3fed28 [0x18]: C0x013b.0x0.0
0x3feb94…3fed28 [0x19]: C0x013b.0x1.0
0x3feb94…3fed28 [0x1a]: C0x013b.0x2.0
0x3feb94…3fed28 [0x1b]: C0x013b.0x3.0
0x3feb94…3fed28 [0x1c]: C0x013c.0x0.0
0x3feb94…3fed28 [0x1d]: C0x013c.0x1.0
0x3feb94…3fed28 [0x1e]: C0x013c.0x2.0
0x3feb94…3fed28 ]
0x3feb94…3fed28 }
0x3fed28…3feebc Dummy {f00=0x0135, f01=0x0190, f02=» 2 P IDENT SYSLDM REL 10.0 80-03-31 870105041000 P : P REL 10.0 80-03-17 ST B & P =5,FAULTY DISPL. TO MMU BIT MAP b P REL 10.0 80-03-14 ST 0 P =4,MEM. OVERFL. NOT DET. WHEN GEN. TTAB:S P PRR 10.0 80-01-18 , P =3,SEGTAB
0x3feebc…3ff050 Dummy {f00=0x0135, f01=0x0190, f02=»2-07 0 P =1,UNEVEN LENGTH POSS. OF INTERNAL BUFFER P ENTRY SYSLDM @ P*************************** V P* * z P* ENTRIES AND EXTERNALS * P* * P***************************
0x3ff050…3ff1e4 Dummy {f00=0x0135, f01=0x0190, f02=»ADA P EXTRN SCTANO P EXTRN SCTBLK " P EXTRN SCTBUG 8 P EXTRN SCTCDT N P EXTRN SCTDCT d P EXTRN SCTDMI z P EXTRN SCTDMT P EXTRN SCTEFA P EXTRN SCTFWL P EXTRN SCTFWT P EXTRN SCTIOE P EXTRN SCT
0x3ff1e4…3ff378 Dummy {f00=0x0135, f01=0x0190, f02=» P EXTRN SCTIPL P EXTRN STTPSZ P EXTRN SCTPSZ 4 P EXTRN SCTSFA J P EXTRN SCTSTL ` P EXTRN SCTSWB v P EXTRN SCTTCT P EXTRN SYSBAS P EXTRN SYSLOD P EXTRN TCLASS P EXTRN TTMJOB P EXTRN DWTECH
0x3ff378…3ff50c Dummy {f00=0x0135, f01=0x0190, f02=» P EXTRN CONVRT P EXTRN NXTBLK P EXTRN SYSLDX 4 P EXTRN SAVE01 J P EXTRN SAVE02 ` P EXTRN SAVE03 v P EXTRN SAVE04 P EXTRN SAVE05 P EXTRN SAVE06 P EXTRN SAVE07 P EXTRN SAVE08 P EXTRN SAVE09
0x3ff50c…3ff6a0 Dummy {f00=0x0135, f01=0x018e, f02=» P EXTRN SAVE16 P EXTRN SAVE17 P EXTRN SAVE18 0 P EXTRN SAVE19 F P EXTRN SAVE20 P EXTRN SAVE21 r P EXTRN NUMSEG P EXTRN SAVE23 P EXTRN SAVE24 P EXTRN SAVE25 P EXTRN SAVE26 P EXTRN SAVE27
0x3ff6a0…3ff834 (5, 123) Dummy {f00=0x0135, f01=0x0190, f02=» & P EXTRN I:RSTE DISPL. IN P:MTAB TO P INTERPRETER RESTART ENTRY 2 P* V P* TTAB DISPLACEMENTS ` P* ~ . P EXTRN TTB:CB CURRENT SEGMENT BASE POINTER P EJECT P* P* EXTERNAL SUBROUTINES P* P EXTRN NXTCO
0x3ff834…3ff9c8 Dummy {f00=0x0135, f01=0x0190, f02=» * v , P*************************************** P F ( PMMUPAG EQU 0 MEMORY MANAGEMENT UNIT N & PSWPBLK EQU 0 SWAPPABLE WORK BLOCKS z $ PDSKPAG EQU 0 DSKPAG APPLICATION P EJECT P P* P* CONSTANTS P*
0x3ff9c8…3ffb5c Dummy {f00=0x0135, f01=0x018e, f02=» $ PWBLEN EQU -4 LENGTH OF WORKBLOCK P , P 8 $ P******************************* D $ P* SAVE01URATION FILE (SAVE01) * l $ P******************************* P P* TASK DEFINITION BLOCK: PTDBBT EQU 0 1A BLOCK TYPE (
0x3ffb5c…3ffcf0 Dummy {f00=0x0135, f01=0x0190, f02=» f $ PTDBTL EQU TDBMC+6 6A TASK LEVEL : PTDBNC EQU TDBTL+6 2N NUMBER OF TERMINAL DEVICE CLASSES 0 P* n & PTDBFST EQU TDBNC+2 FIRST TERM DEF x $ PTDC EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION ( PTDBREC EQU TDC+TLC TDB-RECOR
0x3ffcf0…3ffe84 Dummy {f00=0x0135, f01=0x0190, f02=»CK TYPE ~ 6 PCDBNC EQU CDBBT+1 2N NUMBER OF SPEC. DEV. CLASSES ( PSDCFST EQU CDBNC+2 FIRST SDC-RECORD J P* v P* & P* USER WORK BLOCK TYPE DEF. BLOCK PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES P*
0x3ffe84…400018 Dummy {f00=0x0135, f01=0x0190, f02=»UWB+NUMUBL UDB RECORD-LENGTH P EJECT $ P**************** 2 P* SOP-HANDLING * J P**************** b PSOP EQU /2E DEVICE ADDRESS z P PLMP1 EQU /400 LAMP 1 CODE PLMP2 EQU /200 PLMP3 EQU /100 PLMP4 EQU /80 PLM
0x400018…4001ac Dummy {f00=0x0135, f01=0x0190, f02=» F P***************************************************************** F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * T F P* DATA [REL-ADDRESS] * F P*
0x4001ac…400340 Dummy {f00=0x0135, f01=0x0190, f02=» P PCALL FORM 16=/F697,16 P EJECT . F P***************************************************************** < F P* CONSTANTS USED IN SYSLOD PART M * F P********************************************************
0x400340…4004d4 (5, 124) Dummy {f00=0x0135, f01=0x0190, f02=»* 2 PTTB:AT EQU -46 DISPLACEMENT TO MMU BIT MAP =5 PTTB:MT EQU -38 @ PTTB:SP EQU -4 V PTTB:SB EQU -2 l PTTB:ID EQU 2 PTTB:ST EQU 4 PTTB:PP EQU 6 PTTB:PW EQU 8 PTTB:SA EQU 10 PTTB:TD EQU 40 P EJECT
0x4004d4…400668 Dummy {f00=0x0135, f01=0x0190, f02=» 0 CHANNEL PARAMETER PDWTST EQU 2 STATUS PDWTECB EQU 4 ECB ADDRESS 6 PDWTOR EQU 6 ORDER V PDWTADR EQU 8 ADDRESS BLOCK p PDWTTAB EQU 10 TTAB ADDRESS * PDWTWAT EQU 12 WAIT/ACTIVATE INDICATOR PDWTTQ EQU 14 TERMINAL QUEUE " PDW
0x400668…4007fc Dummy {f00=0x0135, f01=0x018e, f02=» " P* * PAGTAB * " P* *********** * P* P PPAGQF EQU 0 Z PPAGQB EQU 2 n PPAGPA EQU 4 PPAGSB EQU 6 P EJECT P* & P* ************* & P* * SEGT
0x4007fc…400990 Dummy {f00=0x0135, f01=0x0190, f02=» * P* ******************* * P* * MISCELLANOUES * 2 * P* ******************* ` P* PBUFLEN EQU -4 PDEVIND EQU -2 PDWTLEN EQU 6 PTDCDD1 EQU 5 PTDCDD2 EQU 6 PLCND1 EQ
0x400990…400b24 Dummy {f00=0x0135, f01=0x0190, f02=»2 LENGTH OF ASCU4Z INTERRUPT TABLE 2 PSCZLEN EQU 16 LENGTH OF SALCUZ INTERRUPT TABLE * 2 PASZBUF EQU 96 LENGTH OF TEMP TABLE FOR ASCU4Z ` 2 PSCZBUF EQU 48 LENGTH OF TEMP TABLE FOR SALCUZ 4 PMINBUF EQU 1984 LENGTH OF TEMP. INT. TABLE AREA P EJE
0x400b24…400cb8 Dummy {f00=0x0135, f01=0x0190, f02=» * : P* THIS IS THE MONITOR CONFIGURATION PROGRAM ENTRY * < : P* * z : P* IT IS ENTERED FROM SYSLOD WITH THE FOLLOWING * : P* PARAMETERS:
0x400cb8…400e4c Dummy {f00=0x0135, f01=0x0190, f02=»CATION OF SYSLDX * r : P* A2 - POINTER TO PREVIOUS LOCATION OF SYSLDX * : P* * ^ : P* * : P**********************************************
0x400e4c…400fe0 Dummy {f00=0x0135, f01=0x0190, f02=»1,SCTSFA UPDATE START OF FREE AREA P LDR A8,P INIT STACK POINTER * & P ADK A1,2 RELOCATION ROUTINE ENTRY N P CFR A8,A1 x * P ST A13,SCTEFA UPDATE END OF FREE AREA * P LDKL A2,TCLASS GET ADDRESS TO TCLASS . P CWK A2,SCLASS SAME AS ADDRESS TO
0x400fe0…401174 (5, 125) Dummy {f00=0x0135, f01=0x0190, f02=» POINTER TO TCLASS p 0 PNO:TCL LDKL A2,SCLASS GET ADDRESS TO SCLASS , P CALL CHPTRS RELOCATE POINTERS IN SCLASS N 6 P ST A2,SAVE11,A13 SAVE RELOCATED POINTER TO SCLASS ~ P* & P* CLEAR ALL WORDS IN SYSTEM AREA P* P LD A1,SCTEFA
0x401174…401308 Dummy {f00=0x0135, f01=0x0190, f02=» P AD A1,M:REL,A13 P ABR A1 P EJECT 0 4 /*********************************************** > 4 /* CHPTRS - CHANGE POINTERS IN TCLASS/SCLASS * v 4 /*********************************************** * , (* ENTRY: A2 - POINTER
0x401308…40149c Dummy {f00=0x0135, f01=0x018e, f02=»- POINTER TO MOVED TCLASS/SCLASS * ( * WORK REGISTER:A1-A7 2 * P * SUBROUTINES: Z * r PCHPTRS EQU * | P ADR A2,A12 RELOCATE POINTER 2 . LDR A3,A2 GET POINTER TO ORIGIN TCLASS/SCLASS , ' LDR* A4,A3 GET LENGTH OF TCLA
0x40149c…401630 Dummy {f00=0x0135, f01=0x018e, f02=» z $ ! LDR* A5,A3 GET POINTER TO CLASS ADR A5,A12 RELOCATE 0 STR A5,A3 STORE L $ LDR* A6,A5 GET LENGTH OF CLASS d CHPT20 EQU * * & SUK A6,4 MOORE DEVICES IN THIS CLASS? P RB(NP) CHPT10 NO! ADK A5,4 NEXT DEVICE L
0x401630…4017c4 Dummy {f00=0x0135, f01=0x0190, f02=» r ADR A7,A12 RELOCATE * % STR A7,A5 STORE RELOCATED DW-ADDRESS $ " P LD A8,SCTOPT GET OPTION WORD R P ANKL A8,1 MMU IN SYSTEM? x P RB(Z) CHPT20 NO! , P LD A8,DWTMEC,A7 GET MONITOR ECB ADDRESS & P LDR A9,A8 GET MONITOR ECB ADDRESS
0x4017c4…401958 Dummy {f00=0x0135, f01=0x0190, f02=»ESS RELOCATED t , P ST A8,DWTMEC,A7 STORE RELOCATED ADDRESS RB CHPT20 F CHPT30 EQU * X P RTN A14 l P EJECT | 6 2************************************************** 6 2* B:TCT - BUILD TASK CONTROL TABLE * 6 2**********
0x401958…401aec Dummy {f00=0x0135, f01=0x0190, f02=»ATION DATA l * " * EXIT: A6 - START OF TC:TAB $ * A7 - LENGTH OF TC:TAB B * j * WORK REGISTERS: A2,A3 t * * SUBROUTINES: * . )* TASK CONTROL TABLE LAYOUT . )* ____
0x401aec…401c80 Dummy {f00=0x0135, f01=0x0190, f02=» I TTMJOB I . )* _________________________ , . ** I MONITOR TASKS I ^ . )* _________________________ . ** I USER TASKS I . )* _____
0x401c80…401e14 (5, 126) Dummy {f00=0x0136, f01=0x0190, f02=»A11,SAVE01,A13 GET START OF SAVE01URATION DATA ( $ LD A7,SCTSFA GET START OF FREE AREA 6 LDR A6,A7 SAVE b & " LDKL A2,TTMJOB GET TTMJOB ADDRESS z ST A2,2,A7 STORE IN TC:TAB * % ADK A7,4 CONTINUE WITH MONITOR TASKS ( P LD A2,SCTOPT ANY
0x401e14…401fa8 Dummy {f00=0x0136, f01=0x0190, f02=»S IN TC:TAB IF CERTAIN OPTIONS AVALIABLE * @ P* - TO BE PROVIDED * 4 @ P*********************************************************** x P EJECT PBTCT15 EQU * " P LD A2,SCTDMT DATA MANAGEMENT? $ PBTCT
0x401fa8…40213c Dummy {f00=0x0136, f01=0x018e, f02=»RESERV ENTRY FOR DM-TASK D0 PBTCT25 RB BTCT20 $ PBTCT30 EQU * < * P : 5* COMPUTE NUMBER OF TASKS AND RESERV SPACE IN TC:TAB Z * . )* A11 - POINTER TO TASK DEFINITION BLOCK * 2 P ST A7,SAVE13,A13 SAVE CURRENT USER TASK E
0x40213c…4022d0 Dummy {f00=0x0136, f01=0x0190, f02=» RF(E) BTCT35 YES ! P LDKL A1,LMP4 FORMAT ERROR ! CALL ERROR HALT ! @ PBTCT35 EQU * ! X * ! l 0 ,* COMPUTE NUMBER OF TASK IN EACH TASK CLASS ! v * ! PBTCT40 EQU * ! $ CALL GETTSK GET NUMBER OF TASKS ! PBTCT50 EQU * ! , P ADK
0x4022d0…402464 Dummy {f00=0x0136, f01=0x018e, f02=» CALL ERROR INDICATE MEMORY OVERFLOW ! PBTCT55 EQU * " , ( $ SUK A1,1 MOORE TASKS IN THIS CLASS? " @ RB(P) BTCT50 YES " l $ CALL NXTBLK SKIP TO NEXT BLOCK " ( # CCK A2,'TT' TASK DEFINITION BLOCK? " RB(E) BTCT40 YES " * " 4 0* ENTRIES
0x402464…4025f8 Dummy {f00=0x0136, f01=0x0190, f02=» & ! STR A7,A6 STORE LENGTH IN TC:TAB # * P ST A6,SCTTCT STORE POINTER TO TC:TAB # . RTN A14 # P EJECT # l 8 P*************************************************** # z 8 P* * # 8 P* B:FWT - BUI
0x4025f8…40278c Dummy {f00=0x0136, f01=0x0190, f02=» * # j 8 P*************************************************** $ 8 P* * $ R 8 P* REFERENCED IN: CONMON * $ 8 P* * $ 8 P*
0x40278c…402920 Dummy {f00=0x0136, f01=0x018e, f02=»- FILE WORK TABLE LENGTH IN * $ ~ 8 P* BYTES * % * 8 P* * % f 8 P* EXIT: SCTFWT - ADDRESS TO FIRST FWT * % 8 P* SCTNOF - TOTAL NUMBER OF FM-FIL
0x402920…402ab4 (5, 127) Dummy {f00=0x0136, f01=0x0190, f02=» 8 P* * & 8 P* SUBROUTINES: ERROR,MULT * & @ 8 P* * & | 8 P* FUNCTIONAL DESCRIPTION: * & 8 P* THIS SUBROUTINE R
0x402ab4…402c48 Dummy {f00=0x0136, f01=0x0190, f02=»N BY THE * & l 8 P* FORMULA: A=L*(G+N*T) * ' 8 P* WHERE A=AREA SIZE IN BYTES * ' T 8 P* L= FWT LENGTH IN BYTES * ' 8 P* G=NUMBER OF GENERAL FM-FILES * ' 8 P
0x402c48…402ddc Dummy {f00=0x0136, f01=0x0190, f02=» * ' 8 P*************************************************** ( , P EJECT ( h PB:FWT EQU * ( v & P LD* A2,SCTTCT GET LENGTH OF TCTAB ( & P AD A2,SCTTCT COMPUTE END OF TCTAB ( * P SU A2,SAVE02,A13 LENGTH OF USER PART (
0x402ddc…402f70 Dummy {f00=0x0136, f01=0x0190, f02=»F ADD NUMBER OF GENERAL FM-FILES ( 0 P ST A3,SCTNOF STORE TOTAL NUMBER OF FM-FILES ) ( , P LD A2,SCTFWL GET FILE WORK TABLE LENGTH ) P CALL MULT MULTIPLY ) , P SRL A3,1 NUMBER OF WORDS TO BE RESERVED ) P ADK A3,0 ANY FWT:S AT ALL? ) P RF(Z) FWT70
0x402f70…403104 Dummy {f00=0x0136, f01=0x0190, f02=»S TO FIRST FWT ) v ( PFWT50 CW A2,SCTEFA MEMORY OVERFLOW? * P RF(NE) FWT60 NOT YET! * B * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW * ` P CALL ERROR * ( PFWT60 ADK A2,2 RESERVE ANOTHER WORD * $ P SUK A3,1 DECREMENT WORD COUNTER * * P RB(NZ) FWT50 CHEC
0x403104…403298 Dummy {f00=0x0136, f01=0x0190, f02=»************** * x * &* MONBLK - GENERATE MONITOR BLOCKS * + * &************************************** + D * + r ( $* NUMBER OF BLOCKS TO BE GENERATED: + | ( P* 20+N*(NUMBER OF TASKS IN SYSTEM) + $ P* WHERE N IS A SYSTEM CONSTANT + $ P* DEFINED A
0x403298…40342c Dummy {f00=0x0136, f01=0x0190, f02=»* SCTEFA - END OF FREE AREA + * , , . ** EXIT: BLOCKS - POINTER TO FIRST BLOCK , 6 * , h $ * WORK REGISTERS: A1,A2,A7,A12 , r * , * SUBROUTINES: BLKGEN , * , EJECT , PMONBLK EQU * , LDK A1,0 , & ! LD A1
0x40342c…4035c0 Dummy {f00=0x0136, f01=0x0190, f02=»* , ( P LD* A7,SCTTCT GET LENGTH OF TC:TAB - P* - 6 0 P* GET NUMBER OF BLOCKS PER TASK TO GENERATE - @ P* - t P LD A2,SCTBLK - ~ PMON:10 EQU * - SUK A7,2 MOORE TASKS? - RF(Z) MON:20 NO - P CALL BLKGEN - RB MON:10 - PMO
0x4035c0…403754 (5, 128) Dummy {f00=0x0136, f01=0x0190, f02=»D BLOCK - * . STR A1,A12 . ST A1,2,A12 . . ST A1,4,A12 . B P* . V F P* CHECK IF BUFFER GREATER THAN 3 WORDS RESERVED FOR SYSLOD PART A . ` 0 P* IF NOT - USE LAST MONITOR BLOCK AS BUFFER . P* . & P LD A1,BUFSIZ,A13 GET BUFFER SIZ
0x403754…4038e8 Dummy {f00=0x0136, f01=0x0190, f02=»T A12,SYSBUF,A13 START OF BUFFER . PMON:30 EQU * / ( ADKL A12,6 / < P LD A2,SCTSFA / P P SUK A2,2 / f PMON:40 ADK A2,2 / x P CW A2,SCTEFA / P RF(NE) MON:50 / P LDKL A1,LMP3 / P CALL ERROR / PMON:50 CWR A2,A12 / P RB(NE)
0x4038e8…403a7c Dummy {f00=0x0136, f01=0x0190, f02=»* BLKGEN - GENERATE MONITOR BLOCK * / * %************************************* 0 . * 0 * REFERENCED IN: MONBLK 0 f * 0 * ENTRY: A1=0 0 4 0* A2 - NUMBER OF BLOCKS TO BE GENERATED 0 $ * A12 - NEXT FREE ENTRY 0
0x403a7c…403c10 Dummy {f00=0x0136, f01=0x0190, f02=» 0 * 1 0 ,* MONITOR BLOCK LAYOUT 1 0 ,* -------------------- 1 F 0 ,* I DATA *+6 I 1 z 0 ,* -------------------- 1 0 ,* I DATA 0
0x403c10…403da4 Dummy {f00=0x0136, f01=0x0190, f02=» -------------------- 1 ~ * 2 " EJECT 2 , PBLKGEN EQU * 2 : LDR A3,A2 2 N PBLK:10 EQU * 2 b RF(Z) BLKEX 2 v ADKL A12,6 2 ST A12,-6,A12 2 P ST A1,-4,A12 2 ST A1,-2,A12 2 SUK A3,1 2 RB BLK:10 2 PBLKE
0x403da4…403f38 Dummy {f00=0x0136, f01=0x0190, f02=»UILD SEGMENT TABLE * 2 ( $************************************ 3 * 3 J * &* ENTRY: SCTSFA - START OF FREE AREA 3 T ( $* SCTEFA - END OF FREE AREA 3 , (* SCTLAC - START OF APPLICATION 3 * 3 , (* EXIT: SCTPAG - ADDRESS TO PA
0x403f38…4040cc Dummy {f00=0x0136, f01=0x0190, f02=» * 3 P* 4 P* CHECK APPLICATION TYPE 4 P* 4 6 ( P LD A1,APPTYP,A13 GET LANGUAGE TYPE 4 @ P CWK A1,'CR' 4 l $ P RF(E) SEG:05 CREDIT APPLICATION 4 P CWK A1,'CO' 4 $ P RF(E) SEG:05 COBOL APPLICATION 4 P RF SEGEX 4 * 4 * BUILD
0x4040cc…404260 Dummy {f00=0x0136, f01=0x0190, f02=»2 STORE IN SEGTAB 4 ( P ADKL A12,2 START OF SEGMENT BLOCKS 5 , P LD A1,SAVE29,A13 GET NUMBER OF SEGMENTS 5 F P STR A1,A12 SAVE 5 v P ADKL A12,2 5 . P ST A12,SAVE30,A13 START OF SEGMENT TABLE 5 * P LDKL A1,/8400 STATUS FOR FIRST BLOCK 5 $ P STR A
0x404260…4043f4 (5, 129) Dummy {f00=0x0136, f01=0x0190, f02=» A2,A1 SAVE POINTER 5 P ADKL A2,6 ADDRESS TO P:BAS 6 P CALL GETCON GET P:BAS 6 @ & P ST A1,2,A12 STORE IN FIRST BLOCK 6 ^ " P ADKL A12,8 BYPASS FIRST BLOCK 6 4 P LD A2,SCTLAC GET LOGICAL ADDRESS TO COMMON PART 6 * P ADKL A2,NUMSEG GET NUMBER OF SEGM
0x4043f4…404588 Dummy {f00=0x0136, f01=0x018e, f02=»10 EQU * 6 P LDK A7,0 STATUS 7 CALL GETCON 7 * * P* LDR A3,A1 SAVE DISC ADDRESS =REL 11 7 > ( P* ANK A3,/FF CLEAR LEFT BYTE =REL 11 7 l , P SRL A1,8 PROGRAM TYPE TO RIGHT BYTE =2 7 ( # CCK A1,'RR' CORE RESIDENT SEGMENT? 7 P RF(E) SEG:30 YES! 7
0x404588…40471c Dummy {f00=0x0136, f01=0x0190, f02=» 7 P ADK A2,2 8 P RF SEG:40 8 PSEG:30 EQU * 8 , * P LDKL A7,/8800 INDICATE LOADED IN CORE 8 @ PSEG:35 EQU * 8 n ADK A2,2 SEGMENT ADDRESS 8 CALL GETCON 8 P* 8 P AD A1,SCTADA+2 8 P RF(O) SEG:36 8 P RF SEG:38 8 PSEG:36
0x40471c…4048b0 Dummy {f00=0x0136, f01=0x0190, f02=»L ERROR 8 PSEG:40 EQU * 9 P* ORR A7,A3 =REL 11 9 $ P STR A7,A12 9 @ P ST A1,2,A12 9 T P ADK A2,2 EFFECTIVE LENGTH 9 h CALL GETCON 9 & P ST A1,4,A12 SAVE EFFECTIVE LENGTH 9 " P ADKL A12,8 NEXT SEGMENT BLOCK 9 " ADK A2,2 NEXT BLOCK IN S:
0x4048b0…404a44 Dummy {f00=0x0136, f01=0x0190, f02=» A2,2 9 P CW A2,SCTEFA : P RF(NE) SEG:70 : $ P LDKL A1,LMP3 : : ( P CALL ERROR INDICATE MEMORY OVERFLOW : P PSEG:70 CWR A2,A12 : | P RB(NE) SEG:60 : P ST A12,SCTSFA : PSEGEX EQU * : RTN A14 RETURN : P XIF : P IFT SWPBLK=1
0x404a44…404bd8 Dummy {f00=0x0136, f01=0x0190, f02=» * : f D P* * ; D P* * ; f D P* B:SWBT - BUILD SWAPPABLE WORK BLOCK TABLE * ; D P* =======
0x404bd8…404d6c Dummy {f00=0x0136, f01=0x0190, f02=» REFERENCED IN: SYSLDM * ; D P* * < > D P* ENTRY: * < D P*
0x404d6c…404f00 Dummy {f00=0x0136, f01=0x0190, f02=» * < ^ D P* WORK REGISTERS: A1-A12 * = D P* * = ^ D P* REGISTER USAGE: A8 - DISC ADDRESS TO FIRST COPY * = D P*
0x404f00…405094 (5, 130) Dummy {f00=0x0137, f01=0x0190, f02=» A11 - POINTER IN CONF. FILE * = ~ D P* A12 - ADDRESS TABLE POINTER * > 6 D P* * > ~ D P* SUBROUTINES: ERROR,GETNUM,GETCON * >
0x405094…405228 Dummy {f00=0x0137, f01=0x0190, f02=» * > V D P*************************************************************** ? P EJECT ? V PB:SWBT EQU * ? d & P LD A12,SCTSFA START OF FREE AREA ? x 2 P LD A11,SAVE01,A13 START OF CONFIGURATION FILE ? P* ? : P* SEARCH FOR SWB TYPE DEFINITION BLOC
0x405228…4053bc Dummy {f00=0x0137, f01=0x0190, f02=»S! ? 0 P CCK A2,'CC' COMMON DEVICE DEFINITION BLOCK? @ P RF(NE) BSWT20 NO! @ > P ADKL A11,1 @ X " P CALL NXTCOM SKIP COMMON BLOCK @ l 2 PBSWT20 CCK A2,'UU' UWB TYPE DEFINITION BLOCK? @ P RF(NE) BSWT40 NO! @ P ADKL A11,1 NUMBER OF TYPES @ P L
0x4053bc…405550 Dummy {f00=0x0137, f01=0x0190, f02=»BFST-1 FIRST UWB RECORD @ ( PBSWT30 ADKL A11,6 BYPASS UWB RECORD A $ P SUK A1,1 DECR. NUMBER OF TYPES A L P RB(P) BSWT30 MOORE LEFT A t , P LCR A2,A11 GET NEXT CHAR. IN CONF.FILE A 0 PBSWT40 CCK A2,'SS' SWB TYPE DEFINITION BLOCK A P RF(E) BSWT44 YE
0x405550…4056e4 Dummy {f00=0x0137, f01=0x0190, f02=»F TYPES A v * P ST A11,SAVE23,A13 START OF CONF. DATA B P LDR A6,A11 B > P CALL GETNUM GET 3 DIGITS B R P LDR A5,A5 ZERO? B t $ P RF(Z) SWBERR ILLEGAL NUMBER!!! B , P ST A5,SAVE24,A13 SAVE NUMBER OF RECORDS B ( P LD A8,SCTSWB GET ADDRESS TO $SWAPP
0x4056e4…405878 Dummy {f00=0x0137, f01=0x0190, f02=»TO ADDRESS TABLE B n * P CM SAVE14,A13 RESET SWP-BLOCK COUNTER C P ADKL A12,2 FIRST POINTER C F P LDR A10,A12 SAVE C h $ PBSWT50 ADKL A10,2 BYPASS POINTER C ( P SUK A5,1 DECREMENT NUMBER OF TYPES C P RB(P) BSWT50 C P* C & P* GET ADDRESS TO
0x405878…405a0c Dummy {f00=0x0137, f01=0x0190, f02=»DKL A2,S:BTAB DISPL. TO S:BTAB ADDRESS C $ P CALL GETCON GET S:BTAB ADDRESS D . * P LDR A2,A1 GET ADDRESS TO PROT. S:BTAB D V * P RB(Z) SWBERR NO SWB:S IN APPLICATION! D P ADK A1,2 ADDRESS TO NAME D P ST A1,SAVE21,A13 SAVE D 0 P SUK A2,2 ADDRESS TO L
0x405a0c…405ba0 Dummy {f00=0x0137, f01=0x0190, f02=» LDKL A9,0 RESET BLOCK COUNTER D , PBSWT60 STR A10,A12 SAVE POINTER TO BLOCK E & P ST A4,SAVE19,A13 SAVE E V * P LD A11,SAVE23,A13 START OF CONF. DATA E t , P LD A7,SAVE24,A13 NUMBER OF SWB RECORDS E 0 PBSWT65 LD A2,SAVE21,A13 NAME RECORD IN PROT. E $ P C
0x405ba0…405d34 (5, 131) Dummy {f00=0x0137, f01=0x0190, f02=»LEFT BYTE E ~ " P LC A3,1,A11 GET SECOND CHAR. F & P CWR A1,A3 TWO FIRST CHAR. EQUAL? F 8 P RF(NE) BSWT70 NO! F b " P ADK A2,2 NEXT CHAR. IN PROT. F | P CALL GETCON GET THIRD CHAR. F P SRL A1,8 ISOLATE CHAR. F 0 P LC A3,2,A11 GET THIRD CHAR. FROM
0x405d34…405ec8 Dummy {f00=0x0137, f01=0x018e, f02=»WB SKIP NAME F | ( P SUK A7,1 DECREMENT NUMBER OF TYPES G P RB(P) BSWT65 NEXT TYPE G @ P* G ` N P* NO MATCHING NAME IN CONFIGURATION FILE - RESET ALL WORDS IN THIS BLOCK G j P* G P STR A7,A10 1:ST WORD G P ST A7,2,A10 2:ND WORD G P ST A7
0x405ec8…40605c Dummy {f00=0x0137, f01=0x0190, f02=» G & P ADKL A11,NAMUWB NUMBER OF COPIES H P LDR A6,A11 H 2 P LDR A3,A2 SAVE POINTER H F & P CALL GETNUM GET NUMBER OF COPIES H f , P SLL A5,8 NUMBER OF COPIES IN LEFT BYTE H : P OR A5,SAVE26,A13 DISC ADDRESS BITS 0-7 IN RIGHT BYTE H " P STR A5,A1
0x40605c…4061f0 Dummy {f00=0x0137, f01=0x0190, f02=»,A10 SAVE H P LDR A2,A3 RESTORE POINTER I $ P SUK A2,UPNAME PROTOTYPE ADDRESS I 4 & P CALL GETCON GET PROTOTYPE ADDRESS I P LDR A2,A1 SAVE I & P SUK A2,UPNAME LENGTH OF WORKBLOCK I P CALL GETCON I * P ST A1,SWBLEN,A10 STORE LENGTH OF SWB I 0
0x4061f0…406384 Dummy {f00=0x0137, f01=0x0190, f02=»S I d P RF(O) BSWT88 J P RF BSWT90 J PBSWT88 IM SAVE26,A13 J 2 P CM SAVE25,A13 J N PBSWT90 EQU * J d & P ADK A1,1 INCREMENT SECTOR COUNTER J x " P SUKL A3,256 DECREMENT LENGTH J P RB(P) BSWT86 MOORE SECTORS? J P SUK A5,1 MOORE COPIES? J
0x406384…406518 Dummy {f00=0x0137, f01=0x0190, f02=»E26,A13 J P CW A8,SAVE28,A13 K ( P RB(G) SWBERR $SWAP-FILE TOO SMALL! K * P RF(L) BSWT95 K V P LD A8,SAVE25,A13 K l P CW A8,SAVE27,A13 K ( P RF(G) BSWT98 SWAPP-FILE TOO SMALL! K * PBSWT95 ADKL A10,8 START OF NEXT BLOCK K P ADKL A12,2 NE
0x406518…4066ac Dummy {f00=0x0137, f01=0x0190, f02=»RECORD IN PROT. S:BTAB K | P ST A2,SAVE21,A13 SAVE L 0 P LD A4,SAVE19,A13 GET LENGTH OF PROT. S:BTAB L < P SUK A4,UP:REC DECREMENT L p P RB(P) BSWT60 MOORE TYPES L , P LD A8,SAVE14,A13 ANY BLOCKS GENERATED? L P RF(NE) BSWT99 YES L PBSWT98 LDKL
0x4066ac…406840 Dummy {f00=0x0137, f01=0x0190, f02=»AREA L l P RTN A14 M P XIF M EJECT M ( 6 1************************************************* M 6 6 1* B:DMTT - BUILD DATA MANAGEMENT TASK TABLES * M p 6 1************************************************* M * M * &* ENTRY: SCTSFA - START
0x406840…4069d4 (5, 132) Dummy {f00=0x0137, f01=0x0190, f02=»T: M * N ( P* WORK REGISTERS: A1,A3,A5,A7,A12 N * N @ * SUBROUTINES: DMTGEN N J * N h PB:DMTT EQU * N r * % LD A12,SCTSFA GET START OF FREE AREA N ( P LD A7,SCTTCT GET POINTER TO TC:TAB N " ADK A7,4 FIRST DM-TASK ENTRY N $ P L
0x4069d4…406b68 Dummy {f00=0x0137, f01=0x0190, f02=» P ANK A3,/F MOORE DM-TASKS? O P RF(Z) DMTTEX NO! O & P SRC A3,1 O @ P RF(NN) DMTT30 O R CALL DMTGEN O h DMTT30 EQU * O | P ADK A5,1 O P RB DMTT20 O DMTTEX EQU * O RTN A14 O EJECT O 6 2**********************************
0x406b68…406cfc Dummy {f00=0x0137, f01=0x0190, f02=» * P * ENTRY: A1 - TASK ID P , (* A6 - INDEX RECORD BUFFER SIZE P . 0 ,* A7 - TCTAB ENTRY FOR CURRENT TASK P ^ & "* A12 - START OF FREE AREA P * P * EXIT: P * P P* WORK REGISTERS: A2,A4 P * P
0x406cfc…406e90 Dummy {f00=0x0137, f01=0x0190, f02=»0 NO! P P LDK A4,0 RESET PAGE POINTER Q PDMTG10 EQU * Q 2 P CWK A4,/4000 LAST PAGE? Q F P RF(E) DMTG30 YES! Q f " P STR A4,A12 STORE PAGE POINTER Q ( P ADKL A4,/400 INCREMENT PAGE POINTER Q , P ADKL A12,2 INCREMENT MMU ENTRY POINTER Q P RB DM
0x406e90…407024 Dummy {f00=0x0137, f01=0x0190, f02=» * Q . P LD A1,SAVE30,A13 GET ADDRESS TO SEG.TABLE R P STR A1,A12 STORE TTB:SP R < P ADKL A12,6 R PDMTG40 EQU * R p 2 . STR A12,A7 STORE TTAB ENTRY POINTER IN TC:TAB R " ADK A7,2 NEXT ENTRY IN TC:TAB R * P ST A5,TTB:ID,A12 TASK IDENTIFICATION R
0x407024…4071b8 Dummy {f00=0x0137, f01=0x0190, f02=» STATUS R z $ P ST A1,TTB:PW,A12 STORE IN TTAB S " P ADKL A12,40 TERMINAL DEVICES S 8 LDK A1,6 LENGTH S ^ STR A1,A12 STORE S v ADKL A12,40 TASK STACK+2 S , ' LDR A1,A6 GET INDEX RECORD BUFFER SIZE S SLL A1,2 MULTIPLY BY 4 S ( P ADR A
0x4071b8…40734c Dummy {f00=0x0137, f01=0x0190, f02=»FLOW S n P RF(NE) DMTG60 NO! T P LDKL A1,LMP3 T & ( P CALL ERROR INDICATE MEMORY OVERFLOW T < PDMTG60 CWR A2,A12 T h P RB(NE) DMTG50 T , ( ST A12,SCTSFA UPDATE START OF FREE AREA T P RTN A14 T EJECT T " ****************************** T
0x40734c…4074e0 Dummy {f00=0x0137, f01=0x0190, f02=»NTRY: SAVE01 - START OF SAVE01URATION DATA T * U 4 8 4* EXIT: TC:TAB CONTAIN POINTERS TO ALL TASK TABLES U > * U z * WORK REGISERS: A1-A12 U * U 8 3* SUBROUTINES: CONVRT,GETTSK,TETTDC,GETCLN,GETSDC U * U ( #*
0x4074e0…407674 (5, 133) Dummy {f00=0x0137, f01=0x0190, f02=» TABLE I U ~ * &* I 16 I V * &* I WORDS I V J * &* I______________________I V x * &* TTB:SB I SEGMENT POINTER I V * &* ------------------------ V * &* TAS
0x407674…407808 Dummy {f00=0x0137, f01=0x0190, f02=» ------------------------ V * &* TTB:ST I STATUS/LEVEL I W * * &* ------------------------ W X * &* TTB:PP I PENDING QUEUE I W * &* ------------------------ W * &* TTB:PW I PROGRAM STATUS WORD I
0x407808…40799c Dummy {f00=0x0137, f01=0x0190, f02=»-- W l * &* I REGISTER I X * &* I SAVE I X 8 * &* I AREA I X f * &* I 14 I X * &* I WORDS I X * &* ----------
0x40799c…407b30 Dummy {f00=0x0137, f01=0x0190, f02=» TABLE I X z * &* : : Y * &* : : Y F * &* I______________________I Y t P EJECT Y 2 P* TASK SAVE01URATION TABLE LAYOUT Y 0 ,* ____________________
0x407b30…407cc4 Dummy {f00=0x0137, f01=0x018e, f02=»I INDEX/FILCODE I Y 0 ,* ------------------------------ Z & 0 ,* I DWT-ADDRESS I Z Z 0 ,* ------------------------------ Z 0 ,* : : Z 0 ,* :
0x407cc4…407e58 Dummy {f00=0x0137, f01=0x0190, f02=» 0 ,* ------------------------------ [ 0 ,* I DWT-ADDRESS I [ 8 0 ,* ------------------------------ [ l EJECT [ PB:TT EQU * [ * P ST P,SAVE04,A13 SAVE LOCATION COUNTER [ * % LD A12,SCTSFA GET START O
0x407e58…407fec Dummy {f00=0x0137, f01=0x018e, f02=»U * [ $ LCR A2,A11 GET FIRST BLOCK TYPE ( # CCK A2,'TT' TASK DEFINITION BLOCK? 4 RF(E) BTT20 YES ` P LDKL A1,LMP4 FORMAT ERROR x CALL ERROR PBTT20 EQU * * ( $* GET NUMBER OF TASKS IN THIS CLASS * CALL
0x407fec…408180 Dummy {f00=0x0137, f01=0x0190, f02=» j SLL A5,8 MOVE TO LEFT BYTE ] * P LC A5,TDBID+5,A11 GET SECOND ID DIGIT ] , . P ST A5,SAVE16,A13 SAVE TASK ID START VALUE ] Z P* ] " P* CHECK IF CREDIT APPLICATION ] P* ] P LD A5,APPTYP,A13 CREDIT? ] P CWK A5,'CR' ] P RF(NE) BTT2
0x408180…408314 (5, 134) Dummy {f00=0x0138, f01=0x0190, f02=» A5,8 MOVE TO LEFT BYTE ] . P LC A5,TDBMC+5,A11 GET SECOND CHAR IN TCL ^ $ P CALL GETTCL GET TCL START VALUE ^ R P ST A5,SAVE17,A13 SAVE ^ z PBTT21 EQU * ^ P EJECT ^ * ^ * GET TASK LEVEL ^ * ^ 0 P LC A5,TDBTL+4,A11 GET FIRST DIG
0x408314…4084a8 Dummy {f00=0x0138, f01=0x0190, f02=»RY ^ t P ST A1,SAVE24,A13 SAVE _ P EJECT _ ( * _ 6 B P* COMPUTE SIZE OF SAVE01URATION DEPENDENT PART OF TASK TABLE _ @ * _ $ LDKL A10,TTB:TD STANDARD LENGTH _ " P LD A5,SCTOPT GET OPTION WORD _ 4 P ANK A5,/11 CHECK IF EMM AND MMU PAGING IN
0x4084a8…40863c Dummy {f00=0x0138, f01=0x0190, f02=»B:AT RESERV SPACE FOR BIT MAP _ P RF BTT30 ` & PBTT22 LD A5,SCTOPT ` 8 P SRC A5,1 MMU PAGING? ` R P RF(NN) BTT25 NO ` p , P SUKL A10,TTB:MT 16+2 WORD EXTRA IF MMU ` 2 - SUKL A12,TTB:MT RESERV SPACE FOR EXTRA WORDS ` RF BTT30 ` PBTT25 EQ
0x40863c…4087d0 Dummy {f00=0x0138, f01=0x0190, f02=»CB RESERV SPACE FOR EXTRA WORD ` PBTT30 EQU * a & * a : : P* ADD ONE WORD FOR LENGTH OF TASK SAVE01URATION TABLE a D * a ADKL A10,2 a P EJECT a * a < 7* COMPUTE SIZE OF TERMINAL DEVICE CLASS DEPENDENT PART a " P* OF TASK SAVE0
0x4087d0…408964 Dummy {f00=0x0138, f01=0x0190, f02=»FST TERMINAL DEVICE CLASS DEFINITION a $ CALL GETTDC GET NUMBER OF TDC:S b , LDR A7,A1 SAVE b T PBTT35 EQU * b l RF(Z) BTT40 b ( $ CALL GETCLN GET CLASS NUMBER (1-99) b & " ADR A1,A1 2*(BINARY CLASS NUMBER) b , P LD A8,SAVE18,A13 GET POINTER
0x408964…408af8 Dummy {f00=0x0138, f01=0x018e, f02=»TE FORMAT ERROR b ~ PBTT37 EQU * c " P ADR A8,A1 GET ENTRY IN TCLASS c , $ P LDR* A8,A8 GET POINTER TO CLASS c R $ P LDR* A8,A8 GET LENGTH OF CLASS c z " SUKL A8,2 EXCLUDE LENGTH WORD c ( $ ADR A10,A8 ADD TO TOTAL TTAB LENGTH c . ) ADR A6,A8 ADD TO TA
0x408af8…408c8c Dummy {f00=0x0138, f01=0x0190, f02=» c PBTT40 EQU * d * d > :* COMPUTE SIZE OF SPECIAL DEVICE CLASS DEPENDENT PART OF d & P* TASK SAVE01URATION TABLE d h * d 6 1 CALL GETSDC GET NUMBER OF SPECIAL DEVICE CLASSES d P ADKL A9,2 FIRST SDC RECORD d LDR A7,A1 SAVE d
0x408c8c…408e20 Dummy {f00=0x0138, f01=0x0190, f02=»R) d p , P LD A8,SAVE11,A13 GET POINTER TO SCLASS e P LDR* A2,A8 e : P SUK A2,2 e N P CWR A1,A2 e ` P RF(NG) BTT52 e r P LDKL A1,LMP4 e & P CALL ERROR INDICATE FORMAT ERROR e PBTT52 EQU * e " P ADR A8,A1 GET ENTRY IN SCLASS e $ P LDR*
0x408e20…408fb4 (5, 135) Dummy {f00=0x0138, f01=0x018e, f02=» TTAB LENGTH e x . ) ADR A6,A8 ADD TO TASK CONF. TABLE LENGTH f ADKL A9,SDC NEXT CLASS f F ( # SUK A7,1 DECREMENT NUMBER OF SDC:S f f RB BTT50 f PBTT55 EQU * f " P ADK A6,2 INCLUDE LENGTH WORD f 2 P LD A7,SAVE13,A13 GET CURRENT ENTRY IN TC:
0x408fb4…409148 Dummy {f00=0x0138, f01=0x0190, f02=» f P* =4 g " P* MEMORY OVERFLOW CHECK =4 g P* =4 g < $ P LDR A1,A11 SAVE REGISTER A11 =4 g J " P LDR A5,A9 SAVE REGISTER A9 =4 g r $ P LDR A11,A12 GET TTAB ADDRESS =4 g ( P ADR A11,A10 COMPUTE END OF TTAB =4 g * P LD A9,SCTEFA GET END OF FRE
0x409148…4092dc Dummy {f00=0x0138, f01=0x0190, f02=»R INDICATE MEMORY OVERFLOW =4 g $ PBTT62 LDR A11,A1 RESTORE A11 =4 h & P LDR A9,A5 RESTORE A9 =4 h N P EJECT =4 h n 8 P* STORE LENGTH OF TASK SAVE01URATION TABLE IN TTAB h * h ST A6,TTB:TD,A12 h * h : 6* STORE TASK LEVEL IN RIGHT
0x4092dc…409470 Dummy {f00=0x0138, f01=0x0190, f02=» STORE TASK LEVEL IN LEFT BYTE OF PROGRAM STATUS WORD h * i > & P SLL A5,10 MOVE LEVEL TO LEFT BYTE i H P ORKL A5,/00C0 i r " P LD A2,SCTOPT GET OPTION WORD i P ANK A2,1 MMU OPTION? i P ORR A5,A2 SET BIT 15 IF MMU i $ ST A5,TTB:PW,A12 STORE
0x409470…409604 Dummy {f00=0x0138, f01=0x0190, f02=»A12 STORE IN TTAB i ADK A5,1 INCREMENT TASK ID j 6 P ST A5,SAVE16,A13 SAVE TO NEXT TASK IN SAME CLASS j > P IFF MMUPAG+DSKPAG=0 =3 j x P* j * P* STORE SEGMENT TABLE ADDRESS IN TTAB j P* j 0 P LD A5,SAVE30,A13 GET SEGMENT TABLE ADDRESS j
0x409604…409798 Dummy {f00=0x0138, f01=0x0190, f02=»NE) BTT65 NO j P* k ( P* STORE TASK CLASS TO MATCH IN TTAB k P* k J * P LD A5,SAVE17,A13 GET TCL START VALUE k T " P ST A5,TTB:PP,A12 SAVE IN TTAB k P ADK A5,1 INCREMENT TCL k P ST A5,SAVE17,A13 SAVE k PBTT65 EQU * k , ' STR A12,A7 SA
0x409798…40992c Dummy {f00=0x0138, f01=0x0190, f02=»0 GET TTAB LENGTH k 0 P ADS A5,SAVE10,A13 UPDATE START OF FREE AREA l 4 / ADR A12,A10 NEXT TTAB ENTRY IN THIS TASK CLASS l N 6 2 SUKL A8,1 DECREMENT NUMBER OF TASKS IN THIS CLASS l RB BTT60 l P EJECT l PBTT70 EQU * l * l * &* RESET P
0x40992c…409ac0 Dummy {f00=0x0138, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x409ac0…409c54 (5, 136) Dummy {f00=0x0138, f01=0x018e, f02=»************************************** m n J J* B:DWTS - BUILD DWT:S FOR SPECIAL DEVICES AND CONNECT TO TASK TABLES n . L J************************************************************************ n | * n * REFERENCED IN: MONCON n * n , (* ENTRY
0x409c54…409de8 Dummy {f00=0x0138, f01=0x0190, f02=» * o * EXIT: o * o * WORK REGISTERS: A1-A12 o ( * o J < 8* SUBROUTINES: GETTSK,GETTDC,GETSDC,GETCLN,NXTBLK,ERROR o T * o EJECT o PB:DWTS EQU * o * o & P* GET START OF SAVE01URATION FILE o * o 2 P LD A11,SA
0x409de8…409f7c Dummy {f00=0x0138, f01=0x0190, f02=»TION BLOCK o h * p $ LCR A2,A11 GET FIRST CHARACTER p ( # CCK A2,'TT' TASK DEFINITION BLOCK? p D RF(E) DWTS YES p p P LDKL A1,LMP4 FORMAT ERROR p CALL ERROR p PDWTS EQU * p * p * GET ADDRESS TO TC:TAB p * p , P LD
0x409f7c…40a110 Dummy {f00=0x0138, f01=0x0190, f02=» TASK CLASS p r * q CALL GETTSK q PDWTS20 EQU * q 2 P ST A1,SAVE19,A13 SAVE q F * q d * &* GET CORRESPONDING TASK TABLE (TTAB) q n * q PDWTS25 EQU * q " ADK A7,2 NEXT ENTRY IN TC:TAB q " LDR* A10,A7 GET TTAB ADDRESS q 6 P A
0x40a110…40a2a4 Dummy {f00=0x0138, f01=0x0190, f02=»A11 START OF TASK DEFINITION BLOCK q , ' ADKL A9,TDBFST START OF TDC DEFINITION r * P EJECT r Z * r h 4 /* GET NUMBER OF TERMINAL DEVICES IN THIS CLASS r r * r CALL GETTDC r P LDR A6,A1 r PDWTS30 EQU * r P RF(Z) DWTS40 r P CAL
0x40a2a4…40a438 Dummy {f00=0x0138, f01=0x0190, f02=»,A8 GET POINTER TO CLASS r $ P LDR* A8,A8 GET LENGTH OF CLASS s " P SUKL A8,2 EXCLUDE LENGTH WORD s H * P ADR A10,A8 INCREMENT POINTER IN TTAB s n 0 + ADKL A9,TDBREC BYPASS NEXT TDC DEF. RECORD s ( P SUK A6,1 DECREMENT NUMBER OF TDC:S s P RB DWTS30 s
0x40a438…40a5cc Dummy {f00=0x0138, f01=0x0190, f02=» s z LDR A1,A1 t PDWTS50 EQU * t P RF(Z) DWTS90 t . P ST A1,SAVE17,A13 SAVE t D * t b * &* GET SPECIAL DEVICE CLASS NUMBER OM t l * t CALL GETCLN t * t 8 3* GET CORRESPONDING SPECIAL DEVICE CLASS IN SCLASS t * t
0x40a5cc…40a760 Dummy {f00=0x0138, f01=0x0190, f02=»DR A5,A6 SAVE t P LDR* A6,A6 GET LENGTH u " P SUK A6,2 EXCLUDE LENGTH WORD u 4 PDWTS60 EQU * u Z ADK A5,4 GET DEVICE u n ( # LDR* A1,A5 GET ADDRESS TO TYPE DWT u ( # LD A3,DWTLEN,A1 GENERATION OF DWT? u P RF(Z) DWTS70 NO u * u * C
0x40a760…40a8f4 (5, 137) Dummy {f00=0x0138, f01=0x0190, f02=»CT u P* v 4 P* RELOCATE MONITOR ECB ADDRESS IF MMU IN SYSTEM v P* v L " P LD A3,SCTOPT GET OPTION WORD v V P ANK A3,1 MMU IN SYSTEM? v | P RF(Z) DWTS65 NO! v ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS v * P SUR A3,A2 COMPUTE RELOCATION CONSTANT
0x40a8f4…40aa88 Dummy {f00=0x0138, f01=0x018e, f02=»C,A2 STORE IT BACK v PDWTS65 EQU * w $ LDR A1,A2 DT-ADDRESS TO BE USED w . PDWTS70 EQU * w V * w j . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB w t * w " ST A1,2,A10 STORE DWT-ADDRESS w $ LD A1,-2,A5 GET INDEX/FILECODE w STR A1,A1
0x40aa88…40ac1c Dummy {f00=0x0138, f01=0x0190, f02=» w h RB(P) DWTS60 NEXT DEVICE x P EJECT x * * x 8 4 /* CHECK IF MOORE SPECIAL DEVICES IN THIS CLASS x B * x z ADKL A9,SDC x P LD A1,SAVE17,A13 x SUK A1,1 x RB DWTS50 x PDWTS90 EQU * x * x 8 P* CHECK IF MOORE
0x40ac1c…40adb0 Dummy {f00=0x0138, f01=0x0190, f02=» IF MOORE TASK DEFINITION BLOCKS x * y ( CALL NXTBLK y 2 ( # CCK A2,'TT' TASK DEFINITION BLOCK? y F RB(E) DWTS10 YES y r P LD A2,SCTSFA y P SUK A2,2 y PDWTS95 ADK A2,2 y P CW A2,SCTEFA y P RF(NE) DWTS99 y P LDKL A1,LMP3 y
0x40adb0…40af44 Dummy {f00=0x0138, f01=0x0190, f02=» y EJECT z 4 0************************************************ z 4 0* B:DWTT - BUILD TERMINAL DEVICE WORK TABLES * z N 4 0************************************************ z 4 0************************************************ z * z * REFER
0x40af44…40b0d8 Dummy {f00=0x0138, f01=0x0190, f02=»UBROUTINES: ERROR,GETTSK,GETTDC,GETCLN,GETLCN,DWTGEN,NXTBLK z * { D EJECT { N PB:DWTT EQU * { P* { p 2 P* CLEAR WORK AREA TO BE USED FOR ECHO DEVICE { z & P* AND TEMPORARY INTERRUPT TABLES { P* { " P LDR A1,P GET LOCATION COUNTER { *
0x40b0d8…40b26c Dummy {f00=0x0138, f01=0x0190, f02=» BDWT05 YES! { P SUK A1,2 DECREMENT POINTER | P RB BDWT00 | 8 PBDWT05 EQU * | J 2 P LD A11,SAVE05,A13 GET FWT AREA SIZE IN WORDS | ^ 6 P CWK A11,896 LARGE ENOUGTH FOR TEMP. INT. TABLES? | P RF(L) BDWT08 NO! | ( P LD A1,SCTEFA SAVE END OF FREE A
0x40b26c…40b400 Dummy {f00=0x0138, f01=0x0190, f02=»BDWT25 | PBDWT08 EQU * } P* } " F P* ALLOCATE TEMPORARY WORK AREA IN USED PART OF SYSLDM IF POSSIBLE } , P* } v 2 P LD A11,SAVE10,A13 GET END OF TEMP. INT. TABLE } 4 P SU A11,SCTSFA+2 COMPUTE SIZE OF AVALIABLE AREA } & P CWK A11,MINBUF IS IT BIG
0x40b400…40b594 (5, 138) Dummy {f00=0x0139, f01=0x0190, f02=» AREA } h P ST A11,SCTEFA SAVE ~ . P SUKL A11,896+896 START OF TEMP. WORK AREA ~ * P LDR A7,A11 SAVE ~ 2 P SUK A7,SCZBUF START OF TEMP BUFFER FOR SALCUZ ~ t P ST A7,SAVE04,A13 SAVE ~ 2 P SUK A7,ASZBUF START OF TEMP BUFFER FOR ASCU4Z ~ P ST A7,SAV
0x40b594…40b728 Dummy {f00=0x0139, f01=0x0190, f02=» ~ L * ( # LD A11,SCTEFA GET END OF FREE AREA ( $ LD A9,SCTSFA GET START OF FREE AREA > LDK A7,0 RESET WORD COUNTER j PBDWT10 EQU * CWR A11,A9 MEMORY OVERFLOW? RF(NE) BDWT15 NO * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW
0x40b728…40b8bc Dummy {f00=0x0139, f01=0x0190, f02=»ER WORD x $ ADK A7,1 INCREMENT WORD COUNTER RB BDWT10 8 PBDWT20 EQU * J * ^ 6 2* INIT POINTERS TO THE TEMPORARY INTERRUPT TABLES h * P LDR A1,A11 PBDWT25 LD A7,SAVE10,A13 PBDWT30 EQU * , ( STR A11,A7 SAVE INT
0x40b8bc…40ba50 Dummy {f00=0x0139, f01=0x0190, f02=»LL POINTERS INTIATED? RB(NE) BDWT30 NO * P ST A1,SCTEFA UPDATE END OF FREE AREA 8 P EJECT f * t * INIT DWT POINTER ~ * P LD A11,SAVE01,A13 * % LD A12,SCTSFA GET START OF FREE AREA * B >* INIT TC:TAB ENT
0x40ba50…40bbe4 Dummy {f00=0x0139, f01=0x0190, f02=»E IN CURRENT USER TASK ENTRY z PBDWT40 EQU * $ * 8 . )* GET NUMBER OF TASKS IN THIS TASK CLASS B * t $ CALL GETTSK GET NUMBER OF TASKS ~ PBDWT50 EQU * ( P ST A1,SAVE19,A13 SAVE BINARY VALUE * @ ;* GET NUMBER OF TERMINA
0x40bbe4…40bd78 Dummy {f00=0x0139, f01=0x0190, f02=»DR A1,A1 ANY TERMINAL DEVICES? RF(Z) BDW100 NO & 6 P ST A1,SAVE15,A13 SAVE NUMBER OF TERMINAL DEVICESS > ( P LD* A10,SAVE13,A13 GET TTAB ADDRESS x 6 1 ADKL A10,TTB:TD DISPLACEMENT TO TASK CONF. TABLE * ( #* GET TERMINAL DEVICE CLASS NUM
0x40bd78…40bf0c Dummy {f00=0x0139, f01=0x0190, f02=»QU * " CALL GETCLN GET CLASS NUMBER ( P ST A1,SAVE14,A13 SAVE BINARY VALUE 2 * ^ @ <* GET LINE CONNECTION NUMBER FOR THIS TERMINAL DEVICE CLASS h * IN THIS TASK * , ' CALL GETLCN GET LINE CONNECTION NUMBER LDR A6,A1
0x40bf0c…40c0a0 Dummy {f00=0x0139, f01=0x0190, f02=»A5,TDC+4,A9 STORE RIGHT ASCII DIGIT 2 - SRL A5,8 MOVE LEFT ASCII DIGIT TI RIGHT BYTE , * & SC A5,TDC+3,A9 STORE LEFT ASCII DIGIT b * : 5* FIND CORRESPONDING TERMINAL DEVICE CLASS IN TCLASS * 2 P LD A2,SAVE14,A13 GET BINARY VALUE OF
0x40c0a0…40c234 (5, 139) Dummy {f00=0x0139, f01=0x0190, f02=»IS IS AN ENTRY IN TCLASS -TO BE SUPPLIED P* 0 $ P LDR* A7,A7 GET POINTER TO CLASS : P EJECT b * p $ * GENERATE DWT:S FOR THIS CLASS z 2 -* A6 - LINE CONNECTION NUMBER (BINARY VALUE) , (* A7 - POINTER TO TERMINAL DEVICE CLASS
0x40c234…40c3c8 Dummy {f00=0x0139, f01=0x0190, f02=» OF DEVICE (INPUT OR OUTPUT) v * $ CALL DWTGEN . PBDWT90 EQU * B < P LD A1,SAVE15,A13 GET NUMBER OF TERMINAL DEVICE CLASSES V , ' SUK A1,1 ANY MOORE IN THIS TASK CLASS? RF(Z) BDW100 NO , P ST A1,SAVE15,A13 SAVE REMAINING NUMBER
0x40c3c8…40c55c Dummy {f00=0x0139, f01=0x0190, f02=»Y IN TC:TAB n & ! ADK A1,2 INCREMENT ENTRY POINTER P ST A1,SAVE13,A13 SAVE > 8 P LD A1,SAVE19,A13 GET NUMBER OF TASKS IN THIS CLASS " SUK A1,1 ANY MOORE TASKS LEFT P RB(P) BDWT50 , (* CHECK IF MOORE TASK DEFINITION BLOCKS *
0x40c55c…40c6f0 Dummy {f00=0x0139, f01=0x0190, f02=»MINAL DEVICE WORK TABLES GENERATED * * P LD A2,SCTSFA 4 P SUK A2,2 J PBDW105 ADK A2,2 P CW A2,SCTEFA t P RF(NE) BDW110 P LDKL A1,LMP3 P CALL ERROR PBDW110 CWR A2,A12 P RB(NE) BDW105 , P ST A12,SCTSFA
0x40c6f0…40c884 Dummy {f00=0x0139, f01=0x018e, f02=»LD COMMON DEVICE TABLE * , (**************************************** " * R * REFERENCED IN: MONCON * ~ * &* ENTRY: SCTSFA - START OF FREE AREA 4 P* SAVE01 - START OF SAVE01URATION DATA ( $* SCTEFA - END OF
0x40c884…40ca18 Dummy {f00=0x0139, f01=0x0190, f02=» < P* SUBROUTINES: NXTBLK,GETCTC,GETLCN,GETSDC,GETCLN,MOVE * D EJECT N PB:CDT EQU * 2 P LD A11,SAVE01,A13 START OF SAVE01URATION DATA p & ! LD A12,SCTSFA START OF FREE AREA P LDK A7,0 RESET LENGTH * * %* GET COMMON DE
0x40ca18…40cbac Dummy {f00=0x0139, f01=0x0190, f02=»0 YES ( $ CCK A2,'CC' COMMON DEV. DEF. BLOCK? P RF(NE) BCDTEX NO : P EJECT T P* b : P* RESERVE AREA IN COMMON DEVICE TABLE FOR FILE-CODES l 8 P* AND DWT-ADDRESSES USED BY COMMON TERMINAL DEVICES P* 0 P LDR A9,A11 START OF COM
0x40cbac…40cd40 Dummy {f00=0x0139, f01=0x0190, f02=»A1 SAVE " PB:CT10 RF(Z) B:CT30 NO MOORE! . P CALL GETCLN GET CLASS IDENT NUMBER (1-99) 6 , P ADR A1,A1 DISPLACEMENT TO CLASS POINTER h , P LD A5,SAVE18,A13 GET POINTER TO TCLASS $ P LDR* A2,A5 GET LENGTH OF TCLASS P SUK A2,2 EXCLUDE LENGTH
0x40cd40…40ced4 (5, 140) Dummy {f00=0x0139, f01=0x0190, f02=»20 ADR A1,A5 SELECT ENTRY IN TCLASS $ P LDR* A1,A1 GET POINTER TO CLASS , $ P LDR* A1,A1 GET LENGTH OF CLASS T " P SUK A1,2 EXCLUDE LENGTH WORD | & P ADR A7,A1 INCREMENT CDTAB LENGTH . P ADKL A9,TDC+TLC NEXT RECORD IN CONF. FILE " P SUK A6,1
0x40ced4…40d068 Dummy {f00=0x0139, f01=0x018e, f02=»E-CODES b 8 P* AND DWT-ADDRESSES USED BY COMMON SPECIAL DEVICES P* L CALL GETSDC V ADKL A9,SDCFST-CDBNC j LDR A6,A1 PBCDT10 EQU * RF(Z) BCDTEX CALL GETCLN ADR A1,A1 , P LD A5,SAVE11,A13 GET POINTER
0x40d068…40d1fc Dummy {f00=0x0139, f01=0x0190, f02=» PBCDT15 EQU * P ADR A1,A5 SELECT ENTRY $ P LDR* A1,A1 GET POINTER TO CLASS 8 P LDR* A1,A1 GET LENGTH ` SUK A1,2 ~ ADKL A9,SDC ADR A7,A1 SUK A6,1 RB BCDT10 PBCDTEX EQU * P EJECT P* < P*
0x40d1fc…40d390 Dummy {f00=0x0139, f01=0x0190, f02=»O RESERVE ENTRIES IN COMMON DEVICE TABLE FOR @ P* FILE-CODES AND DWT-ADDRESSES USED FOR DATA COMMUNICATION 4 P* x J P* FILE-CODES AND DWT-ADDRESSES ARE STORED IN THE LAST CLASS IN SCLASS P* & P LD A1,SCTDCT DATA COMMUNICATION? " P LD
0x40d390…40d524 Dummy {f00=0x0139, f01=0x0190, f02=» , P ORR A6,A1 COPY LAST SCLASS IF NOT ZERO P RF(Z) CDG:15 NO! 4 , P LD A6,SAVE11,A13 GET POINTER TO SCLASS N $ P LDR* A1,A6 GET LENGTH OF SCLASS ~ " P SUK A1,2 EXCLUDE LENGTH WORD $ P ADR A6,A1 LAST ENTRY IN SCLASS * P LDR* A6,A6 GET POIN
0x40d524…40d6b8 Dummy {f00=0x0139, f01=0x0190, f02=»CD:TAB t PCDG:15 EQU * ADK A7,2 " STR A7,A12 4 P ST A12,SCTCDT H ADR A12,A7 ^ EJECT r * 6 1* INIT POINTER TO START OF FREE AREA AND TO CDTAB * ( P LD A10,SCTCDT FIRST ENTRY IN SCTCDT $ P LCR A2,A11 CO
0x40d6b8…40d84c Dummy {f00=0x0139, f01=0x0190, f02=»CDGEX PCDG:18 EQU * P* " > P* GENERATE DEVICE WORK TABLES FOR COMMON TERMINAL DEVICES , P* n * P LDR A9,A11 START OF COMMON DEF. BLOCK x 6 P ADKL A9,SDCFST NUMBER OF COMMON TERMINAL CLASSES & P CALL GETCTC GET NUMBER OF C.T.C. ,
0x40d84c…40d9e0 Dummy {f00=0x0139, f01=0x0190, f02=»DENT NUMBER x P ST A1,SAVE14,A13 SAVE , P CALL GETLCN GET LINE CONNECTION NUMBER 2 P LDR A6,A1 SAVE b , P LD A2,SAVE14,A13 GET CLASS IDENT NUMBER z & P ADR A2,A2 CONVERT TO DISPLACEMENT , P LD A7,SAVE18,A13 GET POINTER TO TCLASS & P ADR
0x40d9e0…40db74 (5, 141) Dummy {f00=0x0139, f01=0x018e, f02=»,TDC+TLC NEXT RECORD IN CONF. FILE * P LD A1,SAVE15,A13 GET NUMBER OF C.T.C. * P SUK A1,1 DECREMENT COUNTER X P RB B:CT40 | PB:CT50 CALL ECHO ( P ADKL A10,2 NEXT FREE ENTRY IN CDTAB P EJECT * , '* GET NUMBER OF SPECIAL DEVIC
0x40db74…40dd08 Dummy {f00=0x0139, f01=0x0190, f02=» * & #* GET SPECIAL DEVICE CLASS NUMBER * 8 CALL GETCLN B * V 0 +* GET CORRESPONDING DEVICE CLASS IN SCLASS ` * ADR A1,A1 T , P LD A6,SAVE11,A13 GET POINTER TO SCLASS P ADR A6,A1 SELECT CLASS & P LDR
0x40dd08…40de9c Dummy {f00=0x0139, f01=0x0190, f02=»LENGTH WORD ~ PCDG:30 EQU * ADK A5,4 NEXT DEVICE ( LDR* A1,A5 GET DWT-ADDRESS F ( # LD A3,DWTLEN,A1 GENERATION OF DWT? j RF(Z) CDG:40 NO * * COPY DWT * LDR A2,A12 TO-ADDRESS , ' ADR A12,A3 UPDATE P
0x40de9c…40e030 Dummy {f00=0x0139, f01=0x0190, f02=»A3,SCTOPT GET OPTION WORD P ANK A3,1 MMU IN SYSTEM? " P RF(Z) CDG:35 NO! B ( P LDR A3,A1 GET PROTOTYPE DWT-ADDRESS * P SUR A3,A2 COMPUTE RELOCATION CONSTANT , P LD A4,DWTMEC,A2 GET MONITOR ECB-ADDRESS P ANKL A4,/FFFE MAKE IT EVEN!
0x40e030…40e1c4 Dummy {f00=0x0139, f01=0x0190, f02=» * * . ** STORE FILE-CODE AND DWT-ADDRESS IN TTAB * F " ST A1,2,A10 STORE DWT-ADDRESS P LD A1,-2,A5 GET FILE CODE v STR A1,A10 STORE IN TTAB $ ADKL A10,4 NEXT ENTRY IN CD:TAB & " SUK A6,4 DECREMENT DEVICE COUNTER
0x40e1c4…40e358 Dummy {f00=0x0139, f01=0x0190, f02=» P SUKL A8,1 RB CDG:20 PCDGEX EQU * ( " P RF(N) CDG:EX CD:TAB COMPLETE! < " P LD A1,SCTDMT DATA MANAGEMENT b $ P LD A5,SCTDCT DATA COMMUNICATION P ORR A1,A5 DM OR DC? " P LD A5,SCTOPT GET OPTION WORD $ P ANK A5,/E DISC PAGING
0x40e358…40e4ec Dummy {f00=0x0139, f01=0x0190, f02=» $ P LDR* A1,A5 GET LENGTH OF SCLASS " P SUK A1,2 EXCLUDE LENGTH WORD , P ADR A5,A1 GET LAST ENTRY R * P LDR* A5,A5 GET POINTER TO LAST CLASS t ( P LDR* A6,A5 GET LENGTH OF LAST CLASS " P SUK A6,2 EXCLUDE LENGTH WORD P RB CDG:30 PCD
0x40e4ec…40e680 Dummy {f00=0x0139, f01=0x0190, f02=»MP3 ( P CALL ERROR INDICATE MEMORY OVERFLOW PCDG:60 CWR A2,A12 8 P RB(NE) CDG:50 R , ( ST A12,SCTSFA UPDATE START OF FREE AREA h RTN A14 RETURN EJECT J F**********************************************************************
0x40e680…40e814 (5, 142) Dummy {f00=0x013a, f01=0x0190, f02=»************** X * 4 /* ENTRY: A1 - LINE CONNECTION NUMBER (BINARY) > :* A7 - POINTER TO TERMINAL DEVICE CLASS IN TCLASS X * &* A6 - LINE CONNECTION NUMBER * * EXIT: * * WORK REGISTERS: A1-A8
0x40e814…40e9a8 Dummy {f00=0x013a, f01=0x0190, f02=»R d ( $ LDR* A8,A7 GET LENGTH OF THIS CLASS $ SUKL A8,2 EXCLUSIVE LENGTH WORD 6 ADK A7,2 FIRST FILECODE ^ PDWT05 EQU * ~ . ) LD A1,2,A7 GET ADDRESS OF PROTOTYPE DWT 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER P* P* CHE
0x40e9a8…40eb3c Dummy {f00=0x013a, f01=0x0190, f02=»0 NO! 2 P CALL B:ITSZ BUILD INTERRUPT TABLE FOR SALCUZ P RF DWT31 D ( PDWT10 CCK A4,'AA' ASCU4Z CONNECTION? V P RF(NE) DWT11 NO! 2 P CALL B:ITAZ BUILD INTERRUPT TABLE FOR AUSCU4Z P RF DWT31 PDWT11 EQU * * 4 /* DER
0x40eb3c…40ecd0 Dummy {f00=0x013a, f01=0x0190, f02=»MBER AND PROTOTYPE DWT v * CALL I:CHP ( * < @ P* GET CORRECT INTERRUPT TABLE USING SAVE05 (SELECTS TABLE) F " P* AND SAVE06 (SELECTS ENTRY) * 0 P* SAVE05 HOLDS 2*(NUMBER STORED IN BIS 4-6) 4 P* SAVE06 HOLDS THE NUMBER
0x40ecd0…40ee64 Dummy {f00=0x013a, f01=0x0190, f02=»,SAVE10,A13 SELECT INTERRUPT TABLE , P LDR* A4,A4 GET INTERRUPT TABLE ADDRESS * $ P LD A3,SAVE06,A13 LINE PARAMETER Z PDWT15 EQU * " RF(Z) DWT17 LINE ENTRY FOUND ADK A4,28 NEXT LINE & " SUK A3,1 DECREMENT LINE PARAMETER
0x40ee64…40eff8 Dummy {f00=0x013a, f01=0x0190, f02=»ADDRESS: 0 P* USE DEVICE ADDRESSES 1-7 FOR INPUT DEVICE & P* OR DEVICE WITHOUT DATA REQUEST D 4 /* USE DEVICE ADDRESSES 8-14 FOR OUTPUT DEVICES n * 0 + LDR* A6,A1 GET FIRST WORD OF PROTOTYPE DWT P LDR A2,A6 SAVE : 5 ANKL A6,/71
0x40eff8…40f18c Dummy {f00=0x013a, f01=0x0190, f02=»UT DEVICE - CHECK IF DEVICE WITH DATA REQUEST P* 6 ( P ANKL A2,/8000 DATA REQUEST BIT SET? @ P RF(Z) DWT20 NO! l P SRL A6,2 P ADK A6,12 RF DWT30 PDWT20 EQU * P SRL A6,2 P SUK A6,2 PDWT30 EQU * A
0x40f18c…40f320 Dummy {f00=0x013a, f01=0x0190, f02=»A6 DWT ALREADY GENERATED? P RF(Z) DWT32 NO! " P CALL DWT50 : P LDKL A1,DWT70 N P AD A1,M:REL,A13 d P ABR A1 | P* P* CHECK IF DWT IN DRIVER P* PDWT32 LDKL A2,SYSLOD P TNM A1,A2 P RF(NN) DWT34 P C
0x40f320…40f4b4 (5, 143) Dummy {f00=0x013a, f01=0x0190, f02=»F DWT70 PDWT38 EQU * STR A12,A6 SAVE DWT-ADDRESS $ * H * COPY DEVICE TYPE DWT R * r LDR A2,A12 TO-ADDRESS | P LD A3,DWTOR,A1 LENGTH ADR A12,A3 NEXT FREE ENTRY CALL MOVE P EJECT * $ *
0x40f4b4…40f648 Dummy {f00=0x013a, f01=0x0190, f02=»* CHECK IF INPUT DEVICE * * & LDR* A3,A1 GET FIRST WORD OF TYPE DWT * ANKL A3,/0100 INPUT DEVICE? X P RF(Z) DWT45 NO | * * INPUT DEVICE: * CHECK IF KEYBOARD * LD A3,DWTADR,A1 LD A3,DEVIND,A3
0x40f648…40f7dc Dummy {f00=0x013a, f01=0x0190, f02=»TORE ADDRESS OF KEYBOARD RUNTIME-DWT : P* AND ECHO DEVICE PROTOTYPE-DWT IN ECHO DEVICE TABLE , P* j * t P LD A5,DWTECH,A1 ECHO? ~ RF(Z) DWT40 NO P AD A5,M:REL,A13 4 P LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( P RF(
0x40f7dc…40f970 Dummy {f00=0x013a, f01=0x0190, f02=»,SCTSFA+2 NEXT FREE ENTRY 8 P STR A2,A4 SAVE RUNTIME DWT-ADDRESS FOR INPUT DEVICE " < P ST A5,2,A4 SAVE PROTOTYPE DWT ADDRESS FOR OUTPUT DEVICE ^ P ADK A3,4 UPDATE LENGTH $ P ST* A3,SCTSFA+2 SAVE NEW LENGTH P EJECT PDWT40 EQU *
0x40f970…40fb04 Dummy {f00=0x013a, f01=0x0190, f02=»TO START OF BUFFER t $ ST A5,DWTSQ-4,A2 STORE POINTER $ ST A5,DWTSQ-2,A2 STORE POINTER B * j * IF DOUBLE KEYBOARD: t D @* ADD 1 TO DWT-ADDRESS AND SAVE IT IN TEMPORARY INTERRUPT TABLE 6 2* IN ENTRY CORRESPONDING TO SECOND DEVICE ADD
0x40fb04…40fc98 Dummy {f00=0x013a, f01=0x0190, f02=»YBOARD v $ LDR A5,A2 GET REAL DWT-ADDRESS ADK A5,1 ADD ONE 6 0 , SUK A3,1 DISPLACEMENT=0 IF DEVICE ADDRESS=1 P ADR A3,A3 BYTE DISPLACEMENT . P AD A3,SAVE07,A13 ENTRY IN INTERRUPT TABLE $ STR A5,A3 STORE DEVICE-ADDRESS RF DW
0x40fc98…40fe2c Dummy {f00=0x013a, f01=0x0190, f02=»S OF PROTOTYPE DWT IS ODD, 0 P* THE DEVICE IS TO BE USED FOR ECHOING ON. " 6 P* THE ADDRESSES OF THE PROTOTYPE- AND RUNTIME-DWT V 0 P* IS THEN STORED IN THE ECHO DEVICE TABLE. P* 0 P LD A5,DWTTAB,A1 GET DEVICE TYPE CHARACTERS , P RF(NN
0x40fe2c…40ffc0 Dummy {f00=0x013a, f01=0x0190, f02=» P ADK A3,2 INCLUDE LENGTH PDWT55 LDR A4,A3 SAVE LENGTH $ $ P AD A4,SCTSFA+2 NEXT FREE ENTRY H . P STR A1,A4 STORE ADDRESS OF PROTOTYPE DWT p , P ST A2,2,A4 STORE ADDRESS OF RUNTIME DWT P ADK A3,4 UPDATE LENGTH & P ST* A3,SCTSFA+2 STORE
0x40ffc0…410154 (5, 144) Dummy {f00=0x013a, f01=0x0190, f02=»D t P ANK A5,1 MMU PAGING? RF(Z) DWT70 ( P EJECT < , P LD A5,DWTMEC,A2 GET MONITOR ECB ADDRESS J ( P LDR A4,A1 GET PROTOTYPE DWT-ADDRESS z * P SUR A4,A2 COMPUTE RELOCATION CONSTANT , P SUR A5,A4 RELOCATE MONITOR ECB ADDRESS $ P ANK
0x410154…4102e8 Dummy {f00=0x013a, f01=0x0190, f02=»TED P* & P LD A5,DWTADR,A2 GET ADDRESS BLOCK 2 P LD A4,BUFLEN,A5 GET LENGTH OF INTERNAL BUFFER @ $ P RF(Z) DWT70 ALLOCATE NO BUFFER! v * L P* ALLOCATE INTERNAL BUFFER AND STORE ADDRESS IN SECOND WORD OF INTERNAL * , P LD A5
0x4102e8…41047c Dummy {f00=0x013a, f01=0x0190, f02=»EN ADDRESS r P ST A3,2,A5 SAVE P LDR A3,A4 GET LENGTH , ( P ADK A3,3 ADD BO FERMS CONSTANT+1 =1 J . P ANKL A3,/FFFE MAKE SURE OF EVEN LENGTH =1 v P EJECT * 4 0* CHECK IF INTERNAL BUFFER SIZE IS GREATER THAN 6 1* THE SIZE OF B
0x41047c…410610 Dummy {f00=0x013a, f01=0x0190, f02=»Z. j * CW A3,BUFSIZ,A13 RF(NG) DWT65 0 ST A3,BUFSIZ,A13 F P ST A12,SYSBUF,A13 ` PDWT65 EQU * z ADR A12,A3 NEXT FREE ENTRY P =1 P =1 P EJECT PDWT70 EQU * P* . P* STORE FILE-
0x410610…4107a4 Dummy {f00=0x013a, f01=0x0190, f02=»ORE IN TASK CONF. TABLE " P ADKL A10,2 NEXT ENTRY IN TTAB " P STR A2,A10 STORE DWT-ADDRESS F P* l , '* CHECK IF MOORE DEVICES IN THIS CLASS v * SUKL A8,4 RF(Z) DWTEX ADK A7,4 NEXT DEVICE P LDKL A1,DWT05
0x4107a4…410938 Dummy {f00=0x013a, f01=0x0190, f02=»ERY COINCIDENCE n 4 P* BETWEEN THE FIRST POINTER IN ONE POINTER-SET 4 P* AND SECOND POINTER IN THE OTHER POINTER-SET: P 0 P* STORE SECOND POINTER OF FIRST POINTER-SET 2 P* IN RUNTIME-DWT POINTED AT BY FIRST POINTER 2 P* OF SECOND POINTER-S
0x410938…410acc Dummy {f00=0x013a, f01=0x0190, f02=»ICE TABLE IS CLEARED. P* 8 PECHO LD* A3,SCTSFA+2 GET LENGTH OF ECHO DEVICE TABLE ( " P RF(Z) DWT160 NO ECHO DEVICES! d 4 P AD A3,SCTSFA+2 COMPUTE END OF ECHO DEVICE TABLE 2 P LD A1,SCTSFA+2 GET START OF ECHO DEVICE TABLE P ADK A1,2 BYPASS
0x410acc…410c60 Dummy {f00=0x013a, f01=0x0190, f02=» POINTER IN FIRST SET t > PDWT110 CWR* A4,A2 COMPARE WITH FIRST POINTER IN SECOND SET P RF(E) DWT130 COINCIDENCE! ` P ADK A2,4 NEXT POINTER-SET ( P CWR A2,A3 END OF ECHO DEVICE TABLE $ P RB(NE) DWT110 NO:CHECK NEXT SET P RF DWT140 :
0x410c60…410df4 (5, 145) Dummy {f00=0x013a, f01=0x0190, f02=» STORE DEVICE-ADDRESS TO ECHO-DEVICE P CMR A1 CLEAR FIRST POINTER , " P CM 2,A1 CLEAR SECOND POINTER P $ PDWT140 ADK A1,4 NEXT POINTER-SET v ( P CWR A1,A3 END OF ECHO DEVICE TABLE P RB(NE) DWT90 NO! $ PDWT150 CM* SCTSFA+2 CLEAR LENGTH
0x410df4…410f88 Dummy {f00=0x013a, f01=0x018e, f02=» * %************************************* * 2 * REFERENCED IN: DWTGEN < * , (* ENTRY: A1 - POINTER TO PROTOTYPE DWT f ( #* A2 - POINTER TO REAL DWT * &* A6 - LINE CONNECTION NUMBER * P* A9 - POINTER
0x410f88…41111c Dummy {f00=0x013a, f01=0x0190, f02=» R 0 P* SAVE06 - SELECTS LINE ENTRY (1-8) * < * WORK REGISTERS: A3,A4,A5 F * j * SUBROUTINES: t * EJECT PI:CHP EQU * 0 P LD A6,SAVE08,A13 GET LINE CONNECTION NUMBER * P CWK A6,0032 CONNECTION NUMB
0x41111c…4112b0 Dummy {f00=0x013a, f01=0x0190, f02=»CONNECTION NUMBER z 0 + LDR* A5,A1 GET FIRST WOED OF PROTOTYPE DWT ( # ANKL A5,/F1F0 CLEAR BITS TO MODIFY N 2 . LDR A3,A6 GET MODIFIED LINE CONNECTION NUMBER z & " LC A4,TDC+5,A9 CHECK TYPE OF LINE CCK A4,'LL' LOCAL LINE? RF(NE) I:CHPR
0x4112b0…411444 Dummy {f00=0x013a, f01=0x0190, f02=» ORR A5,A3 MERGE WITH OLD CONTENTS * % LDR A3,A6 GET LINE CONNECTION NUMBER * ANK A3,/18 GET BITS 11-12 X SRL A3,2 MOVE TO BITS 13-14 z P ST A3,SAVE05,A13 SAVE SRL A3,1 MOVE TO BITS 14-15 & " ORR A5,A3 MERGE WITH OLD CONTENTS
0x411444…4115d8 Dummy {f00=0x013a, f01=0x0190, f02=»I:CH10 0 , ANKL A5,/F1FF CLEAR BITS 4-6 (= STORE ZERO) * P ST A3,SAVE06,A13 SAVE ENTRY SELECTOR B RF I:CH50 p PI:CH10 EQU * ANK A3,2 GET BIT 14 RF(NZ) I:CH20 & " ORKL A5,/0800 STORE 4 IN BITS 4-6 LDK A3,4 ENTRY SELECT
0x4115d8…41176c Dummy {f00=0x013a, f01=0x0190, f02=» | RF(NZ) I:CH30 & " ORKL A5,/0200 STORE 1 IN BITS 4-6 LDK A3,1 ENTRY SELECTOR H P ST A3,SAVE06,A13 SAVE h RF I:CH50 PI:CH30 EQU * & " ORKL A5,/0A00 STORE 5 IN BITS 4-6 LDK A3,5 ENTRY SELECTOR P ST A3,SAVE06,A13
0x41176c…411900 Dummy {f00=0x013a, f01=0x018e, f02=»UK A3,2 DECREMENT LINE CONNECTION NUMBER RF(N) I:CH70 0 & " ADK A4,1 INCREMENT TABLE SELECTOR F RB I:CH60 p PI:CH70 EQU * ( $ ORR A5,A4 STORE COMPUTED BITS 12-15 SUK A4,4 ANK A4,6 ADK A4,8 P ST A4,SAVE05,A1
0x411900…411a94 (5, 146) Dummy {f00=0x013b, f01=0x0190, f02=» P EJECT : P****************************************************** : P* * T : P* B:ITAS - BUILD INTERRUPT TABLES FO ASCU4Z/SALCUZ * : P* ================================================ *
0x411a94…411c28 Dummy {f00=0x013b, f01=0x0190, f02=» * : P* REFERENCED IN: DWTGEN * 8 : P* * v : P* ENTRY: A1 - POINTER TO PROTOTYPE-DWT * : P* A6 - LINE C
0x411c28…411dbc Dummy {f00=0x013b, f01=0x0190, f02=» * n : P* EXIT: A5 - CHANNEL PARAMETER * : P* A6 - LINE ENTRY * Z : P* * : P* WORK REGISTERS: A2,A3,A4,A5,A6
0x411dbc…411f50 Dummy {f00=0x013b, f01=0x0190, f02=»* * : P****************************************************** > P EJECT | PB:ITAZ EQU * * P CWK A6,0016 CONNECTION NUMBER <= 16? P RB(G) NUMERR NO! * P CWK A6,0001 CONNECTION NUMBER >=
0x411f50…4120e4 Dummy {f00=0x013b, f01=0x0190, f02=»BITZ10 YES * P ADK A2,ASZLEN FIXED NUMBER OF ENTRIES P ST A2,INTAS SAVE @ , PBITZ10 LD A5,SAVE03,A13 FIRST LINE ENTRY Z P RF BITZ30 PB:ITSZ EQU * ( P CWK A6,0004 CONNECTION NUMBER <= 4? P RB(G) NUMERR NO! * P CWK A6,0001 CONNE
0x4120e4…412278 Dummy {f00=0x013b, f01=0x0190, f02=» h P RF(NZ) BITZ20 YES! * P ADK A2,SCZLEN FIXED NUMBER OF ENTRIES $ P ST A2,INTSL SAVE R . PBITZ20 LD A5,SAVE04,A13 FIRST LINE ENTRY? l " PBITZ30 ADR A2,A5 END OF TABLE P SUK A6,1 & P SLL A6,1 CONVERT TO DISPLACEMENT P ADR A6,
0x412278…41240c Dummy {f00=0x013b, f01=0x0190, f02=»UR A3,A6 COMPUTE RELATIVE DISPLACEMENT " P STR A3,A6 STORE IN LINE ENTRY . P LDK A3,6 TABLE INCREMENT T P ADR* A3,A4 UPDATE LENGTH v P STR A3,A4 STORE NEW LENGTH P LDR* A3,A6 GET DISPLACEMENT 2 PBITZ40 ADR A6,A3 GET START OF LINE CONF.
0x41240c…4125a0 Dummy {f00=0x013b, f01=0x0190, f02=»OR 3 ALLOWED n P SUK A3,2 MAKE DISPLACEMENT 0 P ADR A6,A3 SELECT ENTRY IN LINE CONF. TABLE 8 0 P LD A4,SAVE08,A13 GET LINE CONNECTION NUMBER l P SUK A4,1 LINE NUMBER 0-15 P LDR A3,A4 SAVE LINE NUMBER P SRL A3,3 SELECT ASCU4Z CARD (
0x4125a0…412734 (5, 147) Dummy {f00=0x013b, f01=0x0190, f02=»ION x " PBITZ50 ADK A3,/C CHANNEL INDEX $ P ANK A3,/F ISOLATE CHANNEL INDEX 2 " P ANK A4,7 ISOLATE LINE NUMBER Z P SRC A4,7 MOVE TO BITS 4-6 , P ORR A4,A3 MERGE LINE NO AND CH. PARAM. 0 P LDR* A5,A1 GET PROTOTYPE CHANNEL PARAMETER > P A
0x412734…4128c8 Dummy {f00=0x013b, f01=0x0190, f02=» 2 .********************************************** 2 .* B:ITAB - BUILD REAL-TIME INTERRUPT TABLE * : 2 .********************************************** p * * REFERENCED IN: DWTGEN * * &* ENTRY: SCTSFA - START OF FREE AREA
0x4128c8…412a5c Dummy {f00=0x013b, f01=0x0190, f02=» A2 - " " * A3 - " > P* A4 - LENGTH OF LINE SAVE01URATION TABLE B * %* A5 - DEVICE COUNTER ( #* A6 - LINE COUNTER 2 P* A7 - DISPLACEMENT IN SAV
0x412a5c…412bf0 Dummy {f00=0x013b, f01=0x0190, f02=»L INT. TABLE X > 9* A12- LINE ENTRY IN REAL INTERRUPT TABLE * V * SUBROUTINES ` * v P EJECT PB:ITAB EQU * 2 - LD A12,SCTSFA INIT POINTER TO FIRST R. I. T. P LDR A11,A12 $ LDK A7,0 RESET POINTER IN I
0x412bf0…412d84 Dummy {f00=0x013b, f01=0x0190, f02=» LINE CONF. TABLE t * 0 +* GET ADDRESS TO TEMPORARY INTERRUPT TABLE $ * X P LD A10,SAVE10,A13 b ADR A10,A7 | LDR* A10,A10 & P LDK A6,0 RESET LINE ENTRY POINTER PBIT20 EQU * * 8 P* SAVE POINTER TO START O
0x412d84…412f18 Dummy {f00=0x013b, f01=0x0190, f02=» SAVE START OF LINE SAVE01URATION TABLE ~ . ) LDK A4,0 RESET LENGTH OF LINE CONF.TABLE 0 * b 0 -* INIT POINTER IN TEMPORARY INTERRUPT TABLE l * &* TO POINT AT LAST INPUT DEVICE ENTRY * ADKL A10,12 LDK A5,7 ADKL A11,
0x412f18…4130ac Dummy {f00=0x013b, f01=0x0190, f02=»* PBIT30 EQU * LDR* A1,A10 OCCUPIED ENTRY? RF(NZ) BIT40 YES B PBIT35 EQU * , ( SUK A5,1 NO; CHECK IF LAST DEVICE ENTRY p RF(Z) BIT50 YES * < 7* NO ENTRIES IN THE INPUT DEVICE PART OF THE TEMPORARY 0 +* INT
0x4130ac…413240 Dummy {f00=0x013b, f01=0x0190, f02=» INT. TABLE r RB BIT30 * & F B* AN OCCUPIED ENTRY IN THE TEMPORARY INTERRUPT TABLE HAS OCURRED. 0 D @* COPY THE CONTENTS OF THE INPUT DEVICE PART (INCLUDING ZEROES) z H C* OF THE TEMPORARY INTERRUPT TABLE UP TO AND INCLUDING THIS ENTRY.
0x413240…4133d4 (5, 148) Dummy {f00=0x013b, f01=0x0190, f02=» ENTRY? | RF(Z) BIT50 YES $ SUKL A10,2 NEXT ENTRY IN T.I.T. ( $ SUKL A11,2 NEXT ENTRY IN R.I.T. P * & LDR* A1,A10 GET CONTENT OF NEXT ENTRY x RB BIT40 EJECT PBIT50 EQU * * B >* ALL ENTRIES OF THE INPUT DEVICE P
0x4133d4…413568 Dummy {f00=0x013b, f01=0x0190, f02=» THE TEMPORARY INTERRUPT TABLE. * -INIT DEVICE COUNTER. ( * H ADKL A10,14 R LDK A5,7 f * x L G* SCAN ENTRIES IN OUTPUT DEVICE PART OF THE TEMPORARY INTERRUPT TABLE. $ * -IF AN OCCUPIED ENTRY OCCUR: L P* FIND FIRST
0x413568…4136fc Dummy {f00=0x013b, f01=0x0190, f02=» J 6 P* -IF THIS EXTENDS THE LINE SAVE01URATION TABLE: * INCREMENT LENGTH B * ^ PBIT70 EQU * h LDR* A1,A10 OCCUPIED ENTRY? | RF(NZ) BIT90 YES SUK A5,1 LAST ENTRY RF(Z) BIT120 YES PBIT80 EQU * ADK
0x4136fc…413890 Dummy {f00=0x013b, f01=0x0190, f02=»ERRUPT TAB R L P* HAS OCURRED. FIND FIRST UNOCCUPIED ENTRY IN LINE SAVE01URATION TABLE * OF REAL INTERRUPT TABLE. b * P LDR* A2,A11 RF(Z) BIT100 P ADKL A11,2 RB BIT90 EJECT PBIT100 EQU * *
0x413890…413a24 Dummy {f00=0x013b, f01=0x0190, f02=»GTH IF TABLE WAS EXTENDED. * " STR A1,A11 STORE CONTENT , * P LD A1,SAVE23,A13 GET START OF L.C.T. N " LDR A3,A11 GET CURRENT ENTRY | P SUR A3,A1 COMPUTE LENGTH CWR A3,A4 L.C.T. EXTENDED? RF(NG) BIT110 LDR A4,A3
0x413a24…413bb8 Dummy {f00=0x013b, f01=0x0190, f02=»NTRIES OF THIS LINE IN TEMPORARY INTERRUPT TABLE HAS BEEN SCANNE D ?* -IF ANY ENTRY WAS OCCUPIED (LENGTH>0): STORE POINTER TO LINE H L P* SAVE01URATION TABLE IN THIS LINE ENTRY AND STORE LENGTH IN FIRST WOR * " LDR A4,A4 ANY ENTRY OCCUPIED?
0x413bb8…413d4c Dummy {f00=0x013b, f01=0x0190, f02=»A12 STORE IN LINE ENTRY 4 / STR A4,A1 STORE LENGTH IN FIRST WORD OF L.C.T. LDR A11,A1 START OF L.C.T. X . ) ADR A11,A4 LAST OCCUPIED ENTRY IN L.C.T. | ADKL A11,2 NEXT FREE ENTRY RF BIT140 EJECT PBIT130 EQU * *
0x413d4c…413ee0 Dummy {f00=0x013b, f01=0x0190, f02=» CONTAIN ZERO * SUKL A11,2 SKIP LENGTH WORD PBIT140 EQU * D $ ADKL A10,2 NEXT ENTRY IN T.I.T. X $ ADK A6,1 INCREMENT LINE COUNTER CWK A6,8 ALL LINES SCANNED? RF(E) BIT150 YES ADKL A12,2 NEXT LINE ENTRY
0x413ee0…414074 (5, 149) Dummy {f00=0x013b, f01=0x0190, f02=»ANY LINE t P* * P LD A1,SAVE24,A13 ANY DEVICE PRESENT? P RF(Z) BIT155 NO! H 2 P LD A1,SAVE21,A13 GET INTERRUPT TABLE ADDRESS b P ST A1,INTLT1,A7 SAVE P RF BIT158 PBIT155 EQU * . P LD A11,SAVE21,A13 GET START OF FREE AREA
0x414074…414208 Dummy {f00=0x013b, f01=0x0190, f02=»LT1-INTRT4) HAS BEEN GENERATED j * & ADK A7,2 NEXT ENTRY IN ITAB 0 CWK A7,16 LAST ENTRY? T RF(E) BIT160 YES r $ LDR A12,A11 GET NEXT FREE ENTRY RB BIT10 PBIT160 EQU * * D @* ALL ENTRIES IN THE TEMPORARY INTE
0x414208…41439c Dummy {f00=0x013b, f01=0x0190, f02=»BLES HAS BEEN INSERTED IN MOXTAB. l * * P* 4 2 P* MOVE INTERRUPT TABLE FOR SALCUZ AND ASCU4Z > < P* TO CONCATENATE INTERRUPT TABLES FOR CHLT/CHRT DEVICES t P* ( P LD A3,INTAS ANY ASCU4Z CONNECTION? P RF(Z) BIT180 NO! P LDR
0x41439c…414530 Dummy {f00=0x013b, f01=0x0190, f02=» STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,ASZLEN LAST LINE ENTRY+2 * , PBIT170 SUK A2,2 DECREMENT ENTRY POINTER R , P LDR* A1,A2 ANY CONNECTION ON THIS LINE? P RF(Z) BIT175 NO! P ADRS A2,A2 RELOCATE POINTER . PBIT175 CW A2,INTAS ALL P
0x414530…4146c4 Dummy {f00=0x013b, f01=0x018e, f02=»A11 GET TO-ADDRESS & P ADR A11,A3 END OF INTERRUPT TABLE & P LD A1,SAVE04,A13 GET FROM-ADDRESS D $ P CALL MOVE MOVE INTERRUPT TABLE n 2 P ST A2,INTSL STORE ADDRESS TO INTERRUPT TABLE $ P ADK A2,SCZLEN LAST LINE ENTRY+2 , PBIT190 SUK A2,2 DECR
0x4146c4…414858 Dummy {f00=0x013b, f01=0x0190, f02=» . PBIT195 CW A2,INTSL ALL POINTERS RELOCATED? P RB(NE) BIT190 NO! 6 PBIT200 EQU * P P LD A2,SCTSFA d P SUK A2,2 z PBIT210 ADK A2,2 * P CW A2,SCTEFA CHECK IF MEMORY OVERFLOW P RF(NE) BIT220 P LDKL A1,LMP3 ( P CALL ERRO
0x414858…4149ec Dummy {f00=0x013b, f01=0x0190, f02=»A11,SCTSFA UPDATE START OF FREE AREA RTN A14 RETURN , EJECT D T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*= R 6 1* GENERAL SUBROUTINES * T P*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
0x4149ec…414b80 Dummy {f00=0x013b, f01=0x018e, f02=»* GETTSK - GET NUMBER OF TASKS IN A TASK-CLASS * P* < 6 P* GETCTC - GET NUMBER OF COMMON TERMINAL CLASSES F P* 8 4**************************************************** * " P* REFERENCED IN: B:TCT,B:CDT * > :* ENTRY
0x414b80…414d14 (5, 150) Dummy {f00=0x013c, f01=0x0190, f02=» L * * WORK REGISTERS: A5 * 0 * SUBROUTINES: CONVRT : * Z PGETTSK EQU * d PGETCTC EQU * x P LC A5,TDBNT,A11 SLL A5,8 P LC A5,TDBNT+1,A11 CALL CONVRT RTN A14 EJECT 8 4******
0x414d14…414ea8 Dummy {f00=0x013c, f01=0x0190, f02=»****************************** z * & * REFERENCED IN: B:TT 0 * P > :* ENTRY: A11 - POINTER TO START OF TASK DEFINITION BLOCK Z * D @* EXIT: A1 - NUMBER OF TERMINAL DEVICE CLASSES (BINRY VALUE) * * WORK REGISTER
0x414ea8…41503c Dummy {f00=0x013c, f01=0x0190, f02=»NC+1,A11 CALL CONVRT RTN A14 $ EJECT 4 8 3*************************************************** B 8 3* GETSDC - GET NUMBER OF SPECIAL DEVICE CLASSES * ~ 8 3*************************************************** * * REFER
0x41503c…4151d0 Dummy {f00=0x013c, f01=0x0190, f02=»VICE CLASSES (BINARY VALUE) l * $ * WORK REGISTERS: A5 . * L * SUBROUTINES: CONVRT V * v PGETSDC EQU * LCR A5,A9 P SLL A5,8 LC A5,1,A9 CALL CONVRT RTN A14 EJECT 2 .**********
0x4151d0…415364 Dummy {f00=0x013c, f01=0x0190, f02=»******** j * * REFERENCED IN: B:TT * : 6 2* ENTRY: A9 - POINTER TO CLASS DEFINITION RECORD D * ~ > :* EXIT: A1 - CLASS IDENTIFICATION NUMBER (BINARY VALUE) * * WORK REGISTERS: A5 * * SUBROUTIN
0x415364…4154f8 Dummy {f00=0x013c, f01=0x0190, f02=» RTN A14 RETURN P EJECT . )***************************************** & . )* GETLCN - GET LINE CONNECTION NUMBER * X . )***************************************** * * REFERENCED IN: B:DWTT * 8 3* ENTRY: A9 - POINTE
0x4154f8…41568c Dummy {f00=0x013c, f01=0x0190, f02=»S: A5 * * SUBROUTINES: CONVRT * 8 PGETLCN EQU * B P LC A5,LCND1,A9 V P SLL A5,8 n P LC A5,LCND2,A9 P CALL CONVRT RTN A14 P EJECT : P***************************************************** : P
0x41568c…415820 Dummy {f00=0x013c, f01=0x0190, f02=»======================= * : P* * 2 : P* REFERENCED IN: B:TT * p : P* * : P* ENTRY: A5 - TCL IN CURRE
0x415820…4159b4 (5, 151) Dummy {f00=0x013c, f01=0x018e, f02=»TASK CLASS * h : P* * : P* WORK REGISTERS: A1-A7,A10 * T : P* * : P* SUBROUTINES: GETTSK,NXTBLK *
0x4159b4…415b48 Dummy {f00=0x013c, f01=0x0190, f02=» PGETTCL EQU * P LDR A6,A5 SAVE TCL P LDR A7,A6 TCL START VALUE 4 8 P LDR A10,A11 SAVE POINTER TO CURRENT TASK DEF. BLOCK V 2 P LD A11,SAVE01,A13 START OF CONFIGURATION DATA 4 PTCL:10 CWR A11,A10 ALL PREVIOUS BLOCKS SCANNED? P RF(E) T
0x415b48…415cdc Dummy {f00=0x013c, f01=0x0190, f02=»AR IN TCL p P CWR A5,A6 SAME TCL? P RF(NE) TCL:50 NO! . & P CALL GETTSK GET NUMBER OF COPIES H P ADR A7,A1 INCREMENT TCL r 0 PTCL:50 CALL NXTBLK GET NEXT TASK DEF. BLOCK P RB TCL:10 , PTCL:60 LDR A5,A7 SAVE START VALUE OF TCL P
0x415cdc…415e70 Dummy {f00=0x013c, f01=0x0190, f02=»*********************************** * , * REFERENCED IN: SEGGEN 6 * X " * ENTRY: A2 - MEMORY ADDRESS b . )* MMUOPT - MMU OPTION SWITCH (X) * , (* EXIT: A1 - CONTENT OF MEMORY ADDRESS * * WORK RE
0x415e70…416004 Dummy {f00=0x013c, f01=0x0190, f02=»ON ~ P RF(Z) GCON10 NO MMU ELR A1,A2 & P RF GCON20 8 PGCON10 EQU * J LDR* A1,A2 ^ PGCON20 EQU * r RTN A14 RETURN EJECT B >************************************************************** B >* BINASC - CONVERT A
0x416004…416198 Dummy {f00=0x013c, f01=0x0190, f02=» B >************************************************************** * J * REFERENCED IN: B:DWTT T * v , (* ENTRY: A1 - BINARY NUMBER TO CONVERT * 0 ,* EXIT: A5 - TWO-DIGIT ASCII-CODED NUMBER * * WORK REGISTER
0x416198…41632c Dummy {f00=0x013c, f01=0x018e, f02=» LDK A2,0 LDR A1,A1 PBIN:20 EQU * $ RF(Z) BINEX 8 ADK A2,1 L CWK A2,10 ^ RF(E) BIN:30 p SUK A1,1 RB BIN:20 PBIN:30 EQU * ADKL A5,/0100 LDK A2,0 SUK A1,1 RB BIN:20
0x41632c…4164c0 Dummy {f00=0x013c, f01=0x0190, f02=» N D P* START MONITOR SAVE01URATION * D P**************************************************************** P PCONMON EQU * ( P CALL B:TCT BUILD TASK CONTROL TABLE & P CALL B:FWT BUILD FILE WORK TABLES ( P CALL
0x4164c0…416654 (5, 152) Dummy {f00=0x013c, f01=0x0190, f02=» 2 P CALL B:SWBT BUILD SWAPPABLE WORK BLOCK TABLE P XIF > 2 P CALL B:DMTT BUILD DATA MANAGEMENT TASK TABLES J & P CALL B:TT BUILD USER TASK TABLES 2 P CALL B:DWTS BUILD SPECIAL DEVICE WORK TABLES 2 P CALL B:DWTT BUILD TERMINAL DEVICE WORK
0x416654…4167e8 Dummy {f00=0x013c, f01=0x0190, f02=»F ASSEMBLER APPLICATION P* " P LD A4,SCTOPT GET OPTION WORD * ( P RF(N) SLDM80 ASSEMBLER APPLICATION P ( P LD A1,SCTLAC GET ADDRESS TO S:GTAB | P IFF MMUPAG=1 & P LDR* A3,A1 GET ADDRESS TO P:MTAB $ P LD A1,2,A1 GET APPLICATON TYPE
0x4167e8…41697c Dummy {f00=0x013c, f01=0x0190, f02=»E r 2 P EL A2,I:RSTE,A3 GET INTERPRETER RESTART ENTRY P XIF @ PSLDM70 EQU * L P ST A2,SCTIOE SAVE IN SYSTAB ` P* " P* CHECK IF CREDIT APPLICATION P* P CWK A1,'CR' CREDIT? P RF(NE) SLDM80 NO P IFF MMUPAG=1 "
0x41697c…416b10 Dummy {f00=0x013c, f01=0x0190, f02=» P EJECT F P***************************************************************** F P* END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x416b10…416ca4 Dummy {f00=0x013c, f01=0x4060, f02=»T BASE-ADDRESS & P ADKL A8,SYSLDX APPL. CONF. ENTRY P ABR A8 @ P END P@ * END OF MONITOR SAVE01URATION PART * ` F P* -CONTINUE WITH APPLICATION SAVE01URATION PART * F P********************
0x416ca4…416e38 Dummy {f00=0x013c, f01=0x403c, f02=» 0 P******************************************** @ 8* -CONTINUE WITH APPLICATION SAVE01URATION PART * < F P***************************************************************** P LDKL A8,/FFFF * P ST A8,SCTEFA MODIFY END OF FREE A
0x416e38…416fcc Dummy {f00=0x013c, f01=0x2008, f02=» P X ` h p
0x416fcc…417160 Dummy {f00=0x013c, f01=0x0000, f02=»
0x417160…4172f4 (5, 153) Opaque[0x194]
0x4172f4…417488 # DirEnt {nam=»SYSLDA«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x27b8, f03=0x0000}
0x4172f4…417488 IdxSect {
0x4172f4…417488 f00 = 0x013d // 0x4172f4 @0x0
0x4172f4…417488 f01 = 0x0056 // 0x4172f6 @0x2
0x4172f4…417488 gno = [ // 0x4172f8 @0x4
0x4172f4…417488 [0x00]: C0x013d.0x3.0
0x4172f4…417488 [0x01]: C0x013e.0x0.0
0x4172f4…417488 [0x02]: C0x013e.0x1.0
0x4172f4…417488 [0x03]: C0x013e.0x2.0
0x4172f4…417488 [0x04]: C0x013e.0x3.0
0x4172f4…417488 [0x05]: C0x013f.0x0.0
0x4172f4…417488 [0x06]: C0x013f.0x1.0
0x4172f4…417488 [0x07]: C0x013f.0x2.0
0x4172f4…417488 [0x08]: C0x013f.0x3.0
0x4172f4…417488 [0x09]: C0x0140.0x0.0
0x4172f4…417488 [0x0a]: C0x0140.0x1.0
0x4172f4…417488 [0x0b]: C0x0140.0x2.0
0x4172f4…417488 [0x0c]: C0x0140.0x3.0
0x4172f4…417488 [0x0d]: C0x0141.0x0.0
0x4172f4…417488 [0x0e]: C0x0141.0x1.0
0x4172f4…417488 [0x0f]: C0x0141.0x2.0
0x4172f4…417488 [0x10]: C0x0141.0x3.0
0x4172f4…417488 [0x11]: C0x0142.0x0.0
0x4172f4…417488 [0x12]: C0x0142.0x1.0
0x4172f4…417488 [0x13]: C0x0142.0x2.0
0x4172f4…417488 [0x14]: C0x0142.0x3.0
0x4172f4…417488 [0x15]: C0x0143.0x0.0
0x4172f4…417488 [0x16]: C0x0143.0x1.0
0x4172f4…417488 [0x17]: C0x0143.0x2.0
0x4172f4…417488 [0x18]: C0x0143.0x3.0
0x4172f4…417488 [0x19]: C0x0144.0x0.0
0x4172f4…417488 [0x1a]: C0x0144.0x1.0
0x4172f4…417488 [0x1b]: C0x0144.0x2.0
0x4172f4…417488 [0x1c]: C0x0144.0x3.0
0x4172f4…417488 [0x1d]: C0x0145.0x0.0
0x4172f4…417488 [0x1e]: C0x0145.0x1.0
0x4172f4…417488 [0x1f]: C0x0145.0x2.0
0x4172f4…417488 [0x20]: C0x0145.0x3.0
0x4172f4…417488 [0x21]: C0x0146.0x0.0
0x4172f4…417488 [0x22]: C0x0146.0x1.0
0x4172f4…417488 [0x23]: C0x0146.0x2.0
0x4172f4…417488 [0x24]: C0x0146.0x3.0
0x4172f4…417488 [0x25]: C0x0147.0x0.0
0x4172f4…417488 [0x26]: C0x0147.0x1.0
0x4172f4…417488 [0x27]: C0x0147.0x2.0
0x4172f4…417488 [0x28]: C0x0147.0x3.0
0x4172f4…417488 [0x29]: C0x0148.0x0.0
0x4172f4…417488 [0x2a]: C0x0148.0x1.0
0x4172f4…417488 ]
0x4172f4…417488 }
0x417488…41761c Dummy {f00=0x013d, f01=0x018e, f02=» 2 P IDENT SYSLDA REL 10.0 80-05-29 870105041000 P : P REL 10.0 80-03-14 B * P =1,FAULTY STACK BASE WHEN USING MMU ^ P P > P********************************************************** P* $ P* PHILIPS TERMINAL SYS
0x41761c…4177b0 Dummy {f00=0x013d, f01=0x0190, f02=» P* > P********************************************************** P* T P* ^ F P* THIS PART OF THE SYSTEM START-UP WILL TAKE CARE OF APPLICATION h B P* (CREDIT) CONFIGURATION AND START OF APPLICATION. SYSLDA IS F P* ENTERED AFTE
0x4177b0…417944 Dummy {f00=0x013d, f01=0x0190, f02=» P* ASSEMBLER APPLICATION: J P* NO CONFIGURATION WILL TAKE PLACE. FIRST USER TASK IS ACTIVATED * F P* AND A BRANCH IS MADE TO P F I N I T . ALL USER TASK TTAB'S x $ P* MM-TABLES ARE FILLED IN. P* P* CREDIT APPLICATI
0x417944…417ad8 Dummy {f00=0x013d, f01=0x0190, f02=»REAL TASKS & ^ . P* NUMBER OF USER WORK-BLOCK COPIES). H P* SYSLDA THEN MOVES ITSELF TO FOLLOW MONITOR AND WILL ALSO MOVE F , P* DDIV-PROTOTYPE TO FOLLOW SYSLDA. P* H P* APPLICATION WORKBLOCKS, DESCRIPTORS, STACK AND TABLES
0x417ad8…417c6c Dummy {f00=0x013d, f01=0x0190, f02=»LLOCATED AT 'BOTTOM' OF d H P* MEMORY; ELSE, IF NO MMU, BUFFERS ARE ALLOCATED AFTER MONITOR P* 'OVER' SYSLDA. l P* H P* ALL USER TASKS ARE QUEUED VIA A C T O T AND ALL MM-TABLES F P* IN USER TASK TTAB'S ARE FILLED. A
0x417c6c…417e00 Dummy {f00=0x013d, f01=0x0190, f02=»* v P* * P* ENTRIES AND EXTERNALS * . P* * R P*************************** v P P* LABEL ENTRIES , P ENTRY JUMP BYPASS JUMP FOR LOAD-MODULE P ENTRY SYSLDX P ENT
0x417e00…417f94 (5, 154) Dummy {f00=0x013e, f01=0x0190, f02=»RROR $ P ENTRY CMPADR COMPARE ADDRESSES 2 P ENTRY NXTBLK SKIP TO NEXT CONFIGURATION BLOCK 4 4 P ENTRY NXTCOM SKIP COMMONDEVICE DEFINITION BLOCK j * P ENTRY CONVRT CONVERSION ASCII-BINARY 2 P ENTRY GETNUM CONVERT 3 ASCII-DIGITS TO BINARY & P E
0x417f94…418128 Dummy {f00=0x013e, f01=0x0190, f02=»BSOLUTE START ADDRESS OF WORK-TAB 1 4 P ENTRY MMEND ABSOLUTE END ADDRESS OF WORK-TAB 1 , 2 P ENTRY MMDDIV WORK-TABLE 2 (MM) RELATIVE 'REL' d , P ENTRY BUFSIZ TEMPORARY MOVE-BUFFER SIZE . P ENTRY SYSBUF TEMPORARY MOVE-BUFFER START 4 P ENTRY M:REL
0x418128…4182bc Dummy {f00=0x013e, f01=0x0190, f02=»NTRY SAVE05,SAVE06,SAVE07,SAVE08 & P ENTRY SAVE09,SAVE10,SAVE11,SAVE02 ( & P ENTRY SAVE13,SAVE14,SAVE15,SAVE16 R & P ENTRY SAVE17,SAVE18,SAVE19,SAVE20 | & P ENTRY SAVE21,SAVE22,SAVE23,SAVE24 & P ENTRY SAVE25,SAVE26,SAVE27,SAVE28 P ENTRY SAVE29,
0x4182bc…418450 Dummy {f00=0x013e, f01=0x0190, f02=» FREE AREA z 2 P EXTRN SCTLAC LOGICALL ADDRESS TO COMMON PART P EXTRN SCTTCT TC:TAB ADDRESS H P EXTRN SCTSTB A15 STACK-BASE l " P EXTRN SCTEFA END OF FREE AREA " P EXTRN SCTNOP NUMBER OF PAGES P EXTRN SCTPSZ PAGE SIZE P EXTRN SCTMM
0x418450…4185e4 Dummy {f00=0x013e, f01=0x0190, f02=» TABLE f P EXTRN SCTBUG BUGGER ADDRESS P 2 P* EXTERNAL LABELS : 6 P EXTRN SYSLDM START OF MONITOR CONFIGURATION PART T $ P EXTRN PAGQUE PAGE QUEUE POINTER P P* EXTERNAL SUBROUTINES P EXTRN ACTOT QUEUE TASK P EXTRN PFINI
0x4185e4…418778 Dummy {f00=0x013e, f01=0x0190, f02=»XTRN TTB:SA START OF SAVE AREA IN TTAB 8 P EXTRN TTB:CB DISPL. TO CURRENT SEGMENT BASE ADDRESS . P EJECT j P x P , P*************************************** , P* CONDITIONAL ASSEMBLY * , P********************************
0x418778…41890c Dummy {f00=0x013e, f01=0x0190, f02=»ER z P PMMUSWB EQU MMUPAG+SWPBLK P 2 PSWBMMU EQU SWPBLK-MMUPAG : P EJECT Z P h P PROGRAM STRUCTURE: p P F P* ------------------------------------------------------- L P* ! RELOCATION ROUTINE
0x41890c…418aa0 Dummy {f00=0x013e, f01=0x0190, f02=»-------------------------------------------! z F P* ! SAVE & COMMUNICATION AREA. MMU - WORK TABLES ! 4 F P* !-----------------------------------------------------! ~ F P* ! SUBROUTINES. -COMMON TO ALL PARTS IN PROGRAM.
0x418aa0…418c34 (5, 155) Dummy {f00=0x013e, f01=0x018e, f02=» ! PART 2.B F P* ! BUILD REAL TASK-LOCAL DATA AREAS ! F P* ! -QUEUE TASK VIA 'ACTOT' ! j F P* ! -FILL MM-TABLE IN TTAB ! F P*
0x418c34…418dc8 Dummy {f00=0x013e, f01=0x0190, f02=» F P* ! -ALLOCATE FIXED BUFFERS AND STACK ! F P* ! -UPDATE TID IN T:A AND SAVE TID IN T:AID TABLE ! N F P* ! -START DEBUGGER (IF ANY) AND START APPLICATION ! F P* !--------------------------
0x418dc8…418f5c Dummy {f00=0x013e, f01=0x0190, f02=»OVE DDIV PROTOTYPE TO FOLLOW SYSLDA ! F P* ! ! : F P* ! C O M D A T ! F P* ! GENERATE COMMON DATA AREA. PROCESS CWB'S & U
0x418f5c…4190f0 Dummy {f00=0x013e, f01=0x0190, f02=» ! b F P* ! ! F P* ! C L A D A T ! f F P* ! BUILD TASK CLASS DATA AREAS. PROCESS CWB'S, UWB'S ! F P* !
0x4190f0…419284 Dummy {f00=0x013e, f01=0x0190, f02=» ! -MOVE T:D ! F P* ! -MOVE D.T. & W.B., COPY UWB'S ! H F P* ! -MOVE D.T.'S OF SWB'S AND TWB'S ! F P* ! -SEARCH DBLK-TAB FOR DWB'S. MO
0x419284…419418 Dummy {f00=0x013e, f01=0x0190, f02=» ! p F P* ! P R O D A T ! * F P* ! BUILD PROTOTYPE TASK-LOCAL DATA AREAS. ! t F P* ! -GENERATE TWB'S AND RESERVE FOR SWB'S ! F P
0x419418…4195ac Dummy {f00=0x013e, f01=0x0190, f02=» ! R F P* ! -INCLUDE DDIV-PROTOTYPE & PART 2.A IN FREE AREA. ! F P* ! -CONTINUE IN PART 2.B ! V F P* !-----------------------------------------------------! N P* ! SUBROUTINES
0x4195ac…419740 Dummy {f00=0x013e, f01=0x0190, f02=» ! CREDIT APPLICATION: ! ASSEMBLER APPLICATION: ! F P* ! READ CUNFIGURATION FILE ! -FILL MM-TABLES IN ! @ F P* ! AND BUILD SHADOW-TABLES. ! USER TASK TTAB'S. ! F P* ! ! -QUEUE 1:S
0x419740…4198d4 (5, 156) Dummy {f00=0x013e, f01=0x0190, f02=»-------------------------! h F P* ! REAL TASKS' IS BUILT AT ! " F P* ! THE END OF MONITOR. ! l F P* ! U:BTAB: ! F P*
0x4198d4…419a68 Dummy {f00=0x013e, f01=0x0190, f02=» F P* ! ! F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! N F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! F P* ! -RELOCATE ADDRESSES IN U
0x419a68…419bfc Dummy {f00=0x013e, f01=0x0190, f02=» ! v F P* ! -CONTINUE IN PART 2.A ! 0 F P* !-----------------------------------------------------! z P EJECT P P ***************** P ************
0x419bfc…419d90 Dummy {f00=0x013e, f01=0x0190, f02=»********* P P********** P* P:MTAB * 0 P********** B PT:ATAB EQU 0 T PU:BTAB EQU 2 h PP:BAS EQU 6 SEGMENT BASE | . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42
0x419d90…419f24 Dummy {f00=0x013e, f01=0x0190, f02=»ITIAL U:BTAB p " PUPADDR EQU 2 PROTOTYPE ADDRESS PUPNAME EQU 4 PROTOTYPE NAME : 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) ^ P* . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNU
0x419f24…41a0b8 Dummy {f00=0x013e, f01=0x0190, f02=»*********** | $ P* CONFIGURATION FILE (CONFIG) * $ P******************************* < P d P* TASK DEFINITION BLOCK: p PTDBBT EQU 0 1A BLOCK TYPE ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS , PTDBID EQU TDBNT+2 6A TASK ID START VALUE
0x41a0b8…41a24c Dummy {f00=0x013e, f01=0x0190, f02=»VICE CLASSES f P* & PTDBFST EQU TDBNC+2 FIRST TERM DEF $ PTDC EQU 7 TERMINAL DEVICE CLASS H PTLC EQU 6 LINE CONNECTION p ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH P* * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD P* P* COMMON
0x41a24c…41a3e0 Dummy {f00=0x013e, f01=0x018e, f02=»+2 FIRST SDC-RECORD P* P* & & P* USER WORK BLOCK TYPE DEF. BLOCK 0 PUDBBT EQU 0 1A BLOCK TYPE Z , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES | P* ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD PNAMUWB EQU 3 NAME OF UWB " PNUMUBL
0x41a3e0…41a574 (5, 157) Dummy {f00=0x013e, f01=0x018e, f02=» P* T:A * P********* PT:ASTA EQU -14 T:A START ( 6 PCSE EQU -14 CURRENT SEGMENT END (HERE: STACKSIZE) H $ PCSB EQU -12 CURRENT SEGMENT BASE 4 PCSN EQU -10 CURRENT SEGMENT NUMBER (HERE LENGTH 2 P OF ALL DSCB
0x41a574…41a708 Dummy {f00=0x013e, f01=0x0190, f02=» j P PT:ATID EQU -4 TASK ID PSTKE EQU -2 STACK END 2 PPA EQU 0 STACK POINTER P PSTKB EQU 2 STACK BASE n " PWATFST EQU 4 FIRST WAT-ELEMENT P* P* DSCB-RECORD: PDSCBL EQU 20 RECORD LENGTH PBA EQU 2 BUFFER ADDR
0x41a708…41a89c Dummy {f00=0x013e, f01=0x0190, f02=» P********* P* T:D * P********* , ( PFCD EQU 0 DISPLACEMENT TO FCB IN T:A > , PT:DTID EQU 2 TASK IDENTIFIER (PROTOTYPE) j , PDATLEN EQU 4 NUMBER OF DATASETS (DSCB'S) & PWATLEN EQU 6 NUMBER OF WATELEMENTS 0 PTWBMSK EQU 8 MASK FO
0x41a89c…41aa30 Dummy {f00=0x013e, f01=0x0190, f02=»4 MASK FOR UWB'S -"- ( PDWBFST EQU 16 FIRST WORD IN DBLK-TAB ! " P ! N . PSTPREC EQU 4 RECORD LENGTH OF START-POINTS ! V P ! P ! P**************** ! P* SOP-HANDLING * ! P**************** ! PSOP EQU /2E DEVICE ADDRESS ! P !
0x41aa30…41abc4 Dummy {f00=0x013e, f01=0x0190, f02=» /100 MEMORY OVERFLOW ! & PLMP4 EQU /80 FORMAT ERROR (CONFIG) " PLMP5 EQU /40 TID ERROR " H " PLMP6 EQU /20 UWB OR SWB ERROR " f " PLMP7 EQU /10 MM-TABLE OVERFLOW " PLMP8 EQU 8 " PLMP9 EQU 4 " PLMP10 EQU 2 " PLMP11 EQU 1 " P EJECT "
0x41abc4…41ad58 Dummy {f00=0x013e, f01=0x0190, f02=»OCK " r , PDTLEN EQU -2 LENGTH OF DESCRIPTOR-TABLE # & PSWBLEN EQU 4 DISP TO LENGTH OF SWB # < P # f $ PFCBDD1 EQU 8 DISP TO FIRST DSET # r $ PFCBDD2 EQU 10 DISP TO 2:ND DSET # P # $ PSTKSZ EQU 128 DEFAULT STACK-SIZE # P # & PCREID
0x41ad58…41aeec Dummy {f00=0x013e, f01=0x0190, f02=» P $ PTTBTID EQU 2 TID IN TTAB $ . PT:DSAV EQU 0 SAVE FOR T:D-ADDRESS IN TTAB $ , * PTTB:PP EQU 6 SAVE AREA FOR TCL IN TTAB $ ^ P $ ( PNTPA EQU 4 INTERPRETER START ADDRESS $ & PIHRTC EQU 4 RTC INTERRUPT ADDRESS $ $ PRTCDA EQU /1B RTC DEVICE ADDRE
0x41aeec…41b080 Dummy {f00=0x013e, f01=0x018e, f02=»A13 * $ h F P* DATA [REL-ADDRESS] * % " F P* * % l F P***************************************************************** % P %
0x41b080…41b214 (5, 158) Dummy {f00=0x013f, f01=0x0190, f02=» % 6 P************************************************** & 6 P** ** & B 6 P** RELOCATION ROUTINE & STACK INITIALLISATION ** & | 6 P** ** & 6 P************************
0x41b214…41b3a8 Dummy {f00=0x013f, f01=0x0190, f02=»HANDLER & p & P LDR A13,P GET BASE ADDRESS TO A13 ' P SUKL A13,4 ' : P* ADJUST FOR PSW-ROUTINE * ' N P************************** ' p 4 P LDK A3,GETPSW RELATIVE ADDRESS TO 'PSW-ADDRESS' ' P ADR A3,A13 ABSOLUT DITO ' 4 P ST A3,PSW,A13 STORE ADDRESS T
0x41b3a8…41b53c Dummy {f00=0x013f, f01=0x0190, f02=» P RTN A8 ( P ( P ( P* STACK * ( , P********* ( > P* ( P P RES 12 ( Z PSTACKB EQU *-REL-2 ( j P EJECT ( P ( P ( P* ADDRESS TO PSW-ROUTINE * ( P************************** ( P* ( PPSW EQU *-REL (
0x41b53c…41b6d0 Dummy {f00=0x013f, f01=0x0190, f02=» E T P S W * ( v D P* LITTLE SUBROUTINE TO PUT PSW IN STACK FOR CALLING SUBROUTINE * ) . D P**************************************************************** ) v P ) PGETPSW EQU *-REL ) $ P STR A2,A14 SAVE A2 ON A14-STACK ) 0
0x41b6d0…41b864 Dummy {f00=0x013f, f01=0x0190, f02=» RTN A14 ) P EJECT * P * & P********************************* * & & P* * * P & P* SUBROUTINE-HANDLER * * z & P* * * & P********************************* * P * PSUBSUB E
0x41b864…41b9f8 Dummy {f00=0x013f, f01=0x0190, f02=» * p P IM 4,A14 + 0 P AD A10,M:REL,A13 ADD FOR SYSLDM RELOCATION + P STR A10,A14 PUT ON STACK + N P LD A10,MUL,A13 RESTORE A10 + p P ABR* A14 + P + P + P + < P******************************************************* + < P* JUMP TO
0x41b9f8…41bb8c Dummy {f00=0x013f, f01=0x0190, f02=»YSLDM + P EJECT , P , ( P************************************ , ( ( P** ** , T ( P** SAVE, AND COMMUNICATION AREA ** , ( P** ** , ( P************************************ , P
0x41bb8c…41bd20 Dummy {f00=0x013f, f01=0x0190, f02=»OD EQU *-REL U:BTAB OLD ADDRESS , P DATA 0 - ( ( PU:BTNW EQU *-REL U:BTAB NEW ADDRESS - 8 P DATA 0 - d ( PS:BTOD EQU *-REL S:BTAB OLD ADDRESS - t P DATA 0 - ( PS:BTNW EQU *-REL S:BTAB NEW ADDRESS - P DATA 0 - . PMOVADD EQU *-REL ADDRESS-CHA
0x41bd20…41beb4 (5, 159) Dummy {f00=0x013f, f01=0x0190, f02=»SS INDICATOR - v P FOR TABLE-SCANNING . P DATA 0 . 2 : PLSTADR EQU *-REL LAST ADDRESS WHEN BUILDING DATA PART . B P DATA 0 . @ PFSTADR EQU *-REL FIRST FREE ADDRESS WHEN ALLOCATING BUFFERS . P DATA 0 . * PNEWAD1 EQU *-REL SAVE FOR W.B. ADDRE
0x41beb4…41c048 Dummy {f00=0x013f, f01=0x0190, f02=» . 6 PFLAG EQU *-REL REAL TASK DATA PROCESSING INDICATOR / P DATA 0 / B " PUWB EQU *-REL U.W.B. INDICATOR / R P DATA 0 / x & PAPPTYP EQU *-REL APPLICATION TYPE / P DATA 0 / $ PSAVE01 EQU *-REL TEMPORARY SAVE / P DATA 0 / PSAVE02 EQU *-R
0x41c048…41c1dc Dummy {f00=0x013f, f01=0x018e, f02=»0 / PSAVE06 EQU *-REL 0 P DATA 0 0 " PSAVE07 EQU *-REL 0 2 P DATA 0 0 J PSAVE08 EQU *-REL 0 Z P DATA 0 0 r PSAVE09 EQU *-REL SAVE AREAS 0 P DATA 0 0 PSAVE10 EQU *-REL 0 P DATA 0 0 PSAVE11 EQU *-REL 0 P DATA 0 0 PSA
0x41c1dc…41c370 Dummy {f00=0x013f, f01=0x018e, f02=» 0 ~ P DATA 0 1 PSAVE26 EQU *-REL 1 P DATA 0 1 0 PSAVE27 EQU *-REL 1 @ P DATA 0 1 X PSAVE28 EQU *-REL 1 h P DATA 0 1 PSAVE29 EQU *-REL 1 P DATA 0 1 PSAVE30 EQU *-REL 1 P DATA 0 1 & PWBADD EQU *-REL W.B.-ADDRESS SAVE 1
0x41c370…41c504 Dummy {f00=0x013f, f01=0x0190, f02=» 8 PTADISP EQU *-REL DISPLACEMENT IN T:A TO W.B. ADDRESS 2 P DATA 0 2 @ * PDATEND EQU *-REL END OF DDIV PROTOTYPE 2 P P DATA 0 2 ~ ( PMMREL1 EQU *-REL PHYSICALL PAGE BASE 2 P DATA 0 2 * PM:REL EQU *-REL RELOCATION FOR SYSLDM 2 P DATA 0 2 P
0x41c504…41c698 Dummy {f00=0x013f, f01=0x0190, f02=» *-REL MMTABLE ADDRESS 2 P DATA 0 3 * PMMFROM EQU *-REL 2:ND MMTABLE ADDRESS 3 . P DATA 0 3 0 PFYSPAG EQU *-REL LAST PHYSICALLY PAGE NUMBER 3 l P DATA 0 3 PFSTPAG EQU *-REL 3 ( P DATA 0 FIRST FREE PAGE (PHYSICALL) 3 ( PTTAB EQU *-REL CORRE
0x41c698…41c82c Dummy {f00=0x013f, f01=0x0190, f02=»H 3 r P 4 P 4 P 4 & P********************************* 4 " & P* EQUATES FOR SYSLDM SAVE-WORDS * 4 L & P********************************* 4 v P 4 PSAVE14 EQU U:BTOD 4 PSAVE15 EQU U:BTNW 4 PSAVE16 EQU MOVADD 4 PSAVE17 EQU ENDADD
0x41c82c…41c9c0 Dummy {f00=0x013f, f01=0x0190, f02=»SAVE24 EQU FLAG 4 P EJECT 5 P 5 & P* MMU TABLES * 5 . P 5 D P 5 L . PMMDDIV EQU *-REL DDIV (& SYSLDA) MM-TABLE 5 T P IFT MMUPAG=1 5 P RES 16 5 P XIF 5 P 5 $ PMMTAB EQU *-REL WORK AREA MM-TAB 5 PTABBE EQU * 5 P IFT MMUPAG=
0x41c9c0…41cb54 (5, 160) Dummy {f00=0x013f, f01=0x0190, f02=»A 5 n 4 PTTPAG DATA 0 LAST ENTRY (FROM BOTTOM) IN MM-TAB 6 0 PLSTPAG EQU TTPAG-* DISPL. TO 'ENTRY-POINTER' 6 B P DATA 0 6 v P 6 PMMBEG EQU TABBE-* 6 P EJECT 6 P 6 6 P*** *** 6 6 P*** S
0x41cb54…41cce8 Dummy {f00=0x013f, f01=0x018e, f02=» *** 6 p 6 P************************************************* 7 6 P************************************************* 7 T P 7 P 7 , P** E R R O R ** 7 , P** ** 7 , P**
0x41cce8…41ce7c Dummy {f00=0x013f, f01=0x0190, f02=» 7 f , P** INPUT :A1=SOP-MESSAGE ** 8 , P** OUTPUT:A2=RELATIVE CALLING ADDRESS** 8 8 , P** (REG-CONTENTS IS SAVED) ** 8 h , P**************************************** 8 P 8 PERROR EQU * 8 P ST A2,SAVE01,A13 SAVE A2 8 . P L
0x41ce7c…41d010 Dummy {f00=0x013f, f01=0x0190, f02=»NG PURPOS) 8 | P EJECT 9 P 9 & P** M O V E ** 9 ( & P** ** 9 R & P** ** 9 | & P** MOVE BLOCKS INSIDE MEMORY ** 9 & P** ** 9 & P** INPUT:A1=F
0x41d010…41d1a4 Dummy {f00=0x013f, f01=0x0190, f02=» ** 9 x & P** WORK-REG: A4 ** : & P********************************* : < P : f PMOVE EQU * : r $ PMOVES ADR A1,A3 END OF FROM AREA : P ADR A2,A3 END OF TO-AREA : & P LD A4,SCTEFA GET END OF FREE AREA : P TNM A2,A4 SIGN
0x41d1a4…41d338 Dummy {f00=0x013f, f01=0x0190, f02=» SIGN : n 8 PMOVCK RF(NG) MOVE10 END OF TO-AREA<=END OF FREE AREA ; * P LDKL A1,LMP3 INDICATE MEMORY OVERFLOW ; J P CALL ERROR ; x PMOVE10 SUK A3,1 DEC LENGTH ; P RF(N) MOVE20 ALL DONE ; P SUK A1,1 ; P SUK A2,1 ; P LCR A4,A1 GET CHARACTER
0x41d338…41d4cc Dummy {f00=0x013f, f01=0x0190, f02=» ; 4 P** M O V I N G ** < 4 P** ** < D 4 P** ** < | 4 P** USES ROUTINE 'MOVE' ABOVE. TO-ADDRESS IS ** < 4 P** ASSUMED TO BE DATA-PART
0x41d4cc…41d660 Dummy {f00=0x013f, f01=0x0190, f02=» 4 P** ** = 4 P** INPUT:A3 & A1 AS IN 'MOVE' ** = < 4 P** OUTPUT: A2=TO-ADDRESS (LSTADR UPDATED) ** = t 4 P** WORK-REG: A4 ** = 4 P************************************
0x41d660…41d7f4 (5, 161) Dummy {f00=0x013f, f01=0x0190, f02=»FE MAKE EVEN ADDRESS = P ST A11,SAVE01,A13 SAVE A11 > P ST A9,SAVE12,A13 SAVE A9 > @ P LDR A11,A2 > b * P LD A9,DATEND,A13 END OF PROTOTYP AREA > v " P CALL CMPADR COMPARE ADDRESSES > P RF(NL) MOV020 > ( PMOV010 LDKL A1,LMP3 MEMORY OVERFLOW >
0x41d7f4…41d988 Dummy {f00=0x013f, f01=0x0190, f02=»A13 NEW ADDRESS > ( P LD A9,SAVE12,A13 RESTORE REGISTERS ? P LD A11,SAVE01,A13 ? D P RB MOVES ? ^ P XIF ? p P IFT CREDIT+MMUPAG=2 ? | P EJECT ? ? 4 P** X M O V E ** ? 4 P**
0x41d988…41db1c Dummy {f00=0x013f, f01=0x0190, f02=» TWO PHASES:-MOVE TO SYSTEM AREA (BUFBEG) ** ? 4 P** -MOVE TO USER AREA ** @ 6 4 P** IF 'BUFSIZ' (TEMPORARY MOVE-BUFFER) IS NOT** @ n 4 P** BIG ENOUGH THE MOVE IS REPEATED ** @ 4 P**
0x41db1c…41dcb0 Dummy {f00=0x013f, f01=0x0190, f02=» A3=LENGTH (IN BYTES) ** @ 4 P** WORK.REGS:A4,A10 ** A . 4 P************************************************ A f P A PXMOVE EQU * A P ST A1,SAVE09,A13 A P ST A1,SAVE07,A13 A P ST A2,SAVE10,A13 A P
0x41dcb0…41de44 Dummy {f00=0x013f, f01=0x0190, f02=» PXMOV05 EQU * B LDR A10,A3 SAVE LENGTH B , ( LDK A4,0 RESET 'NUMBER-OF-MOVE' COUNTER B 8 * P LDR A11,A3 GET LENGTH OF AREA TO MOVE B h 0 P LD A9,BUFSIZ,A13 GET TEMPORARY BUFFER SIZE B . P CALL CMPADR TEMPORARY BUFFER BIG ENOUGTH B " RF(G) SPLIT
0x41de44…41dfd8 Dummy {f00=0x013f, f01=0x0190, f02=»ER START-ADDRESS B p $ P TL* MMFROM,A13 LOAD FROM-TABLE C , ( MVUS A3 MOVE DATA-BLOCK TO TEMP. BUFFER C @ 0 P ST A1,SAVE09,A13 SAVE END OF 'FROM' ADDRESS C p P LD A1,SYSBUF,A13 C 0 P LD A2,SAVE08,A13 GET START OF 'TO' ADDRESS C LDR A3,A10 GET LENGTH
0x41dfd8…41e16c Dummy {f00=0x013f, f01=0x0190, f02=»V30 NO! C P ADR A2,A10 D 0 P ST A2,SAVE08,A13 SAVE START OF 'TO' ADDRESS D $ * P LD A3,SAVE11,A13 GET REQUESTED LENGTH D X $ SUR A3,A10 SUBTRACT MOVED PART D P ST A3,SAVE11,A13 SAVE D P CWR A3,A10 D P RB(NL) XMOV10 D P LDR A10,A3 LAST L
0x41e16c…41e300 Dummy {f00=0x013f, f01=0x0190, f02=» DV BUFSIZ,A13 AND DIVIDE E 2 P LDR A4,A2 GET QUOTIENT (=NUMBER OF MOVES - 1) E & & " LD A10,BUFSIZ,A13 MOVE MAX LENGTH E P RB XMOV10 E E 0 PXMOV30 LD A2,SAVE10,A13 RESTORE 'TO-ADDRESS' E , P LD A1,SAVE07,A13 RESTORE 'FROM-ADDRESS' E P LD
0x41e300…41e494 (5, 162) Dummy {f00=0x0140, f01=0x0190, f02=»N G ** E v 4 P** ** F 4 P** ** F V 4 P** USES SUBROUTINE 'XMOVE' TO MOVE A BLOCK ** F 4 P** VIA TWO MM-TABLES.PHYSICALL TO-ADDRESS ** F 4 P** IS ALW
0x41e494…41e628 Dummy {f00=0x0140, f01=0x0190, f02=» &FYSPAG ** F n 4 P** IS UPDATED AND CHECKED. ** G 4 P** ** G N 4 P** INPUT :A1 & A3 AS IN 'XMOVE' ** G 4 P** TTAB=POINTER TO TTAB (OR LIKELY) ** G 4 P** OUTPUT:A2=LOGI
0x41e628…41e7bc Dummy {f00=0x0140, f01=0x0190, f02=»***** G f P H PMOVING EQU * H P ST A11,SAVE01,A13 SAVE A11 H * P ST A9,SAVE12,A13 SAVE A9 H N . ) LD A4,FYSPAG,A13 GET ACT. PHYSICALL PAGE H p & P LD A10,TTAB,A13 LOAD TTAB-ADDRESS H 2 . LD A2,LSTPAG,A10 GET LAST TABLE-ENTRY IN TTAB H " LDR*
0x41e7bc…41e950 Dummy {f00=0x0140, f01=0x0190, f02=»400 ADJUST FOR 'SETTAB' H $ P CALL SETTAB NEW PAGE IN TABLE! I 6 PMOV010 LD A11,LSTADR,A13 GET LAST LOGICALL ADDRESS I H ANKL A11,/FFF I * P LDR A9,A3 GET LENGTH OF AREA TO MOVE I 0 P CALL CMPADR ENOUGTH SPACE IN CURRENT PAGE? I P RF(NL) MOV020
0x41e950…41eae4 Dummy {f00=0x0140, f01=0x0190, f02=» ADKL A11,4096 PHYSICAL PAGE INCREMENT I P RB MOV015 J . 2 PMOV020 SUR A11,A3 COMPUTE DISPLACEMENT IN PAGE J @ PMOV025 RF(NN) MOV050 J v * PMOV030 CALL SETTAB NEW PAGE IN TABLE! J & ! ADKL A11,4096 NEW PAGE INCREMENT J ( P RB(N) MOV030 NOT ENOUGH. NEW
0x41eae4…41ec78 Dummy {f00=0x0140, f01=0x0190, f02=» J t " P* A2=CURRENT ENTRY IN MM-TABLE K K . PMOV050 EQU * K 6 , ( ST A2,LSTPAG,A10 SAVE MMU-ENTRY IN TTAB K J 0 , ST A4,FYSPAG,A13 SAVE PHYSICALL PAGE NUMBER K z 4 P LDKL A4,MMBEG CALCULATE TABLE ENTRY DISPLACEM. K & " ADR A4,A10 ABSOLUTE ENTRY ADDRESS
0x41ec78…41ee0c Dummy {f00=0x0140, f01=0x0190, f02=» * P ORR A2,A11 GET DISPLACEM. WITHIN PAGE L P ANKL A2,/FFFE EVEN ADDRESS L 2 , ' ST A2,LSTADR,A13 SAVE LOGICALL ADDRESS L V P* CHECK ADDRESSES * L P L * P LD A9,FSTPAG,A13 GET FIRST FREE PAGE L P ST A11,SAVE07,A13 SAVE A11 L P LD A11,FYSP
0x41ee0c…41efa0 Dummy {f00=0x0140, f01=0x0190, f02=» P LD A9,FSTADR,A13 M P CALL CMPADR M P RF(NL) MOV090 OK! M 2 PMOV070 LDKL A1,LMP3 M L P CALL ERROR M h PMOV090 EQU * M | P CALL XMOVE MOVE M P LD A9,SAVE12,A13 M ( P LD A11,SAVE01,A13 RESTORE REGISTERS M $ P TL* MMFROM,A13 RESTORE MM
0x41efa0…41f134 (5, 163) Dummy {f00=0x0140, f01=0x0190, f02=» ** M v 6 P** ** N 6 P** SET NEW PAGE IN MM-TABLE & CHECK IF TABLE ** N Z 6 P** OVERFLOW. ** N 6 P** ** N 6 P
0x41f134…41f2c8 Dummy {f00=0x0140, f01=0x0190, f02=»S UPDATED ** N | 6 P** WORK.REG: A9 ** O & 6 P************************************************* O ` P O PSETTAB EQU * O SUKL A4,/400 GET NEXT PAGE O SUK A2,2 GET NEXT ENTRY O P O " P* CHEC
0x41f2c8…41f45c Dummy {f00=0x0140, f01=0x0190, f02=» O r P RF(NN) SETT00 P P CWR A9,A2 P P RF SETT05 P 0 PSETT00 CWR A2,A9 OVERFLOW? P B PSETT05 RF(NL) SETT10 NO P d P LDK A1,LMP7 P P CALL ERROR P PSETT10 EQU * P STR A4,A2 STORE IN TABLE P RTN A14 P P XIF P P IFF CREDI
0x41f45c…41f5f0 Dummy {f00=0x0140, f01=0x018e, f02=» ** P f 4 P** ** Q 4 P** GET WORK BLOCK ADDRESS AND DISPLACE- ** Q F 4 P** MENT IN T:A ** Q ~ 4 P** ** Q 4 P** INPUT : A8= POINTER TO
0x41f5f0…41f784 Dummy {f00=0x0140, f01=0x0190, f02=» Q ^ 4 P** TADISP=A4 ** R 4 P** A11=W.B.-ADDRESS ** R @ 4 P** WBADD=POINTER TO W.B.-ADD IN T:A ** R x 4 P*********************************************** R P R PGETWB EQU * R " P
0x41f784…41f918 Dummy {f00=0x0140, f01=0x0190, f02=»T R n P IFT CREDIT-MMUPAG=1 S P LDR* A11,A8 GET T:A-ADDRESS S & P ADR A11,A4 ADD DISPLACEMENT S J P ST A11,WBADD,A13 SAVE S n " P LDR* A11,A11 GET W.B.-ADDRESS S P XIF S P IFT CREDIT+MMUPAG=2 S 0 P LD A11,FLAG,A13 REAL TASK-DATA PROCESSING? S
0x41f918…41faac Dummy {f00=0x0140, f01=0x0190, f02=»NT S v P ST A11,WBADD,A13 SAVE T " P ELR A11,A11 GET W.B.-ADDRESS T ( & P TL* MMFROM,A13 RELOAD FROM-TABLE T N P XIF T x P IFF CREDIT=0 T P RTN A14 T P EJECT T P T P T 8 P** M O V W B ** T
0x41faac…41fc40 Dummy {f00=0x0140, f01=0x0190, f02=»K-BLOCK. W.B.-ADDRESS IS UPDATED ** T 8 P** ** U 0 8 P** INPUT: A11=W.B.-ADDRESS ** U l 8 P** OUTPUT: 'WBADD'=POINTER TO MOVED W.B.ADDRESS ** U 8 P** WORK-REGS: A1-A4
0x41fc40…41fdd4 (5, 164) Dummy {f00=0x0140, f01=0x0190, f02=»ESS U | P ADKL A1,WBLEN FROM-ADDRESS V P IFT CREDIT-MMUPAG=1 V 0 P LDR* A3,A1 LENGTH V L P CALL MOVING V f 6 P SUKL A2,WBLEN ADJUST TO-ADDRESS FOR DISPLACEMENT V z 4 P ST* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE V P XIF V P IFT CREDIT+MMUP
0x41fdd4…41ff68 Dummy {f00=0x0140, f01=0x0190, f02=» DATA-PART PROCESSING? V | P RF(Z) MOVW10 NO! W P TL* MMTO,A13 LOAD TO-TABLE W 8 : PMOVW10 ES* A2,WBADD,A13 UPDATE W.B.-ADDRESS AFTER MOVE W & P TL* MMFROM,A13 RELOAD FROM-TABLE W P XIF W P IFF CREDIT=0 W P RTN A14 W P EJECT W P
0x41ff68…4200fc Dummy {f00=0x0140, f01=0x0190, f02=» W Z : P** ** X : P** MOVE DISCRIPTOR TABLE. D.T.-ADDRESS IS UPDATED ** X F : P** ** X : P** INPUT :WBADD POINTS TO W.B.-ADDRESS IN T:A ** X : P** OUTP
0x4200fc…420290 Dummy {f00=0x0140, f01=0x018e, f02=»********************************* X | P Y * PMOVDT EQU * Y 6 6 P LD A1,WBADD,A13 GET POINTER TO W.B-ADDRESS IN WAT Y J & P SUK A1,2 POINTER TO D.T.-ADDRESS Y P IFT CREDIT-MMUPAG=1 Y P LDR* A1,A1 D.T.-ADDRESS Y * P ADKL A1,DTLEN ADJUST FOR LENG
0x420290…420424 Dummy {f00=0x0140, f01=0x0190, f02=» Y P SUKL A1,DTLEN Z 4 P ST A2,-2,A3 UPDATE D.T-ADDRESS. A2=NEW ADDRESS Z P XIF Z V P IFT CREDIT+MMUPAG=2 Z b P ELR A1,A1 D.T.-ADDRESS Z ~ * P ADKL A1,DTLEN ADJUST FOR LENGTH WORD Z P AD A1,MOVADD,A13 RELOCATE Z P ELR A3,A1 LENGTH Z P
0x420424…4205b8 Dummy {f00=0x0140, f01=0x0190, f02=» Z ` P XIF [ P IFF CREDIT=0 [ P RTN A14 [ * P EJECT [ : P [ H < P** M O V D W B ** [ T < P** ** [ < P**
0x4205b8…42074c Dummy {f00=0x0140, f01=0x0190, f02=» < P** ** < P** INPUT : A12=T:D-ADDRESS ** D < P** A8= POINTER TO T:A-ADDRESS ** < P** BIT=BIT NUMBER SAT IN DWBMSK ( 0-15 ) ** < P**
0x42074c…4208e0 Dummy {f00=0x0140, f01=0x0190, f02=»MOVDWB EQU * P ST A6,SAVE05,A13 SAVE A5 ] P LDK A6,0 ] 6 ( PMOVD10 LD A4,BIT,A13 GET BIT NUMBER ] H " P ADK A4,1 FIRST WAT-ELEMENT =1 ] t P IFT CREDIT-MMUPAG=1 ] P LD A2,WATLEN,A12 ] P XIF ] P IFT CREDIT+MMUPAG=2 ] P EL A2,WATLEN,A1
0x4208e0…420a74 (5, 165) Dummy {f00=0x0140, f01=0x0190, f02=»=TABLE INDEX ] ~ P SUK A2,1 ALL? ^ P RF(N) MOVD60 YES! ^ * P IFT CREDIT-MMUPAG=1 ^ D " P CC A4,DWBFST,A6 SHARED W.B.? ^ ` P XIF ^ P IFT CREDIT+MMUPAG=2 ^ * P EL A10,DWBFST,A6 CHECK IF SHARED W.B. ^ " P SRC A6,1 RIGHT OR LEFT BYTE? ^ P RF(N)
0x420a74…420c08 Dummy {f00=0x0140, f01=0x0190, f02=»OINTER ^ x P CWR A4,A10 SHARED W.B.? _ P XIF _ . P IFF CREDIT=0 _ : P RB(NE) MOVD20 NO! _ P P* DWB FOUND * _ j , P NGR A4,A2 CALCULATE DISPLACEMENT IN T:A _ P IFT CREDIT-MMUPAG=1 _ P AD A4,WATLEN,A12 _ P XIF _ P IFT CREDIT+MMUPAG=2 _
0x420c08…420d9c Dummy {f00=0x0140, f01=0x0190, f02=» P SLL A4,2 ` P ADK A4,WATFST+2 ` * P LD A3,NEWAD2,A13 GET NEW W.B.-ADDRESS ` . P IFT CREDIT-MMUPAG=1 ` 2 P ADR* A4,A8 A4=POINTER TO W.B.-ADDRESS IN T:A ` x " P STR A3,A4 CHANGE W.B.-ADDRESS ` P XIF ` P IFT CREDIT+MMUPAG=2 ` . P LD A2,FLAG,
0x420d9c…420f30 Dummy {f00=0x0140, f01=0x0190, f02=»OINTER TO W.B.-ADDR IN T:A ` P ADR A4,A10 a " " P ESR A3,A4 CHANGE W.B.-ADDRESS a 6 & P TL* MMFROM,A13 RELOAD FROM-TABLE a P XIF a P IFF CREDIT=0 a P ST A4,WBADD,A13 a . P LD A2,SWITCH,A13 WB-ADDRESS CHANGE ONLY? a P RB(NZ) MOVD10 YES! a
0x420f30…4210c4 Dummy {f00=0x0140, f01=0x0190, f02=» P b P b 4 P** T W B S W B ** b 4 P** ** b L 4 P** COPY TWB'S AND RESERVE SPACE FOR SWB'S ** b 4 P** ** b 4 P** INPUT : A8=ACTUA
0x4210c4…421258 Dummy {f00=0x0140, f01=0x0190, f02=» ** b d 4 P************************************************ c P c D PTWBSWB EQU * c L P ST A7,SAVE04,A13 SAVE A7 c ` " P LD A7,TWBMSK,A12 GET TWB MASK c P IFT CREDIT+MMUPAG=2 c " P EL A7,TWBMSK,A12 GET TWB MASK c P XIF c P IFF CREDIT=0 c
0x421258…4213ec Dummy {f00=0x0140, f01=0x0190, f02=»ESS c n & P CALL MOVDWB CHANGE DWB-ADDRESSES d P CALL SKIFTA d 6 P RB TWSW10 d J PTWSW20 EQU * d P IFT CREDIT+SWPBLK=2 d p P EJECT d P d P d P* RESERVE SPACE FOR SWB'S * d P*************************** d P XIF d P I
0x4213ec…421580 Dummy {f00=0x0140, f01=0x0190, f02=»REDIT+SWPBLK=2 d P CALL SHIFT e PTWSW30 RF(Z) TARZAN ALL DONE e * P CALL GETWB e N P CALL MOVWB RESERVE SPACE e b ( P ST A2,NEWAD2,A13 SAVE W.B.-ADDRESS e & P CALL MOVDWB CHANGE DWB- ADDRESSES e P CALL SKIFTA e P RB TWSW30 e PTARZAN E
0x421580…421714 (5, 166) Dummy {f00=0x0141, f01=0x0190, f02=» A L L B U F ** e 4 P** ** f 0 4 P** ALLOCATE FIXED DATA SET BUFFERS AND ** f h 4 P** TERMINAL STACK ** f 4 P** **
0x421714…4218a8 Dummy {f00=0x0141, f01=0x018e, f02=»(IN T:A)=LENGTH OF DSCB'S ** f 4 P** CIA (IN T:A)=DISPL. TO T:A-START ** g ( 4 P** CSE (IN T:A)=STACKSIZE ** g ` 4 P** WORK-REGS. :A1-A4,A9,A11 ** g 4 P************************************************ g P
0x4218a8…421a3c Dummy {f00=0x0141, f01=0x0190, f02=» g r ( P LD A3,CSN,A1 GET DSCB TOTAL LENGTH h P RF(Z) ALLB70 NO DSCB'S h 4 . P ADKL A1,T:ASTA CALC START OF DSCB RECORDS h T " P LDR A10,A1 SAVE START ADDRESS h P XIF h P IFT CREDIT+MMUPAG=2 h P ELR A1,A8 GET T:A-ADDRESS h ( P EL A3,CSN,A1 GET
0x421a3c…421bd0 Dummy {f00=0x0141, f01=0x0190, f02=» h r P XIF i P IFF CREDIT=0 i P SUR A3,A1 i * P NGR A3,A3 i < P SUK A3,DSCBL END CONDITION i N : P ST A3,SAVE04,A13 SAVE ADDRESS TO END OF DSCB-RECORDS i r : PALLB10 SUK A1,DSCBL A1=FIRST WORD IN FIRST DSCB-RECORD i P CW A1,SAVE04,A13 ALL? i
0x421bd0…421d64 Dummy {f00=0x0141, f01=0x0190, f02=»NN) ALLB10 NO! i P ST A9,BA,A1 BUFFER START j P LD A3,RL,A1 BUFFER LENGTH j 8 P ST A3,BL,A1 j Z P LD A2,EL,A1 SHARED BUFFER? j n P RF(Z) NOTSH NO! j & P LDR A4,A1 RESTORE START OF DSCB'S j P XIF j P IFT CREDIT+MMUPAG=2 j $ P ELR A3,A1 G
0x421d64…421ef8 Dummy {f00=0x0141, f01=0x0190, f02=» P EL A2,EL,A1 SHARED BUFFER? k P RF(Z) NOTSH NO! k ( & P LDR A4,A1 RESTORE START OF DSCB'S k @ P XIF k j P IFF CREDIT=0 k v P ADK A4,DSCBL FIRST WORD k PALLB20 SUK A2,1 A2=INDEX k P RF(NN) ALLB30 k P LDK A1,LMP4 FORMAT ERROR k P CAL
0x421ef8…42208c Dummy {f00=0x0141, f01=0x0190, f02=» P RB(NE) ALLB20 l " P LDK A1,LMP4 BUFFER NOT FOUND l P CALL ERROR l @ P IFT CREDIT-MMUPAG=1 l T ( PALLB40 LD A4,BA,A4 BUFFER ALLOCATED? l p P RF(NZ) ALLB50 YES! l P LDK A1,LMP4 FORMAT ERROR l P CALL ERROR l PALLB50 EQU * l * P ST A4
0x42208c…422220 Dummy {f00=0x0141, f01=0x0190, f02=»50 YES! l P LDK A1,LMP4 FORMAT ERROR m P CALL ERROR m 2 PALLB50 EQU * m F * P ES A4,BA,A1 AND ESORE IN CURRENT ECB m Z P XIF m P IFF CREDIT=0 m P RB ALLB10 m P m P IFT CREDIT-MMUPAG=1 m PNOTSH LDR A9,A9 PAGING? m P RF(NZ)
0x422220…4223b4 (5, 167) Dummy {f00=0x0141, f01=0x0190, f02=» A9,A3 ALLOCATE BUFFER FROM TOP m P ADKL A9,1 n ( P ANKL A9,/FFFE EVEN ADDRESS n : P* CHECK ADDRESS: n ^ P n v " P LD A11,LSTADR,A13 DATA START n P CALL CMPADR n P RF(NL) ALLB60 OK! n P LDKL A1,LMP3 n P CALL ERROR n PALLB60 E
0x4223b4…422548 Dummy {f00=0x0141, f01=0x0190, f02=»FROM 'BOTTOM' n n & P ES A2,BA,A1 STORE BUFFER ADDRESS o P XIF o @ P IFF CREDIT=0 o L P RB ALLB10 o b P o t , P* RESERVE STACK AND SET STACKPOINTERS * o P o PALLB70 EQU * o P IFT CREDIT-MMUPAG=1 o P LDR* A1,A8 GET T:A-ADDRESS o
0x422548…4226dc Dummy {f00=0x0141, f01=0x0190, f02=»E o r PALLB80 EQU * p P ST A4,STKB,A1 SET STACKBASE p P STR A4,A1 STACK POINTER p B P CALL MOVING ALLOCATE STACK p b P ST A2,STKE,A1 SET STACK-END p P XIF p P IFT CREDIT+MMUPAG=2 p P ELR A1,A8 GET T:A-ADDRESS p P EL A3,CSE,A1 GET ST
0x4226dc…422870 Dummy {f00=0x0141, f01=0x0190, f02=»ZE p n P CALL MOVING ALLOCATE STACK q " P ES A2,STKE,A1 STORE STACK END q . " P EL A3,STKB,A1 GET STACK SIZE q T " P ADR A2,A3 COMPUTE STACK BASE q z . P SUK A2,2 ADDRESS TO LAST WORD IN STACK =1 q $ P ES A2,STKB,A1 STORE STACK BASE q * P ESR A2,A1 STO
0x422870…422a04 Dummy {f00=0x0141, f01=0x0190, f02=» ** q p 4 P** ** r 4 P** MOVE T:A AND UPDATE DATA SET ADDRESSES IN ** r P 4 P** FORMAT CONTROL BLOCK ** r 4 P** ** r 4 P** INPUT : A8=T
0x422a04…422b98 Dummy {f00=0x0141, f01=0x0190, f02=»ART ** r h 4 P** OUTPUT: A2=NEW T:A-ADDRESS ** s 4 P** WORKREGS: A1-A4 ** s H 4 P************************************************ s P s PMOVT:A EQU * s P IFT CREDIT-MMUPAG=1 s P LDR* A1,A8 GET T:A-ADDR
0x422b98…422d2c Dummy {f00=0x0141, f01=0x0190, f02=»WATFST A3=LENGTH s P AD A1,CIA,A1 FROM-ADDRESS t P CALL MOVING t : P LDR* A4,A8 t N " P SU A2,CIA,A4 NEW T:A-ADDRESS t b $ P SU A1,CIA,A4 'OLD' T:A-ADDRESS t P t 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS IN FCB * t P t P LD A3,FCD,A
0x422d2c…422ec0 Dummy {f00=0x0141, f01=0x0190, f02=»TASK DATA PROCESSING? t z P RF(Z) MOVT05 NO! u : P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDRESS) u 8 PMOVT05 EQU * u v P ADS A4,FCBDD1,A3 u P ADS A4,FCBDD2,A3 u PMOVT10 RTN A14 u P XIF u P IFT CREDIT+MMUPAG=2 u P u P ELR
0x422ec0…423054 (5, 168) Dummy {f00=0x0141, f01=0x0190, f02=»DISPL. TO START u P ADK A3,WATFST A3=LENGTH v P ADR A1,A10 FROM-ADDRESS v 8 P CALL MOVING v X P ELR A4,A8 v l P EL A10,CIA,A4 v ~ P SUR A2,A10 NEW T:A-ADDRESS v " P SUR A1,A10 'OLD' T:A-ADDRESS v 8 P* COMPUTE AND STORE ADDRESSES TO DATA-SETS
0x423054…4231e8 Dummy {f00=0x0141, f01=0x0190, f02=»EAL TASK DATA PROCESSING? v ~ P RF(Z) MOVT05 NO! w " 8 P SUR A4,A1 ADJUST FOR OLD RELOCATION (OLD T:A-ADDR.) w < PMOVT05 EQU * w x P ADR A3,A2 START OF FCB w P TL* MMTO,13 LOAD TO-TABLE w P EL A10,FCBDD1,A3 w P ADR A10,A4 w P ES A10,FCBD
0x4231e8…42337c Dummy {f00=0x0141, f01=0x0190, f02=»TN A14 w P XIF x P EJECT x P x ( P x 0 P x 8 6 P** C M P A D R ** x @ 6 P** ** x z 6 P** ** x 6 P** COMPARE ADDRESSES. RES
0x42337c…423510 Dummy {f00=0x0141, f01=0x0190, f02=» ** x b 6 P** A9 ** y 6 P** OUTPUT: RESULT IN A14-STACK ** y F 6 P************************************************** y P y PCMPADR EQU * y P TNM A11,A9 y P RF(NN) CMPA10 y P CWR
0x423510…4236a4 Dummy {f00=0x0141, f01=0x0190, f02=»T=0 y P EJECT z D P*************************************************************** z D P* * z b D P* ICBMVD - INDICATE CURRENT BLOCK MOVED * z D P* ===================
0x4236a4…423838 Dummy {f00=0x0141, f01=0x0190, f02=»IN: MOVCOM * z D P* * { : D P* ENTRY: A8 - FIRST T:A POINTER * { D P* A6 - SECOND T:A POINTER
0x423838…4239cc Dummy {f00=0x0141, f01=0x0190, f02=» * { Z D P* EXIT: CORRESPONDING BIT IN CURRENT STATCK POINTER * | D P* IN T:A IS SET * | Z D P* * | D P* WORK REGISTERS: A1,A2
0x4239cc…423b60 Dummy {f00=0x0141, f01=0x0190, f02=» * | z D P* * } 2 D P*************************************************************** } z P EJECT } PICBMVD EQU * } P LDKL A1,/8000 SET BIT 0 } 6 P LD
0x423b60…423cf4 (5, 169) Dummy {f00=0x0141, f01=0x0190, f02=»UK A2,1 DECREMENT BIT COUNTER } P RB IBAM10 ~ & P* ~ 8 & P* UPDATE MOVED MASK IN FIRST T:A ~ B P* ~ l P XIF ~ v P IFT CREDIT-MMUPAG=1 ~ & PIBAM20 LDR* A2,A8 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK ~ , P ORR A3,A1 INDICATE CURR
0x423cf4…423e88 Dummy {f00=0x0141, f01=0x0190, f02=»* A2,A6 GET T:A POINTER ~ $ P LDR* A3,A2 GET MOVED BLOCK MASK , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED H * P STR A3,A2 STORE NEW MOVED BLOCK MASK x P XIF P IFT CREDIT+MMUPAG=2 $ PIBAM20 ELR A2,A8 GET T:A POINTER $ P ELR A3,A2 GET MOV
0x423e88…42401c Dummy {f00=0x0141, f01=0x0190, f02=»MOVED MASK IN SECOND T:A P* P ELR A2,A6 GET T:A POINTER * $ P ELR A3,A2 GET MOVED BLOCK MASK L , P ORR A3,A1 INDICATE CURRENT BLOCK MOVED t * P ESR A3,A2 STORE NEW MOVED BLOCK MASK P XIF P IFF CREDIT=0 P RTN A14 P EJE
0x42401c…4241b0 Dummy {f00=0x0141, f01=0x0190, f02=» * ` J P* CHKMVD - CHECK IF BLOCK ALREADY MOVED * J P* ===================================== * l J P* * J P
0x4241b0…424344 Dummy {f00=0x0141, f01=0x0190, f02=» * V J P* ENTRY: A8 - POINTER TO T:A * J P* BIT - BIT NUMBER IN CWB- OR UWB-MASK * b J P* * J P* EXIT:
0x424344…4244d8 Dummy {f00=0x0141, f01=0x0190, f02=»* L J P* WORK REGISTER: A1,A2 * J P* * X J P* SUBROUTINES: * J P*
0x4244d8…42466c Dummy {f00=0x0141, f01=0x0190, f02=» EJECT PCHKMVD EQU * P IFT CREDIT-MMUPAG=1 " P LDR* A1,A8 GET T:A POINTER > $ P LDR* A1,A1 GET MOVED BLOCK MASK b P XIF P IFT CREDIT+MMUPAG=2 P ELR A1,A8 GET T:A POINTER $ P ELR A1,A1 GET MOVED BLOCK MASK P XIF P
0x42466c…424800 Dummy {f00=0x0141, f01=0x0190, f02=»LL A1,1 NEXT BIT IN MOVED BLOCK MASK $ P SUK A2,1 DECREMENT BIT COUNTER , P RB CHKM10 T PCHKM20 ADK A1,0 SET CR f * P CFI A14,PSW,A13 PUT CONDITION IN PSW P RTN A14 P EJECT P P : P***** S * U * P * E * R * L
0x424800…424994 (5, 170) Dummy {f00=0x0142, f01=0x018e, f02=» ** d : P** ** : P** CALCULATES BIT NUMBER SAT IN MASK-WORD ** P : P** INPUT : A7=MASK WORD ** : P** OUTPUT: BIT=BIT NUMBER ** :
0x424994…424b28 Dummy {f00=0x0142, f01=0x0190, f02=» PSHIFT EQU * " P CM BIT,A13 RESET BIT COUNTER P LDR A7,A7 > P RF SHIF20 P & PSKIFTA EQU * ENTRY: CONTINUE SHIFT b PSHIF10 IM BIT,A13 P SLL A7,1 PSHIF20 EQU * $ P RF(Z) SHIF30 NO MOORE BITS SAT P RB(NN) SHIF10 *
0x424b28…424cbc Dummy {f00=0x0142, f01=0x0190, f02=»L T ** z 4 P** ** " 4 P** ** Z 4 P** MULTIPLICATION (A2) X A3(), A2#0 ** 4 P** ** 4 P** IN
0x424cbc…424e50 Dummy {f00=0x0142, f01=0x0190, f02=»****************** r PMULT EQU * P ST A3,MUL,A13 , " P STR A2,A14 SAVE A2 TEMPORARY B P LDK A3,0 h PADD AD A3,MUL,A13 z P SUK A2,1 P RB(NZ) ADD P LDR* A2,A14 P RTN A14 P P IFT MMUPAG=1 P EJECT
0x424e50…424fe4 Dummy {f00=0x0142, f01=0x0190, f02=» ** 4 P** FIND LAST USED ENTRY IN MM-TAB. SCAN ** * 4 P** FROM LOW ADDRESS. NOT USED ENTRY=0. ** b 4 P** ** 4 P** INPUT :A3=MM-TABLE ADDRESS ** 4
0x424fe4…425178 Dummy {f00=0x0142, f01=0x0190, f02=»TAB=A3 ** z 4 P** A1=CONTENTS OF 1:ST USED ENTRY ** " 4 P*********************************************** Z P PMMENT EQU * P LDR A9,A3 GET TABLE ADDRESS 6 P SUKL A9,MMBEG ADJUST A9 (LOOKS LIKE TTAB POINTER)
0x425178…42530c Dummy {f00=0x0142, f01=0x0190, f02=»1,/FC00 P RB(Z) MMEN10 2 P ST A3,LSTPAG,A9 SAVE FIRST FREE PAGE-ADDRESS & P RTN A14 P XIF l P IFF CREDIT=0 x P EJECT P 2 P** G E T T A B ** 2 P** **
0x42530c…4254a0 Dummy {f00=0x0142, f01=0x0190, f02=» ** | 2 P** INPUT :A8=POINTER TO T:A IN T:ATAB ** " 2 P** OUTPUT:A2=TTAB-ADDRESS ** X 2 P** A1=TID ** 2 P** WORKREGS:A3,A4,A10 ** 2 P**************
0x4254a0…425634 (5, 171) Dummy {f00=0x0142, f01=0x018e, f02=»D A1,T:ATID,A10 GET TID TO MATCH " P LD A12,T:DAD,A10 T:D-ADDRESS ( P XIF N P IFT MMUPAG=1 Z P ELR A10,A8 T:A-ADDRESS p P EL A1,T:ATID,A10 GET TID P EL A12,T:DAD,A10 P XIF & PGETTTB EQU * ENTRY. INPUT: A1=TID $ P LD A4
0x425634…4257c8 Dummy {f00=0x0142, f01=0x0190, f02=» * P LDR A3,A1 SAVE A1 (DEBUGGING PURPOS) P LDK A1,LMP5 TID ERROR 2 P CALL ERROR P " PGETT20 LDR* A2,A4 TTAB-ADDRESS d P CW A1,TTB:PP,A2 TCL EQUAL? P RB(NE) GETT10 NO! P ST A2,TTAB,A13 SAVE P RTN A14 P IFF CREDIT=0
0x4257c8…42595c Dummy {f00=0x0142, f01=0x0190, f02=» ** d 8 P** ** 8 P** QUEUE TASK VIA 'ACTOT' AND SWITCH TO LEVEL ** L 8 P** 0, ENB. ** 8 P** ** 8 P** INPU
0x42595c…425af0 Dummy {f00=0x0142, f01=0x0190, f02=»SS ** x 8 P*************************************************** $ P ` PQUEJOB EQU * h P* QUEUE THIS TASK (THIS TID) | P 0 P LDKL A3,RETUR GET RETURN (FROM A15) ADDRESS P ADR A3,A13 RELOCATE P STR A3,A15 PUT
0x425af0…425c84 Dummy {f00=0x0142, f01=0x0190, f02=»ABORT INDICATOR $ P LD A8,SCTLAC GET P:MTAB-ADDRESS P LDR A5,A2 GET TTAB-ADDRESS @ P IFT CREDIT-MMUPAG=1 d , P LD A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK A4,DWBFST+4 8 P ADR A4,A12 ADD T:A-ADDR
0x425c84…425e18 Dummy {f00=0x0142, f01=0x0190, f02=»ETT40 ALL! P LD A1,4,A4 DISP ADDRESS P LD A3,2,A4 SEGMENT NUMBER 2 , P LD A2,NTPA,A8 INTERPRETER START ADDRESS T P XIF P IFT CREDIT+MMUPAG=2 , P EL A4,WATLEN,A12 NUMBER OF WAT-ELEMENTS P ADK A4,2 P ANKL A4,/FFFE P ADK
0x425e18…425fac Dummy {f00=0x0142, f01=0x0190, f02=»1 DEC. NUMBER OF STARTPOINTS P RF(N) GETT40 ALL! $ P EL A1,4,A4 DISP ADDRESS > P EL A3,2,A4 SEGMENT NUMBER ^ , P EL A2,NTPA,A8 INTERPRETER START ADDRESS P XIF P IFF CREDIT=0 P CF A15,ACTOT $ P ADK A4,STPREC NEXT START-POINT
0x425fac…426140 Dummy {f00=0x0142, f01=0x0190, f02=» P EJECT P 4 P** M O V M M T ** 4 P** ** R 4 P** ** 4 P** MOVE MM-TABLE ** 4 P**
0x426140…4262d4 (5, 172) Dummy {f00=0x0142, f01=0x0190, f02=» ** j 4 P** OUTPUT:A2=START OF MM-TABLE IN TTAB ** 4 P** A9=TTAB ADDRESS ** J 4 P** WORKREGS:A1,A3 ** 4 P*********************************************** P PMOVMMT EQU *
0x4262d4…426468 Dummy {f00=0x0142, f01=0x0190, f02=»T FILL LAST ENTRY ADDRESS P TL* MMFROM,A13 RELOAD TABLE " P RTN A14 F P XIF V P IFF CREDIT=0 b P EJECT x @ P************************************************************ @ P* *
0x426468…4265fc Dummy {f00=0x0142, f01=0x0190, f02=» R @ P* ====================================================== * @ P* * L @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B.
0x4265fc…426790 Dummy {f00=0x0142, f01=0x0190, f02=» * @ P* A7 - POINTER TO NEXT FREE ENTRY IN REAL T:ATAB * @ P* * T @ P* EXIT: * @ P*
0x426790…426924 Dummy {f00=0x0142, f01=0x0190, f02=» * d @ P* SUBROUTINES: GETTTB * @ P* * @ P************************************************************ PCHTAID EQU * 2 P LDR A8,A7 GET N
0x426924…426ab8 Dummy {f00=0x0142, f01=0x0190, f02=» ENTRY IN REAL T:ATAB | P IFT CREDIT-MMUPAG=1 ( P LDR* A1,A8 GET POINTER TO REAL T:A : $ P LD A1,T:ATID,A1 GET TCL IN T:A f . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB 6 P LD A3,TTB:SA+26,A2 GET CO
0x426ab8…426c4c Dummy {f00=0x0142, f01=0x0190, f02=» COMPUTE ENTRY IN AUX. TID TABLE ~ , P STR A4,A3 SAVE TID FOR DEBUGGER PURPOSE ( P XIF X P IFT CREDIT+MMUPAG=2 d & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB ( P LDR
0x426c4c…426de0 Dummy {f00=0x0142, f01=0x0190, f02=»TID IN TTAB *79-04-11* v 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS 2 P ES A4,T:ATID,A3 REPLACE TCL IN T:A *79-04-11* X 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT . P ADR A3,A8 COMPUTE ENTRY IN AU
0x426de0…426f74 (5, 173) Dummy {f00=0x0142, f01=0x0190, f02=»L SAVE AREA z P SUK A1,1 DECREMENT TCL P SUKL A8,2 DECREMENT 4 ( P SUK A6,1 DECREMENT NUMBER OF COPIES P P RB(P) CHT:20 NEXT COPY | PCHT:90 RTN A14 P EJECT P P 4 P************************************************ 4 P
0x426f74…427108 Dummy {f00=0x0142, f01=0x0190, f02=» ** x 4 P************************************************ P X 4 P* BUILD REAL T:A'S. COPY T:A'S ACCORDING TO * ` 4 P* SHADOW TABLE * 4 P* * 4 P
0x427108…42729c Dummy {f00=0x0142, f01=0x0190, f02=»A MONITOR END ADDRESS . P LD A8,T:ATOD,A13 T:ATAB PROTOTYP ADDRESS * P LD A7,T:ATNW,A13 REAL T:ATAB ADDRESS P P ADK A7,2 ~ P ST A8,SAVE03,A13 SAVE A8 & PSYA310 LD A8,SAVE03,A13 RESTORE A8 P ADKL A8,2 P CW A8,ENDADD,A13 ALL?
0x42729c…427430 Dummy {f00=0x0142, f01=0x0190, f02=»TTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB . : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) B " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA320 NO! P LDR A1,A10 GET T:A-ADDRESS 0 P ADKL
0x427430…4275c4 Dummy {f00=0x0142, f01=0x0190, f02=» STORE IN REAL T:ATAB P ADK A7,2 $ P LDR* A6,A5 GET NUMBER OF COPIES 0 P EJECT X PSYA340 SUK A6,1 f P RF(P) SYA345 NEXT TASK ~ 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS * PSYA345 LD A12,T:DA
0x4275c4…427758 Dummy {f00=0x0142, f01=0x0190, f02=»8,A7 CHANGE T:A TO COPY 2 P CALL GETTAB GET CORRESPONDING TTAB AND QUEUE P CALL QUEJOB QUEUE THIS TASK V 2 P ST A10,TTB:SA+26,A2 SAVE T:A-ADDRESS IN TTAB z " P LD A1,SCTOPT GET OPTION WORD P ANK A1,2 DISC PAGING? P RF(Z) SYA348 NO!
0x427758…4278ec Dummy {f00=0x0142, f01=0x0190, f02=»48 ADK A7,2 NEXT ENTRY IN REAL T:ATAB 2 P CALL TWBSWB MOVE TWB'S AND RESERVE FOR SWB'S . " P CALL ALLBUF ALLOCATE BUFFERS d P XIF P IFT CREDIT+MMUPAG=2 * P* GET ACTUAL MM-TABLE ADDRESS AND LOAD P P LDR A1,A5 * P AD* A1,SCTSFA
0x4278ec…427a80 Dummy {f00=0x0142, f01=0x0190, f02=»GETTAB GET CORRESPONDING TTAB : P ST A10,TTB:SA+26,A2 SAVE T:A ADDR. IN TTAB (SAVE-A13) & P LDR A1,A10 GET T:A-ADDRESS d 0 P ADKL A1,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A1,TTB:CB,A2 STORE IN TTAB 0 P LD A1,T:DSAV,A2 GET CLASS-LOCAL LAST
0x427a80…427c14 (5, 174) Dummy {f00=0x0143, f01=0x0190, f02=»ATA TABLE | , P* REMOVE TASK-LOCAL ENTRIES IN MM-TABLE P B P SUK A2,2 START OF TABLE J P LDKL A12,/FC00 j PSYA320 SUK A1,2 NEXT ENTRY P CWR A1,A2 ALL? P RF(E) SYA330 YES! P STR A12,A1 REMOVE ENTRY P RB SYA320 P
0x427c14…427da8 Dummy {f00=0x0143, f01=0x0190, f02=»L A1,T:ATID,A1 GET TID ( P ADK A7,2 NEXT ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES J PSYA340 SUK A6,1 r P RF(P) SYA345 NEXT TASK 2 P CALL CHTAID REPLACE TCL:S IN THIS TASK-CLASS P RB SYA310 NEXT TASK-CLASS PSYA345
0x427da8…427f3c Dummy {f00=0x0143, f01=0x0190, f02=» TO TTAB v P CALL MOVT:A MOVE T:A $ P ESR A2,A7 STORE IN REAL T:ATAB . @ P ST A2,TTB:SA+26,A9 PUT T:A-ADDRESS IN TTAB. A9=TTAB ADDRESS V P LDR A8,A2 GET T:A-ADDRESS 0 P ADKL A8,CSB ADDRESS TO CURRENT SEGMENT BASE " P ST A8,TTB:CB,A9 STORE I
0x427f3c…4280d0 Dummy {f00=0x0143, f01=0x0190, f02=»WB MOVE TWB'S & RESERVE FOR SWB'S P LD A1,MMTO,A13 GET TO-TABLE * . P ST A1,MMFROM,A13 CHANGE T:A ADDRESS-TABLE N P TLR A1 " P CALL ALLBUF ALLOCATE BUFFERS $ P LD A1,TTAB,A13 GET TTAB-ADDRESS * P CM LSTPAG,A1 CLEAR SAVE-AREA IN TTAB
0x4280d0…428264 Dummy {f00=0x0143, f01=0x0190, f02=» T:A t P XIF P IFF CREDIT=0 P RB SYA340 . P XIF @ P EJECT L PFINISH EQU *-REL Z P r P* ADJUST START OF FREE AREA z P PSYA350 EQU * P IFF CREDIT=0 * P LD A1,LSTADR,A13 GET END OF FREE AREA . P LD A14,SA
0x428264…4283f8 Dummy {f00=0x0143, f01=0x0190, f02=»2 P ORR A1,A2 P XIF P IFF CREDIT=1 ( P LD A1,SCTLAC > P XIF T P IFT MMUPAG-CREDIT=1 ` P ANKL A1,/03FF | P SLL A1,2 P XIF P ST A1,SCTEFA+2 P IFT CREDIT=1 P LD A1,FYSPAG,A13 P IFT MMUPAG-CRED
0x4283f8…42858c Dummy {f00=0x0143, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 ( P LD A1,FSTADR,A13 START OF FREE AREA $ P RF(NZ) SYA355 P P XIF f P LD A1,SCTSFA r PSYA355 ST A1,SCTSFA+2 P CM SCTSFA P IFT CREDIT=1 P EJECT D ?********************************************
0x42858c…428720 Dummy {f00=0x0143, f01=0x0190, f02=»E TABLE * l D ?* ========================= * $ D ?* * l D ?* REFERENCED IN: SYSLDA * D ?*
0x428720…4288b4 (5, 175) Dummy {f00=0x0143, f01=0x0190, f02=» SCTEFA - END OF FREE AREA * D P* SAVE29 - NUMBER OF SEGMENTS * D D ?* SCTNOP - NUMBER OF PAGES * D ?* SCTPSZ - PAGE SIZE
0x4288b4…428a48 Dummy {f00=0x0143, f01=0x0190, f02=» * d D ?* EXIT: PAGQUE - POINTER TO FIRST FREE PAGE BLOCK * D ?* PAGQUE+2 - POINTER TO LAST FREE PAGE BLOCK+2 * d D ?* * D ?* WORK REGISTERS:
0x428a48…428bdc Dummy {f00=0x0143, f01=0x0190, f02=»ES: * D ?* * < D ?* * D ?************************************************************
0x428bdc…428d70 Dummy {f00=0x0143, f01=0x0190, f02=»ATION? h P ABR(Z) A2 NO! " LD A1,SCTOPT GET OPTION WORD $ ANK A1,3 PAGING? J P ABR(Z) A2 NO! d * z L G* RESERV SPACE FOR PAGE BLOCKS CORRESPONDING TO CORE RESIDENT SEGMENTS * , ' LD A11,SCTSFA+2 GET START OF FREE AREA
0x428d70…428f04 Dummy {f00=0x0143, f01=0x0190, f02=» A7,0 RESET PAGE COUNTER PAG:10 EQU * , ' CW A7,SCTNOP EQUAL TO NUMBER OF PAGES? 4 RF(E) PAG:30 YES! d $ LDK A1,0 RESET NUMBER OF WORDS ~ PAG:20 EQU * " ADKL A11,2 INCLUDE NEXT WORD 0 + RF(Z) MEMOFL MEMORY OVERFLOW (64 KB LIM
0x428f04…429098 Dummy {f00=0x0143, f01=0x0190, f02=»RAM OVERWRITE z " RF(E) MEMOFL MEMORY OVERFLOW! RB PAG:20 < 0 ,PAG:25 ADK A7,1 INCREMENT PAGE BLOCK COUNTER N RB PAG:10 PAG:30 EQU * * 4 /* RESERV MEMORY PAGES IN UNUSED PART OF MEMORY 6 2* AND EXTEND PAGE TABLE WITH
0x429098…42922c Dummy {f00=0x0143, f01=0x0190, f02=»BITS OF 18-BITS ADDRESS p 4 P SLL A1,14 TWO MOST SIGN BITS OF 16-BITS ADDRESS 4 / LD A2,SCTEFA+2 GET BIT 2-18 OF 18-BITS ADDRESS X & ! SRL A2,2 SKIP TWO RIGHTMOST BITS , P ORR A1,A2 16 BITS PHYSICAL PAGE ADDRESS P LDR A3,A1 SAVE LD A2
0x42922c…4293c0 Dummy {f00=0x0143, f01=0x018e, f02=»RESS h ( # ANKL A2,/0300 MODIFY FOR PAGE SIZE P ANR A2,A3 EVEN 1-KB LIMIT 8 ( $ ORR A1,A2 MODIFY PAGE ADDRESS LIMIT Z P XIF P IFT CREDIT-MMUPAG=1 $ P LD A1,SCTEFA+2 END OF FREE AREA P LD A10,SCTPSZ PAGE SIZE P XIF P IFT C
0x4293c0…429554 (5, 176) Dummy {f00=0x0143, f01=0x0190, f02=» P CWR A10,A6 P RF PAG:33 PPAG:32 CWR A6,A10 * PPAG:33 RF(NG) PAG:40 D , P SUR A6,A10 COMPUTE ADDRESS TO NEXT PAGE ` LDR A1,A6 GET PAGE ADDRESS P IFT CREDIT+MMUPAG=2 * & ANKL A1,/C000 ADDRESS IN SYSTEM AREA? RF(NZ) PA
0x429554…4296e8 Dummy {f00=0x0143, f01=0x018e, f02=»PAG:34 LDK A1,0 END OF FREE AREA P XIF ( P IFT CREDIT=1 4 & "PAG:36 LDK A2,0 RESET WORD COUNTER J * %PAG:38 ADKL A11,2 RESERV ANOTHER WORD t RF(Z) PAG:40 64 KB LIMIT $ ADK A2,1 INCREMENT WORD COUNTER CWK A2,4 BLOCK COMPLETE?
0x4296e8…42987c Dummy {f00=0x0143, f01=0x0190, f02=» P RF(NN) PAG382 P CWR A11,A1 P RF PAG384 . PPAG382 CWR A1,A11 @ 4 PPAG384 RF(NG) PAG:40 NO MOORE MEMORY AVALIABLE! Z PPAG:39 EQU * " CWR A11,A8 PROGRAM OVERWRITE RB(NE) PAG:38 NO! PAG:40 EQU * 6 1 CW A7,SCTNOP
0x42987c…429a10 Dummy {f00=0x0143, f01=0x0190, f02=» RF(E) PAG:50 YES! MEMOFL LDKL A1,LMP3 * & OTR A1,0,SOP INDICATE MEMORY OVERFLOW : HLT HALT PROGRAM h 0 PPAG:45 CW A7,SAVE29,A13 MOORE PAGES WANTED? RF(E) PAG:50 YES! $ ADK A7,1 INCREMENT PAGE COUNTER LDR A9,A6 SAVE
0x429a10…429ba4 Dummy {f00=0x0143, f01=0x0190, f02=»NOP SAVE NUMBER OF PAGES ( $ LDR A1,A9 GET ADDRESS TO FIRST PAGE LDR A2,A1 SAVE L P XIF d P IFT CREDIT+MMUPAG=2 p * P SRL A1,14 BIT 0-1 OF 18-BITS ADDRESS ST A1,SCTEFA SAVE . * SLL A2,2 GET BITS 2-15 OF 18-BITS ADDRESS P X
0x429ba4…429d38 Dummy {f00=0x0143, f01=0x0190, f02=»TORE PAGE BLOCK ADDRESS IN SEGMENT BLOCKS * 2 LDK A1,0 < @ ; LD A8,SAVE22,A13 PHYSICAL ADDRESS TO FIRST CORE RES. SEGM. N . P LD A11,SAVE30,A13 START OF SEGMENT TABLE , ( LDK A4,0 RESET RESIDENT SEGMENT COUNTER & " LD A12,SCTPAG START
0x429d38…429ecc Dummy {f00=0x0143, f01=0x0190, f02=» GET STATUS . ) RF(NN) PAG:65 SEGMENT NOT LOADED IN CORE * & ST A12,6,A11 STORE PAGE BLOCK ADDRESS F , ' STR A1,A12 RESET QUEUE POINTER FORWARD t . ) ST A1,2,A12 RESET QUEUE POINTER BACKWARD $ ST A8,4,A12 STORE PAGE ADDRESS . ) ST A11,6,
0x429ecc…42a060 Dummy {f00=0x0143, f01=0x0190, f02=»DKL A12,8 NEXT PAGE BLOCK 4 /PAG:65 SUK A6,1 DECREMENT SEGMENT BLOCK COUNTER " RB(P) PAG:60 Z * p < 8* INITIATE PAGE BLOCK FOR FREE PAGES AND LINK TO PAGQUE z * CWR A4,A7 ANY FREE BLOCKS? P RF(E) PAG:90 NO! 4 / ST A1
0x42a060…42a1f4 (5, 177) Dummy {f00=0x0143, f01=0x0190, f02=» d LDK A2,0 . *PAG:70 ST A11,2,A12 STORE BACKWARD POINTER $ ST A9,4,A12 STORE PAGE ADDRESS L $ ST A2,6,A12 INDICATE PAGE FREE t * & ADK A4,1 INCREMENT PAGE BLOCK COUNTER CWR A4,A7 LAST PAGE BLOCK? RF(E) PAG:80 YES! , '
0x42a1f4…42a388 Dummy {f00=0x0143, f01=0x0190, f02=»DR A12,A1 NEXT PAGE BLOCK ADR A9,A10 NEXT PAGE " RB PAG:70 @ PAG:80 EQU * R & ! LDKL A1,PAGQUE POINTER TO PAGQUE f $ STR A1,A12 STORE IN LAST BLOCK & " ST A12,PAGQUE+2 STORE IN PAGQUE+2 PPAG:90 EQU * PPAGEX EQU *-REL
0x42a388…42a51c Dummy {f00=0x0143, f01=0x0190, f02=»DIT=0 , P LD A14,SCTLAC TRUE START OF APPLICATION P XIF > P =1 J P =1 X P =1 f P SUKL A14,8 ADJUST FOR MAP t * P ADKL A13,SYA360 CONTINUATION ADDRESS $ P LDK A1,0 INDICATE SYSLOAD ENDED P OTR A1,0,SOP $ P LD A1
0x42a51c…42a6b0 Dummy {f00=0x0143, f01=0x0190, f02=»3,SYA370 RESTORE PROGRAM BASE OINTER P* , P* INIT A15 STACK 6 P* P P LD A15,SCTSTB Z P SUKL A15,4 p P P* START APPLICATION P . P LD A1,IHRTC GET INTERRUPT ADDRESS FOR RTC P ST A1,SAVRTC,A13 SAVE 4 P LDKL A1
0x42a6b0…42a844 Dummy {f00=0x0143, f01=0x0190, f02=» INITIALIZE DEVICES P CF A15,SAVE8 SAVE REGISTERS P* @ F P* WAIT APPROXIMATELY 0.62 SECONDS BEFORE BRANCHING TO DISPATCHER J P* P LDKL A1,/FFFF SET COUNTER PDELAY SRC A2,31 P SUK A1,1 P RB(NZ) DELAY P INH
0x42a844…42a9d8 Dummy {f00=0x0143, f01=0x0190, f02=»ES =1 ~ P* =1 P CIO A1,0,SOP =1 $ P ABL TDISP BRANCH TO DISPATCHER : P =1 b P =1 p P =1 ~ P =1 P* * P* TEMPORARY INTERRUPT ROUTINE FOR RTC P* PIHRTCO EQU *-REL P RIT RTCDA P R
0x42a9d8…42ab6c Dummy {f00=0x0143, f01=0x0190, f02=» *** 6 P** SYSLOAD PART 2.A ** * 6 P** ** d 6 P************************************************* P 6 P* BUILD COMMON AND TASKCLASS DATA AREA
0x42ab6c…42ad00 Dummy {f00=0x0143, f01=0x0190, f02=»*********************************************** P 8 PPART2A EQU *-REL @ P X 0 P******************************************** ` 0 P*** *** 0 P** S U B R O U T I N E S ** 0 P************
0x42ad00…42ae94 (5, 178) Dummy {f00=0x0144, f01=0x0190, f02=» ** | 4 P** ** $ 4 P** GET T:D - ADDRESS ** 4 P** ** 4 P** INPUT : A8=POINTER TO T:A (IN T:ATAB) ** 4 P**
0x42ae94…42b028 Dummy {f00=0x0144, f01=0x0190, f02=»DIT-MMUPAG=1 P LDR* A12,A8 T:A ADDRESS P LD A12,T:DAD,A12 4 P XIF N P IFT CREDIT+MMUPAG=2 Z P ELR A12,A8 T:A ADDRESS v P EL A12,T:DAD,A12 P XIF P IFF CREDIT=0 P AD A12,MOVADD,A13 RELOCATE P RTN A14 P E
0x42b028…42b1bc Dummy {f00=0x0144, f01=0x0190, f02=» ** f 6 P** ** 6 P** SEARCH T:A'S FOR COMMON WORK BLOCKS THAT ** J 6 P** ARE COMMON TO AT LEAST TWO T:A'S, AND MOVE ** 6 P** TO COMMON AREA ** 6 P**
0x42b1bc…42b350 Dummy {f00=0x0144, f01=0x0190, f02=»ASK ** l 6 P** ENDADD=ENDADDRESS OF T:ATAB ** 6 P** TADISP=W.B.-ADDR DISPLACEM. IN T:A ** P 6 P** WORK.REGS: A1-A6,A9,A11,A12 ** 6 P************************************************* P
0x42b350…42b4e4 Dummy {f00=0x0144, f01=0x0190, f02=»A-DISPL b ( P ST A11,SAVE06,A13 SAVE W.B.-ADDRESS ( P CM MOVED,A13 CLEAR MOVED INDICATOR < P LDR A6,A8 h PMOVC10 ADK A6,2 NEXT T:A z P CW A6,ENDADD,A13 ALL DONE? P RF(NE) MOVC30 NO PMOVC20 RTN A14 YES! P IFT CREDIT-MMUPAG=1
0x42b4e4…42b678 Dummy {f00=0x0144, f01=0x0190, f02=»D A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS P CW A2,BIT,A13 ENOUGHT? . 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A N . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P LDR* A11,A11 . P CW A11,SAVE06,A13 COMPARE W.B.-ADDRESSES P XIF
0x42b678…42b80c Dummy {f00=0x0144, f01=0x0190, f02=»,SAVE03,A13 SAVE T:D-ADDRESS TEMPORARY , P EL A2,WATLEN,A2 NUMBER OF WAT-ELEMENTS . P CW A2,BIT,A13 ENOUGHT? ^ 6 P RB(NG) MOVC10 TO FEW WAT ELEMENTS. TAKE NEXT T:A ~ . P AD A11,TADISP,A13 W.B.-ADDRESS TO EXAMINE P ELR A11,A11 . P CW A11,SA
0x42b80c…42b9a0 Dummy {f00=0x0144, f01=0x0190, f02=»D? n . P RF(NZ) MOVC50 YES! CHANGE ADDRESSES ONLY & P CALL MOVDT MOVE DESCRIPTOR-TABLE < & P ST A2,NEWAD1,A13 SAVE D.T.-ADRESS f P CALL MOVWB MOV WORK BLOCK P IM MOVED,A13 INDICATE MOVED P LD A4,UWB,A13 UWB-BLOCKS? P RF(Z) MOVC40 NO
0x42b9a0…42bb34 (5, 179) Dummy {f00=0x0144, f01=0x0190, f02=»CHADR CHANGE ADDRESSES . P CALL ICBMVD INDICATE CURRENT BLOCK MOVED P LDR A11,A8 SAVE T:A-POINTER P ( P ST A12,SAVE25,A13 SAVE T:A-ADDRESS t & P LDR A8,A6 REPLACE POINTER TO T:A * P LD A12,SAVE03,A13 REPLACE T:D-ADDRESS P CALL MOVDWB
0x42bb34…42bcc8 Dummy {f00=0x0144, f01=0x0190, f02=» G E T P R O ** 4 P** ** . 4 P** ** f 4 P** SEARCH U:BTAB PROTOTYPE AND GET NUMBER OF ** 4 P** COPIES. FILL REAL U:BTAB **
0x42bcc8…42be5c Dummy {f00=0x0144, f01=0x0190, f02=»T W.B. - ADDRESS ** ~ 4 P** OUTPUT: A2=NEW ADDRESS ** & 4 P** WORK-REGS: A1-A5,A9 ** ^ 4 P************************************************ P PGETPRO EQU * ( P LD A3,U:BTOD,A13 GET U:BT
0x42be5c…42bff0 Dummy {f00=0x0144, f01=0x0190, f02=»ENGTH d P RF(NN) GETP20 P LDK A1,LMP6 W.B. NOT FOUND! $ P CALL ERROR H PGETP20 EQU * P CW A11,UPADDR,A3 SAME W.B.? p , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A3,UP:REC NEXT P RB GETP10 P 0 P* GET NUMB
0x42bff0…42c184 Dummy {f00=0x0144, f01=0x0190, f02=»11 W.B.-LENGTH * P LC A5,UPNUMB,A3 GET NUMBER OF COPIES P ANK A5,/FF D , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT X . P AD A3,U:BTNW,A13 ADD TO NEW TABLE ADDRESS P LDR A9,A3 " P ST A4,URLENG,A9 STORE LENGTH * P ST A5,URNUMB,A9 STORE
0x42c184…42c318 Dummy {f00=0x0144, f01=0x0190, f02=»1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 * PGETP40 CALL MOVWB @ P SUK A5,1 Z P RB(NZ) GETP40 l P & P* UPDATE POINTER IN REAL U:BTAB * & P********************************* PGETP50 EQU * 6 P ST A2,URADDR,A9 S
0x42c318…42c4ac Dummy {f00=0x0144, f01=0x0190, f02=»:REC SUB RECORD LENGTH FRM TABLE LENGTH P RF(NN) GETP20 0 P LDK A1,LMP6 W.B. NOT FOUND! F P CALL ERROR j PGETP20 EQU * ~ ( P EL A10,UPADDR,A3 CHECK IF SAME W.B. P CWR A11,A10 , P RF(E) GETP30 YES! GET NUMBER OF COPIES P ADK A
0x42c4ac…42c640 Dummy {f00=0x0144, f01=0x018e, f02=» IN U:BTAB * p 0 P******************************************** P H PGETP30 EQU * P P EL A4,WBLEN,A11 W.B.-LENGTH d , P EL A5,UPNUMB-1,A3 GET NUMBER OF COPIES P ANK A5,/FF , P SU A3,U:BTOD,A13 GET TABLE DISPLACEMENT . P AD A3,U:BTN
0x42c640…42c7d4 (5, 180) Dummy {f00=0x0144, f01=0x0190, f02=» " P ES A4,URLENG,A9 STORE LENGTH & P TL* MMFROM,A13 RELOAD FROM TABLE * 0 P* COPY NUMBER OF WORKBLOCKS TO COMMON AREA * T 0 P******************************************** . P SUK A5,1 ONE ALREADY MOVED (IN 'MOVCOM') P RF(NP) GETP50 PGETP
0x42c7d4…42c968 Dummy {f00=0x0144, f01=0x0190, f02=»************* | PGETP50 EQU * P TL* MMTO,A13 * 6 P ES A2,URADDR,A9 ESORE ADDRESS TO FIRES IN U:BTAB @ P TL* MMFROM,A13 z P XIF P IFF CREDIT=0 P RTN A14 P EJECT P 2 P** M O V C L A
0x42c968…42cafc Dummy {f00=0x0144, f01=0x0190, f02=»B. ALREADY MOVED TO COMMON ** 2 P** AREA. IF NOT MOVE W.B. & D.T. AND ** & 2 P** CHECK IF ANY DWB'S ** 2 P** ** 2 P** A LOT OF WORKREGS. ** 2 P**********
0x42cafc…42cc90 Dummy {f00=0x0144, f01=0x0190, f02=»-ADDRESS TO A11 z & P CALL CHKMVD BLOCK ALREADY MOVED? P RF(NN) MVCL40 NO! B , PMVCL20 CALL SKIFTA GET NEXT BIT IN MASK P RB(NZ) MVCL10 PMVCL30 RTN A14 PMVCL40 CALL MOVDT P CALL MOVWB P LD A4,UWB,A13 UWB-SCANNING
0x42cc90…42ce24 Dummy {f00=0x0144, f01=0x0190, f02=»WB'S z P RB MVCL20 P EJECT P , P 8 6 P** C H A D R ** D 6 P** ** ~ 6 P** ** 6 P** CHANGE ADDRESS TO
0x42ce24…42cfb8 Dummy {f00=0x0144, f01=0x0190, f02=» ** f 6 P** INPUT : A6=POINTER IN T:ATAB TO T:A ** 6 P** NEWADR1=NEW D.T.-ADDRESS ** J 6 P** NEWAD2= NEW W.B.-ADDRESS ** 6 P** TADISP=DISPLACEMENT TO WB-ADDR ** 6 P** WORK.REGS: A
0x42cfb8…42d14c Dummy {f00=0x0144, f01=0x0190, f02=» CREDIT-MMUPAG=1 P LDR* A1,A6 T:A-ADDRESS . P AD A1,TADISP,A13 ADDRESS TO W.B.-ADDRESS 8 P LD A2,NEWAD2,A13 j P STR A2,A1 & P SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 P STR A2,A1 P XIF P IFT CREDIT+MMUP
0x42d14c…42d2e0 Dummy {f00=0x0144, f01=0x0190, f02=» SUK A1,2 ADDRESS TO D.T.-ADDRESS P LD A2,NEWAD1,A13 * P ESR A2,A1 D P XIF V P IFF CREDIT=0 b P RTN A14 x P XIF P IFT CREDIT+SWPBLK=2 P EJECT B P************************************************************** B P*
0x42d2e0…42d474 (5, 181) Dummy {f00=0x0144, f01=0x0190, f02=»* B:RSWT - BUILD REAL SWB CONTROL TABLE * B P* ===================================== * F B P* * B P* REFERENCED IN: SYSLDA
0x42d474…42d608 Dummy {f00=0x0144, f01=0x0190, f02=»BTAB * ^ B P* A5 - LENGTH OF REAL S:BTAB * B P* * Z B P* EXIT: * B P*
0x42d608…42d79c Dummy {f00=0x0144, f01=0x0190, f02=» * r B P* SUBROUTINES: * ( B P* * n B P************************************************************** P EJECT P
0x42d79c…42d930 Dummy {f00=0x0144, f01=0x0190, f02=» IN APPLICATION z P LDR* A3,A1 NUMBER OF TYPES P RF(Z) RSWBEX NO MOORE < P LDK A6,0 Z P SUK A5,2 SKIP LENGTH WORD l PRSWB10 ADK A1,2 NEXT TYPE P LDR* A4,A1 POINTER TO BLOCK P LCR A6,A4 NUMBER OF COPIES $ P LD A7,SWBLEN,A4
0x42d930…42dac4 Dummy {f00=0x0144, f01=0x0190, f02=»B IN BYTES r P XIF P IFT CREDIT+SWBMMU=2 & P ST A6,2,A2 STORE NUMBER OF COPIES : , P ST A7,4,A2 STORE LENGTH OF SWB IN BYTES d P XIF P IFT CREDIT+SWPBLK=2 & P SUK A5,6 DECREMENTS S:BTAB LENGTH ( P ADK A2,6 INCREMENT POINTER IN BLO
0x42dac4…42dc58 Dummy {f00=0x0144, f01=0x018e, f02=»OR EACH SWB TYPE p ( P* AND RESET ALL WORDS IN TID BLOCKS P* D PRSWB20 EQU * N ( P LDR A6,A2 GET ADDRESS TO TID BLOCK b $ P SUR A6,A8 COMPUTE DISPLACEMENT P IFT CREDIT+SWBMMU=2 P LD A1,2,A8 NUMBER OF COPIES P RF(Z) RSWB50 NO C
0x42dc58…42ddec Dummy {f00=0x0144, f01=0x0190, f02=» f . P SUK A5,2 DECREMENT LENGTH OF REAL S:BTAB $ P SUK A1,1 DECR. NUMBER OF COPIES : P RB(P) RSWB30 NEXT COPY b P XIF P IFT CREDIT+MMUSWB=3 $ P EL A1,2,A8 GET NUMBER OF COPIES P RF(Z) RSWB50 NO COPIES! * P ESR A6,A8 STORE POINT
0x42ddec…42df80 Dummy {f00=0x0144, f01=0x0190, f02=»REAL S:BTAB r ( P SUK A1,1 DECREMENT NUMBER OF COPIES P RB(P) RSWB40 NEXT COPY @ P XIF ` P IFT CREDIT+SWPBLK=2 l PRSWB50 ADKL A8,6 P CWR A8,A4 P RB(NE) RSWB20 " P LDR A5,A5 S:BTAB CONSISTENT? P RF(Z) RSWBEX YES P
0x42df80…42e114 (5, 182) Dummy {f00=0x0145, f01=0x018e, f02=»********************** " P* START OF PROGRAM PART 2.A * " P***************************** D P j P* LOAD BASE ADDRESS * r P********************* P* A5=START-ADDRESS P* A9=P:MTAB ADDRESS P* SAVE03=DDIV TO-ADDRESS P* SA
0x42e114…42e2a8 Dummy {f00=0x0145, f01=0x0190, f02=» ~ " P LDR A8,P LOAD TEMP. STACKBASE ( P ADK A5,2 ADD FOR RELOCATION ROUTINE . P CFR A8,A5 Z P* MOVE DDIV * l P & P LD A1,SAVE04,A13 GET FROM-ADDRESS $ P LD A2,SAVE03,A13 GET TO ADDRESS . P LDR A3,A9 GET P:MTAB START (=END OF DDIV
0x42e2a8…42e43c Dummy {f00=0x0145, f01=0x0190, f02=»OSGMT NO! ( P LDKL A8,0 RESET FSTADR IF SEGMENTS! P RF SEGMTS > 2 PNOSGMT LD A8,SCTSFA ALLOCATE BUFFERS FROM TOP P " PSEGMTS ST A8,FSTADR,A13 STORE PMOVNXT LDR* A4,A1 GET WORD P STR A4,A2 STORE P ADK A1,2 P ADK A2,2
0x42e43c…42e5d0 Dummy {f00=0x0145, f01=0x0190, f02=» MM-TABLE x P " P LDR A1,A9 GET P:MTAB ADDRESS $ P SRL A1,11 ADJUST FOR ADDRESSING @ P ANK A1,/1E h & P LDK A2,MMTAB-2 GET TABLE ADDRESS | P ADR A2,A13 RELOCATE " P ADR A1,A2 P:MTAB START ENTRY P LDKL A4,/FC00 PSYA205 CWR
0x42e5d0…42e764 Dummy {f00=0x0145, f01=0x0190, f02=» EQU * P* CHANGE TABLE-ADDRESSES P LD A4,MMFROM,A13 . P LD A5,MMTO,A13 H P ST A4,MMTO,A13 ` P ST A5,MMFROM,A13 x P XIF P IFF CREDIT=0 P ANKL A9,/FFFE EVEN ADDRESS , P ST A9,LSTADR,A13 SAVE END OF FREE AREA P
0x42e764…42e8f8 Dummy {f00=0x0145, f01=0x0190, f02=»RENT MM-TABLE z P ADR A3,A13 , P* FIND LAST USED ENTRY IN REAL MMUTAB * * P Z P CALL MMENT b P ST A9,TTAB,A13 v * P ST A1,FYSPAG,A13 SAVE PHYSICALL PAGE * P LD A3,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE * P CALL
0x42e8f8…42ea8c Dummy {f00=0x0145, f01=0x0190, f02=»SAVE NEW T:ATAB ADDRESS ~ P ADK A2,2 SKIP LENGTH WORD $ P LD A9,SCTLAC GET P:MTAB ADDRESS B $ P ES A2,T:ATAB,A9 STORE IN P:MTAB j $ P* RESERVE PLACE FOR T:AID TABLE P P LDR A3,A5 GET LENGTH P CALL MOVING P TL* MMTO,A13
0x42ea8c…42ec20 Dummy {f00=0x0145, f01=0x0190, f02=»ADJUST TABLE ADDRESS P ESR A2,A3 STORE IN P:MTAB P XIF > P IFF CREDIT=0 J ( P LD A3,SAVE06,A13 GET U:BTAB LENGTH ` P LDR A5,A3 SAVE P CALL MOVING RESERVE SPACE 4 P ST A2,U:BTNW,A13 SAVE NEW (REAL) U:BTAB ADDRESS P IFT CREDI
0x42ec20…42edb4 (5, 183) Dummy {f00=0x0145, f01=0x0190, f02=»,SAVE05,A13 GET LENGTH OF T:ATAB P LDR A5,A3 SAVE ( * P CALL MOVING RESERVE SPACE FOR T:ATAB @ " P STR A5,A2 STORE T:ATAB LENGTH n . P ST A2,T:ATNW,A13 SAVE NEW T:ATAB ADDRESS P ADK A2,2 & P ST A2,T:ATAB,A9 SAVE REAL ADDRESS P* RESE
0x42edb4…42ef48 Dummy {f00=0x0145, f01=0x018e, f02=»ENGTH-WORD z , P ST A2,T:AID,A9 STORE ADDRESS IN P:MTAB P XIF B P IFT CREDIT+MMUPAG=2 N $ P TL* MMTO,A13 SET CORRECT TABLE j P ESR A5,A2 STORE LENGTH P ADK A2,2 SKIP LENGTH WORD $ P ES A2,U:BTAB,A9 STORE IN P:MTAB P XIF P
0x42ef48…42f0dc Dummy {f00=0x0145, f01=0x0190, f02=» f P LDR A5,A3 SAVE P CALL MOVING P ST A2,S:BTNW,A13 4 P XIF N P IFT CREDIT+MMUSWB=3 Z P TL* MMTO,A13 v P ESR A5,A2 P ADK A2,2 P ES A2,S:BTAB,A9 P CALL B:RSWT P XIF P IFT CREDIT+SWBMMU=2 P STR
0x42f0dc…42f270 Dummy {f00=0x0145, f01=0x018e, f02=»AD TABLE | P XIF P IFF CREDIT=0 P EJECT 4 P B P* BUILD COMMON DATA AREA * N P************************** p P* SEARCH CWB'S: P ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS P IFT CREDIT-MMUPAG=1 P LDR* A3,A
0x42f270…42f404 Dummy {f00=0x0145, f01=0x0190, f02=» 0 P ST A3,ENDADD,A13 SAVE END OF T:ATAB ADDRESS PSYA210 EQU * < & P CM UWB,A13 INDICATE CWB-SCANNING P P ADKL A8,2 z P CW A8,ENDADD,A13 ALL DONE? P RF(E) CLADAT YES! $ P CALL T:DADD T:D-ADDRESS TO A12 P IFT CREDIT-MMUPAG=1
0x42f404…42f598 Dummy {f00=0x0145, f01=0x0190, f02=» P CALL SHIFT SUPER-LOOPA PSYA220 RF(Z) UWBCOM ALL! ( P CALL MOVCOM H P CALL SKIFTA P RB SYA220 p P EJECT P P PUWBCOM EQU * P* SEARCH UWB'S: P* & P IM UWB,A13 INDICATE UWB-SCANNING P
0x42f598…42f72c Dummy {f00=0x0145, f01=0x0190, f02=» CREDIT=0 P CALL SHIFT " PSYA230 RB(Z) SYA210 ALL DONE! & PSYA235 CALL MOVCOM L PSYA240 CALL SKIFTA f P RB SYA230 P EJECT P * P* TASK CLASS DATA CONFIGURATION PART * * P************************************** P
0x42f72c…42f8c0 Dummy {f00=0x0145, f01=0x0190, f02=»TE CWB x ( P ADKL A8,2 STEP TO NEXT T:A ADDRESS P CW A8,ENDADD,A13 : P RF(E) SYA270 ALL T:A'S DONE T ( P CALL T:DADD GET T:D ADDRESS TO A12 x P P* CALCULATE LENGTH OF T:D P 2 P LD A1,WATLEN,A12 NUMBER OF BYTES-1 IN DBLKTAB
0x42f8c0…42fa54 (5, 184) Dummy {f00=0x0145, f01=0x0190, f02=»NTS n P ADR A3,A12 ADD T:D-ADDRESS P LDR* A3,A3 . 0 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH F P CALL MULT AND MULTIPLY z P ADK A3,2 'NUMBER-WORD' P ADR A3,A1 =>LENGTH P LDR A1,A12 FROM-ADDRESS P CALL MOVING MOVE
0x42fa54…42fbe8 Dummy {f00=0x0145, f01=0x0190, f02=» P IFT CREDIT+MMUPAG=2 ( P* INITIATE MM-ADDRESS TABLE POINTER $ P P $ P LD A1,SCTSFA SHADOW TABLE START X & P AD* A1,SCTSFA ADDRESS TABLE START P ST A1,SAVE06,A13 SAVE " PSYA250 CM UWB,A13 INDICATE CWB ( P ADKL A8,2 STEP TO NEXT T:
0x42fbe8…42fd7c Dummy {f00=0x0145, f01=0x0190, f02=»E MM-TABLE " P* FILL MM-TABLE ADDRESS TABLE P 8 P LD A1,SAVE06,A13 @ & P ADK A1,2 INCREMENT TABLE POINTER Z P ST A1,SAVE06,A13 RESTORE P STR A2,A1 FILL TABLE ( P CALL T:DADD GET T:D ADDRESS TO A12 4 P ST A12,T:DSAV,A9 SAVE '
0x42fd7c…42ff10 Dummy {f00=0x0145, f01=0x0190, f02=» ADK A1,2 P ANKL A1,/FFFE EVEN ADDRESS ( P ADK A1,DWBFST+4 ADD DISPL. TO FIRST 6 , P LDR A3,A1 GET NUMB. OF START-POINTS... b P ADR A3,A12 . P ELR A3,A3 . 0 P LDK A2,STPREC GET STARTPOINTS RECORD LENGTH P CALL MULT AND MULTIPLY
0x42ff10…4300a4 Dummy {f00=0x0145, f01=0x0190, f02=»1,A8 GET T:A ADDRESS * P ES A2,T:DAD,A1 ESORE NEW T:D ADDRESS " P EL A7,CWBMSK,A12 GET CWBMASK J P XIF p P IFF CREDIT=0 | P CALL MOVCLA P EJECT P P P* TASK CLASS DATA UWB'S * P*************************
0x4300a4…430238 Dummy {f00=0x0145, f01=0x0190, f02=»DIT+MMUPAG=2 P EL A7,UWBMSK,A12 P XIF . P IFF CREDIT=0 : P CALL MOVCLA P P EJECT d P r P ~ " P* MOVE DT:S OF SWB'S & TWB'S * " P****************************** P PSYA260 EQU * P IFT CREDIT-MMUPAG=1
0x430238…4303cc Dummy {f00=0x0145, f01=0x0190, f02=»UPAG=2 P EL A7,SWBMSK,A12 P RF(Z) SYA265 NONE ( P CALL SKRITT B PSYA265 EL A7,TWBMSK,A12 V P XIF v P IFF CREDIT=0 P RB(Z) SYA250 P CALL SKRITT P RB SYA250 P PSYA270 RF PRODAT P EJECT P
0x4303cc…430560 Dummy {f00=0x0145, f01=0x0190, f02=» MOVE D.T ** 4 P** ** 6 4 P*********************************************** n PSKRITT EQU * P CALL SHIFT PNO RF(NZ) NES P RTN A14 PNES CALL GETWB
0x430560…4306f4 (5, 185) Dummy {f00=0x0145, f01=0x0190, f02=» P & P* BUILD TASKDATA PROTOTYPE AREA * & P********************************* : PPRODAT EQU * d P =00001 x , P LD A1,SAVE02,A13 BUGGER TASK INCLUDED? P RF(Z) SYA275 NO! 2 P CALL GETTTB GET TTAB ADDRESS. TID 'TB' IN A1 &
0x4306f4…430888 Dummy {f00=0x0145, f01=0x018e, f02=»E MMU TABLE P XIF P IFF CREDIT=0 , P LDK A3,2 RESERV ONE WORD FOR TRABUG-T:A 6 P CALL MOVING GET P:BAS f P IFT CREDIT-MMUPAG=1 & P LD A1,SCTLAC GET START OF P:MTAB P LD A1,P:BAS,A1 GET P:BAS $ P STR A1,A2 SAVE IN TRABUG'S
0x430888…430a1c Dummy {f00=0x0145, f01=0x018e, f02=» 0 P ST A2,TTB:CB,A8 SAVE ADDRESS TO CSB-POINTER PSYA272 EQU * 8 2 P SUKL A2,CSB ADD DISPL. TO CURRENT SEGMENT BAE L P ST A2,TTB:SA+26,A8 SAVE A13 P IFT CREDIT+MMUPAG=2 & P LD A1,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT T
0x430a1c…430bb0 Dummy {f00=0x0145, f01=0x0190, f02=» & P TL* MMFROM,A13 RELOAD DDIV TABLE P XIF =00001 . P IFF CREDIT=0 =00001 D PSYA275 EQU * b P =00001 v P =00001 0 P IM SWITCH,A13 INDICATE: -NO MORE D.T. MOVE! $ P LD A8,T:ATOD,A13 T:ATAB ADDRESS PSYA280 ADKL A8,2
0x430bb0…430d44 Dummy {f00=0x0145, f01=0x0190, f02=»T:DAD,A12 . 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S P H " P* CALCULATE LENGTH OF DSCB'S * T " P*** *** z P P LDR* A1,A8 GET T:A-ADDRESS & P LD A3,DATLEN,A12 A12=T:D-ADDRESS P LDK A2,DSCBL
0x430d44…430ed8 Dummy {f00=0x0145, f01=0x0190, f02=»EMENT r P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) 0 , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD Z 6 PSYA285 ST A2,CIA,A1 SAVE DISPLACEMENT TO T:A-START " P LD A2,STKB,A1 GET STACK SIZE $ P ST A2,CSE,A1 AND SAVE TEMPORA
0x430ed8…43106c Dummy {f00=0x0145, f01=0x0190, f02=»OCATE BUFFERS P CALL MOVT:A MOVE T:A * P STR A2,A8 STORE NEW ADDRESS IN T:ATAB 4 P XIF b P IFT CREDIT+MMUPAG=2 n * P CALL GETTAB SET CORRECT TTAB-ADDRESS , P LD A12,T:DSAV,A2 GET 'OLD' T:D-ADDRESS P 2 P* GET LAST USED ENTRY IN
0x43106c…431200 Dummy {f00=0x0145, f01=0x0190, f02=»A13 $ P TSR A3 STORE TABLE IN WORK-AREA $ P TL MMDDIV,A13 RELOAD DDIV TABLE 4 P CALL MMENT GET ENTRY " P ST A3,T:DSAV,A2 SAVE IN TTAB z 0 P CALL TWBSWB MOVE TWB'S & RESERVE FOR SWB'S " P* CALCULATE LENGTH OF DSCB'S * " P***
0x431200…431394 (5, 186) Dummy {f00=0x0146, f01=0x018e, f02=»H x ( P CALL MULT A3() X (A2) RESULT IN A3 & P ES A3,CSN,A1 SAVE LENG OF DSCB'S 6 ( P EL A2,FCD,A12 GET FCB-DISPLACEMENT ` P RF(NZ) SYA285 FCB PRESENT & P SUR A2,A3 MOVD30E A3(DSCB-LENGTH) , P ADKL A2,T:ASTA INCREMENT TO FIRST WORD 6 P
0x431394…431528 Dummy {f00=0x0146, f01=0x0190, f02=» & P LD A2,SCTLAC GET START OF P:MTAB $ P TL* MMTO,A13 LOAD CORRECT TABLE . P EL A2,P:BAS,A2 GET P:BAS V & P TL* MMFROM,A13 RELOAD DDIV TABLE x P ES A2,CSB,A1 AND SAVE " P CALL ALLBUF ALLOCATE BUFFERS P CALL MOVT:A MOVE T:A * P ESR
0x431528…4316bc Dummy {f00=0x0146, f01=0x0190, f02=»M FLAG,A13 INDICATE REAL DATA-PART PROCESSING , P* INCLUDE DDIV AND PART 2.A IN FREE AREA 6 P f . P LDKL A2,PART2A NEW (RELATIVE) END ADDRESS n P ADR A2,A13 ABSOLUT DITO P IFT CREDIT+MMUPAG=2 P LDR A3,A2 P ANKL A3,/F000 $ P SRL
0x4316bc…431850 Dummy {f00=0x0146, f01=0x0190, f02=» P* MOVE T:ATAB P * P LD A2,T:ATNW,A13 GET REAL T:A-ADDRESS " P XIF P P IFT CREDIT-MMUPAG=1 * P ST A2,DATEND,A13 SAVE NEW END ADDRESS x P* MOVE T:ATAB P . P LD A2,T:ATNW,A13 GET REAL T:A-TAB ADDRESS P LDR* A1,A2 REAL L
0x431850…4319e4 Dummy {f00=0x0146, f01=0x0190, f02=»1 MOVE-LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 4 P CALL MOVE R P XIF d P IFT CREDIT+MMUPAG=2 p $ P TL* MMTO,A13 LOAD CORRECT TABLE & P ELR A1,A2 GET REAL T:ATAB LENGTH P TL* MMFROM,A13 RELOAD TABLE P ADR A
0x4319e4…431b78 Dummy {f00=0x0146, f01=0x0190, f02=» GET LENGTH P SUR A2,A3 TO-ADDRESS P ST A2,T:ATOD,A13 SAVE 2 P CALL XMOVE P P XIF d P IFF CREDIT=0 p P P* CONTINUE IN PART 2.B * P * P LDKL A5,PART2B RELATIVE START ADDRESS P ADR A5,A13 ADD BASE ADDRESS P
0x431b78…431d0c Dummy {f00=0x0146, f01=0x0190, f02=»***** h 2 P******* ******* 2 P** ** D 2 P* SYSLOAD PART 1 * z 2 P** ** 2 P*****
0x431d0c…431ea0 Dummy {f00=0x0146, f01=0x0190, f02=» 2 P* SHADOW-TABLES * 2 P* * : 2 P********************************************* p P P XIF P P * P************************************* * P***
0x431ea0…432034 (5, 187) Dummy {f00=0x0146, f01=0x0190, f02=»********************************* P EJECT * P 8 P D 6 P** C O N V R T ** P 6 P** ** 6 P** ** 6 P** CONVER
0x432034…4321c8 Dummy {f00=0x0146, f01=0x018e, f02=» ** r 6 P** OUTPUT: A1=BINARY RESULT ** 6 P** WORK.REGS: A3,A2 ** V 6 P************************************************** P PCONVRT EQU * P LDK A1,0 CLEAR RESULT REG
0x4321c8…43235c Dummy {f00=0x0146, f01=0x0190, f02=» P SLL A2,3 . P ADR A1,A2 .... P LDR A3,A5 0 P ANK A3,/F GET ONE'S B P ADR A1,A3 ^ P RTN A14 p P EJECT P 6 P** N X T B L K ** 6 P** ** 6
0x43235c…4324f0 Dummy {f00=0x0146, f01=0x0190, f02=» ** ~ 6 P** INPUT: A11=ADDRESS TO CURRENT BLOCK-START ** ( 6 P** OUTPUT:A11=ADDRESS TO NEXT BLOCK ** b 6 P** A2=BLOCK TYPE (T,C,U) IN RIGTH BYTE ** 6 P** WORKREGS: A1,A3-A5 **
0x4324f0…432684 Dummy {f00=0x0146, f01=0x0190, f02=»CLASSES f 2 PNXTCOM EQU * ENTRY: SKIP TO NEXT COMMON-BLOCK P LCR A5,A11 F P SLL A5,8 Z P LC A5,1,A11 l P CALL CONVRT P LDK A2,TDBREC P LDR A3,A1 P CALL MULT P ADR A11,A3 P ADKL A11,2 0 P LCR A5,A11 GET NU
0x432684…432818 Dummy {f00=0x0146, f01=0x0190, f02=» P LDR A3,A1 P CALL MULT P ADR A11,A3 A11=NEXT BLOCK ( P ADKL A11,2 J $ P LC A2,TDBBT,A11 GET BLOCK TYPE ^ P RTN A14 P P 8 P** G E T N U M ** 8 P**
0x432818…4329ac Dummy {f00=0x0146, f01=0x0190, f02=» ** b 8 P** ** 8 P** INPUT : A6=ADDRESS TO FIRST ASCII-CHARACTER ** J 8 P** OUTPUT: A5=BINARY VALUE ** 8 P** WORK.REGS: A2,A4 ** 8 P**********
0x4329ac…432b40 Dummy {f00=0x0146, f01=0x0190, f02=»SULT REG ~ P SUK A6,1 INIT POINTER PGET030 ADK A6,1 NEXT DIGIT . P LCR A2,A6 GET CHAR P P ANK A2,/F l PGET050 SUK A2,1 ~ " P RF(N) GET100 THIS DIGIT READY P ADR A5,A4 ACCUMULATE P RB GET050 , PGET100 SUK A4,90 NEXT INCREM
0x432b40…432cd4 (5, 188) Dummy {f00=0x0146, f01=0x0190, f02=»JECT P P* START OF PROGRAM PART 1 * P 8 4 P* SAVE02=POINTER TO 1:ST USER TASK TTAB-ADDRESS @ $ P* SAVE09=EXECUTION START ADDRESS x P " PSYSLDX EQU *-REL PROGRAM START P* P* INIT A15 STACK P* P LD A15,
0x432cd4…432e68 Dummy {f00=0x0146, f01=0x0190, f02=»NTIFICATION r P XIF P IFT MMUPAG=1 P TL MMTAB,A13 %%## 6 P EL A2,CREID,A2 P P XIF h 2 P CM SWITCH,A13 RESET SAVE-AREAS USED IN SYSLDM t P CM FLAG,A13 $ P CWK A2,'CR' CREDIT APPLICATION? ( P RF(E) SYA100 YES! START CONFIGURA
0x432e68…432ffc Dummy {f00=0x0146, f01=0x0190, f02=»CONTINUATION ADDRESS P ADR A4,A13 RELOCATE P STR A4,A15 PUT ON STACK 8 P LDKL A4,/00C0 X P STR A4,A15 PUT PSW ON STACK n P RTN A15 PSYA103 EQU *-REL P XIF P IFT MMUPAG-CREDIT=1 ( P LDKL A4,MMTAB GET MM-TABLE ADDRESS
0x432ffc…433190 Dummy {f00=0x0146, f01=0x0190, f02=»ENGTH OF TC:TAB | $ P LD A6,SAVE02,A13 1:ST USER TASK P LDR A3,A6 SAVE @ 0 P SU A3,SCTTCT GET DISPLACEMENT TO 1:ST USER X * P SUR A5,A3 => LENGTH OF TC:TAB TO SCAN P* P* INIT UNUSED MMU ENTRIES P* P LDKL A1,/FC00 P L
0x433190…433324 Dummy {f00=0x0146, f01=0x0190, f02=»F(E) SYA105 P SUK A4,2 P STR A1,A4 & P RB SYA:10 8 PSYA105 SUK A5,2 ALL? J P RF(N) SYA107 YES! f P LDR* A2,A6 TTAB-ADDRESS P CALL MOVMMT MOVE MM-TABLE P ADK A6,2 NEXT TTAB P RB SYA105 PSYA107 EQU * P XIF
0x433324…4334b8 Dummy {f00=0x0146, f01=0x0190, f02=»D A2,SCTLAC ADD RELOCATION ADDRESS P LDK A3,0 SEGMENT NUMBER * P CF A15,ACTOT QUEUE TASK J " P LDKL A1,FINISH END OF SYSLDA j P ADR A1,A13 P ABR A1 P XIF PSYA100 EQU * P IFF CREDIT=0 P EJECT P , P* RE
0x4334b8…43364c Dummy {f00=0x0146, f01=0x018e, f02=» LD* A2,SCTLAC GET START OF P:MTAB $ P LD A12,T:ATAB,A2 T:ATAB ADDRESS * & P SUKL A12,2 ADJUST FOR LENGTH-WORD R P ST A12,T:ATOD,A13 SAVE | , P LD A4,U:BTAB,A2 GET U:BTAB FROM P:MTAB " P SUK A4,2 INCLUDE LENGTH-WORD $ P ST A4,U:BTOD,A13 SAVE
0x43364c…4337e0 Dummy {f00=0x0146, f01=0x0190, f02=» n P ST A4,S:BTOD,A13 SAVE P XIF & P IFT CREDIT-MMUPAG=1 2 P* T:ATAB PROCESSING: N P j P LDR* A4,A12 T:ATAB-LENGTH v P LDR A3,A4 SAVE * P AD A3,SCTSFA ADD MONITOR END ADDRESS P* CHECK ADDRESSES P " P LDR A11
0x4337e0…433974 (5, 189) Dummy {f00=0x0146, f01=0x0190, f02=»RFLOW x P CALL ERROR ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS " P LDK A2,0 N P* CLEAR T:ATAB SHADOW-TABLE: ` P PZERO SUK A3,2 NEXT P STR A2,A3 CLEAR P CW A3,SCTSFA ALL? P RB(NE) ZERO NO! " P STR A4,A3 STORE TAB
0x433974…433b08 Dummy {f00=0x0146, f01=0x0190, f02=» SYA120 OK! P LDK A1,LMP4 NO TASK PRESENT P CALL ERROR 8 ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID L P SLL A2,8 . x P LC A2,TDBMC+5,A11 ... P CWK A2,'TB' BUGGER TASK? P RF(NE) SYA125 NO! : P ST A2,SAVE02,A13 INDICATE BUGGER
0x433b08…433c9c Dummy {f00=0x0146, f01=0x0190, f02=» ADKL A8,2 NEXT T:A P LDR* A6,A8 GET T:A ADDRESS P SUK A4,2 @ P RF(NZ) SYA135 R 0 P LDK A1,LMP5 NO PROTOTYPE FOUND (TID ERROR) h P CALL ERROR PSYA135 EQU * P CW A2,T:ATID,A6 TID EQUAL? P RB(NE) SYA130 NO! P SUR*
0x433c9c…433e30 Dummy {f00=0x0146, f01=0x0190, f02=»DDRESS v $ P SUKL A12,2 INCLUDE LENGTH WORD ! & P ST A12,T:ATOD,A13 SAVE IN SYSLDA ! 6 $ P EL A4,U:BTAB,A2 U:BTAB ADDRESS ! ` $ P SUK A4,2 ADJUST FOR LENGTH WORD ! $ P ST A4,U:BTOD,A13 SAVE IN SYSLDA ! P XIF ! P IFT CREDIT+MMUSWB=3 ! ( P EL A4,S
0x433e30…433fc4 Dummy {f00=0x0146, f01=0x0190, f02=»=2 ! ~ P* T:ATAB PROCESSING: " P " & P ELR A4,A12 T:ATAB-LENGTH " 2 P LDR A3,A4 SAVE " T 0 P SLL A3,1 RESERVE FOR MM-TABLE ADDRESS TABLE " l * P AD A3,SCTSFA ADD MONITOR END ADDRESS " P* CHECK ADDRESSES " P " $ P LDR A11,A3 END OF SHADO
0x433fc4…434158 Dummy {f00=0x0146, f01=0x0190, f02=» CALL ERROR " ( PSYA110 LDR A9,A2 GET P:MTAB ADDRESS # P* CLEAR T:ATAB SHADOW-TABLE: # @ P # d PSYA115 SUK A3,2 NEXT # p P CMR A3 CLEAR # P CW A3,SCTSFA ALL? # P RB(NE) SYA115 NO! # " P STR A4,A3 STORE TABLE LENGTH # ( P LD A11,SAVE
0x434158…4342ec Dummy {f00=0x0146, f01=0x0190, f02=»P4 NO TASK PRESENT # P CALL ERROR $ ( PSYA120 LC A2,TDBMC+4,A11 GET TASK ID $ . P SLL A2,8 . $ Z P LC A2,TDBMC+5,A11 ... $ n P CWK A2,'TB' BUGGER TASK? $ P RF(NE) SYA125 NO! $ 4 P ST A2,SAVE02,A13 INDICATE 'BUGGER TASK PRESENT' $ P RF SYA1
0x4342ec…434480 Dummy {f00=0x0146, f01=0x0190, f02=»ET T:A ADDRESS $ P SUK A4,2 % P RF(NZ) SYA135 % ( , P LDK A1,LMP5 NO PROT. FOUND (TID ERROR) % > P CALL ERROR % n PSYA135 EQU * % P EL A10,T:ATID,A6 GET TID % P CWR A2,A10 TID EQUAL? % P RB(NE) SYA130 NO! % P ELR A10,A12 % P SUR
0x434480…434614 (5, 190) Dummy {f00=0x0147, f01=0x0190, f02=»UMBER OF TASKS % z P SLL A5,8 & P LC A5,TDBNT+1,A11 & ( P CALL CONVRT & B ( P LD A2,SCTSFA START OF SHADOW TABLE & V P ADR A2,A4 & 6 P ADRS A1,A2 STORE NUMBER OF TASKS IN SHADOW TABLE & P & P* SKIP TO NEXT BLOCK & P & PSYA136
0x434614…4347a8 Dummy {f00=0x0147, f01=0x0190, f02=» & * P ADKL A11,1 STEP TO NUMBER OF COM.DEV. ' P CALL NXTCOM SKIP COMMON DEF ' 6 PSYA140 CCK A2,'UU' ' Z P RF(NE) SYA141 NO UWB'S ' t 2 P LD A8,U:BTOD,A13 GET MODIFIED U:BTAB ADDRESS ' 6 P CALL USWBTP INSERT NUMBER OF COPIES IN PROTOTYPE ' PSYA1
0x4347a8…43493c Dummy {f00=0x0147, f01=0x0190, f02=» ' ~ P CALL USWBTP ( P XIF ( P IFT CREDIT=1 ( ( P RF SYA152 ( > P EJECT ( P L P*********************************************************************** ( ^ L P* * ( L P* USWBTP
0x43493c…434ad0 Dummy {f00=0x0147, f01=0x0190, f02=»== * ( N L P* * ) L P* REFERENCED IN: SYSLDA * ) ^ L P* * ) L P* ENTRY:
0x434ad0…434c64 Dummy {f00=0x0147, f01=0x0190, f02=» * ) N L P* * * L P* EXIT: * * ^ L P* * * L P* WORK RE
0x434c64…434df8 Dummy {f00=0x0147, f01=0x0190, f02=» * * N L P* SUBROUTINES: GETNUM,ERROR * + L P* * + ^ L P*********************************************************************** + P + PUS
0x434df8…434f8c Dummy {f00=0x0147, f01=0x018e, f02=»T IN A5 + r $ P LDR A1,A5 SAVE NUMBER OF UWB'S , PSYA142 EQU * , 8 P LDR A12,A8 , L " P LDR* A3,A12 LENGTH OF U:BTAB , ` ( P ADKL A11,UDBFST-1 FIRST UDB RECORD , PSYA145 EQU * , 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG , P SLL A2,8 ,
0x434f8c…435120 Dummy {f00=0x0147, f01=0x0190, f02=» , h 0 PSYA147 SUK A3,UP:REC DEC. NUMBER OF PROT.'S - P RF(NN) SYA150 - < P LDK A1,LMP6 UWB NOT FOUND - R P CALL ERROR - t PSYA150 EQU * - ( P ADKL A12,UP:REC ADD TO NEXT RECORD - P RB SYA145 - $ PFRSTOK LC A2,2,A11 GET 3:RD CHAR - P CC A2
0x435120…4352b4 (5, 191) Dummy {f00=0x0147, f01=0x0190, f02=»P TO 'NUMBER OF BOCKS' IN CONFIG - | P LDR A6,A11 . ( P CALL GETNUM CONVERT . < 2 P SC A5,UPNUMB,A12 SAVE IN U:BTAB (SHADOWTABLE) . X . P SUK A1,1 DEC. NO OF TYPES IN CONFIG FILE . P RB(P) SYA142 . P ADKL A11,UDBFST-1 . P RTN A14 . P XIF .
0x4352b4…435448 Dummy {f00=0x0147, f01=0x0190, f02=»MBER OF UWB'S . ~ PSYA142 EQU * / P LDR A12,A8 START OF TABLE / * P ELR A3,A12 LENGTH OF U:BTAB / L ( P ADKL A11,UDBFST-1 FIRST UDB RECORD / p PSYA145 EQU * / 0 P LCR A2,A11 GET FIRST CHARACTER FROM CONFIG / P SLL A2,8 / P LC A2,1,A11 GET 2
0x435448…4355dc Dummy {f00=0x0147, f01=0x0190, f02=» A3,UP:REC DEC. NUMBER OF PROT.'S / P RF(NN) SYA150 0 * P LDK A1,LMP6 UWB NOT FOUND 0 @ P CALL ERROR 0 b PSYA150 EQU * 0 v ( P ADKL A12,UP:REC ADD TO NEXT RECORD 0 P RB SYA145 0 2 PFRSTOK LC A10,2,A11 GET 3:RD CHAR FROM CONFIG 0 0 P EL A2,UPN
0x4355dc…435770 Dummy {f00=0x0147, f01=0x0190, f02=» 0 P 1 P* PROTOTYPE FOUND * 1 P******************* 1 0 P 1 L 8 P ADKL A11,NAMUWB SKIP TO 'NUMBER OF BOCKS' IN CONFIG 1 X P LDR A6,A11 1 P CALL GETNUM CONVERT 1 4 P EL A10,UPNUMB-1,A12 SAVE IN U:BTAB SHADOW-TABLE 1 P ANKL A10,/F
0x435770…435904 Dummy {f00=0x0147, f01=0x0190, f02=»L A11,UDBFST-1 1 P RTN A14 2 P XIF 2 & P IFT CREDIT=1 2 2 P EJECT 2 H PSYA152 EQU * 2 V P 2 j & P* GET START OF SYSLOAD AFTER MOVE 2 r P 2 P XIF 2 P IFT CREDIT-MMUPAG=1 2 , P LD* A7,T:ATOD,A13 GET LENGTH OF T:ATAB 2 P XIF 2
0x435904…435a98 Dummy {f00=0x0147, f01=0x0190, f02=»FF CREDIT=0 2 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-TABLE 3 P ADK A7,1 3 H P ANKL A7,/FFFE EVEN ADDRESS 3 Z P 3 ~ P* CALCULATE RELOCATION 3 P 3 P LDR A2,A13 3 $ P SUR A2,A7 MOVE-LENGTH (SYSLDA) 3 P NGR A2,A2 3 4 P ST A2,SAVE04,
0x435a98…435c2c Dummy {f00=0x0147, f01=0x0190, f02=»DRESS (SYSLDA) 3 P ANKL A2,/F000 FIRST PAGE 4 ( P ST A2,MMREL1,A13 SAVE PHYSICAL PAGE 4 8 " P SRL A2,2 SHIFT FOR MM-PAGING 4 d P LDKL A11,MMDDIV 4 . P ADR A11,A13 GET MM-TABLE START ADDRESSS= 4 P LDK A3,16 SET COUNTER 4 ( PSYA157 STR A2,A11 STOR
0x435c2c…435dc0 Dummy {f00=0x0147, f01=0x0190, f02=» ANKL A7,/FFF GET DISPLACEM. IN PAGE 4 P XIF 5 , P IFF CREDIT=0 5 8 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 5 N . P ADKL A7,LENGT2 ADD LEN. OF SYSLDA TO MOVE 5 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS 5 P LDR A6,A7 5 $ P* CALCULATE DDIV
0x435dc0…435f54 (5, 192) Dummy {f00=0x0147, f01=0x0190, f02=»F P:MTAB 5 v P IFT CREDIT-MMUPAG=1 6 ( P LD A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 , P XIF 6 X P IFT CREDIT+MMUPAG=2 6 d ( P EL A3,NUMSEG,A1 NUMBER OF SEGMENTS 6 P XIF 6 P IFF CREDIT=0 6 . P LDK A2,SEGREC SEGMENT BLOCK RECORD LENGTH 6 P CALL MU
0x435f54…4360e8 Dummy {f00=0x0147, f01=0x0190, f02=»L,A13 AND ADJUST RELOCATION BASE 6 P IFT CREDIT+MMUPAG=2 7 ( P 7 D . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 7 L P XIF 7 ~ P IFT CREDIT-MMUPAG=1 7 , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 7 P XIF 7 P IFF CREDIT=0 7 " P SUR A6,A1 RELOC
0x4360e8…43627c Dummy {f00=0x0147, f01=0x0190, f02=»L (=REAL) LENGTH * 7 . P* REMOVE NOT USED ENTRIES IN T:ATAB * 8 " . P* A9=P:MTAB A6=MOVE-RELOC * 8 T . P***************************************** 8 P IFT CREDIT-MMUPAG=1 8 P 8 P* INITIATE POINTERS 8 P 8 ( P LD A8,T
0x43627c…436410 Dummy {f00=0x0147, f01=0x0190, f02=»CTSFA GET START OF T:ATAB SHADOW-TAB 8 P LDR A4,A5 2:ND POINTER 9 , & P LDR A2,A8 2:ND POINTER IN T:ATAB 9 L & P LDK A3,2 SET 'NEW' T:ATAB COUNTER 9 v . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 9 P 9 P* SCAN T:ATAB: 9 P 9 " PSYA160 ADKL A8,2
0x436410…4365a4 Dummy {f00=0x0147, f01=0x018e, f02=»A 9 ~ * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB : , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! : 8 " P ADR A11,A7 ACCUMULATE LENGTH : h , P ADK A3,2 INCREMENT 'NEW' T:ATAB LENGTH : , P ADK A4,2 UPDATE 2:ND SHADOW-TAB ADDRESS : ( P ADK A2,2 UPDATE 2:ND T:AT
0x4365a4…436738 Dummy {f00=0x0147, f01=0x018e, f02=» : z . P STR A10,A2 STORE ADDR. (EV. ON NEW PLACE) ; P* RELOCATE W.B.-ADDRESSES ; : P ; $ P LD A12,T:DAD,A1 GET T:D-ADDRESS ; d $ P LD A7,WATLEN,A12 LENGTH OF WAT ; . P ADK A1,WATFST+2 ADD TO FIRST W.B.-ADDRESS ; PSYA165 SUK A7,1 DEC. COUNTER ;
0x436738…4368cc Dummy {f00=0x0147, f01=0x0190, f02=» ; z P < P LD A8,T:ATOD,A13 T:ATAB < P ELR A3,A8 GET LENGTH < 0 P ADR A3,A8 END OF T:ATAB < N P ST A3,ENDADD,A13 SAVE < n 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB < P LDR A4,A5 2:ND POINTER < & P LDR A2,A8 2:ND POINTER IN T:ATAB < &
0x4368cc…436a60 Dummy {f00=0x0147, f01=0x0190, f02=»60 ADKL A8,2 TAKE NEXT T:A < $ P ADK A5,2 NEXT T:A IN SHADOW-TAB = " P CW A8,ENDADD,A13 = J P RF(E) SYA170 ALL DONE = d P ELR A1,A8 GET T:A = * P LDR* A7,A5 GET CONTENTS OF SHADOW-TAB = , P RB(Z) SYA160 THIS T:A IS NOT USED!!!!! = " P ADR A11,A7 AC
0x436a60…436bf4 (5, 193) Dummy {f00=0x0147, f01=0x0190, f02=» 2:ND T:ATAB ADDRESS = 8 P STR A7,A4 STORE NUMBER OF T:A'S (EV. ON NEW PLACE) > P ELR A10,A8 GET T:A-ADDRESS > X P ADR A10,A6 RELOCATE > | . P ESR A10,A2 STORE ADDR. (EV. ON NEW PLACE) > P* RELOCATE W.B.-ADDRESSES > P > $ P EL A12,T:DAD,A1 GET
0x436bf4…436d88 Dummy {f00=0x0147, f01=0x0190, f02=»ER > v P RB(N) SYA160 TAKE NEXT T:A ? P ELR A10,A1 GET ADDRESS ? . P ADR A10,A6 RELOCATE ? N P ESR A10,A1 ? j P XIF ? ~ P IFF CREDIT=0 ? P ADK A1,4 NEXT W.B. ? P RB SYA165 ? P ? PSYA170 EQU * ? P ST A6,MOVADD,A13 SAVE ? 8 P
0x436d88…436f1c Dummy {f00=0x0147, f01=0x0190, f02=» P IFT CREDIT-MMUPAG=1 @ $ P ST* A3,T:ATOD,A13 AND IN T:ATAB @ P XIF @ H P IFF CREDIT=0 @ T 0 P LDR A2,A11 GET NUMBER OF T:A'S ACCUMULATOR @ j ( P SLL A2,1 CALC. REAL LENGTH (BYTES) @ P ADK A2,2 @ 0 P ST A2,SAVE05,A13 SAVE TOT. NUMBER OF T:A'S
0x436f1c…4370b0 Dummy {f00=0x0147, f01=0x0190, f02=» LEN.) * @ x $ P******************************** A P A 8 P IFT CREDIT-MMUPAG=1 A @ $ P LD A5,U:BTOD,A13 U:BTAB ADDRESS A P LDR* A3,A5 LENGTH A P ST A3,SAVE06,A13 A P ADK A5,2 SKIP LENGTH WORD A P SUK A3,2 -"- A " PSYA180 RF(Z) SYA185 AL
0x4370b0…437244 Dummy {f00=0x0147, f01=0x0190, f02=»ABLE LENGTH A , P ST A3,SAVE06,A13 SAVE LENGTH OF U:BTAB B P ADK A5,2 B D P SUK A3,2 SUB LENGTH-WORD B V PSYA180 RF(Z) SYA185 B x P ELR A10,A5 GET ADDRESS B P ADR A10,A6 RELOCATE B P ESR A10,A5 B P XIF B P IFF CREDIT=0 B 8 P A
0x437244…4373d8 Dummy {f00=0x0147, f01=0x0190, f02=» CREDIT+MMUSWB=3 B P* C $ P* COMPUTE REAL LENGTH OF S:BTAB C " P* C J $ P LD A5,S:BTOD,A13 S:BTAB ADDRESS C T " P ELR A3,A5 LENGTH OF PROTOTYPE C | P LDR A2,A3 SAVE C " P SUK A3,2 EXCLUDE LENGTH WORD C , PSYA190 RF(Z) SYA199 ALL RECORDS SCANNED!
0x4373d8…43756c Dummy {f00=0x0147, f01=0x0190, f02=»BER OF COPIES C v P ANK A4,/FF GET RIGHT BYTE D . PSYA192 RF(Z) SYA194 NO MOORE OF THIS TYPE! D 8 P ADK A2,2 INCREMENT LENGTH D j ( P SUK A4,1 DECREMENT NUMBER OF COPIES D P RB SYA192 D 8 PSYA194 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE D $ P S
0x43756c…437700 Dummy {f00=0x0147, f01=0x0190, f02=» LDR* A3,A5 LENGTH OF S:BTAB PROTOTYPE D P LDR A2,A3 SAVE E . " P SUK A3,2 EXCLUDE LENGTH WORD E F , PSYA195 RF(Z) SYA199 ALL RECORDS SCANNED! E l $ P LD A4,2,A5 GET PROT. W.B.-ADDR. E P ADR A4,A6 RELOCATE E P ST A4,2,A5 STORE IT BACK E , P LD A4
0x437700…437894 (5, 194) Dummy {f00=0x0148, f01=0x0190, f02=»TH E x ( P SUK A4,1 DECREMENT NUMBER OF COPIES F P RB SYA196 F 6 8 PSYA198 ADK A5,UP:REC NEXT RECORD IN S:BTAB PROTOTYPE F H $ P SUK A3,UP:REC DECREMENT LENGTH F P RB SYA195 F P XIF F P IFT CREDIT+SWPBLK=2 F 0 PSYA199 ST A2,SAVE25,A13 SAVE COMPU
0x437894…437a28 Dummy {f00=0x0148, f01=0x0190, f02=» F P ADS A6,T:ATOD,A13 G P ADS A6,U:BTOD,A13 G " P IFT CREDIT+SWPBLK=2 G < P ADS A6,S:BTOD,A13 G X P XIF G r P IFT CREDIT-MMUPAG=1 G ~ P* CALCULATE NEW DDIV END G P G P LDR A5,A9 G P SU A5,SAVE04,A13 END-START G $ P AD A5,SAVE12,A1
0x437a28…437bbc Dummy {f00=0x0148, f01=0x0190, f02=» G v P H P LDK A4,MMDDIV H " P ADR A4,A13 GET TABLE ADDRESS H & & P LDR A5,A13 CALC. REAL RELOCATION H L P SU A5,SAVE12,A13 H v P SU A5,MMREL1,A13 H P SUR A4,A5 RELOCATE H P ST A4,MMTO,A13 AND SAVE H P LDK A4,MMTAB H $ P ADR A4,A13
0x437bbc…437d50 Dummy {f00=0x0148, f01=0x0190, f02=»D H ~ P SU A5,SAVE04,A13 ENT-START I $ P AD A5,SAVE12,A13 ADD NEW START I . P LDR A6,A5 I V 0 P ANKL A6,/F000 GET LOGICALL PAGE (MM-ENTRY) I h $ P SRL A6,11 ADJUST FOR ADDRESSING I . P ADK A6,MMDDIV ADD RELATIVE START ADDRESS I P ADR A6,A13 RELOCA
0x437d50…437ee4 Dummy {f00=0x0148, f01=0x0190, f02=»3 AND SAVE I P XIF J P IFF CREDIT=0 J P* CONTINUE IN PART 2 * J 4 P J R . P LD A2,SAVE12,A13 GET TO-ADDRESS (SYSLDA) J ^ ( P OR A2,MMREL1,A13 PHYSICALL ADDRESS J P LDR A5,A2 SAVE J 0 P LDKL A7,START2 GET EXECUTION START ADDRESS J P
0x437ee4…438078 Dummy {f00=0x0148, f01=0x0190, f02=»DIT-MMUPAG=1 J PNXTMOV LDR* A4,A1 GET WORD K P STR A4,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x438078…43820c Dummy {f00=0x0148, f01=0x403c, f02=»ITOR K t P XIF L PLDAEND EQU * L P END L ,@ L 84,A2 STORE WORD K 6 P ADK A1,2 K T P ADK A2,2 K f P SUK A3,2 DEC. LENGTH K x P RB(NN) NXTMOV K P XIF K P IFT CREDIT+MMUPAG=2 K P MVB A3 K P XIF K P IFF CREDIT=0 K P K
0x43820c…4383a0 Dummy {f00=0x0148, f01=0x2008, f02=» M -ADDRESS w v PHINKAS SUK A1,1 DEC. COUNTER x P RB(N) HINKA TAKE NEXT T:A x < P ADRS A6,A2 RELOCATE x ^ P ADK A2,4 NEXT W.B. x z P RB HINKAS x P x PSTICK EQU * x P* CONTINUE IN PART 2 * x P x P LDKL A1,START2 x " P A
0x4383a0…438534 (5, 195) Dummy {f00=0x0148, f01=0x0000, f02=»
[…0x7…]
0x439040…4391d4 (5, 196) Opaque[0x194]
0x4391d4…439368 # DirEnt {nam=»LDTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2918, f03=0x0000}
0x4391d4…439368 IdxSect {
0x4391d4…439368 f00 = 0x0148 // 0x4391d4 @0x0
0x4391d4…439368 f01 = 0x000c // 0x4391d6 @0x2
0x4391d4…439368 gno = [ // 0x4391d8 @0x4
0x4391d4…439368 [0x00]: C0x0148.0x3.0
0x4391d4…439368 [0x01]: C0x0149.0x0.0
0x4391d4…439368 [0x02]: C0x0149.0x1.0
0x4391d4…439368 [0x03]: C0x0149.0x2.0
0x4391d4…439368 [0x04]: C0x0149.0x3.0
0x4391d4…439368 [0x05]: C0x014a.0x0.0
0x4391d4…439368 ]
0x4391d4…439368 }
0x439368…4394fc Dummy {f00=0x0148, f01=0x0190, f02=» 2 P IDENT LDTASK REL 10.0 80-03-14 870105041000 P : P* B 6 P************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* LDTASK = LOAD TASK P* P* P* P* 6 P
0x4394fc…439690 Dummy {f00=0x0148, f01=0x0190, f02=» MEMORY MANAGEMENT SYSTEMS. P* $ & P* IT CONTAINS TWO ENTRY POINTS: . P* X . P* - LT:DSK USED IN DISC PAGING SYSTEMS b 8 P* - LT:SWB USED IN SWAPPABLE WORK BLOCK SYSTEMS P* P* P EJECT LDTASK P* P*
0x439690…439824 Dummy {f00=0x0148, f01=0x0190, f02=»T:SWB SWAPPABLE WORK BLOCK ENTRY P ENTRY TTABLD LOAD TASK TTAB ( 2 P ENTRY QLTDSK ACTIVATE LDTASK AT ENTRY LT:DSK L 2 P ENTRY QLTSWB ACTIVATE LDTASK AT ENTRY LT:SWB " P ENTRY QLTASK ACTIVATE LDTASK " P ENTRY LD:ECB LDTASK ECB AREA P ENT
0x439824…4399b8 Dummy {f00=0x0148, f01=0x0190, f02=»CK BASE x P EJECT LDTASK P* ( P* 2 P************* < P* EXTERNALS * R P************* h P* ~ P* " P EXTRN TLDS15 ENTRY IN TLDSEG " P EXTRN TLDS20 ENTRY IN TLDSEG 2 P EXTRN QMEXIT QUEUE TASK AND EXIT MONITOR
0x4399b8…439b4c Dummy {f00=0x0148, f01=0x0190, f02=» EXTRN PAGQUE FREE PAGE QUEUE & P EXTRN PAG:QB QUEUE LINK BACKWARDS & P EXTRN PAG:PA PAGE ADDRESS P ( P EXTRN PAG:SB SEGMENT BLOCK ADDRESS r P EXTRN SEG:FC FILE CODE & P EXTRN SEG:DS DISC SECTOR ADDRESS P EXTRN SEG:EL SEGMENT LENGTH
0x439b4c…439ce0 Dummy {f00=0x0148, f01=0x0190, f02=» & P EXTRN SWB:NS SWB LENGTH (SECTORS) $ P EXTRN ECBBA ECB BUFFER ADDRESS . & P EXTRN ECBRL ECB REQUESTED LENGTH V & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB
0x439ce0…439e74 (5, 197) Dummy {f00=0x0149, f01=0x018e, f02=»RN TTB:SP SEGTAB ADDRESS P* P EJECT LDTASK * P* B P* L ( P EXTRN SCTIPL PROGRAM LOADING DEVICE V . P EXTRN SCTIOE APPLICATION RESTART ADDRESS P EXTRN SCTPSZ PAGE SIZE * P EXTRN SCTLAP LOGICAL ADDRESS OF PAGES P EJECT
0x439e74…43a008 Dummy {f00=0x0149, f01=0x0190, f02=» . P***************************************** P* 6 . P* A PROGRAM VERSION USING TOSS MMU PAGING @ * P* IS OBTAINED BY SETTING MMUPAG EQU 1. r P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION
0x43a008…43a19c Dummy {f00=0x0149, f01=0x018e, f02=»SS SWAPPABLE WORK p 2 P* BLOCKS IS OBTAINED BY SETTING SWPBLK EQU 1. P* P PSWPBLK EQU 0 Z P* n P EJECT LDTASK x P* " P* LDTASK ECB AND BUFFER AREAS P* . PLD:ECB DATA 0,0,0,0,0,0,0 LDTASK ECB AREA P* 4 PLD
0x43a19c…43a330 Dummy {f00=0x0149, f01=0x0190, f02=» ( PLD:STB EQU *-2 LOAD TASK STACK BASE P* 0 P EJECT LDTASK : P* R P* TTABLD (LOAD TASK TTAB) P* ~ P IFT MMUPAG=1 P RES 16 LDTASK MMU TABLE P XIF P* P DATA 0 CURRENT SEGMENT BASE ( PPQEMTY DATA 0 PA
0x43a330…43a4c4 Dummy {f00=0x0149, f01=0x0190, f02=»INK v " P DATA '#L' TASK IDENTIFICATION P DATA 49 PRIORITY LEVEL 2 P DATA 0 PENDING POINTER R * P DATA /C4C0 PSW (PROGRAM STATUS WORD) r P DATA 0 DISPATCH ADDRESS 2 P DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 P DATA 0,0,0,0,0,0,
0x43a4c4…43a658 Dummy {f00=0x0149, f01=0x0190, f02=»********** P* P* D P* LT:DSK PERFORMS LOADING OF DISC RESIDENT SEGMENTS INTO CORE. & P* n * P* INPUT: A1 = SEGMENT BLOCK ADDRESS x 2 P* A3 = TTAB ADDRESS OF CALLING TASK P* P* * PLT:DSK EQU * LDTASK DISC
0x43a658…43a7ec Dummy {f00=0x0149, f01=0x0190, f02=»OR CALLING TASK (IF MMU) AND | P* REMOVE PAGE FROM PAGQUE $ P* F P LDR A7,A3 SAVE A3 P P LDR A5,A3 j P INH | P CF A15,TLDS15 , P LDR A5,A7 TTAB ADDRESS OF CALLING TASK * P ABL QMEXIT QUEUE TASK AND EXIT LDTASK P* P E
0x43a7ec…43a980 Dummy {f00=0x0149, f01=0x0190, f02=»* PLTD:00 EQU * ( P IM PQEMTY INDICATE PAGE QUEUE EMPTY P LKM J P DATA 5 PAUSE LDTASK V P* r " P* TAKE FIRST PAGE FROM PAGQUE | P* PLTD:05 EQU * P LD A2,PAGQUE+2 P CWK A2,PAGQUE $ P RB(E) LTD:00 NO PAGE AVAI
0x43a980…43ab14 (5, 198) Dummy {f00=0x0149, f01=0x0190, f02=» ADDRESS TO NEXT PAGE BLOCK ( P ST A4,PAGQUE+2 UPDATE QUEUE ANCHOR $ P LDR* A5,A2 PAGQUE ADDRESS P 4 P STR A5,A4 UPDATE QUEUE LINK FORWARD NEXT BLOCK r 0 P CMR A2 RESET QUEUE LINK FORWARD THIS BLOCK , P LDKL A6,/4000 SEGMENT UNDER LOADING BIT
0x43ab14…43aca8 Dummy {f00=0x0149, f01=0x0190, f02=» . P ORRS A6,A1 INDICATE SEGMENT UNDER LOADING 0 P ST A2,SEG:PB,A1 SET NEW PAGE BLOCK ADDRESS 6 2 P ST A1,PAG:SB,A2 SET NEW SEGMENT BLOCK ADDRESS j P* P IFT MMUPAG=1 P* 2 P* UPDATE MMU TABLE FOR CALLING TASK AND LDTASK P* (
0x43aca8…43ae3c Dummy {f00=0x0149, f01=0x018e, f02=»TASK l , P TS TTB:MT,A5 STORE IN LDTASK MMU TABLE 2 P LD A1,TTB:CB,A3 CURRENT SEGMENT BASE ADDRESS < P ST A1,TTB:CB,A5 r P LDR A1,A2 & P LDR A3,A5 TTAB ADDRESS OF LDTASK . P CF A15,TLDS20 UPDATE MMU TABLE FOR LDTASK 6 P TS TTB:MT,A3 ST
0x43ae3c…43afd0 Dummy {f00=0x0149, f01=0x0190, f02=» P* P ENB P LD A4,SCTPSZ PAGE SIZE & P SRL A4,1 CONVERT LENGTH TO WORDS : $ P LD A6,SEG:EL,A1 SEGMENT LENGTH d & P SRL A6,1 CONVERT LENGTH TO WORDS , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK * P LDR A9,A1 SAVE SEGMENT BLOCK ADDR
0x43afd0…43b164 Dummy {f00=0x0149, f01=0x0190, f02=»SEGTAB ADDRESS ~ . P LD A12,SEG:FC,A12 SEGMENT DISC FILE CODE , P LD A3,PAG:PA,A2 PAGE ADDRESS (PHYSICAL) H * P LD A2,SEG:DS,A1 SEGMENT DISC ADDRESS x P LDR* A1,A1 P ANK A1,/FF P* P IFT MMUPAG=0 2 P ST* A3,TTB:CB,A5 UPDATE C
0x43b164…43b2f8 Dummy {f00=0x0149, f01=0x0190, f02=» EJECT LDTASK P* P* SET ECB PARAMETERS " P* > & PLTD:20 EQU * ENTRY USED BY LT:SWB H " P LDKL A8,LD:ECB LD:ECB ADDRESS r . P ST A1,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A2,ECBCW2,A8 * P STR A12,A8 SET DISC FILE CODE IN ECB
0x43b2f8…43b48c Dummy {f00=0x0149, f01=0x0190, f02=» LDR A10,A6 . P ADKL A10,127 NEXT HIGHER MULTIPLE OF 128 P ANKL A10,/7F80 F . P SUR A4,A10 CHECK IF PAGE IS LARGE ENOUGH ^ * P RF(NN) LTD:25 OK, JUST ONE LKM NEEDED P LDR A10,A6 . P ANKL A10,/7F80 NEXT LOWER MULTIPLE OF 128 P*
0x43b48c…43b620 Dummy {f00=0x0149, f01=0x018e, f02=»:50 INTERMEDIATE BUFFER NEEDED 0 P ST A10,ECBRL,A8 SET REQUESTED LENGTH IN ECB & P* Z P IFT MMUPAG=0 d & P ST A3,ECBBA,A8 SET BUFFER ADDRESS z P XIF P* P EJECT LDTASK P* P* P IFT MMUPAG=1 P ECR A1,A3
0x43b620…43b7b4 (5, 199) Dummy {f00=0x0149, f01=0x0190, f02=» P EJECT LDTASK P* . P* SWB: CONVERT LOGICAL ADDRESS TO PHYSICAL & P* X P SRL A1,3 b & P ANK A1,/1E MMUTAB INDEX (5 BITS) t P ADR A1,A5 ADD TTAB ADDRESS * P LC A1,TTB:MT,A1 PHYSICAL PAGE ADDRESS P LDR A2,A1 P ANK A
0x43b7b4…43b948 Dummy {f00=0x0149, f01=0x018e, f02=» MMUPAG=1 P* 2 P* SEGMENT: CONVERT PHYSICAL ADDRESS TO LOGICAL P* R P SLL A3,2 P LDR A12,A3 n 6 P ANKL A12,/FFF CONVERT PHYSICAL ADDRESS TO LOGICAL P OR A12,SCTLAP P* PLTD:40 EQU * & P ST A3,ECBBA,A8 SET BUFF
0x43b948…43badc Dummy {f00=0x0149, f01=0x0190, f02=» h 2 P ADK A6,0 CHECK IF ANYTHING LEFT TO READ/WRITE 0 P RF(NP) LTD:70 SEGMENT/SWB HANDLING FINISHED > P* r P EJECT LDTASK | P* . P* NOT ROOM ENOUGH IN PAGE FOR LAST SECTOR: 0 P* READ IT TO MEMORY VIA INTERMEDIATE BUFFER P*
0x43badc…43bc70 Dummy {f00=0x0149, f01=0x0190, f02=»LDTASK BUFFER ADDRESS P ST A1,ECBBA,A8 P LDK A2,/80 6 2 P SCR A2,A8 INDICATE BUFFER NOW IN SYSTEM AREA J P ADK A2,/80 A2 := 256 6 P ST A2,ECBRL,A8 SET REQUESTED LENGTH TO ONE SECTOR P ECR A2,A10 * P ADS A2,ECBCW2,A8 UPDATE SEC
0x43bc70…43be04 Dummy {f00=0x0149, f01=0x0190, f02=»2 PAGE POINTER & P ADR A6,A6 CONVERT LENGTH TO BYTES P* @ P IFT MMUPAG=1 J 2 P MVSU A6 MOVE LAST PART OF SEGMENT/SWB TO PAGE ` P XIF P* P IFT MMUPAG=0 PLTD:65 EQU * P LDR* A10,A1 MOVE ONE WORD P STR A10,A2
0x43be04…43bf98 Dummy {f00=0x0149, f01=0x018e, f02=»* P EJECT LDTASK P* " P* , PLTD:70 EQU * 6 P IFT SWPBLK=1 J , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG ` P RF(Z) LTD:80 SWB HANDLING P XIF P* 8 P LDKL A4,/C000 INDICATE SEGMENT SUCCESSFULLY LOADED P XRR
0x43bf98…43c12c Dummy {f00=0x0149, f01=0x0190, f02=» n P IM ECBCW1,A8 P LDKL A2,/7FFF P ANS A2,ECBCW2,A8 4 P RB LTD:60 N P* ` P EJECT LDTASK j P* P* READ ONE SECTOR FROM DISC P* PLTD:90 EQU * P LKM P DATA 1 P LD A2,ECBRC,A8 RETURN CODE
0x43c12c…43c2c0 Dummy {f00=0x0149, f01=0x0190, f02=» IN PAGQUE AGAIN | P* PLTD:95 ANK A2,1 " P NGR A2,A2 : . P SUK A2,2 ERROR, SET RETURN CODE -2 OR -3 L . P ST A2,TTB:SA+14,A5 SET RETURN CODE IN A7 ~ P* P IFT SWPBLK=1 , P LDR A11,A11 CHECK DISC PAGING/SWB FLAG P RB(Z) L
0x43c2c0…43c454 (5, 200) Dummy {f00=0x0149, f01=0x0190, f02=» $ P LDK A4,1 INDICATE SEGMENT ERROR P SCR A4,A9 , . P LD A4,SCTIOE APPLICATION RESTART ADDRESS > . P ST A4,TTB:SA,A5 SET NEW DISPATCH ADDRESS p P RB LTD:80 P* P EJECT LDTASK P* P* P********** P* LT:SWB *
0x43c454…43c5e8 Dummy {f00=0x0149, f01=0x0190, f02=» A1 = SWAPPABLE WORK BLOCK ADDRESS 2 P* A3 = TTAB ADDRESS OF CALLING TASK , P* A4 = LKM DATA DIRECTIVE b P* P* * PLT:SWB EQU * LDTASK SWB HANDLING ENTRY P IFT SWPBLK=1 P IFT MMUPAG=1 P INH ( P LDKL A5
0x43c5e8…43c77c Dummy {f00=0x0149, f01=0x0190, f02=» P XIF P* P IFT SWPBLK=1 , P LDR A5,A3 TTAB ADDRESS OF CALLING TASK 4 " P LDR A7,A4 LKM DATA DIRECTIVE d 0 P SUR A11,A11 INDICATE SWB HANDLING (A11 = 0) * P LDR* A3,A1 DISC ADDRESS OF FIRST COPY P ANK A3,/FF P LD A4,S
0x43c77c…43c910 Dummy {f00=0x0149, f01=0x0190, f02=»ASK P* ! P* ! P LD A1,TTB:SA+14,A5 ! P ANK A1,/FF SWB COPY INDEX ! < P* ! ^ PLTS:10 EQU * ! h P SUK A1,1 ! | P* ! P IFT CPU852=1 ! P RF(NP) LTS:20 ! 4 P ADR A4,A2 COMPUTE DISC ADDRESS OF REQUESTED SWB ! P RF(O) LTS:1
0x43c910…43caa4 Dummy {f00=0x0149, f01=0x0190, f02=» ! P* " PLTS:20 EQU * " , P LDR A1,A3 DISC ADDRESS OF REQUESTED SWB " & P LDR A2,A4 " V P XIF " h P* " t P IFT SWPBLK=1 " ~ P IFT CPU852=0 " 2 P MUR A1 COMPUTE DISC ADDRESS OF REQUESTED SWB " P DAR A3 " P XIF " P* " P E
0x43caa4…43cc38 Dummy {f00=0x0149, f01=0x0190, f02=»RL A6,1 CONVERT SWB LENGTH TO WORDS " P LDR A4,A6 # , & P LD A12,SCTIPL SWB DISC FILE CODE # > ( P SUK A7,19 CHECK LKM DATA DIRECTIVE # h $ P ABL(Z) LTD:15 LOAD SWB REQUEST # : P LDKL A4,/7FFF PARAMETER TO AVOID INTERMEDIATE BUFFER # 2 P LDK A7,/95 PH
0x43cc38…43cdcc Dummy {f00=0x0149, f01=0x0190, f02=» # P* QLTDSK * $ P* QLTSWB * $ P********** $ , P* $ > P* $ H : P* THIS ROUTINE PERFORMS ACTIVATION OF THE LOAD TASK. $ R P* $ : P* ACTIVATION IS AT LT:DSK WHEN DISC PAGING REQUEST. $ B P* ACTIVATION IS AT LT:SWB WHEN SWAPPABLE WORK
0x43cdcc…43cf60 Dummy {f00=0x0149, f01=0x0190, f02=») $ ` 2 P* A3 = TTAB ADDRESS OF CALLING TASK % * P* A4 = LKM DATA DIRECTIVE (LT:SWB) % @ P* % n $ P* OUTPUT: A2, A5 ARE DESTROYED % x P* % P* % 0 PQLTSWB EQU * ACTIVATE LDTASK AT ENTRY LT:SWB % P IFT SWPBLK=1 % $ P LDKL A2,L
0x43cf60…43d0f4 (5, 201) Dummy {f00=0x014a, f01=0x4146, f02=»YSTEM % d P XIF & P* & 0 PQLTDSK EQU * ACTIVATE LDTASK AT ENTRY LT:DSK & $ $ P LDKL A2,LT:DSK DISPATCH ADDRESS & X P* & P EJECT LDTASK & P* & P* & PQLTASK EQU * & ( P LDKL A5,TTABLD LDTASK TTAB ADDRESS & P ABL ACTOT ACTIVAT
0x43d0f4…43d288 Dummy {f00=0x014a, f01=0x2008, f02=» ' NT LDTASK PRR 9.1 79-01-17 870105040910 END <@ H* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TLDSEG = LOAD SEGMENT P* P* P*
0x43d288…43d41c Dummy {f00=0x014a, f01=0x0190, f02=» REP045 YES 7 P SUK A4,1 COUNT RETRY 8 P RF(NP) REP060 GIVE UP 8 2 P CF A8,BKSP BACKSPACE 8 P " P CF A8,READSQ READ SEQ NUMBER 8 n P RB REP042 8 P* 8 P EJECT DRTC01 8 P* 8 P* 8 PREP045 SLC A2,3 8 P RF(NN) REP050 NOT T
0x43d41c…43d5b0 Dummy {f00=0x014a, f01=0x0190, f02=» NUMBER 8 v P CC A5,DWTBKC+1,A6 9 P RF(E) REPOK EQUAL 9 * P* 9 D PREP060 LD A7,DWTST,A6 9 N $ P ANK A7,8 TRY POSITIONING AGAIN? 9 l P RF(Z) REPER NO 9 , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT 9 P RB REP005 YES 9 P* 9 P* 9 6 PRE
0x43d5b0…43d744 Dummy {f00=0x014a, f01=0x0190, f02=»ND RECOVERY CORRECT 9 P RTN A8 : P* : , P EJECT DRTC01 : 6 P* : N P* : X P* D W T C 0 2 : b P* : z 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 02 : P* : P* : PDWTC02 EQU * TABLE ENTRY : P IFT DBCAS=2 : P DATA
0x43d744…43d8d8 Dummy {f00=0x014a, f01=0x0190, f02=»AD POINTER TO ADDRESS BLOCK : P DATA 0 TTAB ADDRESS ; $ $ P DATA 0 WAIT/ACTIVATE INDICATOR ; @ P DATA 0 TERMINAL QUEUE ; h IFT MMUPAG=1 ; & " DATA 0 SAVE AREA USER ECB ADDRESS ; P DATA ECBTC2 MMU ECB ADDRESS ; XIF ; P IFT DBCAS=2 ;
0x43d8d8…43da6c Dummy {f00=0x014a, f01=0x0190, f02=» P DATA 0,0,0,0 < PTCBUF2 RES DVBLEN+1 < P XIF < 6 P* < B P EJECT DRTC01 < L P* < d P* < n P* D W T C 0 1 < x P* < 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 < P* < P* < PDWTC01 EQU * TABLE ENTRY < P D
0x43da6c…43dc00 Dummy {f00=0x014a, f01=0x0190, f02=»TCAD POINTER TO ADDRESS BLOCK < P DATA 0 TTAB ADDRESS = & $ P DATA 0 WAIT/ACTIVATE INDICATOR = B P DATA 0 TERMINAL QUEUE = j IFT MMUPAG=1 = & " DATA 0 SAVE AREA USER ECB ADDRESS = P DATA ECBTC1 MMU ECB ADDRESS = XIF = & PDWTBKC EQU *-DWT
0x43dc00…43dd94 (5, 202) Opaque[0x194]
0x43dd94…43df28 # DirEnt {nam=»DRSW01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x24d8, f03=0x0000}
0x43dd94…43df28 IdxSect {
0x43dd94…43df28 f00 = 0x0126 // 0x43dd94 @0x0
0x43dd94…43df28 f01 = 0x0008 // 0x43dd96 @0x2
0x43dd94…43df28 gno = [ // 0x43dd98 @0x4
0x43dd94…43df28 [0x00]: C0x0126.0x3.0
0x43dd94…43df28 [0x01]: C0x0151.0x2.0
0x43dd94…43df28 [0x02]: C0x0151.0x3.0
0x43dd94…43df28 [0x03]: C0x0152.0x0.0
0x43dd94…43df28 ]
0x43dd94…43df28 }
0x43df28…43e0bc Dummy {f00=0x0126, f01=0x0190, f02=» 2 P IDENT DRSW01 REL 10.0 80-03-14 870105041000 P : B J * R * H C******************************************************************* f * $ * PHILIPS TERMINAL SYSTEM PTS * P* DRSW01 = DRIVER SWITCH
0x43e0bc…43e250 Dummy {f00=0x0126, f01=0x0190, f02=» L * * 4 0* THIS MODULE CONTAINS THE FOLLOWING FUNCTIONS 8 P* WHICH ARE COMMON PARTS FOR CHANNEL UNIT DRIVERS. T P* P* H D* -OUTPUT SEND ONE CHARACTER,SAVE A3-A5 AND RETURN TO DISPATCHER * 8 4* -OUTLIN
0x43e250…43e3e4 Dummy {f00=0x0126, f01=0x0190, f02=» IF INTERRUPT IS ALLOWED, RESTORE A3-A5 AND RETURN * TO USER VIA A5 < * ` : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 j * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * * -ECHO ECHO C
0x43e3e4…43e578 Dummy {f00=0x0126, f01=0x0190, f02=» *********** * * & P ENTRY OUTLIN SEND CHARACTER 0 : P ENTRY OUTPUT SAVE REGISTERS, SEND CHAR. AND DISPATCH T ( P ENTRY LDREG RESTORE A3-A5 ANDRETURN . P ENTRY LDREGE WAY BACK FROM ECHO HANDLING P ENTRY LDREGF RETURN
0x43e578…43e70c Dummy {f00=0x0126, f01=0x018e, f02=»HO t P ENTRY ECHO ECHO ROUTINE P ENTRY ECHEND END OF ECHO * EJECT L * Z * d $ ******************************** n $ * EXTERNAL TOSS MODULE ENTRIES * $ ******************************** * & P EXTRN SAVE8 SAVE REGIST
0x43e70c…43e8a0 Dummy {f00=0x0126, f01=0x0190, f02=» P EXTRN OUTSAL SALCUZ DRIVER P EXTRN OUTASC ASCU4Z DRIVER ( EJECT L * Z ****************** d * DWT PARAMETERS * ~ ****************** * * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTEC
0x43e8a0…43ea34 (5, 203) Dummy {f00=0x0151, f01=0x0190, f02=» A3 z P EXTRN DWTA4 SAVE AREA A4 P EXTRN DWTA5 SAVE AREA A5 . P EXTRN DWTSB2 STACK BASE 2 P " P EXTRN DWTECH ECHO DEVICE DWT r P* , P EXTRN ECHADR ECHO ADDRESS DISPLACEMENT * P EJECT P* P********************
0x43ea34…43ebc8 Dummy {f00=0x0151, f01=0x018e, f02=»ETTING X:A=0 P* PX:A EQU 1 PCECHO EQU X:A 0 P* F , P* BY SETTING X:B=1 DRIVER FOR LOCAL OR P $ P* REMOTE TERMINALS CAN BE USED P* PX:B EQU 1 PLRT EQU 01 P* 2 P* BY SETTING X:C=1 SALCUZ DRIVER CAN B
0x43ebc8…43ed5c Dummy {f00=0x0151, f01=0x0190, f02=» P* PX:D EQU 1 PASCU4Z EQU 00 P* 6 < P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION SET @ , P* IS OBTAINED BY SETTING CPU852 EQU 0 P* PCPU852 EQU 1 P* P EJECT P* P* O U T L I N P
0x43ed5c…43eef0 Dummy {f00=0x0151, f01=0x0190, f02=»PU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF : P* F P IFT CPU852=0 P " P MSR 8,A15 SAVE A1-A8 ON STACK f P XIF P* " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/F CHANNEL INDEX P* P IFT LRT=1 P SUK
0x43eef0…43f084 Dummy {f00=0x0151, f01=0x018e, f02=»7,/C P RF(N) OUTL10 P SUK A7,/3 " P ABL(N) OUTASC ASCU4Z 4 P XIF R P* ^ POUTL10 EQU * h P IFT SALCUZ=1 | P SUK A1,/F P ABL(E) OUTSAL SALCUZ P XIF P RF EXIT P EJECT P* P* O U T P U T
0x43f084…43f218 Dummy {f00=0x0151, f01=0x0190, f02=» POUTPUT EQU * P ANK A2,/FF P LDR A1,A2 0 P SUK A1,/82 STX ? B P RF(E) OUTP05 YES P SUK A1,/15 ETB ? v P RF(NE) OUTP10 NO POUTP05 EQU * " P LDR* A1,A6 CHANNEL PARAMETER P ANK A1,/C LT? P RF(E) LDRE10
0x43f218…43f3ac Dummy {f00=0x0151, f01=0x0190, f02=» EJECT P* P* P* S T R E G " P* 8 : P* INDICATE INTERRUPTS ALLOWED AND SAVE A3-A5 IN DWT B P* P* PSTREG EQU * P INH P LDKL A1,/100 0 P ORS A1,DWTST,A6 INDICATE INTERRUPTS ALLOWED $ P ST A3,DWT
0x43f3ac…43f540 Dummy {f00=0x0151, f01=0x0190, f02=»CT P* P* L D R E G P* * > P* IF INTERRUPT ALLOWED RESTORE A3-A5 FROM DWT AND RETURN 4 & P* VIA A5. ELSE GO TO DISPATCHER. v P* P* PLDREG EQU * P LD A3,DWTST,A6 P ANKL A3,/100 P RB(Z) EXIT
0x43f540…43f6d4 (5, 204) Dummy {f00=0x0151, f01=0x0190, f02=» P* P* PLDREGF EQU * & P LD A5,DWTA5,A6 A5 , PLDREGE EQU * V & P LD A3,DWTA3,A6 RELOAD REGISTER A3 j & P LD A4,DWTA4,A6 A4 $ PLDRE10 LD A7,DWTOR,A6 GET ORDER P ANK A7,/FF P LD A8,DWTECB,
0x43f6d4…43f868 Dummy {f00=0x0151, f01=0x0190, f02=» ONE CHARACTER FROM ECB-BUFFER z P* & P* ON ENTRY: 0 P* F P* A3 = BUFFER INDEX P P* A8 = ECB-ADDRESS n P* P* ON EXIT: P* P* A2 = CHARACTER * P* A1 = 0 IF LAST CHARACTER ELSE # 0 P* J
0x43f868…43f9fc Dummy {f00=0x0151, f01=0x018e, f02=»ESTED LENGTH P SUR A1,A3 * P RF(NP) GCH010 LAST CHARACTER REACHED & " P LD A2,2,A8 GET BUFFER ADDRESS T P ADR A2,A3 z P LCR A2,A2 CHAR. TO A2 P ANK A2,/FF $ P ADK A3,1 INCREMENT BUFFER INDEX P RF GCH020 , PGCH010 ST A3,6,A
0x43f9fc…43fb90 Dummy {f00=0x0151, f01=0x0190, f02=» P* P* P* E C H O , E C H E N D P* > < P* SUBROUTINE TO ECHO CHARACTER CONTAINING TWO PARTS, H . P* ONE GENERAL AND ONE DEVICE-DEPENDENT P* 4 P* PART ONE: FIND DWT-ADDRESS OF ECHO-DEVICE, 2 P*
0x43fb90…43fd24 Dummy {f00=0x0151, f01=0x018e, f02=»ORE CHARACTERS t 2 P* CORRESPONDING TO ONE CHARACTER 4 P* TO BE STORED IN INPUT ECB-BUFFER L P* P* 4 P* PART ONE FOLLOWS AND PART TWO CAN BE FOUND 4 P* IN THE DRIVER MODULE CORRESPONDING TO ECHO P
0x43fd24…43feb8 Dummy {f00=0x0151, f01=0x0190, f02=» p 6 P* THE ECHO-ROUTINE SHOULD BE TERMINATED WITH A P* JUMP TO 'ECHRTN'. B P* ` PECHEND EQU * j P* ~ P IFT CECHO=1 P* $ P LDKL A7,/8000 INDICATE END I/O P XIF PECHO EQU * P IFT CECHO=1 & P ST A3,D
0x43feb8…44004c Dummy {f00=0x0151, f01=0x0190, f02=») RETUR NO ECHO REQUESTED 0 P LDR A4,A6 SAVE DWT-ADDRESS OF INPUT DEVICE " 2 P LD A6,DWTECH,A6 DWT-ADDRESS OF OUTPUT DEVICE V 6 P ST A4,DWTWAT,A6 SAVE DWT-ADDRESS OF INPUT DEVICE P LDKL A5,DWTSB2 & P ADR A5,A6 STACKBASE-ADDRESS IN A5 . P
0x44004c…4401e0 Dummy {f00=0x0151, f01=0x410a, f02=» P IFT CECHO=1 P LDR A7,A7 END? P RF(NN) ERETUR NO 0 ( P CF A15,TENDIO END I/O OUTPUT DEVICE J > PERETUR LD A6,DWTWAT,A6 RELOAD DWT-ADDRESS OF INPUT DEVICE v 4 PRETUR ABL LDREGF RELOAD A3-A5 AND RETURN VIA A5 P* END @
0x4401e0…440374 (5, 205) Dummy {f00=0x0152, f01=0x2008, f02=» RE A3-A5 AND RETURN l * TO USER VIA A5 $ * H : 5* -LDREGE RESTORE A3-A5 AND RETURN TO USER VIA A5 R * 4 /* -GETCHR GET ONE CHARACTER FROM ECB-BUFFER * 6 1* -LOGG LOGG OF INPUT AND OUTPUT CHARA
0x440374…440508 Dummy {f00=0x0152, f01=0x0190, f02=»QUEST b P RF(E) AKB205 P CM 10,A8 INDICATE POWER OFF $ P RF AKB218 H P XIF Z PAKB205 EQU * f P IFT CTIMUT=1 z P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF
0x440508…44069c Dummy {f00=0x0152, f01=0x0190, f02=»A4,DWTTP TIMER POINTER P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 @ P CF A15,SETIMP SET TIME R 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME r . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF AN
0x44069c…440830 Dummy {f00=0x0152, f01=0x0190, f02=»UFFER. d < P* IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. N P* x P* PAKB210 EQU * " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,
0x440830…4409c4 Dummy {f00=0x0152, f01=0x018e, f02=» A4,A4 . PAKB212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 @ P SLL A4,4 R P AN A4,DWTST,A6 d P STR A4,A15 SAVE A4 | P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AK
0x4409c4…440b58 Dummy {f00=0x0152, f01=0x0190, f02=» h P LDR* A4,A15 RESTORE A4 P CWK A7,1 ( $ P RF(E) AKB307 JUMP IF BASIC READ : " PAKB214 NGR A2,A1 MAKE ECB CODE b P LDR A4,A4 KEY FLAG P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL A
0x440b58…440cec Dummy {f00=0x0152, f01=0x0190, f02=»40 N0! P LD A1,2,A8 BUFFER ADDRESS P SUK A1,1 0 P ADR A1,A2 B & PAKB230 SCR A3,A1 CLEAR ECB BUFFER T P SUK A1,1 ~ P SUK A2,1 P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2
0x440cec…440e80 Dummy {f00=0x0152, f01=0x0190, f02=»IX END I/O . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 D " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT
0x440e80…441014 (5, 206) Opaque[0x194]
0x441014…4411a8 # DirEnt {nam=»ST8000«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2970, f03=0x0000}
0x441014…4411a8 IdxSect {
0x441014…4411a8 f00 = 0x014b // 0x441014 @0x0
0x441014…4411a8 f01 = 0x0004 // 0x441016 @0x2
0x441014…4411a8 gno = [ // 0x441018 @0x4
0x441014…4411a8 [0x00]: C0x014b.0x2.0
0x441014…4411a8 [0x01]: C0x014b.0x3.0
0x441014…4411a8 ]
0x441014…4411a8 }
0x4411a8…44133c Dummy {f00=0x014b, f01=0x018e, f02=» 2 P IDENT ST8000 REL 10.0 80-06-09 870105041000 P : P ENTRY ST8000 B P* X * P EXTRN IHPFAR,IHLKM,IHRTC,ILLINT,IHTW b P EXTRN IHTC,IHSOP,CHLT1,IHFD ( P EXTRN IASCUZ,ISLCI,ISLCO,CHRT1,IHMD P* ST8000 EQU * P* P
0x44133c…4414d0 Dummy {f00=0x014b, f01=0x0190, f02=» P DATA ILLINT 13 P DATA ILLINT 6 P DATA IHTW 7 < P DATA IASCUZ 8 V P DATA IHSOP 9 r P DATA ISLCI P DATA ISLCO P DATA CHRT1 12 P DATA IHMD 13 P DAT
0x4414d0…441664 Dummy {f00=0x014b, f01=0x0190, f02=»ATA ILLINT 19 P DATA ILLINT 20 P DATA ILLINT 21 6 P DATA ILLINT 22 R P DATA ILLINT 23 n P DATA ILLINT 24 P DATA ILLINT 25 P DATA ILLINT 26 P DATA ILLINT 27 P DATA ILLINT
0x441664…4417f8 Dummy {f00=0x014b, f01=0x0190, f02=»NT 123 P DATA ILLINT 124 P DATA ILLINT 125 . P DATA ILLINT 126 J P DATA ILLINT 127 f P DATA ILLINT 128 P DATA ILLINT 129 P DATA ILLINT 130 P DATA ILLINT 131 P DATA ILLINT 132
0x4417f8…44198c Dummy {f00=0x014b, f01=0x018e, f02=»37 ~ P DATA ILLINT 138 P DATA ILLINT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x44198c…441b20 Dummy {f00=0x014b, f01=0x4030, f02=» P DATA ILLINT 62 END @ ,NT 139 & P DATA ILLINT 50 B P DATA ILLINT 51 ^ P DATA ILLINT 52 z P DATA ILLINT 53 P DATA ILLINT 54 P DATA ILLINT 55 P DATA ILLINT 56 P D
0x441b20…441cb4 (5, 207) Dummy {f00=0x014b, f01=0x2008, f02=» NT ST8000 79-09-10 JOS * ( * 2 * < * F * P * Z ENTRY ST8000 d ST8000 EQU * z END @
0x441cb4…441e48 Dummy {f00=0x014b, f01=0x0190, f02=» , P P P R W W A n W W W W ~ W2 W W V V 5 W _* V P W V | W | V P V /P 0R$ :RTW V W ~ V W ~ V _" V V 8H V ! T 8 _ 4 WHW V V ! T 8 _ R
0x441e48…441fdc Dummy {f00=0x014b, f01=0x0190, f02=» v | W | P ,P :P V | $:H $ F0Z F9U FAZ& FFY, A n p p v | !AAZ !ZZY v | W | ! P !,,P @ n Q 5 A n _( @ n X ! P _$W W ~ : _ W V | W | : 8D R 0 P P 9H _ W _(
0x441fdc…442170 Dummy {f00=0x014b, f01=0x0190, f02=» L T P*_ 0R" 9Q 0 P 9C 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 j (XB * R *P _ V : N :IV :B
0x442170…442304 Dummy {f00=0x014b, f01=0x0190, f02=» PH P8=A 1 * * 1 1 ZHW _4 N ! QPP: O V ~ P8 h H JW*W W W W d W W W W W _ W W R W W W W V ~ : " ( . 4 B L X b h
0x442304…442498 Dummy {f00=0x014b, f01=0x0190, f02=» DISK NOT OPERATIONAL ALREADY CATALOGED 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
0x442498…44262c Dummy {f00=0x014b, f01=0x0190, f02=» % P P P0 2 U N ! T W h O h H rWz N % T U O 0 W i _0 ]$ Z & W & < U Z & r W R W W W W X~ X Q P N 4
0x44262c…4427c0 Dummy {f00=0x014b, f01=0x0190, f02=» V : DATE HX /HX /HX TIME HXH-HXM-HXS- A $ )T P _ @ W = W | < , P V 8 W W V | W R W W W W W H R *P N R *T < , T W | < V 8 W R WLW WHWFWD
0x4427c0…442954 (5, 208) Opaque[0x194]
0x442954…442ae8 # DirEnt {nam=»PFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2510, f03=0x0000}
0x442954…442ae8 IdxSect {
0x442954…442ae8 f00 = 0x0128 // 0x442954 @0x0
0x442954…442ae8 f01 = 0x0002 // 0x442956 @0x2
0x442954…442ae8 gno = [ // 0x442958 @0x4
0x442954…442ae8 [0x00]: C0x0128.0x2.0
0x442954…442ae8 ]
0x442954…442ae8 }
0x442ae8…442c7c Dummy {f00=0x0128, f01=0x018e, f02=» 0 P IDENT PFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ P* J P* POWER FAIL TABLE T P* n D P* THIS TABLE HOLDS ADDRESSES TO MODULES THAT SHOULD BE EXECUTED x P* AFTER MASTER CLEAR P* P* P ENTRY PFTAB TABLE ENTRY
0x442c7c…442e10 Dummy {f00=0x0128, f01=0x0190, f02=» P EXTRN SOPR SOP. PANEL ( P EXTRN CHLTON LOCAL/REMOTE TERMINALS " ( P EXTRN C1DRON CASSETTE CHANGER NO. 1 N ( P EXTRN C2DRON 2 z ( P EXTRN C3DRON 3 P EXTRN FDON LINE PRINTER P EXTRN LPON JOS 77-050
0x442e10…442fa4 Dummy {f00=0x0128, f01=0x0190, f02=»UNIT t 0 P EXTRN FMINIT FILE MANAGEMENT INITIALIZATION 0 P EXTRN DMINIT DATA MANAGEMENT INITIALIZATION @ P EXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x442fa4…443138 Dummy {f00=0x0128, f01=0x4076, f02=»INIT FILE MANAGEMENT P DATA DMINIT PPFTABE EQU * END OF TABLE 0 P* R P* P END f@ rXTRN SLCUON SALCUZ t P EXTRN ASCUON ASCU4Z P EXTRN CDON CDC DISC P P P P $ PPFTAB DATA PFTABE-* TABLE LENGTH
0x443138…4432cc Dummy {f00=0x0128, 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
0x4432cc…443460 Dummy {f00=0x0128, f01=0x018e, f02=» M) DISC l P EXTRN IHLP LINE PRINTER P EXTRN IHCR CARD-READER 0 ( P EXTRN IHDU1,IHDU2 DISC UNIT NO. 1/2 P 0 P EXTRN IHMD,IASCUZ,ISLCI,ISLCO MINI FIX DISC | P EXTRN IHMT MAG. TAPE $ P EXTRN ILLINT ILLEGAL INTERRUPT P EXTRN HALT HALT R
0x443460…4435f4 (5, 209) Opaque[0x194]
0x4435f4…443788 # DirEnt {nam=»LKMAL «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e40, f03=0x0000}
0x4435f4…443788 IdxSect {
0x4435f4…443788 f00 = 0x0172 // 0x4435f4 @0x0
0x4435f4…443788 f01 = 0x0002 // 0x4435f6 @0x2
0x4435f4…443788 gno = [ // 0x4435f8 @0x4
0x4435f4…443788 [0x00]: C0x0172.0x0.0
0x4435f4…443788 ]
0x4435f4…443788 }
0x443788…44391c Dummy {f00=0x0172, f01=0x0190, f02=» 0 P IDENT LKMAL REL 10.0 80-03-14 870105041000 P 8 P* @ $ P* LINK TO MONITOR REQUEST TABLE J @ P* THIS TABLE HOLDS INFORMATION ABOUT MODULES THAT HANDLE THE r ( P* DIFFERENT LINK TO MONITOR REQUESTS P* 2 P ENTRY LKMAL TABLE ENTRY CON
0x44391c…443ab0 Dummy {f00=0x0172, f01=0x0190, f02=» EXTRN TACTOT ACTIVATE OTHER TERMINAL P EXTRN TPAUSE PAUSE TERMINAL . P EXTRN TIMER TIMER R P EXTRN TMWAIT MULTIPLE WAIT l P EXTRN TABORT ABORT FUNCTION $ P EXTRN SETTIM SET MONITOR CLOCK 4 P EXTRN GETTIM GET CURRENT VALUE OF MONITOR C
0x443ab0…443c44 Dummy {f00=0x0172, f01=0x0190, f02=»* TABLE LENGTH ~ P DATA TIO TERMINAL I/O P DATA TWAIT TERMINAL WAIT 4 P DATA TEXIT TERMINAL EXIT V ( P DATA TACTOT ACTIVATE OTHER TERMINAL x P DATA TPAUSE TERMINAL PAUSE P DATA TIMER TIMER P DATA TMWAIT MULTIPLE WAIT P
0x443c44…443dd8 Dummy {f00=0x0172, f01=0x40e4, f02=»RENT VALUE OF MONITOR CLOCK | " P DATA SETTIM SET MONITOR CLOCK $ P DATA 0 J P DATA TOSSFM FILE MANAGEMENT f ( P DATA DMTEND DATA MANAGEMENT COMMIT PLKMALE EQU * P* P END @ ATA TMWAIT MULTIPLE WAIT P
0x443dd8…443f6c Dummy {f00=0x0172, 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
0x443f6c…444100 Dummy {f00=0x0172, f01=0x0190, f02=»USE ECB AS STACK P ENB P* $ 6 P* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR . P* h P LDK A2,0 r PTIOD05 LD A1,SCTTCT P ADR A1,A2 P LD A3,2,A1 P CW A3,DWTTAB,A6 P RF(E) TIOD10 THIS TASK P ADK A2,2
0x444100…444294 (5, 210) Opaque[0x194]
0x444294…444428 # DirEnt {nam=»CTABX «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29b0, f03=0x0000}
0x444294…444428 IdxSect {
0x444294…444428 f00 = 0x014d // 0x444294 @0x0
0x444294…444428 f01 = 0x0002 // 0x444296 @0x2
0x444294…444428 gno = [ // 0x444298 @0x4
0x444294…444428 [0x00]: C0x014d.0x2.0
0x444294…444428 ]
0x444294…444428 }
0x444428…4445bc Dummy {f00=0x014d, f01=0x0190, f02=» 0 P IDENT CTABX REL 10.0 80-03-14 870105041000 P 8 P* @ P* CODE CONVERSION TABLE J P* l P* v P ENTRY CTABX P* P* * PC0 EQU 0 CODE CONVERSION COLUMN NO. 0 ( PC1 EQU 0 1 ( PC2 EQU
0x4445bc…444750 Dummy {f00=0x014d, f01=0x4142, f02=» 5 ( PC6 EQU 0 6 " ( PC7 EQU 0 7 N P* z P* P* PCTABX DATA C0 P DATA C1 P DATA C2 P DATA C3 P DATA C4 P DATA C5 P DATA C6
0x444750…4448e4 Dummy {f00=0x014d, 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 @
0x4448e4…444a78 Dummy {f00=0x014d, f01=0x0190, f02=» & PDYERR ABL DISIOE I/O REQUEST ERROR P EJECT 2 : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER @ P* ARE CARRIED OUT. ~ 0 P* /2B NO MOVING OF PRINT HEAD " P* /30 CR, LF, LF B P* /31
0x444a78…444c0c Dummy {f00=0x014d, f01=0x0190, f02=»ESTED LENGTH | P RF(E) ACDY25 P LDK A3,2 START BUFFER INDEX * " P LD A2,2,A8 GET BUFFER ADDRESS N & P LC A2,1,A2 GET CONTROL CHARACTER t P ANK A2,/FF PACDY25 EQU * * P SUK A2,/2B POSITIONING BEFORE WRITE ? P RF(E) ACDY90
0x444c0c…444da0 Dummy {f00=0x014d, f01=0x0190, f02=» ( P ADK A4,1 INDICATE DOUBLE LINE FEED P 4 P < $ PACDY30 LDK A2,CR CARRIAGE RETURN D PACDY35 LDK A1,1 l 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS P* PACDY50 E
0x444da0…444f34 (5, 211) Opaque[0x194]
0x444f34…4450c8 # DirEnt {nam=»DSKSUB«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29f0, f03=0x0000}
0x444f34…4450c8 IdxSect {
0x444f34…4450c8 f00 = 0x014f // 0x444f34 @0x0
0x444f34…4450c8 f01 = 0x000a // 0x444f36 @0x2
0x444f34…4450c8 gno = [ // 0x444f38 @0x4
0x444f34…4450c8 [0x00]: C0x014f.0x2.0
0x444f34…4450c8 [0x01]: C0x014f.0x3.0
0x444f34…4450c8 [0x02]: C0x0150.0x0.0
0x444f34…4450c8 [0x03]: C0x0150.0x1.0
0x444f34…4450c8 [0x04]: C0x0150.0x2.0
0x444f34…4450c8 ]
0x444f34…4450c8 }
0x4450c8…44525c Dummy {f00=0x014f, f01=0x0190, f02=» 2 P IDENT DSKSUB REL 10.0 80-03-14 870105041000 P : P* B , P**************************************** L P* | , P* PHILIPS TERMINAL SYSTEM PTS * P* , P* DSKSUB = DISC SUBROUTINES * P* P* P*
0x44525c…4453f0 Dummy {f00=0x014f, f01=0x0190, f02=»FILE MANAGEMENT SUBROUTINES: P* $ 4 P* - VOLCLR = CLEAR VOLUME NAME(S) IN DISC DWT . < P* - VOLNAM = MOVE VOLUME NAME FROM DWT TO USER BUFFER f 6 P* - VOLADR = COMPUTE VOLUME NAME ADDRESS IN DWT > P* - NVLCHK = CHECK IF NEW VOLUME LOADE
0x4453f0…445584 Dummy {f00=0x014f, f01=0x0190, f02=» 6 P* - INXDWT = COMPUTE DWT ADDRESS + DOUBLE INDEX 8 P* - NVLTAB = TTAB ADDRESSES FOR TASKS TO HAVE NVL > P* z P* P EJECT DSKSUB P* P* P*********** P* ENTRIES * P*********** P* P* , P
0x445584…445718 Dummy {f00=0x014f, f01=0x0190, f02=»ME NAME ADDRESS IN DWT v . P ENTRY NVLCHK CHECK FOR NEW VOLUME LOADED : P ENTRY VOLGET MOVE VOLUME NAME FROM DISC BUFFER TO DWT P , P ENTRY NEWVOL SET NEW VOLUME LOADED BITS 4 P ENTRY INXDWT COMPUTE DWT ADDRESS + DOUBLE INDEX 6 P ENTRY NVLTAB TTAB
0x445718…4458ac Dummy {f00=0x014f, f01=0x0190, f02=»T MASK | P EJECT DSKSUB P* $ P* . P************* 8 P* EXTERNALS * N P************* d P* z P* 4 P EXTRN IHRTN RETURN WITHOUT ENABLING INTERRUPTS P EXTRN TTABLD LDTASK TTAB P EXTRN TTABFM FMTASK TTAB *
0x4458ac…445a40 Dummy {f00=0x014f, f01=0x0190, f02=»RN DWTTAB TTAB ADDRESS " P EXTRN DWTUEC USER ECB ADDRESS P EXTRN DWTVOL VOLUME NAME D ( P EXTRN DWTNVL NEW VOLUME LOADED FLAG f " P EXTRN EWTVOL VOLUME FILE CODE 2 P EXTRN FWTEW1 POINTER TO 2ND EWT BLOCK IN FWT $ P EXTRN FWTPAR ACCESS PARAM
0x445a40…445bd4 (5, 212) Dummy {f00=0x014f, f01=0x0190, f02=»CBEL ECB EFFECTIVE LENGTH P EJECT DSKSUB " P* 8 P* B , P*************************************** L P* | P* CONDITIONAL ASSEMBLY P* , P*************************************** P* P* . P* A PROGRAM VERSION US
0x445bd4…445d68 Dummy {f00=0x014f, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 1 j P* ~ * . ** A PROGRAM VERSION USING TOSS DISC PAGING * &* IS OBTAINED BY SETTING DSKPAG EQU 1. * DSKPAG EQU 0
0x445d68…445efc Dummy {f00=0x014f, f01=0x0190, f02=» P* PSWPBLK EQU 0 P* " P EJECT DSKSUB , P* D P* N 2 P* A PROGRAM VERSION SUPPORTING FILE MANAGEMENT X * P* IS OBTAINED BY SETTING FILMAN EQU 1. P* PX:A EQU 0 PFILMAN EQU 1 P* P* 2 P* A PROG
0x445efc…446090 Dummy {f00=0x014f, f01=0x0190, f02=» P* P EJECT DSKSUB P* & P* 0 P********** : P* VOLCLR * L P********** ^ P* p P* z 6 P* VOLCLR WILL CLEAR THE REQUESTED VOLUME NAME(S) " P* IN THE REQUESTED DISC DWT. P* . P* INPUT: A1 = NUMBER OF
0x446090…446224 Dummy {f00=0x014f, f01=0x0190, f02=» P LDR A2,A1 & P CF A15,VOLADR VOLUME NAME ADDRESS P* @ PVCLR10 EQU * J P CMR A1 CLEAR ONE WORD ^ P ADK A1,2 INCREMENT POINTER | $ P SUK A2,2 DECREMENT LOOP COUNTER P RB(P) VCLR10 P RF RETURN P* P EJECT DSKSUB
0x446224…4463b8 Dummy {f00=0x014f, f01=0x0190, f02=»ME OF SELECTED DISC n 4 P* TO THE USER BUFFER IF REQUESTED LENGTH = 6. P* T P* INPUT: A6 = DWT ADDRESS ^ P* A8 = ECB ADDRESS P* $ P* OUTPUT: A1-A4 ARE DESTROYED P* PVOLNAM EQU * $ P LD A1,ECBRL,A8 RE
0x4463b8…44654c Dummy {f00=0x014f, f01=0x0190, f02=»,ECBEL,A8 SET EFFECTIVE LENGTH P* & P IFT MMUPAG=0 0 ( P LD A2,ECBBA,A8 USER BUFFER ADDRESS F P* r P EJECT DSKSUB | P* P* PVNAM10 EQU * P LDR* A3,A1 MOVE ONE WORD P STR A3,A2 ( P ADK A1,2 INCREMENT BUFF
0x44654c…4466e0 Dummy {f00=0x014f, f01=0x0190, f02=» P IFT MMUPAG=1 2 P LD A2,DWTTAB,A6 TTAB ADDRESS OF CALLING TASK P TS -30,A15 SAVE RUNNING MMU P P TL TTB:MT,A2 LOAD USER MMU t & P LD A2,DWTUEC,A6 USER ECB ADDRESS ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS P MVSU A4 MOVE VOLUME NAME
0x4466e0…446874 (5, 213) Dummy {f00=0x0150, f01=0x0190, f02=»** P* VOLADR * P********** P* . P* 8 P* INPUT: A6 = DWT ADDRESS B P* f ( P* OUTPUT: A1 = VOLUME NAME ADDRESS p P* A4 = 6 P* PVOLADR EQU * P LC A4,DWTOR,A6 INDEX P* PVOLA05 EQU *
0x446874…446a08 Dummy {f00=0x0150, f01=0x0190, f02=» P RB(NN) VOLA10 P LDK A4,6 P RF RETURN 0 P* B P EJECT DSKSUB L P* d P* n P********** x P* NVLCHK * P********** P* P* 8 P* NVLCHK IS CALLED AT ACTIVATION FROM DISC DRIVER 8 P* TO CHE
0x446a08…446b9c Dummy {f00=0x0150, f01=0x0190, f02=» DWT ADDRESS P* 6 P* OUTPUT: A1 = RETURN CODE (/20 IF NVL, ELSE 0) 0 P* A2 = DWT ADDRESS + DOUBLE INDEX X $ P* A3, A4 ARE DESTROYED P* PNVLCHK EQU * $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,
0x446b9c…446d30 Dummy {f00=0x0150, f01=0x0190, f02=»ESET BIT 0 (FIRST REQUEST BIT) P ST A1,DWTNVL,A2 & P ANK A1,/FF CHECK IF NVL > " P RF(Z) RETURN RETURN IF NO NVL ^ " P LD A4,DWTTAB,A6 TTAB ADDRESS P LDK A1,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS P* P EJECT DSKSUB P*
0x446d30…446ec4 Dummy {f00=0x0150, f01=0x018e, f02=»CHECK TTAB ADDRESS $ P RF(E) NVL:20 NVL FOR THIS TASK P SLL A1,1 SHIFT NVL BIT MASK B * P ADK A3,2 POINT TO NEXT TTAB IN NVLTAB f P RB NVL:10 P* PNVL:20 EQU * 0 P AN A1,DWTNVL,A2 CHECK IF NVL FOR THIS TASK & P RF(Z) RETURN NO
0x446ec4…447058 Dummy {f00=0x0150, f01=0x0190, f02=» P* $ PRETURN EQU * COMMON RETURN LABEL P IFT CPU852=1 : 2 P ABL IHRTN RETURN WITHOUT ENABLING INTERRUPTS P P XIF P* P IFT CPU852=0 P RTN A15 P XIF P* P EJECT DSKSUB P* P* P****
0x447058…4471ec Dummy {f00=0x0150, f01=0x0190, f02=»ISC DWT AND CHECK IF THERE IS A NEW VOLUME MOUNTED. P* < ( P* INPUT: A2 = DISC BUFFER ADDRESS F 2 P* A3 = FILE CODE (FOR DRIVE WITH INDEX = 0) r 0 P* BIT 0 SET MEANS TEST STATUS ORDER P* A6 = DWT ADDRESS P* 0
0x4471ec…447380 Dummy {f00=0x0150, f01=0x0190, f02=» * P CF A15,VOLADR DWT VOLUME NAME ADDRESS P LDK A7,0 RESET NVL FLAG 2 P* R PVGET10 EQU * , P LDR* A8,A2 ONE WORD OF NEW VOLUME NAME p , P CWR* A8,A1 COMPARE WITH OLD VOLUME NAME P RF(E) VGET20 P LDK A7,1 SET NVL FLAG $ P STR
0x447380…447514 (5, 214) Dummy {f00=0x0150, f01=0x0190, f02=» POINTERS v P ADK A2,2 $ P SUK A4,2 DECREMENT LOOP COUNTER $ P RB(P) VGET10 L P CF A15,INXDWT b P ADK A7,0 CHECK NVL FLAG x " P RB(Z) RETURN RETURN IF NO NVL . P SLA A3,1 CHECK IF TEST STATUS OR RECOVERY & P RB(O) RETURN TEST STATU
0x447514…4476a8 Dummy {f00=0x0150, f01=0x0190, f02=» DISC h P SLL A7,1 $ P RB(N) RETURN FIXED DISC, NO NVL P* H P EJECT DSKSUB R P* j P* t P********** ~ P* NEWVOL * P********** P* P* > P* NEWVOL IS ENTERED FROM THE ROUTINE VOLGET WHEN IT HAS 4
0x4476a8…44783c Dummy {f00=0x0150, f01=0x0190, f02=»CONCERNED FILE CODE AND FILES | 8 P* OPENED ON THAT VOLUME. TASKS REPRESENTED IN THE & 4 P* TABLE NVLTAB WILL GET RETURN CODE /20 AT THE b ( P* NEXT REQUEST ON THAT FILE CODE. P* 4 P* INPUT: A3 = FILE CODE (DISC ONE FOR DRIVER) ( P
0x44783c…4479d0 Dummy {f00=0x0150, f01=0x0190, f02=» A1-A2 ARE DESTROYED P* PNEWVOL EQU * & P LD A2,NVLBIT NVL BIT MASK : 0 P ST A2,DWTNVL,A4 INDICATE NEW VOLUME LOADED P LC A2,DWTOR,A6 INDEX P ANK A2,/3 P ADR A3,A2 ACTUAL FILE CODE P* P EJECT DSKSUB P*
0x4479d0…447b64 Dummy {f00=0x0150, f01=0x0190, f02=»NTER n P* > P* SET NEW VOLUME LOADED FOR ALL FILES ON CONCERNED VOLUME P* X PNEW:10 EQU * b P LDR* A2,A1 NEXT FWT ADDRESS v P RB(Z) RETURN NO MORE FWT:S P LDR A1,A2 SAVE FWT ADDRESS 2 P ADKL A2,FWTEW1 ADDRESS TO FIRST EWT S
0x447b64…447cf8 Dummy {f00=0x0150, f01=0x0190, f02=») NEW:30 P LDKL A2,/8000 NVL BIT 0 P ORS A2,FWTPAR,A1 INDICATE NEW VOLUME LOADED . P RB NEW:10 b P* t PNEW:30 EQU * ~ . P LDR* A2,A2 ADDRESS TO NEXT EWT STRUCTURE , P RB(Z) NEW:10 END OF THIS EWT STRUCTURE ( P RB NEW:20 CONTINUE
0x447cf8…447e8c Dummy {f00=0x0150, f01=0x0190, f02=» P* P* H P* INXDWT WILL COMPUTE THE DWT ADDRESS ADDED TO THE DOUBLED INDEX. P* h P* INPUT: A6 = DWT ADDRESS r P* 0 P* OUTPUT: A4 = DWT ADDRESS + DOUBLE INDEX * P* NO REGISTERS ARE DESTROYED P*
0x447e8c…448020 Dummy {f00=0x0150, f01=0x0190, f02=» P* P EJECT DSKSUB P* & P* 0 P********** : P* NVLTAB * L P********** ^ P* p P* z 4 P* NVLTAB HOLDS THE TTAB ADDRESSES OF THE TASKS 6 P* THAT WILL RECEIVE NEW VOLUME LOADED WHEN A NEW P* VOLUME HAS BEE
0x448020…4481b4 (5, 215) Dummy {f00=0x0150, f01=0x0190, f02=» P DATA TTABLD LDTASK TTAB P XIF $ P* 0 PNVLDMT EQU * : P IFT FILMAN=1 N P IFT DATMAN=1 d P DATA 0 TTAB #D z P DATA 0 TTAB #E P DATA 0 TTAB #F P DATA 0 TTAB #G P XIF P* P IFT FILMAN=1 PNV
0x4481b4…448348 Dummy {f00=0x0150, f01=0x4160, f02=»MAN=0 P IFF DSKPAG+SWPBLK=0 P DATA TTABLD LDTASK TTAB * P* J PNVLEND EQU * T P* h PNVLBIT DATA 3 NVL BIT MASK r P XIF P* P IFT FILMAN=0 P IFT DSKPAG+SWPBLK=0 P* PNVLEND EQU * P* PNVLB
0x448348…4484dc Dummy {f00=0x0150, f01=0x2008, f02=» NT DSKSUB PRR 10.1 79-08-09 CHLO END 2@ >
0x4484dc…448670 Dummy {f00=0x0150, f01=0x0190, f02=»IRST FOR DISPATCHING t P LDKL A2,TTABPF P CWR A1,A2 4 4 P RB(E) T:DISP ALREADY QUEUED, PWF DURING PFPOST F P STR A1,A2 ~ P ST A2,DISQUE , P IM PFPOST INDICATE PWF POST PROCESSING P RB T:DISP P EJECT LRPINT P P
0x448670…448804 Dummy {f00=0x0150, f01=0x0190, f02=»T PROC FLAG r P CM INIFLG AND INIT FLAG & P CF A15,PFINIT RESTART I/O DEVICES 4 P CM PRUN EXIT PFTASK ^ P RB T:DISP z P EJECT LRPINT P* P* I H R T C P* 6 P* THIS IS THE REAL TIME CLOCK INTERRUPT HANDLER. 6 P
0x448804…448998 Dummy {f00=0x0150, f01=0x0190, f02=»PT FLAG z P IM COUNT $ P RF(P) RTC010 CHECK TIMER QUEUE " P RTN A15 J P* Z PRTC010 EQU * d P IFT CPU852=1 x & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK
0x448998…448b2c Dummy {f00=0x0150, f01=0x0190, f02=»A15,QMJOB P* P IFT MONCLK=1 P IM SECOND 2 & P RF(P) RTC025 UPDATE MONITOR CLOCK D P XIF n P* z PRTC020 EQU * $ P CF A15,SWLXY SWITCH TO LEVEL XY P RB T:DISP P* P EJECT LRPINT P* P* P
0x448b2c…448cc0 Dummy {f00=0x0150, f01=0x0190, f02=»9 SET SECOND SWITCH P ST A4,SECOND P LDK A4,4 2 P* D 2 PMCLO10 LDK A3,60 NUMBER OF MINUTES AND SECONDS N ( PMCLO20 IM MONCLO+2,A4 INCREMENT TIME . P XR A3,MONCLO+2,A4 CHANGE MINUTES OR HOURS $ P RB(NE) RTC020 GO TO DISPATCHER (
0x448cc0…448e54 (5, 216) Opaque[0x194]
0x448e54…448fe8 # DirEnt {nam=»DVTKB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a28, f03=0x0000}
0x448e54…448fe8 IdxSect {
0x448e54…448fe8 f00 = 0x0151 // 0x448e54 @0x0
0x448e54…448fe8 f01 = 0x0002 // 0x448e56 @0x2
0x448e54…448fe8 gno = [ // 0x448e58 @0x4
0x448e54…448fe8 [0x00]: C0x0151.0x1.0
0x448e54…448fe8 ]
0x448e54…448fe8 }
0x448fe8…44917c Dummy {f00=0x0151, f01=0x0190, f02=» 0 P IDENT DVTKB REL 10.0 80-03-14 870105041000 P 8 " P* KEYBOARD DEVICE WORK TABLE @ P* f P ENTRY DVTKB TABLE ENTRY p P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN ECH PMMUPAG EQU 0 P* PDVTKB EQU * TABL
0x44917c…449310 Dummy {f00=0x0151, f01=0x0190, f02=»ATA DWTEND-DVTKB ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK P DATA 'KB' TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x449310…4494a4 Dummy {f00=0x0151, f01=0x0190, f02=»ATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 6 P DATA ECH ECHO DEVICE T $ P DATA /BCA BACKSPACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x4494a4…449638 Dummy {f00=0x0151, f01=0x4082, f02=»G=1 PDEVECB EQU * P DATA 0,0,0,0,0,0 P DATA : P XIF H PDWTEND EQU * T P* h P END r@ ~PACE AND CANCEL r " P DATA /ED0 EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DV
0x449638…4497cc Dummy {f00=0x0151, f01=0x2008, f02=» BLE ZERO 6 P DATA DWTSQ+DVTKB POINTER TO FIRST PLACE IN QUEUE 4 P DATA DWTSQ+DVTKB POINTER TO LAST PLACE IN QUEUE R PDWTSQ EQU *-DVTKB P RES 0 P* P END @ 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P R
0x4497cc…449960 Dummy {f00=0x0151, 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 $
0x449960…449af4 (5, 217) Opaque[0x194]
0x449af4…449c88 # DirEnt {nam=»DVTGP «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29d0, f03=0x0000}
0x449af4…449c88 IdxSect {
0x449af4…449c88 f00 = 0x014e // 0x449af4 @0x0
0x449af4…449c88 f01 = 0x0002 // 0x449af6 @0x2
0x449af4…449c88 gno = [ // 0x449af8 @0x4
0x449af4…449c88 [0x00]: C0x014e.0x2.0
0x449af4…449c88 ]
0x449af4…449c88 }
0x449c88…449e1c Dummy {f00=0x014e, f01=0x0190, f02=» 0 P IDENT DVTGP REL 10.0 80-03-14 870105041000 P 8 , P* DEVICE WORK TABLE FOR GENERAL PRINTER @ P* p P ENTRY DVTGP TABLE ENTRY z P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTGP EQU * TABL
0x449e1c…449fb0 Dummy {f00=0x014e, f01=0x0190, f02=»ATA DWTEND-DVTGP ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK P DATA /C750 TTAB-ADDRESS J $ P DATA 0 WAIT/ACTIVATE INDICATOR j P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADD
0x449fb0…44a144 Dummy {f00=0x014e, f01=0x40e8, f02=»REA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER * " P DATA 0 HEAD POSITIPN POINTER H P IFT MMUPAG=1 n PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU ECB ADD
0x44a144…44a2d8 Dummy {f00=0x014e, 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
0x44a2d8…44a46c Dummy {f00=0x014e, f01=0x0190, f02=»******** P* 6 P* THE STANDARD NATIONAL CHARACTER SET IS CHOOSEN > P* BY SETTING X:A TO 0-11 ACCORDING TO THE LIST BELOW =4 T P* P* NCV=0 GREAT BRITAIN P* 1 GERMANY P* 2 FRANCE P* 3 SPAIN
0x44a46c…44a600 Dummy {f00=0x014e, f01=0x0190, f02=»GOSLAVIA/FRANCE 2 (DEPEND. ON CHAR GEN) =7 P* 9 USA 6 " P* 10 DENMARK, NORWAY 2 L P U =7(=4) r P* PX:A EQU 0 PSTDNCV EQU X:A P* 6 P* THE LOWER CASE SET CAN BE INCLUDED AS STANDARD P* BY SETTI
0x44a600…44a794 (5, 218) Opaque[0x194]
0x44a794…44a928 # DirEnt {nam=»DVTDY «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29e0, f03=0x0000}
0x44a794…44a928 IdxSect {
0x44a794…44a928 f00 = 0x014f // 0x44a794 @0x0
0x44a794…44a928 f01 = 0x0002 // 0x44a796 @0x2
0x44a794…44a928 gno = [ // 0x44a798 @0x4
0x44a794…44a928 [0x00]: C0x014f.0x0.0
0x44a794…44a928 ]
0x44a794…44a928 }
0x44a928…44aabc Dummy {f00=0x014f, f01=0x0190, f02=» 0 P IDENT DVTDY REL 10.0 80-03-14 870105041000 P 8 * P* DEVICE WORK TABLE FOR VIDEO DISPLAY @ P* n P ENTRY DVTDY TABLE ENTRY x P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVTDY EQU * TABLE
0x44aabc…44ac50 Dummy {f00=0x014f, f01=0x0190, f02=»A DWTEND-DVTDY ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK P DATA /C459 TTAB-ADDRESS H $ P DATA 0 WAIT/ACTIVATE INDICATOR h P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB ADDRE
0x44ac50…44ade4 Dummy {f00=0x014f, f01=0x4150, f02=»A FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER ( P DATA /101 CURSOR POINTER F ( P DATA /ABC LEFT BYTE=NUMBER OF LINES h " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,0,0
0x44ade4…44af78 Dummy {f00=0x014f, 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
0x44af78…44b10c Dummy {f00=0x014f, f01=0x0190, f02=»DDRESS TO CHANNEL STATUS 3 P* A6: DWT ADDRESS 4 P* 4 : P* EXIT: 4 D P* 4 T P* A1: STATUS AFTER RECOVERY 4 ^ $ P* A2: ADDRESS TO CHANNEL STATUS 4 P* A6: DWT ADDRESS 4 P* 4 P 4 P 4 & PMTRC LDR A7,A2 CALC CHANNEL NUMBER 4 P
0x44b10c…44b2a0 Dummy {f00=0x014f, f01=0x0190, f02=» 4 t P CF A5,ONLI 5 P LDR* A3,A2 GET SEQ COUNTER 5 & P ABL(Z) SBOW TAPE SHOULD BE AT BOT 5 @ 8 P LDK A7,MTRBLK REVERSE TAPE TO AVOID ANY OLD BLOCKS 5 j PMTRC05 CF A5,SKPR 5 P SUK A7,1 5 P RB(NZ) MTRC05 5 P 5 * PMTRC10 CF A5,RSQN READ S
0x44b2a0…44b434 (5, 219) Opaque[0x194]
0x44b434…44b5c8 # DirEnt {nam=»DRKB03«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cb8, f03=0x0000}
0x44b434…44b5c8 IdxSect {
0x44b434…44b5c8 f00 = 0x0165 // 0x44b434 @0x0
0x44b434…44b5c8 f01 = 0x0010 // 0x44b436 @0x2
0x44b434…44b5c8 gno = [ // 0x44b438 @0x4
0x44b434…44b5c8 [0x00]: C0x0165.0x3.0
0x44b434…44b5c8 [0x01]: C0x0166.0x0.0
0x44b434…44b5c8 [0x02]: C0x0166.0x1.0
0x44b434…44b5c8 [0x03]: C0x0167.0x1.0
0x44b434…44b5c8 [0x04]: C0x0167.0x2.0
0x44b434…44b5c8 [0x05]: C0x0167.0x3.0
0x44b434…44b5c8 [0x06]: C0x0168.0x0.0
0x44b434…44b5c8 [0x07]: C0x0168.0x1.0
0x44b434…44b5c8 ]
0x44b434…44b5c8 }
0x44b5c8…44b75c Dummy {f00=0x0165, f01=0x018e, f02=» 2 P IDENT DRKB03 REL 10.0 80-03-14 870105041000 P : & P =1,CIRCULAR BUFFER SIZE CHANGED B P REL 9.1 79-05-23 l P* 0 P******************************************* P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DR
0x44b75c…44b8f0 Dummy {f00=0x0165, f01=0x0190, f02=» b P* P* 0 P* THIS DRIVER HANDLES INPUT FROM NUMERIC . P* AND ALPHANUMERIC KEYBOARDS PTS 6236, P , P* CONNECTED TO CPU VIA CHLT OR CHRT. P* : P* ONLY INPUT DATA FROM DEPRESSED KEYS AND KEY-LOCKS $ P* ARE HANDL
0x44b8f0…44ba84 Dummy {f00=0x0165, f01=0x0190, f02=» P* ECHOED. P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: " P* V " P* A C K B : ACTIVATION PART ` P* $ P* I H K B : INTERRUPT HANDLER P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY
0x44ba84…44bc18 Dummy {f00=0x0165, f01=0x0190, f02=»IC READ ~ P* ORDER 02: STANDARD READ P* ORDER 03: NUMERIC READ 4 & P* ORDER 31: RESET INPUT BUFFER X P* P* P* NORMAL REGISTER USAGE : P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARA
0x44bc18…44bdac Dummy {f00=0x0165, 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
0x44bdac…44bf40 Dummy {f00=0x0165, 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 $
0x44bf40…44c0d4 (5, 220) Dummy {f00=0x0166, f01=0x0190, f02=»D VALUE IS 7 CHARACTERS t 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM P EJECT x P* 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P
0x44c0d4…44c268 Dummy {f00=0x0166, f01=0x0190, f02=»IFT-FUNCTION | , P* -----KEYBOARD LOCK IF NO KEYLOCK ON P* D P* ENTRIES N P* b P* l P ENTRY KBAD3 ADDRESS-BLOCK v P* P* P* & P* EXTERNAL TOSS MODULE ENTRIES P* P* P* $ P EXTRN DIS
0x44c268…44c3fc Dummy {f00=0x0166, f01=0x018e, f02=»TRY v 0 P EXTRN LDREG LOAD REGISTERS A2-A8 AND RETURN 4 P EXTRN STREG STORE REGISTERS AND GO TO DISPATCER @ , P EXTRN LDREGE RETURN FROM ECHOE HANDLING x P EXTRN LDREGF PANIK EXTERN P EXTRN SETIME SET TIME P EXTRN SETIMP SET TIME " P E
0x44c3fc…44c590 Dummy {f00=0x0166, f01=0x0190, f02=» r P* P* P* P* DWT PARAMETERS & P* B P* L P* V " P EXTRN DWTCHP CHANEL PARAMETER ` P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER & " EXTRN DWTADR DRIVER ADDRESS BLOCK P EXTRN DWTA3 SAVE AREA A3
0x44c590…44c724 Dummy {f00=0x0166, f01=0x018e, f02=» DEVICE DWT ~ P EXTRN DWTTP TIMER POINTER P EXTRN DWTWAT SAVE INPUT DWT 6 P EJECT Z P* h P* r P* | P* CONSTANTS P* P* P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* . PX:F EQU 8 LENGTH OF
0x44c724…44c8b8 Dummy {f00=0x0166, f01=0x0190, f02=» P* " PTIME EQU 300 TIME OUT CONSTANT P* 4 P EJECT > P* L P* V , P**************************************** ` , P* CONDITIONAL ASSEMBLY * , P**************************************** P* . P* TIME OUT
0x44c8b8…44ca4c Dummy {f00=0x0166, f01=0x0190, f02=»NCTION MAY BE EXCLUDED BY P* SETTING X:B = 0. " P* @ PX:B EQU 1 J PCECHO EQU 1 P* p > P* BY SETTING X:E = 1 THE FOLOWING POWER OFF FUNCTION z & P* IS INCLUDED IN THE DRIVER. < P* IF THERE IS A READ REQUEST
0x44ca4c…44cbe0 Dummy {f00=0x0166, f01=0x0190, f02=»T V @ P* AFTER POWER ON IS COMPLETED WITH ZERO IN CONTROL WORD P* OF ECB N P* d P* n PX:E EQU 0 x PPOWOFF EQU 1 P* P* P* N P* BY SETTING X:H = 1 THE KEY A15IS USED AS A NUMERIC SHIFT ON KB 71/72
0x44cbe0…44cd74 (5, 221) Dummy {f00=0x0166, f01=0x0190, f02=»I EQU 0 PKBLOCK EQU 1 P* $ P* . . P* A PROGRAM VERSION USING TOSS MMU PAGING 8 * P* IS OBTAINED BY SETTING MMUPAG EQU 1. j P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SE
0x44cd74…44cf08 Dummy {f00=0x0166, f01=0x0190, f02=» PX:J EQU 10 PDVBLEN EQU 000 P* 0 P* : P* MMU KEY TABLE SIZE D P* b P* l PX:K EQU 10 v PDVBKTB EQU 00 P* P EJECT P* P* P* DWT-DISPLACEMENT P* P* 0 PDWTDRD EQU /
0x44cf08…44d09c Dummy {f00=0x0166, f01=0x0190, f02=» PSTART EQU DWTDRD+4 P XIF P* * * PDWTCON EQU START+/00 CONVERSION TABLE 4 8 PDWTINQ EQU START+/18 POINTER TO FIRST PLACE IN QUEUE b 8 PDWTUTQ EQU START+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE ( PDWTE
0x44d09c…44d230 Dummy {f00=0x0166, f01=0x0190, f02=»ART+/14 BACK-SPACE CHARACTER ( PKBCLR EQU START+/15 CLEAR CHARACTER $ . PKBMZ2 EQU START+/17 DOUBLE ZERO CHARACTER P PKBMZ3 EQU START+/16 P* P EJECT P* TABLES P* P* $ P DATA DVBKTB MMU KEY TABLE SIZE P
0x44d230…44d3c4 Dummy {f00=0x0166, f01=0x0190, f02=»A 0 ABORT ROUTINE ADDRESS P DATA IHKB INTERRUPT HANDLER " P IFT POWOFF=1 F P DATA RCKB RECOVERY ROUTINE P XIF P IFT POWOFF=0 P DATA 0 NO RECOVERY P XIF P* P IFT POWOFF=1 P EJECT P* RCKB
0x44d3c4…44d558 Dummy {f00=0x0166, f01=0x0190, f02=» P XIF P* P IFT POWOFF=1 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK F P XIF l P* x P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY? P RF(NN) RCKB10 P LDKL A1,/200 ( P ORS A1,DWTST,A6 INDICATE POWER OFF
0x44d558…44d6ec Dummy {f00=0x0166, f01=0x0190, f02=» ACKB P* : P* ACTIVATION PART: CHECS VALIDITY OF ORDERS AND P* V @ P* EXAMINES INPUT BUFFER TO SEE IF SOME QUEUED CHARACTER ` P* P* TO THREAT P* P* P* P* PACKB EQU * P LDKL A1
0x44d6ec…44d880 Dummy {f00=0x0166, f01=0x0190, f02=» P RF(NG) AKB100 ILLEGAL ORDER P SUK A4,4 ( P RF(N) AKB200 ORDER 1,2 OR 3 : P SUK A4,/2D ^ P RF(Z) AKB110 ORDER 31 r * PAKB100 ORKL A1,/8000 I/0 REQUEST ERROR P ABL ENDI10 P EJECT P* P* P* & P* ORD
0x44d880…44da14 (5, 222) Dummy {f00=0x0167, f01=0x0190, f02=»Q,A6 RESET OUTPUT QUEUE P ABL ENDIO P* 2 P EJECT < P* J P* T P* ORDER 1,2,3 ^ P* x P* P* PAKB200 EQU * P IFT POWOFF=1 P LD A2,DWTST,A6 P ANKL A2,/200 POWER OFF? P RF(E) AKB205 NO
0x44da14…44dba8 Dummy {f00=0x0167, f01=0x0190, f02=»F(E) AKB205 P CM 10,A8 INDICATE POWER OFF P RF AKB218 8 P XIF J PAKB205 EQU * V P IFT CTIMUT=1 j P LDR* A1,A6 P ANK A1,/40 TIMING? , P RF(E) AKB210 NO TIMING FOR THIS DEVICE! , P LD A4,DWTTP,A6 CHECK IF ALREADY TIMING
0x44dba8…44dd3c Dummy {f00=0x0167, f01=0x0190, f02=»OINTER z P ADR A4,A6 ADD DWT-ADDRESS P LDR A1,A6 0 P CF A15,SETIMP SET TIME B 0 P DATA AKBTUT,TIME TIME OUT ROUTINE AND TIME b . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT P XIF P* P EJECT P* IF ANY KEY-LOCK:
0x44dd3c…44ded0 Dummy {f00=0x0167, f01=0x0190, f02=» IN CASE OF STANDARD OR NUMERIC READ MAKE ECB-CODE & P* AND END I/O. ELSE CONTINUE. > P* h P* r PAKB210 EQU * | " P LD A2,DWTST,A6 ANY KEY-LOCK? P ANK A2,/F P RF(Z) AKB219 P SLL A2,1 P SRN A2,A4 P LDR A
0x44ded0…44e064 Dummy {f00=0x0167, f01=0x0190, f02=»B212 XRS A4,DWTST,A6 RESET OLD KEY-FLAG P LDR A2,A4 0 P SLL A4,4 B P AN A4,DWTST,A6 T P STR A4,A15 SAVE A4 l P STR A3,A15 P SRN A2,A3 ORDER 1 " P ADR A3,A3 MAKE CHARACTER FLAG P LDR A4,A4 P RF(NE) AKB213 P A
0x44e064…44e1f8 Dummy {f00=0x0167, f01=0x0190, f02=»15 RESTORE A4 P CWK A7,1 $ P RF(E) AKB307 JUMP IF BASIC READ ( " PAKB214 NGR A2,A1 MAKE ECB CODE P P LDR A4,A4 KEY FLAG v P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 KEY-LOCK CODE IN ECB PAKB218 ABL AKB380 ( PAKB2
0x44e1f8…44e38c Dummy {f00=0x0167, f01=0x0190, f02=»A1,2,A8 BUFFER ADDRESS P SUK A1,1 P ADR A1,A2 0 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER B P SUK A1,1 l P SUK A2,1 ~ P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 P LCR A2,A1 PAKB245 LDR A4,A2 P XRK A4,/FF
0x44e38c…44e520 Dummy {f00=0x0167, f01=0x018e, f02=»AKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? P RF(NE) AKB255 2 " P CF A5,STREG NOTHING IN QUEUE J P IFT CTIMUT=1 p * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT $ P ABL ENDI05 END I/O AT TIME OUT P XIF
0x44e520…44e6b4 (5, 223) Dummy {f00=0x0167, f01=0x0190, f02=» l PAKB257 EQU * P LDR A4,A7 P SUK A4,2 . P RF(NN) AKB310 ORDER 2 OR 3 @ P EJECT d P* r P* | P* ORDER 1 BASIC READ P* P* P* 6 PAKB305 CF A15,STORE STORE CHARACTER IN ECB-BUFFER P IFT CECHO
0x44e6b4…44e848 Dummy {f00=0x0167, f01=0x0190, f02=» KEYS? | P ANK A2,/F P RB(NZ) AKB210 P RB AKB225 6 P EJECT H P* V P* ` P* j 4 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ t P* B P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE (IF ANY) P* P*
0x44e848…44e9dc Dummy {f00=0x0167, f01=0x0190, f02=»ABLE LENGTH IN A4 P ANK A4,/FF & P ADR A1,A4 LAST PLACE IN KEY-TABLE . P ADK A1,1 X PAKB355 SUK A4,1 j , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE P SUK A1,1 NEXT KEY P CCR A2,A1 EOR? P RB(NE) AKB355 NO! P ADK A4,1
0x44e9dc…44eb70 Dummy {f00=0x0167, f01=0x0190, f02=»OR-CHARACTER z " P CF A5,ECHO ECHO EOR-CHARACTER ! P XIF ! : P RF AKB380 ! F PAKB360 EQU * ! X P LDR A4,A2 ! l P CC A4,KBMZ2,A6 ! ~ P RF(E) KBMZ20 ! P CC A4,KBMZ3,A6 ! P RF(E) KBMZ30 ! P CC A4,KBBSP,A6 ! P RF(E) KBSP10 ! P
0x44eb70…44ed04 Dummy {f00=0x0167, f01=0x018e, f02=»ED CHARACTER ! x P RF(N) AKB364 LESS THAN /20 " P SUK A4,/5F CHARACTER > /7F " 8 P RF(P) AKB364 YES " P CWK A7,2 " v $ P RF(E) AKB366 STANDARD READ OK " P ADK A4,/4F " P RF(N) AKB364 " P SUK A4,/A " " P RF(N) AKB366 NUMERIC READ
0x44ed04…44ee98 Dummy {f00=0x0167, f01=0x018e, f02=» " P XIF # P CW A3,4,A8 LENGTH OVERFLOW? # " PAKB367 ABL(L) AKB210 NO RETURN # 8 & PAKB368 LDK A1,8 YES SET ERROR CODE # ^ P RF ENDIO END I/O # P EJECT # PKBMZ30 EQU * TRIPPLE ZERO # P LDK A4,3 # P RF KBMZ25 # PKBMZ20 LDK A4,2 DO
0x44ee98…44f02c Dummy {f00=0x0167, f01=0x018e, f02=» # P IFT CECHO=1 $ P CF A5,ECHO $ P XIF $ 0 P CW A3,4,A8 $ < P RB(L) KBMZ25 $ P PKBMZ27 EQU * $ f P SUK A4,1 ANY MORE ZEROES $ z $ P RB(L) AKB368 NO,SET RETURN CODE $ P INH $ * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER $ P SUR A1,A6
0x44f02c…44f1c0 Dummy {f00=0x0167, f01=0x0190, f02=» P SUK A1,1 % P RF KBMZ40 % 2 PKBMZ29 ADR A1,A6 GET PREIOUS POINTER POSITION % ( P SUK A1,1 % ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? % p P RF(E) KBMZ90 NO NOT REALY. % 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER % & P LDK A2,/30 STOR
0x44f1c0…44f354 (5, 224) Dummy {f00=0x0167, f01=0x0190, f02=» P SCR A4,A1 & $ P ST A1,DWTUTQ,A6 UPPDATE POINTER & ( P LDK A1,/A SET RETURN CODE FOR BOTH & > . PENDIX RF ENDIO LENGTH AND THRUGHPUT ERRORS & j P* & P* & P* & PKBCL10 EQU * CLEAR & P LDK A3,0 & P LDK A2,/18 & P RB AKB366 &
0x44f354…44f4e8 Dummy {f00=0x0167, f01=0x0190, f02=»AR IN ECB-BUFFER & x P CF A15,STORE ' P SUK A3,1 ' . PKBSP15 LDK A2,/8 ' @ P RB AKB366 ' X P* ' j P* ' t PAKB380 LDK A1,0 RETURN CODE ' ~ P EJECT ' P* ' P* ' , P* THIS IS A COMMON END OF THE DRIVER ' P* ' 2 P* SET E
0x44f4e8…44f67c Dummy {f00=0x0167, f01=0x0190, f02=»NH ' P IFT CTIMUT=1 ( P LD A4,DWTTP,A6 ( * P RF(E) ENDI05 NO TIMING ON THIS DEVICE ( 8 P CM* DWTTP,A6 RESET TIMER ( f P CM DWTTP,A6 ( P XIF ( P* ( , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH ( PENDI10 EQU * ( P* ( P IFT CEC
0x44f67c…44f810 Dummy {f00=0x0167, f01=0x0190, f02=» ( P* ) P EJECT ) P* ) P* ) * P* ) 4 P* IHKB ) > P* ) P P* ) Z F P* THIS IS THE INTERRUPT HANDLER ENTERED FROM CHLT/CHRT DRIVER ) d P* ) P* ) P* ) PIHKB EQU * ) P ANK A2,/FF ) * P CF A15,KONVER CONVERT
0x44f810…44f9a4 Dummy {f00=0x0167, f01=0x0190, f02=»D A3,DWTST,A6 NORMAL CHAR ) P IFT KBLOCK=1 * " P ANK A3,/FF * 8 P RF(Z) EXIT * L P LD A3,DWTST,A6 I/O REQUEST? * ` P XIF * * P RF(N) IHKB15 NO READ REQUEST PENDING * " P SLL A3,7 INTERRUPT ALLOWED ? * 4 P RF(NN) IHKB15 NO, STORE CHARACTER I
0x44f9a4…44fb38 Dummy {f00=0x0167, f01=0x0190, f02=»IME * x P ST* A3,DWTTP,A6 + P XIF + $ , PIHKB07 ABL LDREG RETURN TO READ ROUTINE + 0 , PIHKB12 CF A15,KEYSET SET KEY CODE IN DWT + ` P LDR A3,A3 + P RF(Z) EXIT NO KEY CHANGE + P LD A3,DWTST,A6 + ( P RF(N) EXIT NO READ REQUEST PENDING + P
0x44fb38…44fccc Dummy {f00=0x0167, f01=0x0190, f02=»A6 + P ABL AKB210 , P , PIHKB15 LD A1,DWTINQ,A6 , & P LCR A4,A1 , D " P XRK A4,/FF ALREADY OVERFLOW? , V P RF(E) EXIT YES , | P LDR A3,A1 , 4 P CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS , P CW A1,DWTUTQ,A6 OVERFLOW? , ( P RF(NZ)
0x44fccc…44fe60 Dummy {f00=0x0167, f01=0x0190, f02=»NQUEUE POINTER , r PIHKB30 SCR A2,A3 - PEXIT ABL TDISP - . P* - D P EJECT - N P* - P* - f P* - p P* AKBTUT - z P* - & P* THIS IS THE TIME-OUT ROUTINE - P* - P* - P* - P IFT CTIMUT=1 - PAKBTUT EQU * - "
0x44fe60…44fff4 (5, 225) Dummy {f00=0x0168, f01=0x0190, f02=»ATCH IF NO REQUEST ON - , P RB IHKB07 RESTORE REGISTER AND END I/O . P XIF . N P EJECT . Z P* . h P* . r P* . | P* . P* KEYSET . P* . P* . P* . , P* ON ENTRY: A4= NEG KEY-LOCK VALUE . P* . @ P* ON EXI
0x44fff4…450188 Dummy {f00=0x0168, f01=0x0190, f02=» P LDKL A2,/100 / PSET100 SRL A2,1 / P ADK A4,2 IN A4: 1=OFF 0=ON / 2 P RB(N) SET100 / V $ P ANR A3,A2 CHEC OLD KEY POSITION / l " P RF(NZ) SET300 JUMP IF KEY ON / P LDR A4,A4 / P RF(NZ) SET500 / P RF SET400 / PSET300 LDR A4,A4 /
0x450188…45031c Dummy {f00=0x0168, f01=0x0190, f02=»DK A3,1 A3=1 IF KEY LOCK HAS CHANGED / PSET500 LDR* A4,A15 0 , P RTN A15 0 F P EJECT 0 V P* 0 d P* 0 n P* 0 x P* KONVER 0 P* 0 * P* KONVER CONVERTS INPUT CHARACTER 0 P* 0 P* 0 ( P* ON ENTRY: A2= INPUT CHARACTER 0
0x45031c…4504b0 Dummy {f00=0x0168, f01=0x0190, f02=»RL,SHIFT 0 P $ P* A5 IS DESTROYED! 1 P* 1 8 P* 1 B PKONVER EQU * 1 L P LDR A4,A2 1 ` P IFT NSHIFT=0 1 r P SUK A4,/7C CODE > /7B 1 P RF(NN) KON500 YES 1 P LDR A4,A2 RESTORE CHARACTER 1 P XIF 1 8 P STR A2,A15 STORE CHARAC
0x4504b0…450644 Dummy {f00=0x0168, f01=0x0190, f02=»N) KON180 ALFANUMERIC 1 P SUK A4,/10 FUNCTION 2 P RF(NN) KON110 NO 2 : P SUK A2,/40 YES 2 T PKON105 EQU * 2 l P ANK A5,/10 2 P SRL A5,3 2 P RF KON200 2 * PKON110 SUK A4,8 (UN)CTRL OR (UN)SHIFT 2 P RF(N) KON400 KEY-LOCK 2 P RF(
0x450644…4507d8 Dummy {f00=0x0168, f01=0x0190, f02=»4,2 2 P RF(N) KON125 CONTROL OFF 3 $ P RF(E) KON140 NUMERICAL SHIFT ON 3 . " P RF KON160 NUMERICAL SHIFT OFF 3 V P XIF 3 | PKON125 EQU * 3 P LDKL A2,/FFDF UNCTRL 3 PKON120 ANR A5,A2 3 PKON130 STR A5,A6 DWTCHP 3 P LDK A4,/10 3 P R
0x4507d8…45096c Dummy {f00=0x0168, f01=0x0190, f02=» P LDK A2,/90 4 P RF KON150 4 P XIF 4 * PKON145 EQU * 4 6 P LDK A2,/10 SHIFT 4 J PKON150 ORR A5,A2 4 d P RB KON130 4 | PKON160 EQU * 4 P IFT NSHIFT=1 4 P LDR A4,A5 4 P ANK A4,/80 4 P RF(Z) KON165 4 P LDKL A2,/FF7F 4
0x45096c…450b00 Dummy {f00=0x0168, f01=0x0190, f02=» P RB KON150 5 PKON180 SUK A2,/20 FIND INDEX 5 P ANK A5,/30 5 : P SRL A5,3 5 N P ADK A5,4 5 ` 8 PKON200 LD A4,DWTCON,A6 GET CONVERSION TABLE ADDRESS 5 r P ADR A4,A5 5 P LDR* A4,A4 5 P RF(Z) KON400 5 P ADR A4,A2 5 * P LDR* A2,A15
0x450b00…450c94 (5, 226) Dummy {f00=0x0168, f01=0x018e, f02=»15 5 4 PKON400 LDR* A2,A15 NO CONVERSION, KEEP CHARACTER 6 P RB KON300 6 B P IFT NSHIFT=0 6 T PKON500 EQU * 6 j P LDR A4,A4 KEY CODE /7C 6 ~ P RF(Z) KON600 YES 6 & P LDK A4,1 INDICATE SKIP CHARACTER 6 P RTN A15 6 PKON600 EQU * 6 P S
0x450c94…450e28 Dummy {f00=0x0168, f01=0x0190, f02=» 6 ^ 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX 7 P* 7 B P* ON ENTRY: 7 L P* 7 b P* A2 = CHARACTER TO STORE 7 l P* A3 = BUFFER INDEX 7 P* 7 P* 7 PSTORE EQU * 7 P LD A4,2,A8 BUFFER ADDRESS 7 P ADR A4,A3 ADD B
0x450e28…450fbc Dummy {f00=0x0168, f01=0x018e, f02=»P,A15 7 P EJECT 8 P* 8 P* 8 & 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER 8 0 P* 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x450fbc…451150 Dummy {f00=0x0168, f01=0x406c, f02=» * P LDK A1,DWTSQ SET QUEUE START ADDRESS 9 PEOQU10 ADR A1,A6 9 2 P RB STORTN 9 J P END 9 @ 9 h 8 j P* ON ENTRY: 8 t P* 8 P* A1 = QUEUE POINTER 8 P* A6 = DWT-ADDRESS 8 P* 8 P* ON EXIT: 8 P* 8 P* A1 = NE
0x451150…4512e4 Dummy {f00=0x0168, f01=0x2008, f02=» : WTCON,A6 GET CONVERSION TABLE ADDRESS ADR A4,A1 6 ADR A4,A2 H ( # LCR A2,A4 GET CHARACTER FROM TABLE Z RTN A15 END @ A4,2 RF(Z) KON180 CTRL RF(N) KON190 SHIFT LDR A1,8 CTRL AND SHIFT
0x4512e4…451478 Dummy {f00=0x0168, f01=0x0190, f02=» MMUPAG=1 J P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K & P XIF K N P* K Z P IFF TOSS+IBM=0 K d 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K | P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* R
0x451478…45160c Dummy {f00=0x0168, f01=0x0190, f02=» SC A4,DWTA3+1,A6 SAVE IT K P CF A5,SETCIO L " P LDK A2,/14 L 8 P CF A5,FD:REA LOCK L L P ANK A3,1 L f P RF(Z) FDON19 OPERABLE L x P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P*
0x45160c…4517a0 Dummy {f00=0x0168, f01=0x0190, f02=» PFDON21 EQU * M P LDK A2,/C M P CF A5,FD:REA UNLOCK M * P LDK A3,0 M F , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M X P SUK A3,1 M P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6
0x4517a0…451934 (5, 227) Opaque[0x194]
0x451934…451ac8 # DirEnt {nam=»DRKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2d48, f03=0x0000}
0x451934…451ac8 IdxSect {
0x451934…451ac8 f00 = 0x016a // 0x451934 @0x0
0x451934…451ac8 f01 = 0x0012 // 0x451936 @0x2
0x451934…451ac8 gno = [ // 0x451938 @0x4
0x451934…451ac8 [0x00]: C0x016a.0x1.0
0x451934…451ac8 [0x01]: C0x016a.0x2.0
0x451934…451ac8 [0x02]: C0x016a.0x3.0
0x451934…451ac8 [0x03]: C0x016b.0x0.0
0x451934…451ac8 [0x04]: C0x016b.0x1.0
0x451934…451ac8 [0x05]: C0x016b.0x2.0
0x451934…451ac8 [0x06]: C0x016b.0x3.0
0x451934…451ac8 [0x07]: C0x016c.0x0.0
0x451934…451ac8 [0x08]: C0x016c.0x1.0
0x451934…451ac8 ]
0x451934…451ac8 }
0x451ac8…451c5c Dummy {f00=0x016a, f01=0x0190, f02=» 2 P IDENT DRKB01 REL 10.0 80-03-14 870105041000 P : P* B P* L 0 P******************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* DRKB01 = DRIVER KEYBOARD P* P* P* P
0x451c5c…451df0 Dummy {f00=0x016a, f01=0x018e, f02=»M NUMERIC n . P* AND ALPHANUMERIC KEYBOARDS PTS 6231, ( P* 6232, 6233, 6234, 6331,AND 6342 D , P* CONNECTED TO CPU VIA CHLT OR CHRT. p P* , P* ONLY INPUT DATA FROM DEPRESSED KEYS $ P* ARE HANDLED BY THE DRIVER. P*
0x451df0…451f84 Dummy {f00=0x016a, f01=0x0190, f02=» 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P* 8 " P* A C K B : ACTIVATION PART B P* h $ P* I H K B : INTERRUPT HANDLER r P* P* E C H O : ECHO HANDLER P* $ P* R C K B : RECOVERY ROUTINE P* P EJE
0x451f84…452118 Dummy {f00=0x016a, f01=0x018e, f02=» STANDARD READ P* ORDER 03: NUMERIC READ & P* ORDER 04: RESET INPUT BUFFER : P* d P* n P* NORMAL REGISTER USAGE : x P* " P* REGISTER A1 : RETURN CODE & P* A2 : INPUT CHARACTER $ P* A3 :
0x452118…4522ac Dummy {f00=0x016a, f01=0x0190, f02=» P* A7 : ORDER " P* A8 : ECB-ADDRESS $ P* J P EJECT T P* b P* l P* SYSTEM ADAPTATION v P* 4 P* KEYBOARD TYPE MUST BE DEFINED IN FIRST WORD : P* IN DWT. BIT 10 IS RELEVANT FOR ALPHANUMERIC R
0x4522ac…452440 Dummy {f00=0x016a, f01=0x0190, f02=»6232, 6331 AND 6342 x < P* BIT 11 = 0 FOR ALL KEYBOARDS BUT PTS 6342 AND 6234 & P* BIT 11 = 1 FOR PTS 6234,6342 P* 8 P* CODES FOR SPECIAL CHARACTERS CLEAR, BACKSPACE, 8 P* MULTIPLE ZERO AND STANDARD EOR MUST BE DEFINED P
0x452440…4525d4 (5, 228) Dummy {f00=0x016a, f01=0x0190, f02=» IS WANTED, TIMER POINTER , P* IN DWT MUST BE SET UNEQUAL TO ZERO. " 2 P* STANDARD VALUE FOR TIME-OUT IS 30 SECONDS R 4 P* SINCE LAST DEPRESSED KEY. IF ANOTHER VALUE * P* IS WANTED FOR A SYSTEM, INDICATOR $ P* IN DRIVER MUST BE CHA
0x4525d4…452768 Dummy {f00=0x016a, f01=0x0190, f02=» 8 P* NOTE !!! THAT LENGTH MUST BE THE SAME FOR ALL P* DWT:S IN SYSTEM @ P EJECT P* j 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE t 8 P* TO EXCLUDE FROM THE DRIVER FOLLOWING FUNCTIONS: P* P* -----ECHO-FUN
0x452768…4528fc Dummy {f00=0x016a, f01=0x0190, f02=»* AND CONVERSION TABLES 4 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS ALSO ( 4 P* POSSIBLE TO GIVE A KEY THE MEANING OF TWO, ` P* THREE OR MORE ZEROES. P* 6 P* THE DRIVER IS PREPARED TO HANDLE THE SPECIAL 0 P* NORWA
0x4528fc…452a90 Dummy {f00=0x016a, f01=0x0190, f02=»MBLING THE DRIVER CONDITIONALLY THIS P* FUNCTION IS INCLUDED. , P EJECT N P* P* f P************** p P* ENTRIES * P************** P* P ENTRY KBAD ADDRESS-BLOCK ( P ENTRY EOQUEU QUEUE POINTER ROUTINE (
0x452a90…452c24 Dummy {f00=0x016a, f01=0x0190, f02=»XTERNAL TOSS MODULE ENTRIES * 2 P********************************************** 0 P* f $ P EXTRN DISIOE I/0 REQUEST ERROR p . P EXTRN DISEND END I/O AND GO TO DISPATCHER P EXTRN TENDIO END I/O " P EXTRN TDISP DISPATCHER ENTRY
0x452c24…452db8 Dummy {f00=0x016a, f01=0x0190, f02=»EGE RETURN FROM ECHO HANDLING P EXTRN LDREGF & P EXTRN SETIME SET TIME < P EXTRN SETIMP SET TIME Z " P EXTRN SAVE8 SAVE 8 REGISTERS x " P EXTRN ECHRTN RETURN FROM ECHO P EXTRN ECHO ECHO ROUTINE P EXTRN ECHEND END OF ECHO P*
0x452db8…452f4c Dummy {f00=0x016a, f01=0x0190, f02=» P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER $ & " EXTRN DWTADR DRIVER ADDRESS BLOCK F P EXTRN DWTA3 SAVE AREA A3 p EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 & ! EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN D
0x452f4c…4530e0 Dummy {f00=0x016a, f01=0x0190, f02=» P* * POVMASK EQU /2 OVERFLOW IN INPUT BUFFER P* @ . PX:F EQU 8 LENGTH OF CIRCULAR INPUT BUFFER J 2 PDWTLNG EQU 30 NUMBER OF BYTES IN DECIMAL FORM | P* P* TIME BEFORE TIME-OUT P* " PTIME EQU 300 TIME OUT CONSTANT
0x4530e0…453274 (5, 229) Dummy {f00=0x016a, f01=0x0190, f02=» * j , P**************************************** P* : . P* TIME OUT FUNCTION MAY BE EXCLUDED BY D P* SETTING X:A = 0. v P* PX:A EQU 0 PCTIMUT EQU 0 P* * P* ECHO FUNCTION MAY BE EXCLUDED BY P* SETTING
0x453274…453408 Dummy {f00=0x016a, f01=0x0190, f02=»:C = 0. P* PX:C EQU 1 PCSTAND EQU 1 , P* @ . P* DOUBLE ZERO MAY BE INCLUDED IN SYSTEM J ( P* BY SETTING X:D = 2. SETTING X:D | , P* = 3 GIVES A THREE ZERO FUNCTION AND 4 P* X:D = 4 GIVES FOUR-ZERO FUNCTION AND SO ON
0x453408…45359c Dummy {f00=0x016a, f01=0x0190, f02=»* 8 P* BY SETTING X:E = 1 FOLLOWING POWER OFF FUNCTION ( P* CAN BE INCLUDED IN THE DRIVER. F > P* IF THERE IS A READ REQUEST, THIS IS COMPLETED WITH -2 r @ P* SET IN THE CONTROL WORD OF ECB. IF NOT A POWER OFF FLAG B P* IS SET, CAU
0x45359c…453730 Dummy {f00=0x016a, f01=0x0190, f02=»POWOFF EQU 1 P** P** 4 P* BY SETTING X:G TO 1 THE CODE CONVERSION VIA ( 2 P* "8-BIT" SETTING AND CONVERSION TABLES IS ` P* INCLUDED IN THE DRIVER. P** PX:G EQU 0 PCONVER EQU 1 P P* P* 8 P*
0x453730…4538c4 Dummy {f00=0x016a, f01=0x0190, f02=» d < P* BY SETTING CREDIT=1 THIS DRIVER INDEX THE EOR-KEYS B P* IN THE FOLOWING WAY: THE FIRST KEY IN THE EOR-KEY-TABLE H @ P* IS GIVEN INDEX =1, THE SECOND EOR-KEY IS GIVEN INDEX=1 , P* AND SO ON. (INDEX= 1,2,3,4,... ) 8 P* C
0x4538c4…453a58 Dummy {f00=0x016a, f01=0x0190, f02=»THIS DRIVER IS PREPARED x 0 P* TO HANDLE THE NORWAY-CASE WITH BETWEEN . P* THEMSELVES DEPENDENT KEYBOARDS ON THE T P* SAME SELECTOR UNIT. P* PNOLJE EQU 0 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBT
0x453a58…453bec Dummy {f00=0x016a, f01=0x0190, f02=»ON ` . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* < PCPU852 EQU 1 F P* Z P* d P* MMU BUFFER SIZE n P* P* PX:J EQU 10 PDVBLEN EQU 000 P* P* P* MMU KEY TABLE SIZE P* P*
0x453bec…453d80 Dummy {f00=0x016a, f01=0x0190, f02=»PLACEMENT * P*************************** P* < P* F 0 PDWTDRD EQU /10 START OF DRIVER DEFINED PART P P* P IFT MMUPAG=0 PSTART EQU DWTDRD P XIF P* P IFT MMUPAG=1 PSTART EQU DWTDRD+4 P XIF
0x453d80…453f14 (5, 230) Dummy {f00=0x016b, f01=0x0190, f02=»RT+/1A POINTER TO LAST PLACE IN QUEUE & PDWTSQ EQU START+/1C START OF QUEUE . ( PDWTEQ EQU DWTSQ+DWTLNG END OF QUEUE X P* . P***************************************** . P* SPECIAL KEYS DEFINED IN DWT * . P**********************
0x453f14…4540a8 Dummy {f00=0x016b, f01=0x0190, f02=»EQU START+/16 EOR-CHARACTER , PKBMZ EQU START+/17 DOUBLE ZERO CHARACTER $ P* T P EJECT ^ P* l P* v P************** P* TABLES * P************** P* P DATA DVBKTB KEY TABLE SIZE P DATA DVBLEN MMU BUFFER
0x4540a8…45423c Dummy {f00=0x016b, f01=0x0190, f02=»A IHKB INTERRUPT HANDLER P* P IFF POWOFF=1 * P* @ P DATA 0 NO RECOVERY J P* f P XIF p P* | P* P IFT POWOFF=1 P* P DATA RCKB RECOVERY ROUTINE P EJECT P* P* P* R C K B
0x45423c…4543d0 Dummy {f00=0x016b, f01=0x0190, f02=» IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF @ P* L P IFT POWOFF=1 V P IFT CPU852=0 l " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT POWOFF=1 P LD A3,DWTST,A6 BUSY ? P RF(NN) RCKB10 P
0x4543d0…454564 Dummy {f00=0x016b, f01=0x0190, f02=»F AKB202 P* P XIF P* & P EJECT 0 P* > P* H P* A C K B R P* f P* ACTIVATION PART: p P* 0 P* CHECKS VALIDITY OF ORDERS AND EXAMINES , P* INPUT BUFFER TO SEE IF SOME QUEUED P* TO THRE
0x454564…4546f8 Dummy {f00=0x016b, f01=0x0190, f02=» P LDK A3,0 START BUFFER INDEX P LDR A4,A7 , " P RF(NG) AKB100 ILLEGEAL ORDER > P IFT NOLJE=1 d P CWK A7,/37 SELECT KEYBOARD x P RF(E) AKBSEL P XIF P IFT CSTAND=0 P SUK A4,2 , P RF(Z) AKB100 STANDARD READ NOT AL
0x4546f8…45488c Dummy {f00=0x016b, f01=0x0190, f02=»IP INPUT BUFFER P ADK A4,/2D PCRE:10 EQU * , P XIF @ P RF(Z) AKB110 ORDER 4 L P RF(N) AKB200 ORDER 1,2 OR 3 j * PAKB100 ORKL A1,/8000 I/O REQUEST ERROR P ABL ENDI10 P EJECT P* P* $ P* ORDER 4 RESET INP
0x45488c…454a20 Dummy {f00=0x016b, f01=0x0190, f02=»PUT QUEUE v P ABL ENDI05 END I/O P IFT NOLJE=1 . P* B P* L " P* ORDER 37 SELECT KEYBOARD V P* | PAKBSEL LDKL A2,/FF7F * P ANRS A2,A6 RESET ALLOW BITS IN DWTCHP P ABL ENDI10 P XIF P EJECT P* P
0x454a20…454bb4 (5, 231) Dummy {f00=0x016b, f01=0x0190, f02=» P ANKL A2,/200 POWER OFF ? P RF(E) AKB205 * P XRS A2,DWTST,A6 RESET BIT @ P XIF b PAKB202 EQU * n P IFT CREDIT-POWOFF=-1 " P LDKL A1,-2 INDICATE POWER ON P ST A1,10,A8 P XIF P IFT CREDIT+POWOFF=2 P CM 10
0x454bb4…454d48 Dummy {f00=0x016b, f01=0x0190, f02=»* P IFT CTIMUT=1 P* P LDR* A1,A6 * P ANK A1,/40 TIMING ? > , P RF(E) AKB210 NO TIMING FOR THIS DEVICE Z P LD A4,DWTTP,A6 P RF(E) AKBTIM P LDKL A4,-TIME P ST* A4,DWTTP,A6 P RF AKB210 PAKBTIM EQU *
0x454d48…454edc Dummy {f00=0x016b, f01=0x0190, f02=»,TIME TIME OUT ROUTINE AND TIME . P ST A4,DWTTP,A6 STORE TIMER ADDRESS IN DWT ( P* Z P XIF d P* p & PAKB210 LD A2,4,A8 REQUESTED LENGTH z , PAKB220 RF(E) AKB380 RESET A1 AND END I/O P LDR A3,A3 FIRST TIME ? P RF(NE) AKB240 NO
0x454edc…455070 Dummy {f00=0x016b, f01=0x0190, f02=»UK A1,1 NEXT CHAR. POSITION P SUK A2,1 LAST ? ! $ P RB(NE) AKB230 NO ! < P EJECT ! V P* ! d , P* READ CHARACTER FROM INPUT BUFFER OR ! n & P* WAIT FOR KEY-BOARD INTERRUPT ! P* ! PAKB240 EQU * ! P LD A1,DWTUTQ,A6 ! P LCR A2,A1
0x455070…455204 Dummy {f00=0x016b, f01=0x0190, f02=»OVMASK OVERFLOW SET ! P RF ENDIO " . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? " . P RF(NE) AKB260 " ` " P CF A5,STREG NOTHING IN QUEUE " v P IFT CTIMUT=1 " * P LDR A1,A1 CHECK TIME OUT RETURN CODE " P RF(Z) AKB270 NO TIME-OUT " " P RF EN
0x455204…455398 Dummy {f00=0x016b, f01=0x018e, f02=»TER " h & P ST A1,DWTUTQ,A6 STORE NEW POINTER # PAKB270 LDR A4,A7 # 6 P SUK A4,2 # N P RF(NN) AKB310 ORDER 2 OR 3 # ` P EJECT # P* # P* # P* ORDER 1 BASIC READ # P* # 0 P CF A15,STORE STORE CHARACTER IN ECB-BUFFER # P IFT
0x455398…45552c Dummy {f00=0x016b, f01=0x0190, f02=» # P EJECT $ P* $ P* $ 2 P* ORDER 2 OR 3 STANDARD AND NUMERIC READ $ * P* $ ` 6 P* CHECK IF READ CHARACTER IS FOUND IN KEY-TABLE $ j P* $ P* $ ( PAKB310 LD A1,10,A8 KEY-TABLE ADDRESS $ P RF(Z) AKB359 NO KEYTABLE $ " P L
0x45552c…4556c0 Dummy {f00=0x016b, f01=0x018e, f02=» , P RF(N) AKB360 KEY NOT FOUND IN KEY-TABLE % P SUK A1,1 NEXT KEY % 4 P CCR A2,A1 EOR-CHARACTER? % N P RB(NE) AKB355 NO % p P IFT CREDIT=0 % P ADR A4,A4 YES DOUBLE INDEX % P XIF % P IFT CREDIT=1 % ( P ADK A4,1 INDEX STARTS AT ONE,INCR
0x4556c0…455854 (5, 232) Dummy {f00=0x016b, f01=0x0190, f02=» % P* & 4 PAKB359 CC A2,KBEOF,A6 STANDARD END OF RECORD KEY & P RB(E) AKB358 YES & J P EJECT & d P* & r * P* CHARACTER NOT FOUND IN KEY-TABLE. & | P* CHECK CHARACTER CODE. & P* & PAKB360 EQU * & P CF A5,CHEK CHECK CHARACTER &
0x455854…4559e8 Dummy {f00=0x016b, f01=0x0190, f02=» RF AKB363 & PAKB361 EQU * ' P LDR* A4,A6 ' & P ANK A4,/10 PTS 6234 ? ' : P RF(E) AKB362 ' X P LDR A4,A2 ' n P ANK A4,/80 ' P RF(NE) AKB362 ' P LDR A4,A2 ' P RF AKB363 ' PAKB362 EQU * ' P LDR A4,A2 CHARACTER ' P ANK A4,/B
0x4559e8…455b7c Dummy {f00=0x016b, f01=0x0190, f02=» P CC A4,KBCLR,A6 CLEAR? ( P RF(E) KBCL10 ( " P CC A4,KBBSP,A6 BACKSPACE? ( 8 P RF(E) KBSP10 ( Z P LDR A1,A1 RETURN CODE? ( p ( P RF(NE) AKB369 YES,STORE AND END I/O ( P CF A15,STORE ( PAKB365 EQU * ( P IFT CECHO=1 ( P CF A5,ECHO EC
0x455b7c…455d10 Dummy {f00=0x016b, f01=0x0190, f02=»ENDIO AND END I/O ( 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER ) P RF ENDIO END I/O REQUEST ) T P EJECT ) v P* ) P* ) ( P* CHECK CODE OF END OF RECORD KEY ) P* ) P* ) PAKB370 EQU * ) P IFT CECHO=1 ) P CF A5,C
0x455d10…455ea4 Dummy {f00=0x016b, f01=0x0190, f02=»ECHO CHARACTER ) P* * P XIF * P* * , PAKB380 LDK A1,0 RETURN CODE * 6 P EJECT * Z P* * h P* * r , P* THIS IS A COMMON END OF THE DRIVER * | P* * 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O * $ P* ON KEYBOARD AND ECHO-DE
0x455ea4…456038 Dummy {f00=0x016b, f01=0x018e, f02=» TIMING ON THIS DEVICE * P CM* DWTTP,A6 RESET TIMER + P CM DWTTP,A6 + @ P XIF + T P* + ` , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH + j PENDI10 EQU * + P* + P IFT CECHO=1 + P LDR A4,A1 SAVE A1 + ( P CF A5,ECHEND END I/O ON ECHO DEVI
0x456038…4561cc Dummy {f00=0x016b, f01=0x0190, f02=» P* MULTIPLE ZERO , P* , P IFF CMULTZ=0 , ( PKBMZ10 EQU * , > ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES , R , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO , ~ P SUK A4,1 , P RB(L) AKB240 ALL DONE , P LDR A1,A4 SAVE A4 , , P CF A15,STORE ST
0x4561cc…456360 Dummy {f00=0x016b, f01=0x018e, f02=» , P* - P* - P IFF CMULTZ=0 - P* - 2 " P CW A3,4,A8 LENGTH OVERFLOW ? - < P RB(L) KBMZ20 NO - b . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? - z P RB(L) AKB368 NO - P INH - * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER - P SUR A1,A6
0x456360…4564f4 (5, 233) Dummy {f00=0x016b, f01=0x0190, f02=» P SUK A1,1 . P RF KBMZ40 . 2 PKBMZ30 ADR A1,A6 GET PREIOUS POINTER POSITION . ( P SUK A1,1 . ^ , PKBMZ40 CW A1,DWTINQ,A6 ANY SPACE LEFT ? . p P RF(E) KBMZ90 NO NOT REALY. . 0 P ST A1,DWTUTQ,A6 STORE NEW OUTQUEUE POINTER . & P LDK A2,/30 STOR
0x4564f4…456688 Dummy {f00=0x016b, f01=0x018e, f02=»UFFER OWERFLOW . z P SCR A4,A1 / $ P ST A1,DWTUTQ,A6 UPPDATE POINTER / ( ( P LDK A1,/A SET RETURN CODE FOR BOTH / P * P RB ENDIO LENGTH AND THRUGHPUT ERRORS / | P XIF / P* / P* CLEAR / P* / & PKBCL10 LDK A3,0 RESET BUFFER INDEX / & P L
0x456688…45681c Dummy {f00=0x016b, f01=0x0190, f02=» / l P RF(Z) KBSP15 0 $ P SUK A3,1 DECREMENT BUFFER INDEX 0 P LDK A2,/00 CLEAR ECB-BUFFER 0 F P CF A15,STORE 0 j P SUK A3,1 DECREMENT INDEX 0 * PKBSP15 LDK A2,/8 CHANGE CHARACTER-CODE 0 P RB AKB365 0 P EJECT 0 P* 0 P* C H E K 0
0x45681c…4569b0 Dummy {f00=0x016b, f01=0x0190, f02=» 0 | P* A3 = BUFFER INDEX 1 P* A6 = DWT-ADDRESS 1 & P* A7 = ORDER 1 D P* 1 P* 1 f P* ON EXIT: 1 p P* 1 P* A1 = RETURN CODE 1 P* 1 PCHEK EQU * 1 P STR A2,A15 SAVE A2 ON STACK 1 P ANK A2,/FF 1 " P LDR*
0x4569b0…456b44 Dummy {f00=0x016b, f01=0x0190, f02=»0 1 ( P ORK A1,/5F 5F OR 7F AS UPPER LIMIT 2 P LDK A4,/20 LOWER LIMIT 2 6 P RF CHEK08 2 V P* 2 h P XIF 2 r P* 2 ~ PCHEK05 ANK A1,/10 2 P RF(NE) CHEK06 2 P ANK A2,/3F RESET BIT 9 2 " PCHEK06 LDK A1,/39 UPPER LIMIT 2 P LDK A4,/3
0x456b44…456cd8 Dummy {f00=0x016b, f01=0x0190, f02=» P LDR* A1,A15 3 PCHEK10 LDK A1,0 RETURN CODE 3 PCHEK20 RTN A5 3 < P* 3 R P* 3 P* CODE CHECK ERROR 3 f P* 3 . PCHERRO LDK A1,4 SET RETURN CODE AND RETURN 3 " P LDR* A2,A15 RELOAD CHARACTER 3 P RB CHEK20 3 P EJECT 3 P*
0x456cd8…456e6c Dummy {f00=0x016b, f01=0x0190, f02=» PIHKB EQU * 4 P IFT NOLJE=1 4 P LDR* A3,A6 GET ALLOW BITS 4 * P ANK A3,/C0 4 L 4 P RF(E) IHNOL3 INPUT ALLOWED FROM BOTH KEYBOARDS 4 ` P LDK A4,1 4 P ANK A3,/80 4 P RF(E) IHNOL1 4 P LDK A4,5 4 PIHNOL1 LDR A3,A2 4 P SRL A3,12
0x456e6c…457000 Dummy {f00=0x016b, f01=0x0190, f02=» WORD 4 " P SRL A4,11 DEVICE ADDRESS * 2 5 P ANK A4,/E 5 4 $ P CC A4,DWTBC,A6 8-BIT SETTING ? 5 F P RF(NE) IHKB03 5 n P LDR A3,A2 5 P ANK A3,/3F 5 P SUK A3,/30 5 P RF(N) IHKB01 5 P SUK A3,/A 5 P RF(N) IHKB02 5 PIHKB01 ORK A
0x457000…457194 (5, 234) Dummy {f00=0x016c, f01=0x0190, f02=»F(E) IHKB04 5 P LDR A4,A2 6 P ANK A4,/FF 6 & P SRL A4,3 LINE INDEX 6 : P ADR A3,A4 6 V $ P LDR* A3,A3 COLUMN TABLE ADDRESS 6 h P RF(E) IHKB04 6 P LDR A4,A2 6 P ANK A4,/F 6 P ADR A3,A4 ADD ROW INDEX 6 P LCR A2,A3 GET CHARACTER 6
0x457194…457328 Dummy {f00=0x016c, f01=0x0190, f02=» A3,/22 6 P RF(Z) IHNOL6 7 P SUK A3,1 7 & P RF(NZ) IHNOL8 7 8 P RF IHNOL7 7 N PIHNOL6 ADK A2,7 7 ` PIHNOL7 ANKL A2,/FF3F 7 x PIHNOL8 EQU * 7 P* 7 P XIF 7 P* 7 P LD A3,DWTST,A6 I/O REQUEST? 7 P RF(N) IHKB10 7 " P SLL A
0x457328…4574bc Dummy {f00=0x016c, f01=0x0190, f02=»,DWTTP,A6 7 * P RF(E) IHKB05 NO TIMING ON THIS DEVICE 8 P LDKL A3,-TIME RESTART TIME 8 @ P ST* A3,DWTTP,A6 8 d P* 8 | P XIF 8 P* 8 , PIHKB05 ABL LDREG RETURN TO READ ROUTINE 8 PIHKB10 LD A1,DWTINQ,A6 8 P LCR A4,A1 8 " P XRK A4,/FF
0x4574bc…457650 Dummy {f00=0x016c, f01=0x018e, f02=»A6 OVERFLOW? 8 P RF(NE) IHKB20 NO! 9 0 P ORK A2,/FF SET OVERFLOW BIT IN INPUT BUFFER 9 . P RF IHKB30 9 b 0 PIHKB20 ST A1,DWTINQ,A6 STORE INQUEUE POINTER 9 t 4 PIHKB30 SCR A2,A3 STORE CHARACTER IN INPUT BUFFER 9 PEXIT ABL TDISP 9 P IFT NOLJE=1 9
0x457650…4577e4 Dummy {f00=0x016c, f01=0x0190, f02=» 9 P RB(NE) IHNOL2 : $ PIHNOL4 ORRS A4,A6 SET ALLOW BIT : P RB IHNOL2 : F P XIF : X P EJECT : d P* : r P* : | P* A K B T U T : P* : & P* THIS IS THE TIME-OUT ROUTINE : P* : P* : P IFT CTIMUT=1 : P* : PAK
0x4577e4…457978 Dummy {f00=0x016c, f01=0x018e, f02=»RN CODE : | , P RB IHKB05 RESTORE REGISTERS AND END I/O ; P* ; @ P XIF ; J P EJECT ; V P* ; d 4 P* STORE = SUBROUTINE TO STORE A CHARACTER IN ; n 6 P* ECB-BUFFER AND INCREMENT BUFFER INDEX ; P* ; P* ON ENTRY: ; P* ;
0x457978…457b0c Dummy {f00=0x016c, f01=0x0190, f02=» ; t P ADR A4,A3 ADD BUFFER INDEX < ( P SCR A2,A4 STORE CHARACTER IN BUFFER < , $ P ADK A3,1 INCREMENT BUFFER INDEX < X P ANK A2,/7F < P RF EOQU20 RTN A15 AND ENB < P EJECT < P* < P* < 6 P* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINT
0x457b0c…457ca0 Dummy {f00=0x016c, f01=0x4162, f02=»: < P* = P* A1 = NEW QUEUE POINTER = PEOQUEU EQU * = 8 P INH = L P ADK A1,1 = X P SUR A1,A6 = j P CWK A1,DWTEQ END OF QUEUE? = | P RF(NE) EOQU10 = * P LDK A1,DWTSQ SET QUEUE START ADDRESS = PEOQU10 ADR A1,A6 = ( PEOQU20 ADKL
0x457ca0…457e34 (5, 235) Dummy {f00=0x016c, 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
0x457e34…457fc8 Dummy {f00=0x016c, f01=0x0190, f02=»4,/10 WRITE NUMBER OF WORDS $ P WER A1,/11 WRITE BUFFER ADDRESS $ " PREAD21 CIO A2,1,0 READ SECTOR L & P RB(NA) READ21 LOOP UNTIL ACCEPTED r PREAD22 SST A2,0 STATUS & P RB(NA) READ22 LOOP UNTIL ACCEPTED P ANK A2,/1F STATUS * P RB(NZ) RD
0x457fc8…45815c Dummy {f00=0x016c, f01=0x0190, f02=»OR VERSION A3 P* PRDSEC3 EQU * P LDK A2,0 4 * P LDR A1,A11 GET LOGICAL SECTOR NUMBER F P LDKL A7,/1000 t P LDKL A4,/3000 PDIV300 EQU * P SUR A1,A4 P RF(N) DIV310 P ADR A2,A7 P RB DIV300 PDIV310 E
0x45815c…4582f0 Dummy {f00=0x016c, f01=0x018e, f02=» A1,1 P ST A1,SAVMEM 6 P RF(NP) CASE10 ,XXXX , , OR , XX,XX , $ P ADK A2,1 , , XXXX, ^ PCASE10 EQU * P LDR A4,A2 P SRL A4,5 P CW A4,CYLNBR P RF(E) INT300 , P ST A4,CYLNBR STORE NEW CYLINDER NUM
0x4582f0…458484 Dummy {f00=0x016c, f01=0x0190, f02=» | P RB(NA) SEEK30 P* PSEEK31 SST A4,0 GET STATUS ( P RB(NA) SEEK31 J P* ` P* INTERLACING j P* PINT300 EQU * P LDR A3,A2 P ADR A2,A2 $ P ADR A2,A3 INTERLACING FACTOR 3 P ANK A2,/1F & P LD A4,CYL
0x458484…458618 Dummy {f00=0x016c, f01=0x0190, f02=» PINT310 EQU * P ANK A2,/1F & P SLL A2,2 INTERLACED SECTOR NUMBER , . P ST A2,SECNBR STORE PHYSICAL SECTOR NUMBER V P EJECT P* P* READ SECTOR P* P LDR A7,A9 BUFFER ADDRESS * PREAD34 LDKL A4,MXCCD3 NUMBER OF WORDS
0x458618…4587ac Dummy {f00=0x016c, f01=0x0190, f02=» r & P RB(NA) READ30 LOOP UNTIL ACCEPTED P* 2 PREAD31 SST A2,0 GET STATUS < & P RB(NA) READ31 LOOP UNTIL ACCEPTED ^ P ANK A2,/1F STATUS * P RB(NZ) RDSEC3 LOOP UNTIL CORRECT READ P LDR A2,A9 BUFFER ADDRESS P LDR A1,A1 " P RF(
0x4587ac…458940 Dummy {f00=0x016c, f01=0x0190, f02=»O MOVE t PREAD32 EQU * , XX,XX , P LDR* A1,A2 2 P STR A1,A7 F P ADK A2,2 X P ADK A7,2 j P SUK A4,1 | " P RB(NZ) READ32 CONTINUE MOVING P LD A1,SAVMEM P RF(P) RETURN ( P LD A2,SECNBR PHYSICAL SECTOR NUMBER
0x458940…458ad4 (5, 236) Opaque[0x194]
0x458ad4…458c68 # DirEnt {nam=»DRGP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x29c0, f03=0x0000}
0x458ad4…458c68 IdxSect {
0x458ad4…458c68 f00 = 0x014e // 0x458ad4 @0x0
0x458ad4…458c68 f01 = 0x000e // 0x458ad6 @0x2
0x458ad4…458c68 gno = [ // 0x458ad8 @0x4
0x458ad4…458c68 [0x00]: C0x014e.0x0.0
0x458ad4…458c68 [0x01]: C0x0153.0x1.0
0x458ad4…458c68 [0x02]: C0x0153.0x2.0
0x458ad4…458c68 [0x03]: C0x0153.0x3.0
0x458ad4…458c68 [0x04]: C0x0154.0x0.0
0x458ad4…458c68 [0x05]: C0x0154.0x1.0
0x458ad4…458c68 [0x06]: C0x0154.0x2.0
0x458ad4…458c68 ]
0x458ad4…458c68 }
0x458c68…458dfc Dummy {f00=0x014e, f01=0x0190, f02=» 2 P IDENT DRGP01 REL 10.0 80-03-14 870105041000 P : P PRR 10.0 79-12-07 B * P =3,CORRECTION OF MMU BUFFER EQUATE ^ P REL 9.1 79-04-06 & P =1-2,GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDE
0x458dfc…458f90 Dummy {f00=0x014e, f01=0x0190, f02=»************************************** P* . $ P* PHILIPS TERMINAL SYSTEM PTS 8 P* ` ( P* DRGP01 = DRIVER GENERAL PRINTER j P* P* P* P* P* P* 6 P*************************************************
0x458f90…459124 Dummy {f00=0x014e, f01=0x0190, f02=». Z P* 8 P* THE DRIVER ALSO INCLUDES DEVICE DEPENDENT ECHO 6 P* FUNCTIONS, WHICH MAKES IT POSSIBLE TO USE THE P 6 P* GENERAL PRINTER AS AN ECHO DEVICE TO ANY KEY- 4 P* BOARD, THAT RUNS UNDER THE GENERAL KEYBOARD P* DRIVER
0x459124…4592b8 Dummy {f00=0x014e, f01=0x0190, f02=» P* ( P* I H G P INTERRUPT HANDLER P* : ( P* R C G P RECOVERY ROUTINE D P* p & P* E C H O G P ECHO FUNCTIONS z P* P EJECT P* * P* THE FOLLOWING ORDERS ARE TREATED: P* P* ORDER
0x4592b8…45944c Dummy {f00=0x014e, f01=0x0190, f02=» P* " P* REGISTER A1 = RETURN CODE ( P* A2 = OUTPUT CHARACTER 4 $ P* A3 = BUFFER INDEX ` $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6 = DWT-ADDRESS P*
0x45944c…4595e0 Dummy {f00=0x014e, f01=0x0190, f02=» ECHO OF BACKSPACE (GPBSP) AND CLEAR ~ ( P* (GPCLR) KEYS SHOULD BE DEFINED. , P* X 8 P* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER IS b 0 P* ADAPTED TO HANDLE FOLLOWING FUNCTIONS. P* --ROOMLESS POINT : P* --ACCEPTANCE OF SPE
0x4595e0…459774 (5, 237) Dummy {f00=0x0153, f01=0x0190, f02=»ECHOING OF END OF RECORD CHARACTER * P** --SUPPRESION OF TRAILING BLANKS * @ P* --END OF REQUEST WHEN PRINTER HARDWARE BECOMES INACTIVE X P* 6 P* THE CHARACTER CODES FOR ROOMLESS POINT DIGITS F P* IS DEFINED IN A SPECIAL TABLE. STAN
0x459774…459908 Dummy {f00=0x0153, f01=0x0190, f02=»*** P* P* P* ( P ENTRY GPAD ADDRESS TO ADDRESSBLOCK * 0 P ENTRY ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE V P* P* P* P* . P***************************************** . P* EXTERNAL TOSS MODULE ENTRIES
0x459908…459a9c Dummy {f00=0x0153, f01=0x0190, f02=»T SUBROUTINE TO SEND CHARACTER P EXTRN TDISP DISPATCHER & > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN F P EXTRN TENDIO END I/O . P EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK 0 P EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO
0x459a9c…459c30 Dummy {f00=0x0153, f01=0x0190, f02=»ETERS * P************************ P* 2 P* < P EXTRN DWTST STATUS F EXTRN DWTBC BYTE COUNTER b P EXTRN DWTOR ORDER P EXTRN DWTA3 SAVE AREA A3 P* P EJECT P* P* P************* P* CONS
0x459c30…459dc4 Dummy {f00=0x0153, f01=0x0190, f02=»T OF MESSAGE PETB EQU /97 END OF MESSAGE PETX EQU /03 LAST DUMMY 6 PCR EQU /0D CARRIAGE RETURN T PLF EQU /0A LINE FEED v PFFED EQU /0C FORM FEED PSPACE EQU /20 SPACE 0 PPROUT EQU /04 PAPER OUT OR READY SWITCH OFF P*
0x459dc4…459f58 Dummy {f00=0x0153, f01=0x0190, f02=»****************************** P* & 2 P* IT IS POSSIBLE TO EXCLUDE ROOMLESS POINT 0 $ P* FUNCTION BY SETTING X:A = 0 f P* PX:A EQU 1 PCROOM EQU 1 P* 4 P* ACCEPTANCE OF SPECIAL CHARACTER /13 CAN BE 0 P* INC
0x459f58…45a0ec Dummy {f00=0x0153, f01=0x0190, f02=»ER /14 CAN BE n 0 P* INCLUDED IN THE DRIVER BY SETTING X:C=1 P* J PX:C EQU 0 T PFJOTON EQU 0 f P* z . P* IT IS POSSIBLE TO EXCLUDE ECHOING OF , P* AN EXTRA SPACE AFTER EACH CHARACTER P* BY SETTING X:D=0 P*
0x45a0ec…45a280 Dummy {f00=0x0153, f01=0x0190, f02=»LE ^ 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:E=0. F P* PX:E EQU 0 PEORECH EQU 0 P* 4 P* SUPPRESSING OF SPACES IN RIGHT HAND OF LINE P* BY SETTING X:F=
0x45a280…45a414 (5, 238) Dummy {f00=0x0153, f01=0x018e, f02=»RINTER HARDWARE x * P* IS INACTIVE CAN BE CHOSEN BY SETTING P* THE CONSTANT RECEND = 1 F PX:G EQU 0 h PRECEND EQU 1 z P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG
0x45a414…45a5a8 Dummy {f00=0x0153, f01=0x0190, f02=» d P* PCPU852 EQU 1 P* & P* MMU BUFFER SIZE 0 P* L PX:H EQU 120 V PDVBLEN EQU 000 j P* =1 , P* SPECIAL CONDITION FOR ABIS PRINTER =1 PABIS EQU 0 =1 P EJECT P* P* $ P****************
0x45a5a8…45a73c Dummy {f00=0x0153, f01=0x0190, f02=»10 START OF DRIVER DEFINED PART P* ( P IFT MMUPAG=0 2 PSTART EQU DWTDRD H P XIF ` P* l P IFT MMUPAG=1 v PSTART EQU DWTDRD+4 P XIF P* . PDWTAP EQU START+/12 HEAD POSITION POINTER P* * P****************
0x45a73c…45a8d0 Dummy {f00=0x0153, f01=0x0190, f02=»BSP EQU /2D BACK SPACE PGPCLR EQU /3F CLEAR P* : P******************** D P* RETURN CODES * ` P******************** | P* 0 PPAROUT EQU /20 PAPER OUT OR READY SWITCH OFF " PCCERR EQU /4 CODE CHECK ERROR " PTPERR EQU /2
0x45a8d0…45aa64 Dummy {f00=0x0153, f01=0x0190, f02=»BLES * P********** P* P* * P IFT CROOM=1 4 P* H PROMTAB EQU * R * P TABLE FOR ROOMLESS POINT CHARACTERS f ( P DATA /2122,/2426,/3B3C,/3E40,/5E5F P* P XIF P* P* P* " P DATA DVBLEN MMU BUF
0x45aa64…45abf8 Dummy {f00=0x0153, f01=0x0190, f02=»ADDRESS z P DATA IHGP INTERRUPT HANDLER P DATA RCGP RECOVERY ROUTINE 4 . P DATA ECHOGP DEVICE-DEPENDENT ECHO-ROUTINE X P EJECT P* P* A C G P P* 2 P* ACGP = ACTIVATION DRIVER GENERAL PRINTER P* H P* ORD
0x45abf8…45ad8c Dummy {f00=0x0153, f01=0x0190, f02=» RETURN CODE IS ALSO SET IF TIME-OUT IS SIGNALLED FROM P* CHANNEL UNIT. H P* l > P* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO PRINTER v " P* FROM ECB-BUFFER P* F P* ORDER 06: STANDARD WRITE. C
0x45ad8c…45af20 Dummy {f00=0x0153, f01=0x0190, f02=»DK A2,STX START OF MESSAGE P LDR A3,A7 =1 " P RF(Z) ACGP10 ORDER 0 =2 8 P SUK A3,5 =1 X P RF(E) ACGP09 ORDER 5 =1 n P SUK A3,1 =1 ( P ABL(NE) DISIOE I/O REQUEST ERROR =1 * P LD A3,4,A8 ORDER 6 GET REQ LENGTH =1 P RF(Z) ACG
0x45af20…45b0b4 (5, 239) Dummy {f00=0x0153, f01=0x0190, f02=» A3,/2B =1 $ P RF(E) ACGP06 CONTROL CHAR 2B =1 P CF A5,OUTPUT SEND STX =1 < P LDK A2,CR =1 ^ P CF A5,OUTPUT =1 t P IFT ABIS=1 =1 P LDK A2,FFED =1 P CWK A3,/31-/2B =1 $ P RF(E) ACGP03 CONTROL CHAR 31 =1 P XIF
0x45b0b4…45b248 Dummy {f00=0x0153, f01=0x0190, f02=»DK A2,LF =1 , PACGP03 LDK A1,1 RESET HEAD POS COUNTR =1 P ST A1,DWTAP,A6 =1 D * PACGP06 LDK A3,2 START BUFFER INDEX =1 ` PACGP09 CF A5,OUTPUT =1 P RF ACGP19 =1 P EJECT =2 P* =2 P* ORDER 00: TEST =2 N P*
0x45b248…45b3dc Dummy {f00=0x0153, f01=0x0190, f02=» CF A5,OUTPUT =2 * P LDK A2,0 SEND CHAR /00=END OF TEST =2 P CF A5,OUTPUT =2 H P RF AGP410 =2 b P EJECT x P* & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) P* PACGP17 CF A5,OUTPUT 0 PACGP18
0x45b3dc…45b570 Dummy {f00=0x0153, f01=0x0190, f02=» IFT SUPSPA=1 4 P CF A15,SKIPSP SKIP SPACES IN END OF ECB-BUFFER P XIF N P LDK A4,0 Z 6 PACGP20 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER l P LDR A1,A1 LAST CHARACTER? P RF(NP) AGP400 YES P LDR A1,A2 P SUK A7,5 ORDER 5?
0x45b570…45b704 Dummy {f00=0x0153, f01=0x0190, f02=»N POINTER n P RB ACGP17 * PACGP22 SUK A1,8 TABULATION CHARACTER ? $ P RF(E) ACGP40 R P IFT ABIS=1 =1 h P CWK A2,/07 BELL ? =1 P RB(E) ACGP09 =1 P XIF =1 P* P IFT TRETON=0 P IFT FJOTON=0 P*
0x45b704…45b898 Dummy {f00=0x0153, f01=0x0190, f02=» P RB(E) ACGP17 P SUK A1,/C LESS THAN /20 ? P* @ P XIF J P* V P* ` P IFT TRETON=1 j P IFT FJOTON=0 P* P SUK A1,2 /13 ? P RB(E) ACGP17 P SUK A1,/D LESS THAN /20 ? P XIF P* P*
0x45b898…45ba2c Dummy {f00=0x0153, f01=0x0190, f02=»CGP17 P SUK A1,/C LESS THAN /20 ? P* 0 P XIF : P* F & P RF(N) ACGP30 YES,CODE CHECK ERROR P & P SUK A1,/8E ROOMLESS POINT? (AE) z P RF(E) AGP100 P ADK A1,/4F GREATER THAN /5F P RB(NP) ACGP17 NO P SUK A1,/20
0x45ba2c…45bbc0 Dummy {f00=0x0153, f01=0x018e, f02=» PACGP24 EQU * P SUK A1,/D P RF(NZ) ACGP26 NOT CR . " P CM DWTST,A6 SET POS LTR.TO 0 L ( P CM DWTAP,A6 RESET HEAD POS.POIINTER r PACGP26 ADK A1,3 P RB(NZ) ACGP17 NOT LINE FEED P SUK A1,1 * P ADS A1,DWTST,A6 DECREMENT P
0x45bbc0…45bd54 (5, 240) Dummy {f00=0x0154, f01=0x018e, f02=» P ORS A1,8,A8 RETURN CODE P RB ACGP20 ( P EJECT : P* H P* TABULATION R P* j PACGP40 EQU * t , P CF A15,GETCHR GET FIRST ASCII CHARACTER P LDR A4,A2 . P CF A15,GETCHR GET SECOND ASCII CHARACTER P ANK A2,/F
0x45bd54…45bee8 Dummy {f00=0x0154, f01=0x0190, f02=» 8 PACGP44 SU A2,DWTAP,A6 SUBTRACT HEAD POSITION POINTER P LC A4,DWTBC,A6 @ , P SUR A2,A4 AND REQUESTS POSITION COUNTER X & P TO GET NUMBER OF SPACES TO SEND P RB(NP) ACGP20 P LDR A4,A2 : PACGP45 LDK A2,SPACE LOOP ALSO USED BY RECOVERY
0x45bee8…45c07c Dummy {f00=0x0154, f01=0x018e, f02=»A3 RECOVERY? P RB(NE) ACGP20 * P SC A4,DWTBC,A6 RESET POSITION POINTER * P LDK A3,2 START BUFFER INDEX X P RB ACGP19 | P EJECT P* P* ROOMLESS POINT P* PAGP100 EQU * P* P IFT CROOM=1 P* ( P
0x45c07c…45c210 Dummy {f00=0x0154, f01=0x0190, f02=» P IFF CROOM=1 ! P* ! P ANK A2,/7F ! " P* ! 6 P XIF ! @ P* ! L P RB ACGP17 ! V P EJECT ! h P* ! v P* ! ( P* SEND LAST DUMMY , LOAD A1 WITH ! P* RETURN CODE AND END I/O ! P* ! PAGP400 EQU * ! P LDK A2,ETB END
0x45c210…45c3a4 Dummy {f00=0x0154, f01=0x018e, f02=»BIS=1 =1 ! P ANK A2,/4 PAPER IN ? =1 " P RF(NZ) AGP420 YES =1 " 2 " P LDK A1,/20 SET RETURN CODE =1 " P P XIF =1 " v PAGP420 EQU * " 0 P CF A15,UPDAPP UPDATE HEAD POSITION COUNTER " PENDIO CF A15,TENDIO END I/O " $ PEXIT ABL TDISP GO TO
0x45c3a4…45c538 Dummy {f00=0x0154, f01=0x0190, f02=» " P* # , P* UPDAPP = SUBROUTINE TO UPDATE HEAD # , P* POSITION POINTER WHEN END # B ( P* OF REQUEST IS REACHED # r PUPDAPP EQU * # ( P LC A3,DWTBC,A6 GET POSITION COUNTER # 2 P ADS A3,DWTAP,A6 UPDATE HEAD POSITION POIN
0x45c538…45c6cc Dummy {f00=0x0154, f01=0x0190, f02=» P* $ * P* SKIPSP = SUBROTINE TO SKIP SPACES $ ( P* IN END OF ECB-BUFFER. $ < 6 P* REQUESTED LENGTH IN ECB IS UPDATED. $ h & P* A1,A2,A4 - WORK REG $ P* $ PSKIPSP EQU * $ ( P LD A1,2,A8 GET BUFFER ADDRESS
0x45c6cc…45c860 Dummy {f00=0x0154, f01=0x0190, f02=» RL < 3 $ P SUK A1,1 DECR. BA % P LCR A4,A1 GET CHAR % * P CCK A4,/2020 SPACE ? % F P RF(NE) SKIP20 NO % d PSKIP07 SUK A2,1 DECR RL % ~ P RB SKIP05 GET NEXT % PSKIP20 CWK A2,4 % P RF(NG) SKIP30 RL < 5 % P LC A4,-2,A1 GET CHAR %
0x45c860…45c9f4 (5, 241) Dummy {f00=0x0154, f01=0x0190, f02=»ET NEXT % P* & " PSKIP30 ST A2,4,A8 STORE NEW RL & P RTN A15 & @ P XIF & P P EJECT & P* & j P* I H G P & t P* & P* INTERRUPT & P* & PIHGP EQU * & P LD A4,DWTST,A6 BUSY? & P RB(N) EXIT NO & P SLL A4,2 ECHO M
0x45c9f4…45cb88 Dummy {f00=0x0154, f01=0x0190, f02=» P IFT RECEND=0 ' P RB(NZ) EXIT ' P XIF ' . P IFT RECEND=1 ' : P RB(NZ) AGP430 ' P P XIF ' f P ' r 4 PIHGP10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 ' z PIHGP20 LDR A1,A1 =2 ' , P RB(Z) IHGP10 TEST ORDER AND TIME OUT =2 ' P RB ENDIO
0x45cb88…45cd1c Dummy {f00=0x0154, f01=0x0190, f02=»GP EQU * ' P LDK A4,COSPAC ( P LDR A7,A7 EOR? ( & P RF(N) ECGP17 YES ( > P* ( X P IFT EORECH=0 ( b P* ( x P SUK A2,/80 EOR-CHARACTER ( P RF(NN) ECGP20 YES ( P ADK A2,/80 ( P* ( P XIF ( P* ( P LDR A1,A2 ( P ANK
0x45cd1c…45ceb0 Dummy {f00=0x0154, f01=0x0190, f02=» CR =1 ( P RF(E) ECGP10 YES =1 ) P SUK A1,/B =1 ) * P RF(E) ECGP50 CLEAR ) @ 8 P SUK A1,/20-/8-/10 CHECK THAT CHAR IS WITHIN /20-/5F ) P RF(N) ECGP20 ) P SUK A1,/5F-/20 ) P RF(P) ECGP20 ) & PECGP10 CF A5,OUTPUT SEND CHARACTER ) ( P I
0x45ceb0…45d044 Dummy {f00=0x0154, f01=0x0190, f02=» P* * P IFT COSPAC=1 * P* * $ P LDK A2,SPACE NO SEND SPACE * . P RB ECGP10 * R P* * d P XIF * n P* * z 6 PECGP17 CF A15,UPDAPP UPDATE HEAD POSITION POINTER * ( PECGP20 ABL ECHRTN RETURN TO KEYBOARD * P EJECT * P* * P* B
0x45d044…45d1d8 Dummy {f00=0x0154, f01=0x0190, f02=»* * PECGP50 EQU * + " P LDK A2,GPCLR CLEAR CHARACTER + P LDK A4,3 + D P RB ECGP10 + V PECGP60 LDK A2,LF LINE FEED + h P LC A3,DWTBC,A6 + P ANK A3,/FF + " PECGP70 CF A5,OUTPUT SEND CHAR. + P LDK A2,/08 BACKSPACE + P SUK A3,1 +
0x45d1d8…45d36c Dummy {f00=0x0154, f01=0x0190, f02=» R C G P + P* , 0 P* RCGP = RECOVERY ROUTINE GENERAL PRINTER , P* , N P* , X ( P* RECOVERY IS CARRIED OUT ONLY IF , b P* ORDER 6 IS RUNNING , P* , P* ON ENTRY: , P* , P* A6 = DWT-ADDRESS , P* A7 = ORDER ,
0x45d36c…45d500 Dummy {f00=0x0154, f01=0x0190, f02=» P IFT CPU852=0 - " P MSR 8,A15 SAVE A1-A8 ON STACK - P XIF - @ P* - L P LD A2,DWTST,A6 BUSY ? - V P RB(N) EXIT NO - t ( P LDK A2,SOH RESET PRINT BUFFER CODE - P CF A5,OUTPUT SEND IT - P CWK A7,5 - P RF(E) RCGP10 - P CWK A7,6 OR
0x45d500…45d694 (5, 242) Dummy {f00=0x0154, f01=0x018e, f02=»6 GET LEFT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x45d694…45d828 Dummy {f00=0x0154, f01=0x4008, f02=»@ / FT BYTE OF STATUS WORD - P ANK A2,/4 LINE FEED DONE ? . & P ABL(E) ACGP NO . J P LDK A2,SPACE . b P CF A5,OUTPUT SEND SPACE . x P LDK A2,STX . P CF A5,OUTPUT SEND STX . P LDK A2,CR CARRIAGE RETURN . P LDK A3,0 . 0 P LD A4,DWT
0x45d828…45d9bc Dummy {f00=0x0154, f01=0x2008, f02=» 0 YTE OF STATUS WORD % ~ P ANK A2,/4 LINE FEED DONE ? & " P ABL(E) ACGP NO & F P LDK A2,STX & ^ P CF A5,OUTPUT SEND STX & r P LDK A2,CR CARRIAGE RETURN & P LDK A3,0 & 0 P LD A4,DWTAP,A6 GET NUMBER OF SPACES TO SEND & P RB ACGP46 & (
0x45d9bc…45db50 Dummy {f00=0x0154, f01=0x0190, f02=» ( p P RF ENDIO AND END I/O ) 6 PAKB369 CF A15,STORE STORE CHARACTER IN ECB BUFFER ) & P RF ENDIO END I/O REQUEST ) ` P EJECT ) P* ) P* ) ( P* CHECK CODE OF END OF RECORD KEY ) P* ) P* ) PAKB370 EQU * ) P IFT CECHO=1 )
0x45db50…45dce4 Dummy {f00=0x0154, f01=0x0190, f02=» CF A5,ECHO ECHO CHARACTER ) P* * " P XIF * , P* * 8 PAKB380 LDK A1,0 RETURN CODE * B P EJECT * f P* * t P* * ~ , P* THIS IS A COMMON END OF THE DRIVER * P* * 2 P* SET EFFECTIVE LENGTH AND PERFORM END I/O * $ P* ON KEYBOARD
0x45dce4…45de78 Dummy {f00=0x0154, f01=0x0190, f02=»E) ENDI05 NO TIMING ON THIS DEVICE * P CM* DWTTP,A6 RESET TIMER + * P CM DWTTP,A6 + L P XIF + ` P* + l , PENDI05 ST A3,6,A8 STORE EFFECTIVE LENGTH + v PENDI10 EQU * + P* + P IFT CECHO=1 + P LDR A4,A1 SAVE A1 + ( P CF A5,ECHEND END I/O
0x45de78…45e00c Dummy {f00=0x0154, f01=0x018e, f02=» P* , P* MULTIPLE ZERO , P* , ( P IFF CMULTZ=0 , 2 PKBMZ10 EQU * , H ( P LDK A4,CMULTZ LOAD NUMBER OF ZEROES , , PKBMZ20 LDK A2,/30 ZERO TO STORE AND ECHO , P SUK A4,1 , P RB(L) AKB240 ALL DONE , P LDR A1,A4 SAVE A4 , , P CF A1
0x45e00c…45e1a0 Dummy {f00=0x0154, f01=0x0190, f02=» , x P XIF - P* - P* - P IFF CMULTZ=0 - ( P* - > " P CW A3,4,A8 LENGTH OVERFLOW ? - H P RB(L) KBMZ20 NO - n . PKBMZ25 SUK A4,1 ANY MORE ZEROES TO STORE ? - P RB(L) AKB368 NO - P INH - * P LD A1,DWTUTQ,A6 GET OUTQUEUE POINTER -
0x45e1a0…45e334 (5, 243) Opaque[0x194]
0x45e334…45e4c8 # DirEnt {nam=»DRDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2a98, f03=0x0000}
0x45e334…45e4c8 IdxSect {
0x45e334…45e4c8 f00 = 0x0154 // 0x45e334 @0x0
0x45e334…45e4c8 f01 = 0x0018 // 0x45e336 @0x2
0x45e334…45e4c8 gno = [ // 0x45e338 @0x4
0x45e334…45e4c8 [0x00]: C0x0154.0x3.0
0x45e334…45e4c8 [0x01]: C0x0155.0x1.0
0x45e334…45e4c8 [0x02]: C0x0155.0x2.0
0x45e334…45e4c8 [0x03]: C0x0155.0x3.0
0x45e334…45e4c8 [0x04]: C0x0156.0x0.0
0x45e334…45e4c8 [0x05]: C0x0156.0x1.0
0x45e334…45e4c8 [0x06]: C0x0156.0x2.0
0x45e334…45e4c8 [0x07]: C0x0156.0x3.0
0x45e334…45e4c8 [0x08]: C0x0157.0x0.0
0x45e334…45e4c8 [0x09]: C0x016c.0x3.0
0x45e334…45e4c8 [0x0a]: C0x016d.0x0.0
0x45e334…45e4c8 [0x0b]: C0x016d.0x1.0
0x45e334…45e4c8 ]
0x45e334…45e4c8 }
0x45e4c8…45e65c Dummy {f00=0x0154, f01=0x0190, f02=» 2 P IDENT DRDY01 REL 10.0 80-03-14 870105041000 P : . P =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE B P PRR 10.0 79-12-07 t 4 P =6,CORRECTION OF SPECIAL CHARTACTER HANDLING P REL 10.1 79-10-19 P =5,ABORT ROUTINE P REL 1
0x45e65c…45e7f0 Dummy {f00=0x0154, f01=0x0190, f02=».1 79-04-06 , P =2,ERASE ONLY TO LAST POS. OF SCREEN P PRR 9.1 79-01-31 D . P =1 DRIVER ADAPTAD TO HANDLE PTS 6385 ` P PRR 9.1 79-01-12 P P* 6 P************************************************** P* $ P*
0x45e7f0…45e984 Dummy {f00=0x0154, f01=0x0190, f02=» P* P* 6 P************************************************** P* R P* : P* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS f @ P* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 P* AND PTS 6386 6 P* T
0x45e984…45eb18 Dummy {f00=0x0154, f01=0x0190, f02=»HO-FUNCTIONS d : P* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN : P* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE R ( P* GENERAL KEYBOARD DRIVER DRKB01. P* P* 0 P* THE DRIVER CONSISTS OF FOLLOWING PARTS: P*
0x45eb18…45ecac Dummy {f00=0x0154, f01=0x018e, f02=»ERY ROUTINE x P* & P* E C H O D Y ECHO FUNCTIONS P* H P R P Z P b P* j * P* THE FOLLOWING ORDERS ARE TREATED: t P* P* ORDER 00: TEST STATUS P* 05: BASIC WRITE " P* 06: STANDARD
0x45ecac…45ee40 Dummy {f00=0x0154, f01=0x0190, f02=» P* NORMAL REGISTER USAGE P* & " P* REGISTER A1 = RETURN CODE 0 ( P* A2 = OUTPUT CHARACTER V $ P* A3 = BUFFER INDEX $ P* A4 = WORK REGISTER " P* A5 = STACK BASE " P* A6
0x45ee40…45efd4 (5, 244) Dummy {f00=0x0155, f01=0x0190, f02=»* SYSTEM ADAPTATION P* < P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. ( P* h * P* --------------------------------- r P* BIT: 10 11 P* -------------- " P* 0 0 PTS 6344 * P* 0
0x45efd4…45f168 Dummy {f00=0x0155, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: 4 P* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT 8 , P* -IS ADAPTED TO CONTROL ONLY PTS 6344 p : P* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 8 P* -CAN SUPPRESS ECHOING OF END OF RECORD
0x45f168…45f2fc Dummy {f00=0x0155, f01=0x0190, f02=»JECT P* P* P* P* * P*********** 4 P* ENTRIES * H P*********** P* p P* z P* ( P ENTRY DYAD ADDRESS TO ADDRESSBLOCK 0 P ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE P* P* P*
0x45f2fc…45f490 Dummy {f00=0x0155, f01=0x0190, f02=»******************* z P* P* & $ P EXTRN DISIOE I/O REQUEST ERROR 0 . P EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER X P EXTRN TDISP DISPATCHER > P EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN P EXTRN TENDIO END I/O .
0x45f490…45f624 Dummy {f00=0x0155, f01=0x0190, f02=» ECB-BUFFER p P EJECT P* " P************************ , P* DWT PARAMETERS * L P************************ l P* P EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER P EXTRN DWTOR ORDER P* P EJECT P**
0x45f624…45f7b8 Dummy {f00=0x0155, f01=0x018e, f02=»RESS t " PULSTAR EQU /12 UNDERLINE START " PULSTOP EQU /13 UNDERLINE STOP 2 & PLISTAR EQU /1E LOW INTENSITY START X & PLISTOP EQU /1F LOW INTENSITY STOP PBACKSP EQU /08 BACKSPACE PLF EQU /0A LINE FEED PHOME EQU /0B CURSOR HOME ( P
0x45f7b8…45f94c Dummy {f00=0x0155, f01=0x0190, f02=» z PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE , PETX EQU /03 LAST DUMMY N . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE l * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOLD FO
0x45f94c…45fae0 Dummy {f00=0x0155, f01=0x0190, f02=»** ~ P* RETURN CODES * P******************** & P* B " PCCERR EQU /4 CODE CHECK ERROR L ( POPERR EQU /1 NOT OPERABLE, POWER OFF r P* P EJECT P* P* . P***************************************** . P* CONDITI
0x45fae0…45fc74 (5, 245) Dummy {f00=0x0155, f01=0x0190, f02=»VER CAN HANDLE GRAFIC MODE FOR PTS 6351 t P* 0 PX:A EQU 0 : PGRAFIC EQU 0 L P* ` < P* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 j P* PX:B EQU 1 PWHATDY EQU 1 P* P* 8 P* BY SETTING X:C TO 1 L
0x45fc74…45fe08 Dummy {f00=0x0155, f01=0x0190, f02=» BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE 8 P* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. : 8 P* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 v P* PX:D EQU 0 PEORECH EQU 0 P* 0 P* BY SETTING THE CONSTANT
0x45fe08…45ff9c Dummy {f00=0x0155, f01=0x0190, f02=» P EJECT P* 2 P* BY SETTING X:F = 1, CURSOR WILL BE STEADY P* INSTEAD OF BLINKING R PX:F EQU 0 r PSTEADY EQU 0 P* < P* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT P* BY SETTING MMUPAG = 1 P*
0x45ff9c…460130 Dummy {f00=0x0155, f01=0x0190, f02=»852 EQU 0. p P* PCPU852 EQU 1 P* 0 8 P* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE : < P* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. v P P P* CODE COUNTRY P P* 0 GB/NL/B P* 1 D/A/L/CH
0x460130…4602c4 Dummy {f00=0x0155, f01=0x0190, f02=»0 PCOUNTRY EQU 0 P* & P* MEMORY MANAGEMENT BUFFER SIZE * P* T P* ^ PX:H EQU 64 h PDVBLEN EQU 000 z P* P EJECT P* P* $ P******************************** $ P* DWT-DISPLACEMENT *
0x4602c4…460458 Dummy {f00=0x0155, f01=0x0190, f02=»G=0 PSTART EQU DWTDRD P XIF $ P* 0 P IFT MMUPAG=1 : PSTART EQU DWTDRD+4 P P XIF j P* v . PDWTAP EQU START+/12 HEAD POSITION POINTER " PDWTPOS EQU START+/15 POSITIONS PDWTLIN EQU START+/14 LINES & PDWTBIN EQU STA
0x460458…4605ec Dummy {f00=0x0155, f01=0x018e, f02=»* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX , PDYAD EQU * ADDRESS BLOCK H P DATA ACDY ACTIVATION DRIVER h $ P DATA ABDY ABORT ROUTINE ADDRESS P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE . P DATA ECHODY
0x4605ec…460780 Dummy {f00=0x0155, f01=0x0190, f02=» P EJECT P* P* A C D Y P* 0 * P* ACDY = ACTIVATION DRIVER DISPLAY : P* h H P* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE r 2 P* IS SET IF DISPLAY NOT OPERABLE P* P* > P
0x460780…460914 (5, 246) Dummy {f00=0x0155, f01=0x0190, f02=» ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM < P* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. H P* L P* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') J P* ARE FOUND EQUAL, FAST O
0x460914…460aa8 Dummy {f00=0x0155, f01=0x0190, f02=»1 B P* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED @ P* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER P * P* IS SENT TO THE DISPLAY. P* P XIF : P* ORDER /B: CURSOR POSITIONING AND STANDARD W
0x460aa8…460c3c Dummy {f00=0x0155, f01=0x0190, f02=» V @ P* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) P* IS EXECUTED. L P* p < P* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE z < P* WHERE THE CURSOR IS POSITIONED THE NUMBER @ P*
0x460c3c…460dd0 Dummy {f00=0x0155, f01=0x0190, f02=» IN THE CURSOR POSITION. THE CURSOR RE- * P* MAINS IN THAT POSITION. 0 PACDY EQU * ^ P LDK A3,0 START BUFFER INDEX p P LDK A4,0 COUNTER P LDR A7,A7 ORDER 0 ? P ABL(E) ADY410 YES P LDK A2,STX START OF MESSAGE P
0x460dd0…460f64 Dummy {f00=0x0155, f01=0x0190, f02=»NO P IFT GRAFIC=1 P CWK A7,7 ORDER ' ? P ABL(E) ADY500 < P XIF R P IFT WHATDY=0 ^ . P LDK A2,/12 INDICATE SWITCH TO ALPHA MODE t P CF A5,OUTPUT P* P XIF P* PACDY02 EQU * P CWK A7,5 ORDER 5
0x460f64…4610f8 Dummy {f00=0x0155, f01=0x0190, f02=» SUK A7,/26 ORDER ERASE ? P ABL(E) ADY160 YES " P* < & PDYERR ABL DISIOE I/O REQUEST ERROR F P EJECT p : P* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER ~ P* ARE CARRIED OUT. 0 P* /2B NO MOVING OF PRINT HEAD
0x4610f8…46128c Dummy {f00=0x0155, f01=0x0190, f02=», LF z P* PACDY20 EQU * $ P LD A2,4,A8 GET REQUESTED LENGTH * P RF(E) ACDY25 R P LDK A3,2 START BUFFER INDEX h " P LD A2,2,A8 GET BUFFER ADDRESS & P LC A2,1,A2 GET CONTROL CHARACTER P ANK A2,/FF PACDY25 EQU * * P SUK
0x46128c…461420 Dummy {f00=0x0155, f01=0x0190, f02=»ED v " P ADK A2,1 DOUBLE LINE FEEED ? P RF(NE) ACDY30 0 ( P ADK A4,1 INDICATE DOUBLE LINE FEED F P r P z $ PACDY30 LDK A2,CR CARRIAGE RETURN PACDY35 LDK A1,1 2 P SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER 8 P* SEND CARRIA
0x461420…4615b4 (5, 247) Dummy {f00=0x0156, f01=0x018e, f02=»F(N) ACDY90 START SECTION ENDED? P LC A1,DWTLIN,A6 LINES ( P CC A1,DWTAP,A6 LAST LINE ? F P RF(L) ACDY55 j ( P LDKL A2,/100 INCREMENT LINE COUNTER P ADS A2,DWTAP,A6 & PACDY55 LDK A2,LF LINE FEED TO SEND P RB ACDY50 ( PACDY65 L
0x4615b4…461748 Dummy {f00=0x0156, f01=0x018e, f02=» & P* GET, CHECK AND SEND CHARACTER P* (IF ORDER 5 NO CHECK) . P* P PACDY70 EQU * Z P IFT WHATDY=0 n & 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,A8 2
0x461748…4618dc Dummy {f00=0x0156, f01=0x0190, f02=» P CF A5,OUTPUT 2 PACDY80 CF A15,POSUPD POSITION COUNTER UPDATING P IFT TRASPA=1 T ( P LD A1,2,A8 GET BUFFER ADDRESS (BA) j ( P LD A2,4,A8 GET REQUESTED LENGTH(RL) $ P ADR A1,A2 GET ADD END OF BUFFER PSKIP05 CWK A2,2 P RF(NG
0x4618dc…461a70 Dummy {f00=0x0156, f01=0x0190, f02=»IP07 SUK A2,1 DECR RL P RB SKIP05 GET NEXT ! PSKIP20 CWK A2,4 ! : P RF(NG) SKIP30 RL < 5 ! R P LC A4,-2,A1 GET CHAR ! p $ P CCK A4,/1111 TABULATION CHAR ? ! P RF(NE) SKIP25 NO! ! P SUK A1,2 DECR BA ! P SUK A2,2 DECR RL ! P RB
0x461a70…461c04 Dummy {f00=0x0156, f01=0x0190, f02=»P07 YES! SKIP IT! ! P SUK A4,/C LOW INT. START? " P RB(Z) SKIP07 YES! " < P SUK A4,1 LOW INT. STOP? " V P RB(Z) SKIP07 YES! " v P* " " PSKIP30 ST A2,4,A8 STORE NEW RL " P XIF " PACDY90 LDK A4,0 " 6 PADY100 CF A15,GETCHR GET CHARACTER F
0x461c04…461d98 Dummy {f00=0x0156, f01=0x0190, f02=»/7F " P LDK A1,5 SET TABLE POINTER # " P CC A2,TABSPE,A1 FAST OUTPUT? # 0 P RF(E) ADY125 # V P SUK A1,1 NO! # l " P LDR* A7,A6 CHANNEL PARAMETER # P ANK A7,/30 GRAFIC DISPLAY ? # P RF(E) ADY110 NO # P LDK A1,5 SET TABLE PONTER # * PAD
0x461d98…461f2c Dummy {f00=0x0156, f01=0x0190, f02=»4,/80 # , PADY120 ORRS A4,A6 SET LOW INTENSITY MODE $ P LDK A4,0 $ > P RB ACDY50 $ P $ PADY122 CCK A2,/1212 UNDERLINE ? $ b P RF(NE) ADY125 $ " P LDK A4,/40 SET UNDERLINE MODE $ P RB ADY120 $ & PADY125 CCK A2,/1414 FAST OUTPUT ? $ P LDK A
0x461f2c…4620c0 Dummy {f00=0x0156, f01=0x0190, f02=» LD A4,4,A8 REQ LENGTH $ P SUR A4,A3 NUMBER OF CHARS % P RF(Z) ADY127 NONE % @ P* % Z P IFT WHATDY=0 % d & P LDR* A7,A6 GET CHANNEL PARAMETER % z P ANK A7,/10 % 2 P RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? % P XIF % P LDR A3,A1 NO!
0x4620c0…462254 (5, 248) Dummy {f00=0x0156, f01=0x0190, f02=» EQU * % P SUK A1,1 GET NEXT & P RB(NN) ADY110 NOT AT END & ( P LDR A1,A2 MOVE CHARACTER & J P SUK A1,/11 TAB CHAR? (11) & l P RF(E) ADY140 & P SUK A1,/F LESS THAN /20 ? & " P RF(N) ADY130 CODE CHECK ERROR & P SUK A1,/3F GREATER THAN /
0x462254…4623e8 Dummy {f00=0x0156, f01=0x0190, f02=»/40 TO /5F & x P XIF ' P RB ACDY70 ' P* ' 0 P* ' : P IFT WHATDY=0 ' D POTHER EQU * ' Z P************************ ' n P* A3 = INDEX ' P* A1 = CHARACTER ' P* A4 = NUMBER ' P************************ ' P LC A2,DWTBC,A6 ' P
0x4623e8…46257c Dummy {f00=0x0156, f01=0x0190, f02=» ANK A3,/FF ' P ST A4,10,A8 SAVE LENGTH ( P SUR A3,A2 COMPARE ( 4 P RF(NN) OT030 LENGTH OK ( N P ADR A4,A3 ( n P ST A4,10,A8 SAVE LENGTH ( 0 P ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS ( POT030 EQU * ( & P LDR A3,A1 SAVE CHARACTER TO SEN
0x46257c…462710 Dummy {f00=0x0156, f01=0x0190, f02=»,10,A8 GET ACT. LENGTH ( POT040 LDK A2,BACKSP ) P CF A5,OUTPUT SENDBACKSPACE ) : P SUK A4,1 DECREMENT LENGTH ) ^ P RB(P) OT040 ) P RB ADY127 ) P XIF ) P EJECT ) P* ) P* CODE CHECK ERROR ) P* ) PADY130 EQU * ) P L
0x462710…4628a4 Dummy {f00=0x0156, f01=0x0190, f02=»QU * ) , P CF A15,GETCHR GET FIRST ASCII CHARACTER * P LDR A4,A2 * < . P CF A15,GETCHR GET SECOND ASCII CHARACTER * N 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 * P RB(NE)
0x4628a4…462a38 Dummy {f00=0x0156, f01=0x0190, f02=»EQUESTS POSITION COUNTER * & P TO GET NUMBER OF SPACES TO SEND + P RB(NP) ADY100 + J P LDR A4,A2 + ` & PADY145 LDK A2,CURRIG CURSOR RIGHT + r PADY146 CF A5,OUTPUT + , P CF A15,POSUPD POSITION COUNTER UPDATING + P SUK A4,1 READY ? + P RB(NE
0x462a38…462bcc Dummy {f00=0x0156, f01=0x0190, f02=» CHAR TO ERASE + p P IFT WHATDY=0 , " P LDR* A1,A6 CHANNEL PARAMETER , , P ANK A1,/10 GRAFIC DISPLAY? , R P RF(NE) ADY166 YES =2 , v P XIF , & P CF A5,ERA GET LENGTH TO ERASE =2 , P LDK A3,/20 , P CF A5,FASTER FAST OUTPUT , PADY165 L
0x462bcc…462d60 Dummy {f00=0x0156, f01=0x0190, f02=»ET LENGTH TO ERASE =2 , P* - $ PADY170 SUK A4,1 DECR NO OF CHAR - ( P RF(N) ADY180 ERASE READY - P P LDK A2,/20 SPACE - r P CF A5,OUTPUT SEND IT - P RB ADY170 - PADY180 LD A4,10,A8 - & P CF A5,ERA GET LENGTH TO ERASE =2 - P LDR A3,
0x462d60…462ef4 (5, 249) Dummy {f00=0x0156, f01=0x0190, f02=» RB(N) ADY165 CURSOR IN ORIGIN POSITION - P LDK A2,BACKSP CURSOR LEFT . 0 P CF A5,OUTPUT SEND IT . R P RB ADY186 AGAIN . p P XIF . P EJECT . P* . * P* ORDER /B CURSOR POSITIONING PART . P* . PADY200 EQU * . P* . P IFT W
0x462ef4…463088 Dummy {f00=0x0156, f01=0x0190, f02=» SET CURSOR ADDRESS DIRECT . | 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 / P RF ADY380 / P IFT WHATDY=0 / P* GET LINE / * PADY205 LC A4,10,A8 GET REQUE
0x463088…46321c Dummy {f00=0x0156, f01=0x0190, f02=» PADY207 EQU * 0 $ P LC A3,DWTAP,A6 GET ACTUAL LINE 0 PADY210 CWR A4,A3 0 @ . P RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL 0 X P RF(E) ADY300 SAME LINE 0 P LDK A2,LF LINE FEED 0 * P ADK A3,1 INCREMENT ACTUAL LINE NUMBER 0 PADY230 CF A5,OUTPUT
0x46321c…4633b0 Dummy {f00=0x0156, f01=0x0190, f02=»ME HOME 0 & P LDK A3,1 RESET ACTUAL LINE NUMBER 1 " P ST A3,DWTAP,A6 RESET POSITION 1 : P RB ADY230 1 ` P* 1 r P* GET POSITION 1 | P* 1 2 PADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER 1 ( P LC A4,11,A8 GET REQUESTED POSITION 1 $ P CC A4
0x4633b0…463544 Dummy {f00=0x0156, f01=0x0190, f02=»SITION ? 1 ~ P RF(NE) ADY305 NO 2 P CWR A4,A3 FIRST LINE ? 2 * P RF(NE) ADY305 NO 2 J P LDK A2,HOME CURSOR GO HOME 2 d P RF ADY330 2 * PADY305 RF(NL) ADY307 REQ. POS NOT ZERO 2 P LDK A4,1 2 0 PADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION 2
0x463544…4636d8 Dummy {f00=0x0156, f01=0x0190, f02=» ADY370 POSITION FOUND 2 P RF(N) ADY340 BACK 3 P LDK A2,CURRIG CURSOR RIGHT 3 8 & P ADK A3,1 UPDATE POSITION COUNTER 3 PADY330 CF A5,OUTPUT SEND 3 P RB ADY310 3 . PADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. 3 , P CWR A3,A4 COMPARE BACKSTEPS W
0x4636d8…46386c Dummy {f00=0x0156, f01=0x0190, f02=»Y330 3 " PADY345 LDK A2,BACKSP BACKSPACE 4 P CF A5,OUTPUT SEND 4 2 P SUK A3,1 LAST BACKSPACE ? 4 L P RB(NE) ADY345 4 n 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 P XIF 4 & PADY380 LDK A3,2 START BUFFER INDEX 4 P ABL ACDY90 4
0x46386c…463a00 Dummy {f00=0x0156, f01=0x0190, f02=» 4 P* 5 P* 5 8 P* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL 5 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 5 X P* 5 PADY405 EQU * 5 & P LDR* A1,A6 GET CHANNEL PARAMETER 5 P ANK A1,/30 6344 ? 5 P RF(NE) ADY407 NO 5
0x463a00…463b94 (5, 250) Dummy {f00=0x0156, f01=0x0190, f02=» P CF A5,OUTPUT 6 * PADY406 ANK A4,/80 LOW INTENSITY MODE ? 6 P RF(E) ADY407 6 H & P LDK A2,LISTOP LOW INTENSITY STOP 6 ^ P CF A5,OUTPUT 6 PADY407 EQU * 6 $ P LDK A2,ETB END OF TEXT MESSAGE 6 P CF A5,OUTPUT SEND CHARACTER 6 0 P CF A15,UP
0x463b94…463d28 Dummy {f00=0x0156, f01=0x018e, f02=»F(Z) ADY415 ORDER ERASE =7 6 * P LD A4,DWTAP,A6 GET CURSOR POSITION =4 7 " , P ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 7 P PADY415 EQU * 7 P ADK A7,/31-5 =7 7 ( P RF(NE) ADY420 NOT ORDER BASIC WRITE 7 P LDKL A4,/101 HOME POSITION 7 P ST A4,DWT
0x463d28…463ebc Dummy {f00=0x0156, f01=0x018e, f02=» 7 P* 8 P EJECT 8 P* 8 P* GRAPHIC PART 8 * P* 8 D PADY500 EQU * 8 N P LDK A2,/11 8 b ( P CF A5,OUTPUT SWITCH TO GRAFIC MODE 8 v & PADY510 CF A15,GETCHR GET CHARACTER 8 P LDR A1,A1 BUFFER EMPTY 8 P RB(E) ADY400 8 P LDR A
0x463ebc…464050 Dummy {f00=0x0156, f01=0x0190, f02=» 8 t P* 9 P* ADDRESS MESSAGE 9 P* 9 . P* SET FIRST OUT PUT IN A2 9 8 P* AND SECOND IN A4 9 P* 9 z P SLL A1,4 9 P LDR A4,A2 9 P SRL A4,4 9 P ORR A4,A1 9 P ANK A2,/F 9 P ANK A4,/7F 9 P ORK A2,/20 9 , PAD
0x464050…4641e4 Dummy {f00=0x0156, f01=0x0190, f02=»Y510 9 P EJECT : P* : P* DATA MESSAGE : $ P* : > " P* FIRST OUTPUT IS SET IN A2 : H P* AND SECOND IN A4 : n P* : PADY530 SLL A1,13 : P LDR A4,A2 : P SLL A2,5 : P ORR A1,A2 : P LDK A7,10 : P LDK A2,0 : P
0x4641e4…464378 Dummy {f00=0x0156, f01=0x0190, f02=»ADY540 : PADY560 LDR A4,A2 ; P SRL A4,4 ; & P ANK A4,/3F ; 8 P ANK A2,/F ; L P ORK A2,/60 ; ^ P RB ADY515 ; r P* ; P XIF ; P* ; P EJECT ; P* ; , P* UPDAPP = SUBROUTINE TO UPDATE HEAD ; , P* POSITION POINT
0x464378…46450c Dummy {f00=0x0156, f01=0x0190, f02=»DWTAP,A6 UPDATE HEAD POSITION POINTER ; P LDK A3,0 < . , P SC A3,DWTBC,A6 RESET POSITION COUNTER < @ P RTN A15 < p P* < 6 P* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION < 0 P* POINTER WHEN REQUEST RUNNING. < > P* A
0x46450c…4646a0 Dummy {f00=0x0156, f01=0x0190, f02=» < 2 P AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER = P ANK A2,/FF = > " P CC A2,DWTPOS,A6 END OF ROW ? = R P RF(P) POSU10 = x , P IM DWTST,A6 INCREMENT POSITION COUNTER = PPOSU10 RTN A15 = P EJECT = P* = P* I H D Y = P* =
0x4646a0…464834 (5, 251) Dummy {f00=0x0157, f01=0x0190, f02=»F(N) IHDY10 = . 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* >
0x464834…4649c8 Dummy {f00=0x0157, f01=0x0190, f02=»T-ADDRESS > P* A7 = ORDER ? P* A8 = ECB-ADDRESS ? * PRCDY EQU * ? H P IFT CPU852=1 ? Z & P CF A15,SAVE8 SAVE A1-A8 ON STACK ? p P XIF ? P* ? P IFT CPU852=0 ? " P MSR 8,A15 SAVE A1-A8 ON STACK ? P XIF ? P* ? P =3
0x4649c8…464b5c Dummy {f00=0x0157, f01=0x0190, f02=» =1 ? P =1 @ P =1 @ P* @ ( P IFT WHATDY=0 @ 2 P* @ H " P LDR* A2,A6 CHANNEL PARAMETER @ R " P ANK A2,/10 GRAPHIC DISPLAY ? @ x P RF(E) RCDY10 NO @ . P LDK A2,RETURN RETURN TO ALPHANUMERIC MODE @ P CF A5,OUTPUT @ P* @ P
0x464b5c…464cf0 Dummy {f00=0x0157, f01=0x0190, f02=»BLOCK ? @ x P RF(NE) RCDY20 A P IFT WHATDY=0 =1 A & P IFF STEADY+COUNTRY=0 =1 A @ * P LDR* A2,A6 GET CHANNEL PARAMETERS =1 A b " P ANK A2,/20 PTS 6385/6386 ? =1 A P RF(Z) RCDY14 NO =3 A * P LDK A3,100 SET UP TRANSFER COUNTER =3 A 4 PRCDY12 L
0x464cf0…464e84 Dummy {f00=0x0157, f01=0x0190, f02=» SUK A3,1 DEC TRANSFER COUNTER =3 A , P RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 B * . P LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 B Z P CF A5,OUTPUT =1 B * P LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 B P ORK A2,/30 =1 B P CF A5,OUTPUT =1 B P
0x464e84…465018 Dummy {f00=0x0157, f01=0x0190, f02=» HOME B x P CF A5,OUTPUT SEND C P LDKL A2,/101 C ( 6 P ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER C > P LDR A3,A3 GET OLD STATUS C x P RB(N) ENDIO NOT BUSY C " P LDK A1,OPERR SET RETURN CODE C PRCDY15 ABL ADY420 C P EJECT C P*
0x465018…4651ac Dummy {f00=0x0157, f01=0x0190, f02=» LDK A1,2 INDICATE THROUGHPUT ERROR C P RB RCDY15 D , & PRCDY25 LDK A2,STX START OF MESSAGE D > P CF A5,OUTPUT D h 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK D ~ P ANK A4,/FF D P RF(E) RCDY30 D . P CF A5,BACCAN SEND BACKSPACES AND RUB OU
0x4651ac…465340 Dummy {f00=0x0157, f01=0x0190, f02=»CHODY = DEVICE-DEPENDENT ECHO-ROUTINE D P* E . PECHODY EQU * E 8 P LDR A7,A7 EOR? E L P RF(N) ECDY17 YES E d P LDR A3,A2 SAVE CHARACTER E ~ P* E P IFT EORECH=0 E P* E P SUK A2,/80 E $ P RF(NN) ECDY20 NOT TO BE ECHOED E P A
0x465340…4654d4 (5, 252) Dummy {f00=0x016c, f01=0x0190, f02=»EAR E & PECDY10 CF A5,OUTPUT SEND CHARACTER F , P CF A15,POSUPD POSITION COUNTER UPDATING F 6 P RF ECDY20 F f 4 PECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER F x ( PECDY20 ABL ECHRTN RETURN TO KEYBOARD F P* F P* BACKSPACE F P* F PEC
0x4654d4…465668 Dummy {f00=0x016c, f01=0x0190, f02=» ONE BACKSTEP F ~ P CF A5,BACCAN BACK G P RB ECDY20 G 0 P EJECT G B P* G P P* CLEAR G Z P* G l PECDY50 EQU * G v ( P LC A4,DWTBC,A6 GET POSITION COUNTER G P ANK A4,/FF G P RB(E) ECDY20 FIRST POSITION G P IFT WHATDY=0 G & P LDR
0x465668…4657fc Dummy {f00=0x016c, f01=0x0190, f02=» P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H > P CF A5,CURPOS SET CURSOR H x P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF A5,FASTER FAST OUT
0x4657fc…465990 Dummy {f00=0x016c, f01=0x0190, f02=»CAN = SUBROUTINE TO POSITION CURSOR H 0 P* AT THE PLACE BEFORE REQUEST IF I , 0 P* CLEAR OR BACKWARDS ONE STEP IF I ` P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GET POSITION COUNTER
0x465990…465b24 Dummy {f00=0x016c, f01=0x0190, f02=» RF(NP) BACA10 NO I $ P LDK A2,SPACE DESTRUCTIVE SPACE J P RF BACA20 J B " PBACA10 LDK A2,BACKSP BACKSPACE J T P CF A5,OUTPUT SEND J z $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J PBACA20 CF A5,OUTPU
0x465b24…465cb8 Dummy {f00=0x016c, f01=0x018e, f02=» RTN A5 J P EJECT K 4 P*********************************************** K 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K V 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 * K 4 P*
0x465cb8…465e4c Dummy {f00=0x016c, f01=0x0190, f02=» K P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L P ABL(NP) ACDY75 YES! L > , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L Z ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L P SUK A1,1
0x465e4c…465fe0 Dummy {f00=0x016c, f01=0x0190, f02=»S! L POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M P RF(L) NOFAST NO! M V & P********************************** M p & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P AD A2,DWTAP,A6 M
0x465fe0…466174 (5, 253) Dummy {f00=0x016d, f01=0x0190, f02=»/LINE M j P SUR A3,A2 AND COMPARE N P SUR A3,A4 N , P RF(NN) HIT N > P ADR A4,A3 N R P ADK A4,1 N d ( PHIT ADS A4,DWTST,A6 UPDATE POSITION N v P*********************** N P* EXECUTE FAST OUTPUT * N P LDR A3,A7 GET CHAR TO SEND N P C
0x466174…466308 Dummy {f00=0x016d, f01=0x0190, f02=»6 INC HEAD POS POINTER N P CF A5,CURPOS O " P***************************** O 4 " P* RESTORE A3 (BUFFER INDEX) * O Z * P LD A3,DWTBIN,A6 RESTORE BUFFER INDEX O P SUK A3,1 O P ABL ACDY90 READ NEXT CHAR O P* O . PNOFAST LDR A2,A7 RESTORE OUT
0x466308…46649c Dummy {f00=0x016d, f01=0x0190, f02=» 4 P* AT ENTRY A4 = NUMBER OF CHARACTERS P P* P < PFASTER EQU * P F P CWK A4,/60 P Z . P RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG P n P LDK A4,/59 P PFAS010 EQU * P P ADK A4,/20 ADD CONSTANT P P LDK A2,FASTO FAST OUTPUT P
0x46649c…466630 Dummy {f00=0x016d, f01=0x0190, f02=» P P EJECT Q P* Q P* Q * P* CURPOS = SUBROUTINE TO SET CURSOR Q * > P* AT ENTRY A4 = CURSOR POS (POSITION AND LINE) Q X P* Q PCURPOS EQU * Q P ADKL A4,/1F1F CONVERT Q P LDK A2,SCADD SET CURSOR Q P CF A5,OUTPUT SEND
0x466630…4667c4 Dummy {f00=0x016d, f01=0x018e, f02=»A4 Q & P CF A5,OUTPUT OUTPUT POSITION (X) R P LDR A2,A4 R 4 P RF(NN) CURR10 Y < /80! R F P LDK A2,/7F R f P RF CURR15 R z PCURR10 EQU * R P SRL A2,8 SHIFT RIGHT R PCURR15 EQU * R P CF A5,OUTPUT OUTPUT LINE(Y) R P RTN A5 R P E
0x4667c4…466958 Dummy {f00=0x016d, f01=0x0190, f02=» R 0 P* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 S . P* AT EXIT A4 = CHAR TO END OF SCREEN =2 S < P* =2 S n PERA EQU * =2 S | " P LD A2,DWTPOS,A6 MAX CHAR. =2 S P ANK A2,/FF GET MAX CHAR. =2 S 0 P LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2
0x466958…466aec Dummy {f00=0x016d, f01=0x4144, f02=»SIDE SCREEN =2 S P RF(L) ERAEND NO =2 T . P LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 T 2 P LDKL A3,/FFFF SET OVER =4 T d " PERAEND EQU * END SUBROUTINE =2 T P RTN A5 RETURN =2 T PABDY EQU * T , P CF A15,UPDAPP UPDATE CURSOR POSITION =5 T ( P
0x466aec…466c80 Dummy {f00=0x016d, f01=0x2008, f02=» U 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
0x466c80…466e14 (5, 254) Dummy {f00=0x016d, f01=0x0190, f02=»A11,0 VOLUME LABEL $ CF A14,READVL GET VOLUME LABEL READVL EQU *-2 B LD A10,10,A9 GET VTOC BASE X LDR A11,A10 SAVE | " AD A10,6,A9 LAST VTOC SECTOR ( # LD A8,12,A9 GET VTOC RECORD LENGTH * % ADKL A11,1 FIRST FILE SECTOR IN
0x466e14…466fa8 Dummy {f00=0x016d, f01=0x0190, f02=»A9 GET START OF BUFFER GET:20 EQU * P LDK A5,/20 LOAD SPACE 2 P CCR A5,A6 UNUSED FILE? P P RF(E) GET:50 YES! p LDR A4,A6 START OF RECORD ( P LDK A5,'S' STANDARD FILE CHARACTER CC A5,27,A6 STANDARD FILE? RF(NE) GET:
0x466fa8…46713c Dummy {f00=0x016d, f01=0x0190, f02=»3,'C' THIS INSTRUCTION IS MODIFIED ( P CCK A3,'CC' LOOKING FOR CONF. FILE? * P RF(NE) GET:85 NO! V ADK A4,5 SIXTH CHARACTER p , P LDK A5,':' CHARACTER TO PRECEED NUMBER ( $GET:30 CCR A5,A4 CONFIGURATION FILE? RF(E) GET:40 YES!
0x46713c…4672d0 Dummy {f00=0x016d, f01=0x0190, f02=» * CHECK APPLICATION NUMBER * , LC A5,1,A4 GET LEFT DIGIT 6 SLL A5,8 SHIFT TO LEFT BYTE X LC A5,2,A4 GET RIGHT DIGIT | " CALL CONVRT CONVERT TO BINARY , ( CW A1,SCTANO SAME AS APPLICATION NUMBER RF(NE) GET:50
0x4672d0…467464 Dummy {f00=0x016d, f01=0x018e, f02=»1,18,A6 SECTOR ADDRESS RTN A14 GET:50 EQU * . ADR A6,A8 NEXT VTOC RECORD B & ! ADK A6,1 BYPASS STATUS CHARACTER f , ' SUK A7,1 MOORE RECORDS IN THIS SECTOR? RB(P) GET:20 YES! " CWR A11,A10 LAST VTOC SECTOR? RB(NE)
0x467464…4675f8 Dummy {f00=0x016d, f01=0x0190, f02=» | * : 6* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT * %* LOAD MEDIUM FOR CONFIGURATION FILE P * ~ P LDK A2,/78 & ! OTR A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN " P ANKL A1,/003C ALLOWED S
0x4675f8…46778c Dummy {f00=0x016d, f01=0x0190, f02=»A2 GET DEVICE ADDRESS CWK A2,5 DISC? RF(G) GET:80 YES! 6 P IFT FLDISC=1 P & ! CF A14,FDINIT INIT FLEXIBLE DISC f RB GETFIL P XIF P IFF FLDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF
0x46778c…467920 Dummy {f00=0x016d, f01=0x0190, f02=»A1,LMP9 & P CALL ERROR ILLEGAL MONITOR OPTION P XIF : PGET:85 EQU * F $ P CCK A3,'SS' LOOKING FOR $SWAPP? Z P RF(NE) GET:99 NO! & P LDK A5,0 RESET CHARACTER COUNTER * PGET:90 LCR A1,A4 GET CHAR IN FILENAME . P CC A1,SWPTAB,A5 CHE
0x467920…467ab4 (5, 255) Opaque[0x194]
0x467ab4…467c48 # DirEnt {nam=»DRLT01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ae8, f03=0x0000}
0x467ab4…467c48 IdxSect {
0x467ab4…467c48 f00 = 0x0157 // 0x467ab4 @0x0
0x467ab4…467c48 f01 = 0x0014 // 0x467ab6 @0x2
0x467ab4…467c48 gno = [ // 0x467ab8 @0x4
0x467ab4…467c48 [0x00]: C0x0157.0x1.0
0x467ab4…467c48 [0x01]: C0x0157.0x2.0
0x467ab4…467c48 [0x02]: C0x0157.0x3.0
0x467ab4…467c48 [0x03]: C0x0158.0x0.0
0x467ab4…467c48 [0x04]: C0x0158.0x1.0
0x467ab4…467c48 [0x05]: C0x0158.0x2.0
0x467ab4…467c48 [0x06]: C0x0158.0x3.0
0x467ab4…467c48 [0x07]: C0x0159.0x0.0
0x467ab4…467c48 [0x08]: C0x0159.0x1.0
0x467ab4…467c48 [0x09]: C0x0159.0x2.0
0x467ab4…467c48 ]
0x467ab4…467c48 }
0x467c48…467ddc Dummy {f00=0x0157, f01=0x0190, f02=» 2 P IDENT DRLT01 REL 10.0 80-03-14 870105041000 P : & P =9,RTN FROM OUTLRT IN INH MODE B P PRR 10.1 79-09-03 l P =8,UPDATE TO 10.1 STATUS P REL 9.1 79-05-23 * P =7,CLT010 DUBLE DEF LABEL, RB - ABL P PRR 9.1 79-05-1
0x467ddc…467f70 Dummy {f00=0x0157, f01=0x0190, f02=» =1-4, GEN UPDATE TO 8.2+ STATUS P REL 8.2 79-04-02 ( P =4,TIMER RESET CORRECTED D P REL 8.2 79-03-22 h P =3,NAK HANDLING CORRECTED P REL 8.2 79-03-16 P =2,IMPROV. OF TEST ORDER P REL 8.2 79-01-11 , P =
0x467f70…468104 Dummy {f00=0x0157, f01=0x0190, f02=»****************************** | P* & $ P* PHILIPS TERMINAL SYSTEM PTS 0 P* X $ P* DRLT01 = DRIVER CHANNEL UNIT b $ P* FOR LOCAL TERMINALS P* P* P* P* P* 2 P************************************
0x468104…468298 Dummy {f00=0x0157, f01=0x0190, f02=»GISTER A2. IF DATA d D P* INPUT OR DATA REQUEST A BRANCH IS MADE TO INTERRUPT HANDLER P* FOR ACTUAL DEVICE. b D P* IF CONTROL CHARACTER, THIS IS EXAMINED AND NECESSARY ACTIONS P* ARE CARRIED OUT. P* < P* THE DRIVER ALSO INCLUD
0x468298…46842c Dummy {f00=0x0157, f01=0x0190, f02=»TART ON EVERY CHLT IN SYSTEM t P* $ 2 P* CONTROL WORK TABLES FOR THE CHANNELS ARE . P* INCLUDED IN THE DRIVER. d P EJECT P* P* P* . P* NORMAL REGISTER USAGE IN THE DRIVER:- P* P* A1 = RETURN CODE
0x46842c…4685c0 Dummy {f00=0x0157, f01=0x0190, f02=»WT-ADDRESS P* A7 = ORDER P* A8 = ECB-ADDRESS ( P* D P* N P* X P EJECT b P* p P*********** z P* ENTRIES * P*********** P* P* & P ENTRY CHLT1 INTERRUPT FROM CHLT01 & P ENTRY CHLT2 INTERRU
0x4685c0…468754 (5, 256) Dummy {f00=0x0157, f01=0x0190, f02=» p P ENTRY CHLTON START OF CHLT 0 P ENTRY LOCHAN NUMBER OF LOCAL CHANNEL UNITS , 0 P ENTRY RECHAN NUMBER OF REMOTE CHANNEL UNITS ` P ENTRY REMFC DUMMY ENTRY P ENTRY DWREMU DUMMY ENTRY P* P EJECT P* . P****************
0x468754…4688e8 Dummy {f00=0x0157, f01=0x018e, f02=» P* & P EXTRN SAVE8 SAVE REGISTERS A1-A8 P EXTRN TDISP DISPATCHER < P EXTRN IHRET8 RESTORE A1-A8 " P EXTRN INTLT1 INTERRUPT TABLE " P EXTRN INTLT2 INTERRUPT TABLE " P EXTRN INTLT3 INTERRUPT TABLE " P EXTRN INTLT4 INTERRUP
0x4688e8…468a7c Dummy {f00=0x0157, f01=0x0190, f02=» . P EXTRN OUTLIN SEND CHAR. VIA SWITCH MODULE P* 6 P* @ ( P*********************************** J ( P* DWT PARAMETERS * v ( P*********************************** P EXTRN DWTST STATUS P EXTRN DWTOR ORDER ( P EXT
0x468a7c…468c10 Dummy {f00=0x0157, f01=0x0190, f02=»TPUT QUEUE & P EXTRN DWTSB2 STACK BASE 2 IN DWT P EXTRN DWTTP TIMER POINTER < 0 P EXTRN INTADR INTERRUPT ADDRESS DISPLACEMENT ^ 0 P EXTRN RECADR RECOVERY ADDRESS DISPLACEMENT P* P EJECT P P* P************* P*
0x468c10…468da4 Dummy {f00=0x0157, f01=0x0190, f02=» t PDRQTIM EQU 30 P* P EJECT ( P* 6 P************************ @ P* CONDITIONAL ASSEMBLY * ` P************************ P* < P* A LOGG FUNCTION OF EVERY INPUT AND OUTPUT CHARACTER 8 P* MAY BE INCLUDED TO THE DRI
0x468da4…468f38 Dummy {f00=0x0157, f01=0x0190, f02=» ` . P* CHANNELS BY SETTING X:B TO 1,2,3 OR 4 P* : PX:B EQU 1 D PLOCHAN EQU 1 V P* j 8 P* ACKUMULATORS FOR NAK, RETRANSMISSION FAULT AND t 4 P* UNDEFINED CONTROL CHARACTERS ARE UPDATED IN 8 P* THE DRIVER. THIS FUNCTION C
0x468f38…4690cc Dummy {f00=0x0157, f01=0x0190, f02=»TTING X:D = 1 A SOFTWARE TIME OUT HANDLING < P* MISSING DATA REQUESTS FROM PRINTERS CAN BE INCLUDED 2 P* IN THE DRIVER. r < P* AN ACKUMULATOR TO BE UPDATED EVERY TIME A SOFTWARE * P* TIME OUT OCCURS IS ALSO INCLUDED. P* PX:
0x4690cc…469260 Dummy {f00=0x0157, f01=0x0190, f02=»SET IS OBTAINED BY SETTING CPU852 EQU 0. P* 0 PCPU852 EQU 1 : P* N P EJECT X P f P n PRECHAN EQU 0 v PREMFC EQU 0 PCWTRT1 EQU * PCWTRT2 EQU * PCWTRT3 EQU * PCWTRT4 EQU * PCWTRT5 EQU * PCWTRT6
0x469260…4693f4 (5, 257) Dummy {f00=0x0157, f01=0x0190, f02=»************************* t : P* C W T L T 1 * " : P***************************************************** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 1 P* P* PDWA1 EQU /03 DEVICEA
0x4693f4…469588 Dummy {f00=0x0157, f01=0x0190, f02=»-CWTLT1 P DATA 0 LAST OUTPUT WORD * PCWTITA EQU *-CWTLT1 ADDRESS TO INTLT1 0 P DATA INTLT1 ^ PCWTINR EQU *-CWTLT1 INR r P INR A2,0,DWA1 PCWTOTR EQU *-CWTLT1 OTR P OTR A2,0,DWA1 " PCWTCIS EQU *-CWTLT1 CIO-START P CIO
0x469588…46971c Dummy {f00=0x0157, f01=0x0190, f02=» PCWTADD EQU *-CWTLT1 P* P IFT ACKMUL=1 * P* @ P DATA 0 NAK-ACKUMULATOR J $ P DATA 0 RETR. FAULT-ACKUMULATOR j , P DATA 0 UNDEFINED-INTERRUPT-ACKUMULATOR PACKTIM EQU *-CWTLT1 ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR
0x46971c…4698b0 Dummy {f00=0x0157, f01=0x0190, f02=» * : P***************************************************** . P* l 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 2 v P* PCWTLT2 EQU * P* P IFT LOCHAN=2 PDWA2 EQU /13 DEVICE ADDRESS
0x4698b0…469a44 Dummy {f00=0x0157, f01=0x0190, f02=»DWA2 INR P OTR A2,0,DWA2 OTR P CIO A2,1,DWA2 CIO-START * " P DATA 0 RETRANSMISSION COUNTER J P DATA 0 END OF QUEUE p P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UN
0x469a44…469bd8 Dummy {f00=0x0157, f01=0x0190, f02=»* P EJECT P XIF P IFT LOCHAN=3 $ PDWA2 EQU /13 DEVICE ADDRESS : P* ^ $ P DATA 0 LAST OUTPUT DWT-ADDRESS h P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE P INR A2,0,DWA2 INR P OTR A2,0,DWA2 OTR P
0x469bd8…469d6c Dummy {f00=0x0157, f01=0x0190, f02=» P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR $ , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR L ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR | P* P XIF P* P* P XIF P IFT LOCHAN=4 P* P* 6 P
0x469d6c…469f00 Dummy {f00=0x0157, f01=0x0190, f02=»T-ADDRESS z P DATA 0 LAST OUTPUT WORD P DATA INTLT2 INTERRUPT TABLE 2 P INR A2,0,DWA2 INR V P OTR A2,0,DWA2 OTR p P CIO A2,1,DWA2 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 END OF QUEUE P* P IFT ACKMUL=1
0x469f00…46a094 (5, 258) Dummy {f00=0x0158, f01=0x0190, f02=»ATA 0 PRINTER TIMEOUT ACKUMULATOR P* * P XIF 4 P EJECT @ P* N P* X 6 P* CHANNEL UNIT WORK TABLE FOR LOCAL TERMINAL NO.3 b P* PCWTLT3 EQU * P IFT LOCHAN=3 PDWA3 EQU /23 DEVICE ADDRESS P* $ P DATA 0 LA
0x46a094…46a228 Dummy {f00=0x0158, f01=0x0190, f02=»A3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER . P DATA 0 END OF QUEUE T P* p P IFT ACKMUL=1 z P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULAT
0x46a228…46a3bc Dummy {f00=0x0158, f01=0x0190, f02=»E ADDRESS ~ P* $ P DATA 0 LAST OUTPUT DWT-ADDRESS P DATA 0 LAST OUTPUT WORD D P DATA INTLT3 INTERRUPT TABLE d P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA
0x46a3bc…46a550 Dummy {f00=0x0158, f01=0x0190, f02=» DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR 0 P* P XIF f P EJECT r P* 4 P* CONTROL WORK TABLE FOR LOCAL TERMINAL NO. 4 P* PCWTLT4 EQU * P* P* P IFT LOCHAN=4
0x46a550…46a6e4 Dummy {f00=0x0158, f01=0x0190, f02=»ERRUPT TABLE P INR A2,0,DWA4 INR P OTR A2,0,DWA4 OTR . P CIO A2,1,DWA4 CIO-START H " P DATA 0 RETRANSMISSION COUNTER h P DATA 0 END OF QUEUE P* P IFT ACKMUL=1 P* P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-
0x46a6e4…46a878 Dummy {f00=0x0158, f01=0x0190, f02=» P EJECT P* 2 P********************************************** 2 P* C H T A B * V 2 P********************************************** P* 6 P* THIS TABLE HOLDS ADDRESSES OF CONTROLLER WORK 8 P*
0x46a878…46aa0c Dummy {f00=0x0158, f01=0x0190, f02=»ABLE LENGTH P DATA CWTLT1 P DATA CWTLT2 * P IFT LOCHAN=3 > P DATA CWTLT3 T P XIF h P IFT LOCHAN=4 t P DATA CWTLT3 P DATA CWTLT4 P XIF PCHTABE EQU * END OF TABLE P* P* P* P* P
0x46aa0c…46aba0 Dummy {f00=0x0158, f01=0x0190, f02=»R CHLT l P* P* C H L T 1 P* INTERRUPT FROM CHLT1 . P* N P XIF X P IFT LOCHAN=2 d PCHLT3 EQU * z PCHLT4 EQU * P XIF P IFF LOCHAN=1 PCHLT1 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU
0x46aba0…46ad34 (5, 259) Dummy {f00=0x0158, f01=0x0190, f02=»E A1-A8 ON STACK P XIF P* $ P IFF LOCHAN=1 . . P LDKL A5,CWTLT1 SET CWT-ADDRESS FOR CHLT1 D P RF CLT010 v P* P* C H L T 2 P* INTERRUPT FROM CHLT2 P* PCHLT2 EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT
0x46ad34…46aec8 Dummy {f00=0x0158, f01=0x0190, f02=» MSR 8,A15 SAVE A1-A8 ON STACK P XIF & P* 2 P IFF LOCHAN=1 < . P LDKL A5,CWTLT2 SET CWT-ADDRESS FOR CHLT2 R P XIF P IFT LOCHAN=2 0 PCLT010 EX CWTINR,A5 EXECUTE INR-INSTRUCTION P* P XIF P* P IFT LOCHAN=3
0x46aec8…46b05c Dummy {f00=0x0158, f01=0x0190, f02=» $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CPU852=1 , & P CF A15,SAVE8 SAVE A1-A8 ON STACK B P XIF l P* x P IFT LOCHAN=3 P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* P IFT LOCHAN=3 . P LDKL A5
0x46b05c…46b1f0 Dummy {f00=0x0158, f01=0x0190, f02=» P* ! P* ! P* C H L T 2 ! P* INTERRUPT FROM CHLT3 ! 2 P* ! R PCHLT3 EQU * ! $ P ST P,INTSAV SAVE LAST INTERRUPT ! p P IFT CPU852=1 ! & P CF A15,SAVE8 SAVE A1-A8 ON STACK ! P XIF ! P* ! P IFT LOCHAN=4 ! P IFT
0x46b1f0…46b384 Dummy {f00=0x0158, f01=0x0190, f02=»CHLT3 ! l P RF CLT010 " P* C H L T 4 " P* INTERRUPT FROM CHLT4 " 6 P* " V PCHLT4 EQU * " ` $ P ST P,INTSAV SAVE LAST INTERRUPT " t P IFT CPU852=1 " & P CF A15,SAVE8 SAVE A1-A8 ON STACK " P XIF " P* " P IFT LOCHAN=4 " P
0x46b384…46b518 Dummy {f00=0x0158, f01=0x0190, f02=»FOR CHLT4 " p $ PCLT010 EX CWTINR,A5 EXECUTE INR # P XIF # : P* # F P IFT LOCHAN=1 # P P* # f P* # p P* C H L T 1 # z P* # P* INTERRUPT FROM CHLT1 # P* # PCHLT1 EQU * # PCHLT2 EQU * # PCHLT3 EQU * # PCHLT4
0x46b518…46b6ac Dummy {f00=0x0158, f01=0x0190, f02=» # " P MSR 8,A15 SAVE A1-A8 ON STACK $ P XIF $ . P* $ : P IFT LOCHAN=1 $ D $ P LDKL A5,CWTLT1 GET CWT-ADDRESS $ Z $ P ST P,INTSAV SAVE LAST INTERRUPT $ P INR A2,0,DWA1 $ P* $ P XIF $ P* $ P IFT LOGING=1 $ . P CF A15,LOGG ** LO
0x46b6ac…46b840 Dummy {f00=0x0158, f01=0x018e, f02=»DK A1,0 RESET RETURN CODE $ P LDR A3,A2 INPUT WORD IN A3 % " P SRL A3,8 % F P LDR A4,A3 % X $ P ANK A3,/E 2 * LINE NUMBER IN A3 % j P SRL A4,3 % & P ANK A4,/E 2 * DEVICE NUMBER IN A4 % . P ABL(NE) CLT100 INPUT IS A DATA CHARACTER % P ANK A2,
0x46b840…46b9d4 (5, 260) Dummy {f00=0x0158, f01=0x0190, f02=» % z 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
0x46b9d4…46bb68 Dummy {f00=0x0158, f01=0x0190, 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
0x46bb68…46bcfc Dummy {f00=0x0158, f01=0x0190, f02=» ' P SUK A2,5 7 NAK ? =3 ( P RF(Z) CLT032 =3 ( $ P* ( > P IFT ACKMUL=1 ( H P* ( ^ P =1 ( h P =1 ( v P LDK A7,2 ( $ P SUK A2,/16 RETRANSMISSION FAULT ( P RF(E) CLT025 ( " P ADK A7,2 UNDEFINED INTERRUPT ( PCLT025 ADR A7,
0x46bcfc…46be90 Dummy {f00=0x0158, f01=0x0190, f02=»* ( P* ) 0 P* NAK, TIME-OUT, RETRANSMISSION FAULT OR ) $ P* UNDEFINED CONTROL CHARACTER ) H P* ) p : P* CHECK LAST OUTPUT AND TRY RECOVERY OF THAT DEVICE ) z 4 P* ONE TIME. IF NOT SUCCESS GO TO DRIVER WITH ) P* MESSAGE NOT OPERABL
0x46be90…46c024 Dummy {f00=0x0158, f01=0x018e, f02=» ) b P RF(NE) CLT032 * 0 P LDKL A2,/1000 INDICATE RECOVERY TRIAL DONE * , P XRS A2,DWTST,A6 SET BIT IN STATUS WORD * R 0 PCLT030 LDK A3,2 INDICATE RECOVERY OF DEVICE * P LDK A4,1 =1 * P LDK A4,0 * P RF CPO025 * . PCLT032 LDK A1,NOERR INDI
0x46c024…46c1b8 Dummy {f00=0x0158, f01=0x0190, f02=» * P* + B P* ERROR ACKUMULATOR AND RETRANSMISSION COUNTER IS UPDATED. + B P* LAST OUTPUT CHARACTER IS RETRANSMITTED BY CHANNEL DRIVER + X @ P* UP TO SIX TIMES AND IF STILL NO SUCCESS RETURN CODE NOT + , P* OPERABLE IS SENT TO DEVICE DRIVER
0x46c1b8…46c34c Dummy {f00=0x0158, f01=0x0190, f02=» 2 P IM CWTRTC,A5 INCREMENT RETRANSMISSION COUNTER , P LD A4,CWTRTC,A5 GET COUNTER , : P SUK A4,7 SEVEN TIMES ? , ^ P RB(E) CLT015 =7(=3) , ~ * P LD A2,CWTLOW,A5 GET LAST OUTPUT WORD , P LDR A1,A5 , * P EX CWTOTR,A1 EXECUTE OTR-INSTRUCTION ,
0x46c34c…46c4e0 Dummy {f00=0x0158, f01=0x0190, f02=»CT , P* - P* - P* ACK DATA = 07 - P* - > 2 P* SIMULATE DATA REQUEST IF RETURN CODE FROM - H . P* CHLT OR DEVICE WITHOUT DATA REQUEST, - ~ P* ELSE GO TO DISPATCHER - P* - PCLT040 EQU * - P LDKL A7,/EFFF - 6 P A
0x46c4e0…46c674 (5, 261) Dummy {f00=0x0158, f01=0x0190, f02=»A7,A6 DEVICE WITHOUT DATA REQUEST? - , P RF(N) CLT110 YES. SIMULATE DATA REQUEST . * P* . Z P IFF SOFTIM=1 . d P* . z PCLT062 EQU * . P RF EXIT . P* . P XIF . P* . P* . P IFT SOFTIM=1 . P* . P EJECT . P* .
0x46c674…46c808 Dummy {f00=0x0158, f01=0x0190, f02=» BLOCK . p P RF(E) CLT060 / P* / $ P* RESTART TIMER / . P* / H " P LDKL A3,-DRQTIM RESTART TIMER / R P ST* A3,DWTTP,A6 / x P RF EXIT / P* / P* START TIMER / P* / PCLT060 LDR A1,A6 PARAMETER / P LDKL A4,DWTTP TIMER POINT
0x46c808…46c99c Dummy {f00=0x0158, f01=0x0190, f02=»AND DELAY / ` PCLT062 EQU * 0 P RF EXIT 0 & P 0 6 P EJECT 0 > P* 0 L P* 0 V P* RESET TIMER IF STARTED 0 ` P* 0 P =4 0 P =4 0 P =4 0 P =4 0 P =4 0 P EJECT 0 P* 0 6 P* TIME-OUT ROUTINE HANDLI
0x46c99c…46cb30 Dummy {f00=0x0158, f01=0x0190, f02=»ET POINTER TO TIMER BLOCK 0 P LD A3,DWTST,A6 1 " P SLL A3,2 ECHO MODE ? 1 : P RF(N) CLT110 YES 1 X P* 1 r P IFT ACKMUL=1 1 | P IFF LOCHAN=1 1 P* 1 " P LDR* A5,A6 CHANNEL PARAMETER 1 P ANK A5,/F 1 P SLL A5,1 2 * INDEX 1 ( P A
0x46cb30…46ccc4 Dummy {f00=0x0158, f01=0x0190, f02=» XIF 1 P IFT SOFTIM=1 2 P IFT ACKMUL=1 2 " P IFT LOCHAN=1 2 8 P* 2 N $ P LDKL A5,CWTLT1 GET CWT-ADDRESS 2 X ( P IM ACKTIM,A5 INCREMENT ACKUMULATOR 2 P* 2 P XIF 2 P IFT SOFTIM=1 2 P* 2 $ P LD A7,DWTOR,A6 TEST ORDER ? =2 2
0x46ccc4…46ce58 Dummy {f00=0x0158, f01=0x0190, f02=» P* 3 P XIF 3 P* 3 P EJECT 3 $ P* 3 2 P* POWER ON DATA = 03 3 < P* 3 ^ 6 P* RECOVERY ROUTINES ARE STARTED FOR EVERY DEVICE 3 h 6 P* ON ACTUAL LINE EXCEPT THOSE OCCUPYING CHANNEL 3 $ P* UNIT OR THOSE IN ECHO MODE. 3 P* 3
0x46ce58…46cfec Dummy {f00=0x0158, f01=0x0190, f02=»* A7 = ORDER 3 P* 4 PCHPOWO EQU * 4 " P CF A15,GETLIN 4 6 $ P LDR* A2,A5 GET LAST OUTPUT DWT 4 L . P CM CWTRTC,A5 RESET RETRANSMISSION COUNTER 4 t P LDK A4,0 4 P LDR A3,A6 DEVICE COUNTER 4 P LDR A1,A8 ADDRESS POINTER 4 $ P RF(Z) EXIT
0x46cfec…46d180 Dummy {f00=0x0158, f01=0x0190, f02=»F(N) CPO030 4 P SLC A6,1 5 " P LCR A7,A6 LEFT BYTE OF DWTCHP 5 & P ANK A7,1 INPUT DEVICE ? 5 L P RF(NE) CPO025 YES 5 l P LDKL A7,/EFFF 5 ( P ANS A7,DWTST,A6 RESET RECOVERY BIT 5 P LC A7,DWTST,A6 5 P ANK A7,/20 ECHO MODE ? 5 P RF(NE)
0x46d180…46d314 (5, 262) Dummy {f00=0x0159, f01=0x0190, f02=»ESSBLOCK IN A7 5 j . P LD A7,RECADR,A7 ADDRESS TO RECOVERY IN A7 6 P RF(E) CPO030 NO RECOVERY 6 H P LDKL A5,DWTSB2 STACKBASE 6 j P ADR A5,A6 6 P INH 6 & P CFR A15,A7 GO TO RECOVERY ROUTINE 6 ( PCPO030 SUK A3,2 ALL DEVICES THREATED 6 P 6 P
0x46d314…46d4a8 Dummy {f00=0x0159, f01=0x0190, f02=»F A15,GETLIN GET DWT-ADDRESS 6 P SUR A6,A4 VALID INTERRUPT ? 7 $ P RB(N) EXIT 7 H P LDR A8,A8 7 P RB(Z) EXIT EXIT NOT DEFINED 7 n P LDR* A6,A8 GET DWT 7 P RB(E) EXIT 7 P ANKL A6,/FFFE 7 . P LCR A7,A6 LEFT BYTE IN CHANNEL PARAMETER 7
0x46d4a8…46d63c Dummy {f00=0x0159, f01=0x0190, f02=»OR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 2 P IFT SOFTIM=1 8 ` * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 v P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO =4 8 $ P L
0x46d63c…46d7d0 Dummy {f00=0x0159, f01=0x0190, f02=»E) CLT120 NO =4 8 P INH =4 9 P CM* DWTTP,A6 RESET TIMER =4 9 * 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 N PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 GO TO INTERRU
0x46d7d0…46d964 Dummy {f00=0x0159, f01=0x0190, f02=»:- 9 f P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : @ P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* : P* G E
0x46d964…46daf8 Dummy {f00=0x0159, f01=0x0190, f02=» P* ; P* ON ENTRY:- ; P* ; $ P* A3 = LINE NUMBER * 2 ; . P* A4 = DEVICE NUMBER * 2 ; N P* ; p P* ON EXIT:- ; z P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-ADDRESS IS FO
0x46daf8…46dc8c Dummy {f00=0x0159, f01=0x018e, f02=»8,A3 POSITION IN TABLE ; , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < ( P RF(Z) GTL010 RETURN IF NOT DEFINED < N P LDR* A6,A8 GET ID-WORD < z , P ANK A6,/FF TWO TIMES NUMBER OF DEVICES < 4 P ADR A8,A4 ADDRESS TO DEVICE WORK TABLE POSITION < PGTL010
0x46dc8c…46de20 Dummy {f00=0x0159, f01=0x0190, f02=» P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = L < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = V 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* = P* ON E
0x46de20…46dfb4 (5, 263) Dummy {f00=0x0159, f01=0x0190, f02=» = P IFF LOCHAN=1 > P* > " P LDR* A1,A6 CHANNEL PARAMETER > ( P ANK A1,/F CHANNEL INDEX > N P SLL A1,1 > n P ADK A1,2 > * P LD A1,CHTAB,A1 GET CWT-ADDRESS IN A1 > P* > P XIF > P* > P* > P IFT LOCHAN=1 > P* >
0x46dfb4…46e148 Dummy {f00=0x0159, f01=0x0190, f02=»0 YES > P EJECT ? P* ? P* QUEUE OUTPUT ? & P* ? @ & POUL005 LD A4,CWTEQ,A1 OUTPUT QUEUE ? J P RF(E) OUL020 ? t POUL010 CWR A6,A4 ? . P RF(E) OUL060 THIS DWT IS ALREADY IN QUEUE ? P LD A3,DWTOTQ,A4 ? & P RF(E) OUL030 END OF THREAD
0x46e148…46e2dc Dummy {f00=0x0159, f01=0x0190, f02=»A6,DWTOTQ,A4 QUEUE DWT ? * POUL040 CM DWTOTQ,A6 SET END OF THREAD @ P RF OUL060 @ L P EJECT @ ^ P* @ l P* SEND CHARACTER @ v P* @ , POUL050 LDR* A3,A6 GET CHANNEL PARAMETERS @ P ANKL A3,/7F00 @ P ANK A2,/FF @ P ORR A2,A3 @ P
0x46e2dc…46e470 Dummy {f00=0x0159, f01=0x0190, f02=»ING=1 @ 0 P CF A15,LOGG ** LOGG OF OUTPUT CHARACTER ** A P XIF A B 4 P ST A2,CWTLOW,A1 STORE LAST OUTPUT IN CWT =6(=3) A N 8 POUL060 SC A2,DWTOCH,A6 STORE OUTPUT CHARACTER IN DWT A POUL070 EQU * A P IFT CPU852=1 A ( P ABL IHRET8 RESTORE A1-A8 AN
0x46e470…46e604 Dummy {f00=0x0159, f01=0x0190, f02=»...ADJUST STACK POINTER... =9 A P LDR* P,A15 ...AND RETURN =9 B & P XIF B J P* B V P EJECT B ` P* B n P* C H L T O N B x P* B > P* SUBROUTINE TO RESET CWT AND PERFORM CIO-START OF EVERY B @ P* CHLT IN SYSTEM. THE SUBROUTINE IS ENTERE
0x46e604…46e798 Dummy {f00=0x0159, f01=0x0190, f02=»TREATED ? B | P RF(NZ) CON020 NO TAKE NEXT C P ABL RTNA15 RETURN AND ENB C 6 * PCON020 LD A5,CHTAB,A1 LOAD CWT-ADDRESS C X P RB(Z) CON010 C $ P EX CWTCIS,A5 EXECUTE CIO-START C P LDR* A6,A5 GET LAST DWT C P RB(Z) CON010 C P CMR A5 RESET
0x46e798…46e92c Dummy {f00=0x0159, f01=0x0190, f02=»* C P IFT LOCHAN=1 D P* D P CIO A2,1,DWA1 CIO-START D * P LD A6,CWTLT1 GET LAST DWT D J P RF(Z) CON010 D l P CM CWTLT1 RESET LAST OUTPUT D P LDK A2,0 D " P CF A15,OUTLIN SEND CHARACTER D $ PCON010 ABL RTNA15 RETURN AND ENB D P*
0x46e92c…46eac0 Dummy {f00=0x0159, f01=0x0190, f02=»INPUT AND D f $ P* OUTPUT CHARACTER ARE LOGGED E P* E : P* E D P* E N P IFT LOGING=1 E X P* E n PLOGG STR A1,A15 E x P LD A1,POINT E P ADK A1,2 E & P CWK A1,BUFE BUFE IS MAX LOGG AREA E P RF(NE) L1 E ( P LDKL A1,BUF SET FIRST
0x46eac0…46ec54 (5, 264) Dummy {f00=0x0159, f01=0x40b8, f02=»DR* P,A15 RETURN E P* F P* F " PPOINT DATA BUF LOGG POINTER F , P* F P PBUF RES 63 LOGG AREA F Z PBUFE EQU * F v P* F P XIF F P* F P END F @ F
0x46ec54…46ede8 Dummy {f00=0x0159, f01=0x2008, f02=» G 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
0x46ede8…46ef7c Dummy {f00=0x0159, f01=0x0190, f02=» P RB ECDY20 H P XIF H * PECDY60 LDR A3,A4 SAVE POSITION COUNTER H " 6 P LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER H P P CF A5,CURPOS SET CURSOR H P LDR A4,A3 GET POS COUNTER H P ADK A4,1 UPDATE POS COUNTER H P LDK A3,/20 H P CF
0x46ef7c…46f110 Dummy {f00=0x0159, f01=0x0190, f02=»* H 0 P* BACCAN = SUBROUTINE TO POSITION CURSOR I 0 P* AT THE PLACE BEFORE REQUEST IF I > 0 P* CLEAR OR BACKWARDS ONE STEP IF I r P* BACKSPACE. I P* I PBACCAN EQU * I P LDR A3,A4 I ( P LC A2,DWTBC,A6 GE
0x46f110…46f2a4 Dummy {f00=0x0159, f01=0x0190, f02=»T POSITION I | P RF(NP) BACA10 NO J $ P LDK A2,SPACE DESTRUCTIVE SPACE J , P RF BACA20 J T " PBACA10 LDK A2,BACKSP BACKSPACE J f P CF A5,OUTPUT SEND J $ P LDK A2,SPACE DESTRUCTIVE SPACE J P CF A5,OUTPUT SEND J P LDK A2,BACKSP BACKSPACE J P
0x46f2a4…46f438 Dummy {f00=0x0159, f01=0x0190, f02=»ON COUNTER J r P RTN A5 K P EJECT K " 4 P*********************************************** K 0 4 P* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * K h 4 P* ORDER TO GET A REASON FOR USING * K 4 P* 'FAST OUTPUT FACILITY' ON 6344 *
0x46f438…46f5cc Dummy {f00=0x0159, f01=0x018e, f02=» P* L P* L P LD A1,4,A8 L P SUR A1,A3 END OF BUFFER? L , P ABL(NP) ACDY75 YES! L N , P LDR A7,A2 SAVE CHER TO SEND (AND CHECK) L j ( P LDR A2,A4 SAVE BUFFER ADDRESS+INDEX L P LDK A4,1 RESET COUNTER L $ PNEXT ADK A4,1 INCREMENT COUNTER L
0x46f5cc…46f760 Dummy {f00=0x0159, f01=0x0190, f02=» P RB(E) NEXT YES! M POUT EQU * M 6 P CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? M . P RF(L) NOFAST NO! M h & P********************************** M & P* UPDATE ACTUAL POSITION POINTER * M , PFASTOK LC A2,DWTBC,A6 GET HEAD POSITION M P A
0x46f760…46f8f4 (5, 265) Opaque[0x194]
0x46f8f4…46fa88 # DirEnt {nam=»DRTC01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b38, f03=0x0000}
0x46f8f4…46fa88 IdxSect {
0x46f8f4…46fa88 f00 = 0x0159 // 0x46f8f4 @0x0
0x46f8f4…46fa88 f01 = 0x0012 // 0x46f8f6 @0x2
0x46f8f4…46fa88 gno = [ // 0x46f8f8 @0x4
0x46f8f4…46fa88 [0x00]: C0x0159.0x3.0
0x46f8f4…46fa88 [0x01]: C0x015a.0x1.0
0x46f8f4…46fa88 [0x02]: C0x015a.0x2.0
0x46f8f4…46fa88 [0x03]: C0x015a.0x3.0
0x46f8f4…46fa88 [0x04]: C0x015b.0x0.0
0x46f8f4…46fa88 [0x05]: C0x015b.0x1.0
0x46f8f4…46fa88 [0x06]: C0x015b.0x2.0
0x46f8f4…46fa88 [0x07]: C0x015b.0x3.0
0x46f8f4…46fa88 [0x08]: C0x015c.0x0.0
0x46f8f4…46fa88 ]
0x46f8f4…46fa88 }
0x46fa88…46fc1c Dummy {f00=0x0159, f01=0x0190, f02=» 2 P IDENT DRTC01 REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DRTC01 = DRIVER TAPE CASSETTE RECORDER P*
0x46fc1c…46fdb0 Dummy {f00=0x0159, f01=0x0190, f02=» > P* THIS DRIVER HANDLES ONE OR TWO TAPE CASSETTE RECORDERS & P* CONNECTED TO CPU VIA CHCR-DCR F P* p > P* ONLY ONE RECORDER CAN BE BE OPERATED AT A TIME, EXCEPT z P* AT REWIND AND UNLOAD P* : P* DATA IS RECORDED IN BLOCKS WIT
0x46fdb0…46ff44 Dummy {f00=0x0159, f01=0x0190, f02=»HE FOLLOWING PARTS: t P* " P* T C D A : ACTIVATION PART & P* L $ P* I H T C : INTERRUPT HANDLER V P* ~ & P* R C O V E R : RECOVERY ROUTINE P* * P* D W T C 0 1 : DEVICE WORK TABLE 01 P* * P* D W T C 0 2 : DE
0x46ff44…4700d8 Dummy {f00=0x0159, f01=0x018e, f02=»ATED: p P* P* ORDER /00: TEST STATUS P* /02: READ : P* /05: WRITE V P* /06: WRITE v " P* /22: WRITE TAPE MARK P* /26: LOCK P* /31: REWIND P* /33:
0x4700d8…47026c Dummy {f00=0x0159, f01=0x0190, f02=» ~ P* P* , P* THE FOLLOWING RETURN CODES ARE USED: P* L P* BIT 0 REQUEST ERROR V P* 2 BOT/EOT t P* 3 TAPE MARK DETECTED P* 6 WRITE PROTECTED P* 7 B-SIDE , P* 9 REWIND TIME-OUT (+BOT M
0x47026c…470400 Dummy {f00=0x0159, f01=0x018e, f02=»OVERY 6 P* -POWER RECOVERY WHEN SEQ. COUNTER NOT USED , P* -POWER RECOVERY NOT SUCCESSFULL H P* 12 INCORRECT LENGTH x * P* 13 CRC ERRROR (+NO DATA/ERASED) P* 14 THROUGHPUT ERROR P* 15 NOT OPERABEL P
0x470400…470594 (5, 266) Dummy {f00=0x015a, f01=0x0190, f02=» P* A2: SST STATUS * P* A3: DWT STATUS AFTER SST ( " P* A4: RETRY COUNTER V : P* A5: SEQUENCE CHARACTER AFTER READ/WRITE | P* A6: DWT ADDRESS & P* A8: SUBROUTINE STACK P
0x470594…470728 Dummy {f00=0x015a, f01=0x0190, f02=» HANDLE: P* " P* -ONLY ONE CASSETTE RECORDER 0 P* -ORDERS REVERSE, ERASE AND LOCK EXCLUDED @ P* t P EJECT DRTC01 ~ P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY IHTC IN
0x470728…4708bc Dummy {f00=0x015a, f01=0x0190, f02=»N POWER UP RECOVERY P P $ P , P* 4 P* > $ P******************************** H $ P* EXTERNAL TOSS MODULE ENTRIES * p $ P******************************** P* P* & P EXTRN TDISP DISPATCHER MAIN ENTRY 4 P EXTRN SAV
0x4708bc…470a50 Dummy {f00=0x015a, f01=0x0190, f02=» EXTRN TENDIO GLOBAL END-OF-I/O ROUTINE . P EXTRN DISEND GO TO DISPATCHER VIA TENDIO 0 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY b * P EXTRN INTSAV SAVE AREA LAST INTERRUPT * P EXTRN INIFLG INIT FLAG AT PGM LOADING ( P EXTRN ECBRL REQUE
0x470a50…470be4 Dummy {f00=0x015a, f01=0x0190, f02=»CESSING FLAG v P EJECT DRTC01 P* , P* 6 P****************** @ P* DWT PARAMETERS * Z P****************** t P* P* & P EXTRN DWTST DWT SOFTWARE STATUS: . P* BIT # 0 - DEVICE AND CONTROLLER READY 0 P* BIT #1
0x470be4…470d78 Dummy {f00=0x015a, f01=0x018e, f02=»#14 - A-SIDE * P BIT #15 - DEVICE LOCKED (OPERABLE) P EXTRN DWTOR DWT ORDER B " P EXTRN DWTECB DWT ECB ADDRESS ` P EJECT DRTC01 P* P************************ P* CONDITIONAL ASSEMBLY * P************************ P
0x470d78…470f0c Dummy {f00=0x015a, f01=0x0190, f02=» PDBCAS EQU 2 P* 6 P* ORDERS REVERSE, ERASE AND LOCK MAY BE EXCLUDED & P* BY SETTING X:B=0 ` P* | PX:B EQU 0 PREVER EQU 1 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG
0x470f0c…4710a0 Dummy {f00=0x015a, f01=0x018e, f02=»NED BY SETTING CPU852 EQU 0. P* $ PCPU852 EQU 1 . P* B P* MMU BUFFER SIZE L P* h PX:C EQU 129 r PDVBLEN EQU 000 P* P* MMU DEVICE INDEX P* PDEVIND EQU 2 P* P EJECT DRTC01 P*
0x4710a0…471234 (5, 267) Dummy {f00=0x015a, f01=0x0190, f02=» $ PTCAD DATA TCDA ACTIVATION ENTRY " P DATA 0 ABORT ROUTINE ADDRESS , P RES 4 SUBROUTINE STACK R PSTB EQU *-2 r P* P* $ PTAB DATA /0031,/2237,/3802,/0506 P IFT REVER=1 P DATA /2633,/24FF P XIF PTABL EQU *-T
0x471234…4713c8 Dummy {f00=0x015a, f01=0x0190, f02=»***************** P* P* $ P* DEVICE ADDRESS: . P* H PCHCRDA EQU /0E R P* h P* r P************* | P* CONSTANTS * P************* P* P* " PRTRIES EQU 3 MAX NO OF RETRIES P* * PPSUBS
0x4713c8…47155c Dummy {f00=0x015a, f01=0x0190, f02=»COUNT INTERVAL l P* P IFT REVER=1 * PPERAS EQU 6 NO OF ERASE FOR ORDER /24 4 P XIF b P EJECT DRTC01 n P* P* P* T C D A P* H P* ACTIVATION PART : CHECK VALIDITY OF ORDERS AND START PROCESSING P*
0x47155c…4716f0 Dummy {f00=0x015a, f01=0x0190, f02=» RF(E) TCDA20 VALID ORDER P SUK A4,1 " P RB(NN) TCDA10 TRY NEXT 4 P* T PTCDA15 EQU * ^ P ABL DISIOE ILLEGAL ORDER r P* ( PTCDA20 ADR A4,A4 DOUBLE TO GET INDEX P ST A4,TCDAX SAVE INDEX ( P LD A5,ECBRL,A8 GET REQUESTED
0x4716f0…471884 Dummy {f00=0x015a, f01=0x0190, f02=»* PTCDA21 EQU * . P LDR A2,A3 RECOVERY/SEQUENCE ERROR STATUS P ANK A2,2 P P RF(NZ) TCDR10 YES b P* | P ADK A5,1 . P NGR A5,A5 MAKE REQUESTED LENGTH NEGATIVE 0 P ST A5,HELPME SAVE IT FOR RECOVERY PURPOSES P SUK A7,/3
0x471884…471a18 Dummy {f00=0x015a, f01=0x0190, f02=»ER OR NOT l P* ( PTCDA22 LD A3,2,A8 GET BUFFER ADDRESS 0 P ST A3,BUFADR SAVE IT FOR RECOVERY PURPOSES H P SUK A4,14 | P RF(Z) TCDA23 WRITE P ADK A4,2 P RF(NZ) TCDA25 NOT WRITE P* * PTCDA23 ADK A5,3 CHECK REQUESTED LE
0x471a18…471bac Dummy {f00=0x015a, f01=0x0190, f02=» $ P LD A4,SEKBYT,A6 SEQ. COUNTING ? P RF(NZ) TCDA25 NO , , P LD A2,DWTBKC,A6 GET SEQUENCE CHARACTER F $ P SC A2,255,A3 STORE IT IN BUFFER v P* ( PTCDA25 ST A6,TCDADT SAVE ACTIVE DWT P EJECT DRTC01 P* P* P* SELECT
0x471bac…471d40 Dummy {f00=0x015a, f01=0x0190, f02=» TO LEVEL XY | P LDR A1,A2 SAVE STATUS , P LDK A4,RTRIES PRESET NUMBER OF RETRIES 2 " P LDKL A2,0 GET FUNCTION INDEX b " PTCDAX EQU *-2 **ORDER INDEX** & P ABI TCDFUN,A2 BRANCH TO FUNCTION < PTCDFUN DATA ENDIO,REWIND,TM,LOAD,UNLOAD,READ,WRI
0x471d40…471ed4 (5, 268) Dummy {f00=0x015a, f01=0x0190, f02=»* RECOVERY AFTER POWER ON P* " P* , PTCDRON EQU * 6 P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* & P LD A1,INIFLG CHECK IF
0x471ed4…472068 Dummy {f00=0x015a, f01=0x0190, f02=»,RCOVER RECOVERY P IFT DBCAS=2 P LDR* A6,A6 GET OTHER DWT , P CF A8,RCOVER RECOVERY N P XIF l P LDKL A4,0 GET ACTIVE DWT x , PTCDADT EQU *-2 **ACTIVATED DWT ADDRESS** $ P RF(Z) ENDIO NO REQUEST GOING ON $ P LDR A6,A4 PUT DWT ADD
0x472068…4721fc Dummy {f00=0x015a, f01=0x0190, f02=»Q. INDICATOR v P ST A3,SEKBYT,A6 , P ORK A1,/10 IND SEQUENCE ERROR, BIT #11 , P RF ENDIO P* n P EJECT DRTC01 x P* P* R E A D P* PREAD CF A8,READR READ RECORD P ANKL A1,/400 SAVE EOT BIT P ORR A1,A2
0x4721fc…472390 Dummy {f00=0x015a, f01=0x0190, f02=»ONE x $ P CF A8,BKSP BACKSPACE ONE BLOCK P RB READ READ AGAIN 4 P* P PREAD20 LDR A2,A1 Z P SLL A2,3 CHECK IF TAPE MARK r P RF(NN) READ30 NOT TAPE MARK P* ( PREAD25 ORK A3,/10 INDICATE TAPE MARK $ P LDK A7,0 RESET EFFECTIV
0x472390…472524 Dummy {f00=0x015a, f01=0x0190, f02=» LENGTH** v P ANKL A2,/801 NO DATA,NOT OP P RF(NZ) READ32 6 P LDR A7,A7 L " P RF(NZ) READ32 NOT EQUAL ZERO ^ P LDR A4,A4 THIRD TRIAL DONE , P RB(NZ) READ15 NO; READ SAME BLOCK AGAIN & P LDK A4,1 SET NO OF RETRIES TO ONE P RB RE
0x472524…4726b8 Dummy {f00=0x015a, f01=0x0190, f02=») READ35 NO , P SUK A7,1 DECREMENT EFF. LENGTH COUNTER . P CC A5,DWTBKC+1,A6 CHECK SEQUENCE COUNTER D P RF(E) READ35 OK v P ORK A1,/10 SEQUENCE ERROR P* 2 PREAD35 IM DWTBKC,A6 INCREMENT SEQUENCE COUNTER P* * PREAD40 LD A8,D
0x4726b8…47284c Dummy {f00=0x015a, f01=0x0190, f02=»FORMED l , P ST A2,ECBCW,A8 SAVE IT IN CONTROL WORD P* > PREAD50 EQU * H P ST A3,DWTST,A6 SAVE STATUS P EJECT DRTC01 P* P* P* END OF I/O OPERATION P* P* PENDIO EQU * ( P CM TCDADT INDICATE NO
0x47284c…4729e0 Dummy {f00=0x015a, f01=0x0190, f02=» x P LDKL A2,/2000 P TM A1,A2 P RF(Z) ENDIO2 0 P XRR A1,A2 RESET BIT 2 F " P ORK A1,/40 SET BIT 9 INSTEAD d P* PENDIO2 EQU * P SRL A2,2 P TM A1,A2 P RF(Z) ENDIO3 P XRR A1,A2 RESET BIT 4 P ORK A1,
0x4729e0…472b74 (5, 269) Dummy {f00=0x015b, f01=0x018e, f02=» 5 | $ P ORKL A1,/2000 SET BIT 2 INSTEAD P* 2 P EJECT DRTC01 < P* T P* ^ PENDIO4 EQU * h P SRL A2,1 | P TM A1,A2 & P RF(Z) ENDIO5 NOT WRITE PROTECTED P LD A7,DWTOR,A6 ORDER CODE P ANK A7,/3F P SUK A7,
0x472b74…472d08 Dummy {f00=0x015b, f01=0x0190, f02=» P* PENDIO5 EQU * P IFT DBCAS=2 " $ P CF A15,SWLXY SWITCH TO LEVEL XY 6 P LDR* A6,A6 GET OTHER DWT ^ * P CF A15,TENDIO PERFORM TENDIO FOR THIS P LDR* A6,A6 GET FIRST DWT P XIF $ P CF A15,SWLXY SWITCH TO LEVEL XY , P ABL
0x472d08…472e9c Dummy {f00=0x015b, f01=0x0190, f02=»TM LDKL A3,-1 P ST A3,HELPME P* , P* W R I T E 6 P* L P* WRITE ONE BLOCK V P* r P* | , PWRITE LD A3,DWTBKC,A6 GET BLOCK COUNTER " P RF(NZ) WRIT10 NOT FIRST BLOCK & P CF A8,ERASE MAKE ONE BLANK BLOCK * P S
0x472e9c…473030 Dummy {f00=0x015b, f01=0x0190, f02=»A2 P ANK A2,/0E ! P RF(Z) WRIT30 STATUS OK ! P* ! > , PWRIT12 ST A4,WRITA4 STORE RETRY COUNTER ! H P LD A2,SEKBYT,A6 ! x P RF(Z) WRIT15 SEQ. COUNTING ! P* ! P EJECT DRTC01 ! P* ! P* ! $ P CF A8,BKSP BACKSPACE ONE BLOC
0x473030…4731c4 Dummy {f00=0x015b, f01=0x0190, f02=»ATOR ! r P LD A4,WRITA4 GET NO ... " P LDR A2,A2 " , & P RF(NZ) WRIT40 POSITIONING NOT OK " > P SUK A4,RTRIES ... OF ERASE " h P* " PWRIT20 CF A8,ERASE ERASE " P ORR A1,A2 SAVE EOT " P ADK A4,1 COUNT ERASE " P RB(NG) WRIT20 NOT READY
0x4731c4…473358 Dummy {f00=0x015b, f01=0x0190, f02=»RR A1,A2 3 TRIALS DONE,SET ERASE BIT #4 " P RF WRIT50 GIVE UP # 0 P* # J P EJECT DRTC01 # T P* # l P* # v PWRIT30 LD A2,TCDAX GET ORDER # P SUK A2,4 TAPE MARK WRITTEN? # P RB(NZ) READ30 NO # P LDR A2,A1 CHECK IF # P SLL A2,3
0x473358…4734ec Dummy {f00=0x015b, f01=0x0190, f02=» P* $ , PWRIT50 LD A7,EFFLEN GET EFFECTIVE LENGTH $ P RB READ40 $ > P* $ P P EJECT DRTC01 $ Z P* $ r P* $ | P* L O A D $ P* $ P* LOAD CASSETTE $ P* $ P* $ " PLOAD CF A8,LOCK LOCK CASSETTE $ " P RF(Z) REWIND CA
0x4734ec…473680 Dummy {f00=0x015b, f01=0x0190, f02=»WIND TAPE $ P* % P* % , PREWIND CM DWTBKC,A6 CLEAR BLOCK COUNTER % & ( P CF A8,SBOT SEARCH BEGINNING OF TAPE % V PREW010 EQU * % P LDR A3,A2 % P SRL A3,7 % P ANK A3,6 % P ORK A3,1 PREPARE STATUS % P RB LOAD10 % P* % P
0x473680…473814 (5, 270) Dummy {f00=0x015b, f01=0x018e, f02=»DWTST,A6 RESET STATUS % P CF A8,UNLD UNLOAD CASSETTE & & PUNLO10 LDR A1,A2 SAVE RETURN CODE & B P ANKL A1,/FFFE SKIP BIT 15 & l P RB ENDIO & P IFT REVER=1 & P* & P* & P* R E V E R S & P* & P* BACKSPACE ONE BLOCK &
0x473814…4739a8 Dummy {f00=0x015b, f01=0x0190, f02=» P RB UNLO10 ' P* ' P EJECT DRTC01 ' P* ' 8 P* ' B P* E R T A P E ' L P* ' d P* ERASE TAPE ' n P* ' P* ' ( PERTAPE LDK A4,PERAS SET NO OF ERASE ' & PERT10 CF A8,ERASE ERASE ONE BLOCK ' P ANKL A1,/400 SAVE EOT BIT
0x4739a8…473b3c Dummy {f00=0x015b, f01=0x0190, f02=» O L O C K ' P* ( P* ORDER LOCK CASSETTE ( P* ( > P* ( H " POLOCK CF A8,LOCK LOCK CASSETTE ( R " P RB(Z) REW010 CASSETTE LOCKED ( x P RB LOAD10 ( P XIF ( P* ( P EJECT DRTC01 ( P* ( P* ( P* CASSETTE COMMANDS (
0x473b3c…473cd0 Dummy {f00=0x015b, f01=0x0190, f02=» P IFT DBCAS=1 ) P LDK A3,0 SELECT CODE ) P XIF ) 6 P IFT DBCAS=2 ) B P LDR* A3,A6 GET OTHER DWT ) V " P ANS A2,DWTST,A3 SET DWT BUSY ) x P ANK A3,1 GET SELECT CODE ) P XIF ) P* ) PCRCOM LD A2,PFPOST ) P RF(NZ) EXIT PFINIT PEND
0x473cd0…473e64 Dummy {f00=0x015b, f01=0x0190, f02=»O A5 ) z P* * PREADSQ EQU * * P LDK A3,/A * * , P ST A3,REQLEN MAKE REQUESTED LENGTH > 0 * < P RB CRCOM * l P* * ~ P EJECT DRTC01 * P* * P* READ ONE RECORD * P* * PREADR LDK A3,/A * , PREADR1 CM EFFLEN RESET EFFECTIVE L
0x473e64…473ff8 Dummy {f00=0x015b, f01=0x0190, f02=»H * r PHELPME EQU *-2 **HELPME** + P ST A2,REQLEN + , P RB CRCOM + B P* + T P* WRITE ONE RECORD + ^ P* + x PWRITER LDK A3,/B + P RB READR1 + P* + P* ERASE ONE BLOCK + P* + PERASE LDK A3,9 + P RB CRCOM + P* +
0x473ff8…47418c Dummy {f00=0x015b, f01=0x0190, f02=»NING OF TAPE + P* , PSBOT LDK A3,8 , P RB CRCOM , 4 P* , F & P* REWIND TAPE AND UNLOCK CASSETTE , P P* , z PUNLD LDK A3,/F , P RB CRCOM , P* , P* BACKSPACE ONE BLOCK , P* , PBKSP LDK A3,/E , P RB CRCOM , P*
0x47418c…474320 Dummy {f00=0x015b, f01=0x0190, f02=» , P* - PIHTC EQU * - $ P ST P,INTSAV SAVE LAST INTERRUPT - $ P STR A5,A15 SAVE A5 ON STACK - L P SST A5,CHCRDA - p P RF(A) SST SST ACCEPTED - P IM REQLEN INCREMENT COUNTER - P RF(Z) CIOHLT - & P RF(P) INRSQ GET SEQUENCE COUNTER -
0x474320…4744b4 (5, 271) Dummy {f00=0x015b, f01=0x0190, f02=»BUFFER ADDRESS - | 4 P LD A5,TCDAX GET FUNCTION SWITCH FOR READ/WRITE . P SUK A5,10 . N P RF(NZ) IHTC05 WRITE . ` P* . | & PIHTC02 INR A5,0,CHCRDA READ CHAR. . ( P SCR A5,A3 STORE CHARACTER IN BUFFER . P RF EXIT2 . P* . PIHTC05 EQU * .
0x4744b4…474648 Dummy {f00=0x015b, f01=0x0190, f02=»DA5 . * P IM EFFLEN INCREMENT EFFECTIVE LENGTH / . P LDR* A3,A15 RESTORE A3 AND A5 FROM STACK / : P* / l PEXIT3 LDR* A5,A15 / v P RTN A15 / P* / * PINRSQ INR A5,0,CHCRDA READ CHAR TO A5 / P ST A5,TCDA5 / P RB EXIT3 / P* / P
0x474648…4747dc Dummy {f00=0x015b, f01=0x0190, f02=» / P* 0 P IFT CPU852=0 0 " P MSR 8,A15 SAVE A1-A8 ON STACK 0 ( P XIF 0 N P* 0 Z P LDKL A1,0 0 d PTCDA1 EQU *-2 0 v P LDKL A4,0 0 PTCDA4 EQU *-2 0 P LDKL A5,0 0 PTCDA5 EQU *-2 0 P LDKL A6,0 0 PTCDA6 EQU *-2 0 P LDK
0x4747dc…474970 Dummy {f00=0x015b, f01=0x0190, f02=» LDR A3,A2 GET STATUS 0 P SLL A3,9 SHIFT 1 P ST A3,2,A8 SAVE ON STACK 1 6 ( P LD A3,DWTST,A6 PUT DWT STATUS IN A3 1 X P* 1 PIHTRTN EQU * 1 P RTN A8 1 P* 1 PCIOHLT EQU * 1 P CIO A1,0,CHCRDA CIO-HALT 1 P RB EXIT3 1 P* 1
0x474970…474b04 Dummy {f00=0x015b, f01=0x018e, f02=»ER 1 v P* 2 P EJECT DRTC01 2 P* 2 , P* 2 6 P* R C O V E R 2 @ P* 2 X : P* RECOVERY ROUTINE : POSITIONING OF TAPE AT POWER ON 2 b P* 2 P* 2 PRCOVER EQU * 2 P CF A8,SELECT SELECT 2 P ANK A3,1 2 2 P RB(Z) IHTRTN NOT
0x474b04…474c98 Dummy {f00=0x015b, f01=0x0190, f02=» P RF(NZ) RC0050 YES 3 ( P CF A8,SBOT SEARCH BEGINNING OF TAPE 3 P SLL A2,5 3 J P RF(NN) REPER BOT NOT FOUND 3 P RF REPOK 3 P* 3 ( PRC0050 LD A1,SEKBYT,A6 SEQ. COUNTING 3 P RF(NZ) REPER NO 3 P* 3 P EJECT DRTC01 3 P* 3
0x474c98…474e2c Dummy {f00=0x015b, f01=0x0190, f02=»EXIT: A2 EQ ZERO SUCCESS 3 8 P* A2 NOT EQ ZERO NO SUCCESS 4 4 P* 4 p P* 4 z PREPOS EQU * 4 $ P LDK A4,8 SET REPOSITIONING BIT 4 " P ORS A4,DWTST,A6 STORE IN DWT 4 P* 4 PREP005 EQU * 4 & P LDK
0x474e2c…474fc0 Dummy {f00=0x015b, f01=0x018e, f02=» LD A2,DWTBKC,A6 GET BLOCK COUNTER 4 P SUK A2,8 GREATER 8 ? 5 * P RF(G) REPER YES 5 H . P CF A8,SBOT NO DATA; SEARCH BEGIN OF TAPE 5 ` P SLL A2,5 5 P RF(NN) REPER BOT NOT FOUND 5 " P LDKL A5,-1 RESET SEQ. COUNTER 5 P RF REP020 READ SEQ. CHAR
0x474fc0…475154 (5, 272) Dummy {f00=0x015b, f01=0x0190, f02=» $ P LDK A4,PREAD SET NO OF MAX READ 6 P* 6 , & PREP017 CF A8,READSQ READ SEQ. CHAR 6 6 P LDKL A7,/180F SET READ MASK 6 ` P TM A2,A7 6 P RF(Z) REP020 READ OK 6 P SUK A4,1 COUNT READ 6 $ P RB(P) REP017 NOT ALL READ DONE 6 P RF REP060 GIVE
0x475154…4752e8 Dummy {f00=0x015b, f01=0x0190, f02=»/FF READ FORWARD. 6 P CWK A4,PINT TOO MANY BLOCKS 7 P RF(G) REPER YES 7 > P* 7 V P EJECT DRTC01 7 ` P* 7 x P* 7 " PREP030 SUK A4,1 POSITION TAPE 7 P RF(N) REP040 READY 7 " P CF A8,READSQ READ NEXT BLOCK 7 P RB REP030 7 P*
0x4752e8…47547c Dummy {f00=0x015b, f01=0x0190, f02=»5 YES 7 P SUK A4,1 COUNT RETRY 8 P RF(NP) REP060 GIVE UP 8 , P CF A8,BKSP BACKSPACE 8 J " P CF A8,READSQ READ SEQ NUMBER 8 h P RB REP042 8 P* 8 P EJECT DRTC01 8 P* 8 P* 8 PREP045 SLC A2,3 8 P RF(NN) REP050 NOT TAPE MA
0x47547c…475610 Dummy {f00=0x015b, f01=0x0190, f02=»R 8 p P CC A5,DWTBKC+1,A6 9 P RF(E) REPOK EQUAL 9 $ P* 9 > PREP060 LD A7,DWTST,A6 9 H $ P ANK A7,8 TRY POSITIONING AGAIN? 9 f P RF(Z) REPER NO 9 , P XRS A7,DWTST,A6 RESET REPOSITIONING BIT 9 P RB REP005 YES 9 P* 9 P* 9 6 PREPER LD
0x475610…4757a4 Dummy {f00=0x015b, f01=0x0190, f02=»OVERY CORRECT 9 z P RTN A8 : P* : & P EJECT DRTC01 : 0 P* : H P* : R P* D W T C 0 2 : P* : t 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 02 : ~ P* : P* : PDWTC02 EQU * TABLE ENTRY : P IFT DBCAS=2 : P DATA DWTC01
0x4757a4…475938 Dummy {f00=0x015b, f01=0x0190, f02=»NTER TO ADDRESS BLOCK : P DATA 0 TTAB ADDRESS ; $ P DATA 0 WAIT/ACTIVATE INDICATOR ; : P DATA 0 TERMINAL QUEUE ; b IFT MMUPAG=1 ; & " DATA 0 SAVE AREA USER ECB ADDRESS ; P DATA ECBTC2 MMU ECB ADDRESS ; XIF ; P IFT DBCAS=2 ; P DAT
0x475938…475acc Dummy {f00=0x015b, f01=0x0190, f02=»ATA 0,0,0,0 ; PTCBUF2 RES DVBLEN+1 < P XIF < 0 P* < < P EJECT DRTC01 < F P* < ^ P* < h P* D W T C 0 1 < r P* < 2 P* DEVICE WORK TABLE FOR CASSETTE RECORDER 01 < P* < P* < PDWTC01 EQU * TABLE ENTRY < P DATA DW
0x475acc…475c60 Dummy {f00=0x015b, f01=0x0190, f02=»OINTER TO ADDRESS BLOCK < P DATA 0 TTAB ADDRESS = $ P DATA 0 WAIT/ACTIVATE INDICATOR = < P DATA 0 TERMINAL QUEUE = d IFT MMUPAG=1 = & " DATA 0 SAVE AREA USER ECB ADDRESS = P DATA ECBTC1 MMU ECB ADDRESS = XIF = & PDWTBKC EQU *-DWTC01 BL
0x475c60…475df4 (5, 273) Dummy {f00=0x015c, f01=0x40ca, f02=» * = P DATA 0 > P DATA TCBUF1 > P DATA 0,0,0,0 > . PTCBUF1 RES DVBLEN+1 > D P XIF > ` P* > l " PREQLEN DATA 0 REQUESTED LENGTH > v P* > P* > P* > P END > @ >
0x475df4…475f88 Dummy {f00=0x015c, f01=0x2008, f02=» ? 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 . @
0x475f88…47611c Dummy {f00=0x015c, f01=0x0190, f02=»10 LD A7,DWTOR,A6 SET ORDER IN A7 7 P ANK A7,/FF 8 * * P LD A8,DWTECB,A6 AND ECB-ADDRESS IN A8 8 > P IFT SOFTIM=1 8 l * P LC A3,DWTOCH,A6 GET LAST CHARACTER =4 8 P ANK A3,/7F =4 8 * P SUK A3,DUMMSP SPECIAL DUMMY=ETX ? =4 8 P RF(NE) CLT120 NO
0x47611c…4762b0 Dummy {f00=0x015c, f01=0x0190, f02=» 8 n P RF(E) CLT120 NO =4 9 P INH =4 9 $ P CM* DWTTP,A6 RESET TIMER =4 9 6 2 P CM DWTTP,A6 RESET ADDRESS POINTER TO TIMER =4 9 Z PCLT120 EQU * =4 9 P XIF 9 4 P LD A3,DWTADR,A6 ADDRESS TO ADDRESS-BLOCK IN A3 9 P ENB 9 * P ABI INTADR,A3 G
0x4762b0…476444 Dummy {f00=0x015c, f01=0x0190, f02=»RUPT HANDLER:- 9 r P* : ( P* A1 = ERROR CODE (A1=0 NOERROR) : B P* (A1=1 NOT OPERABLE , HARDWARE TIME-OUT) : L P* A6 = DWT-ADDRESS : P* : P* A7 = ORDER : P* : P* A8 = ECB-ADDRESS : P EJECT : P* :
0x476444…4765d8 Dummy {f00=0x015c, f01=0x018e, f02=» NUMBER : p P* ; P* ON ENTRY:- ; P* ; 0 P* A3 = LINE NUMBER * 2 ; : P* A4 = DEVICE NUMBER * 2 ; Z P* ; | P* ON EXIT:- ; P* ; 6 P* A6 = TOTAL NUMBER OF DEVICES*2 ON ACTUAL LINE ; < P* A8 = ADDRESS IN 'INTLTX' WHERE DWT-A
0x4765d8…47676c Dummy {f00=0x015c, f01=0x0190, f02=» ; | P ADR A8,A3 POSITION IN TABLE < , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION < , ( P RF(Z) GTL010 RETURN IF NOT DEFINED < 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
0x47676c…476900 Dummy {f00=0x015c, f01=0x0190, f02=»T L R T < P* = : P* SUBROUTINE TO SEND ONE CHARACTER VIA CHANNEL UNIT. = P* = X < P* CHARACTER GIVEN IN A2 IS SENT VIA CHLT IF CONTROL = b 8 P* UNIT IS FREE. IN OTHER CASE DWT IS QUEUED ON A = P* OUTPUT QUEUE THREAD. = P* =
0x476900…476a94 (5, 274) Opaque[0x194]
0x476a94…476c28 # DirEnt {nam=»DRSOP1«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2be0, f03=0x0000}
0x476a94…476c28 IdxSect {
0x476a94…476c28 f00 = 0x015f // 0x476a94 @0x0
0x476a94…476c28 f01 = 0x000a // 0x476a96 @0x2
0x476a94…476c28 gno = [ // 0x476a98 @0x4
0x476a94…476c28 [0x00]: C0x015f.0x0.0
0x476a94…476c28 [0x01]: C0x015f.0x1.0
0x476a94…476c28 [0x02]: C0x015f.0x2.0
0x476a94…476c28 [0x03]: C0x015f.0x3.0
0x476a94…476c28 [0x04]: C0x0160.0x0.0
0x476a94…476c28 ]
0x476a94…476c28 }
0x476c28…476dbc Dummy {f00=0x015f, f01=0x018e, f02=» 2 P IDENT DRSOP1 REL 10.0 80-03-14 870105041000 P : P* B P* L @ P************************************************************ V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DRSOP1 = DRIVER FOR SYSTEM OPERATORS PANEL
0x476dbc…476f50 Dummy {f00=0x015f, f01=0x0190, f02=» P* B P* THIS DRIVER HANDLES INPUT AND OUTPUT ON SYSTEM OPERATOR'S , P* PANEL CONNECTED TO CPU VIA CHCR-SOP X P* P* > P* ON AN INPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET : P* 'BUSY' UNTIL THE INPUT INTERRUPT IS TA
0x476f50…4770e4 Dummy {f00=0x015f, f01=0x0190, f02=»ING READ REQUEST,POWER UP r > P* IS INDICATED AND NEXT READ REQUEST IS TERMINATED WITH " P* -2 IN CONTROL WORD d P* P* > P* ON AN OUTPUT REQUEST THE DEVICE SOFTWARE STATUS IS SET > P* 'READY' IMMEDIATELY, SINCE THE OUTPUT DOES N
0x4770e4…477278 Dummy {f00=0x015f, f01=0x0190, f02=» ` P* ( P* S O P A S : READ SWITCHES ENTRY P* > * P* S O P A L : ACTIVATE LIGHTS ENTRY H P* v & P* I H S O P : INTERRUPT HANDLER P* " P* S O P R : RECOVERY ROUTINE P* P* P* * P* THE FOLLOWIN
0x477278…47740c Dummy {f00=0x015f, f01=0x018e, f02=»IGHTS OFF z , P* 39 : WRITE FLASHING LIGHTS P* B P* NORMAL REGISTER USAGE: L P* n " P* REGISTER A1: INPUT/OUTPUT x " P* A2: WORK REGISTER " P* A3: WORK REGISTER " P* A4: WORK REGISTER
0x47740c…4775a0 Dummy {f00=0x015f, f01=0x0190, f02=» r P* P* P EJECT P* * P************ 4 P* ENTRIES: * H P************ P* p P* z * P ENTRY SOPCT S.O.P. CHANNEL UNIT TABLE ( P ENTRY SOPR S.O.P. RECOVERY ROUTINE 2 P ENTRY IHSOP S.O.P. INTERRUPT HANDLER (ALI
0x4775a0…477734 (5, 275) Dummy {f00=0x015f, f01=0x0190, f02=»**** P* EXTERNALS: * P************** " P* 8 P* TOSS GLOBALS: B P* Z , P EXTRN SAVE8 PUSH REGS A1-A8 ONTO STACK d 4 P EXTRN DISIOE DISPATCHER I/O REQUEST ERROR ENTRY & P EXTRN TDISP DISPATCHER LKM ENTRY . P EXTRN RETUR8 POP
0x477734…4778c8 Dummy {f00=0x015f, f01=0x018e, f02=»I DATA SOP LIGHTS AND FD POWER P EJECT & P 4 P* < ( P************************************ F P* r P* DWT DISPLACEMENTS | P* ( P************************************ P* $ EXTRN DWTCHP CHANNEL PARAMETER EXTRN
0x4778c8…477a5c Dummy {f00=0x015f, f01=0x0190, f02=» EXTRN DWTTAB TTAB ADDRESS * % EXTRN DWTWAT WAIT/ACTIVATE INDICATOR & EXTRN DWTTQ TERMINAL QUEUE T . P EXTRN INTSAV SAVE AREA FOR LAST INTERRUPT x ( P EXTRN ECBEL EFFECTIVE LENGTH IN ECB " P EXTRN ECBCW ECB CONTROL WORD PTIME EQU 5 F
0x477a5c…477bf0 Dummy {f00=0x015f, f01=0x0190, f02=» P PX:A EQU 0 PSOPX EQU X:A " P** 6 P** @ 8 P* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS J P* BY SETTING CREDIT = 1 4 P* ORDERS 05 AND 06 ARE THEN REPLACED BY ORDERS P* /37 AND /38 RESPECTIVLY B P*
0x477bf0…477d84 Dummy {f00=0x015f, f01=0x0190, f02=» ON ZERO IS STORED IN THE CONTROL WORD | P* OF THE ECB. . P** F P P PCREDIT EQU 0 X P** l P** v @ P* THE ORDER /39, WRITE FLASHING LIGHTS CAN BE INCLUDED BY P* SETTING X:B=1 P* PX:B EQU 0 PWRFLA EQU X:B
0x477d84…477f18 Dummy {f00=0x015f, f01=0x0190, f02=»UPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION & . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. ` P* PCPU852 EQU 1 P* PDVBLEN EQU 0 MMU BUFFER SIZE " PDEVIND EQU -2 SOP DEVICE INDEX P*
0x477f18…4780ac Dummy {f00=0x015f, f01=0x018e, f02=»TDRD P XIF P* P IFT MMUPAG=1 " PSTART EQU DWTDRD+4 8 P XIF R P* ^ & PDWTTP EQU START+/00 TIMER POINTER h P* P EJECT P* P************************** P* S.O.P. DEVICE ADDRESS: * P****************
0x4780ac…478240 Dummy {f00=0x015f, f01=0x0190, f02=» p " P* * " P* S.O.P. CHANNEL UNIT TABLE * . " P* * T " P****************************** z P* P* 0 PSOPCT EQU * TABLE STARTS WITH ADDRESS BLOCK: P* P DATA DVBLEN MMU BUFFE
0x478240…4783d4 (5, 276) Dummy {f00=0x015f, f01=0x0190, f02=» SWITCHES ENTRY | " P DATA 0 ABORT ROUTINE ADDRESS P* > P DATA DVBLEN MMU BUFFER SIZE H P DATA DEVIND DEVICE INDEX l & PSOPADU EQU * ACTIVATE LIGHTS ENTRY P* & P DATA SOPAL ACTIVATE LIGHTS ENTRY " P DATA 0 ABORT ROUTINE ADDRES
0x4783d4…478568 Dummy {f00=0x015f, f01=0x0190, f02=» r " P* * " P* S.O.P. ACTIVATION ROUTINE: * . " P* * T " P****************************** z P* > P* THE ORDER IS ANALYZED AND THE CORRESPONDING I/O ACTION P* IS CARRIED OUT. P
0x478568…4786fc Dummy {f00=0x015f, f01=0x0190, f02=» r P* * P RF(NZ) SOPER ERROR IF NOT READ ORDER P* @ P* INPUT SWITCH VALUE J P* h * PSOPIN LDR* A2,A6 POWER UP INDICATION ? r P IFT CREDIT=0 P RF(Z) EXIT NO $ P CMR A6 YES CLEAR FOR NEXT REQ. P XIF P IFT CRE
0x4786fc…478890 Dummy {f00=0x015f, f01=0x0190, f02=»OR CHANGES OF S.O.P. LIGHTS P* $ & PSOPAL EQU * ACTIVATE LIGHTS ENTRY . P* X P LD A3,10,A8 CHANGED LIGHTS b , P ANKL A3,/07FF BITS 5-15 CONTROLS LIGHTS P* P LDR A4,A7 COPY ORDER P IFT WRFLA=1 P CCK A4,/3939 P
0x478890…478a24 Dummy {f00=0x015f, f01=0x0190, f02=» A4,/37 P XIF & P RF(Z) SOPON IF SO, TURN ON LIGHTS P* F & P SUK A4,1 SEE IF LIGHTS OFF ORDER P P RF(Z) SOPOFF z & PSOPER ABL(NZ) DISIOE ILLEGAL ORDER P IFT WRFLA=1 P EJECT P* P* P* FLASH LIGHTS
0x478a24…478bb8 Dummy {f00=0x015f, f01=0x018e, f02=» A4,A6 P LDR A1,A6 P CF A15,SETIMP P DATA FLTUT,TIME 6 P ST A4,DWTTP,A6 N P LDKL A1,/FFBF f P ANS A1,DWTST,A6 SET ON FLAG | PFL010 EQU * . P* A3 CONTAINS LIGHTS THAT SHOULD FLASH * P ORS A3,FLASH STORE NEW LAMPS TO F
0x478bb8…478d4c Dummy {f00=0x015f, f01=0x0190, f02=» PFL020 EQU * P C1R A3,A3 P ANS A3,SPDLCI . P RF SOPONOF D P* X P EJECT b P* p PFLTUT EQU * FLASH TIME OUT z P LDKL A6,DWSO01 P LD A3,FLASH 0 P RF(Z) FL030 NO MORE FLASHING FOR THIS TIME P LDKL A1,-TI
0x478d4c…478ee0 Dummy {f00=0x015f, f01=0x018e, f02=» RF EXIT END I/O P XIF P EJECT $ P* 2 PSOPOFF EQU * < , P C1R A3,A3 GET COMPLEMENTED CONTROL WORD P 4 P ANS A3,SPDLCI MASK OUT LIGHTS TO BE TURNED OFF P IFT WRFLA=1 $ P ANS A3,FLASH STOP SOME FLASHING P XIF , P RF SOPO
0x478ee0…479074 (5, 277) Dummy {f00=0x015f, f01=0x0190, f02=» " P* A3 CONTAINS CONTROL WORD . P ORS A3,SPDLCI SET LIGHTS TO BE TURNED ON * P IFT WRFLA=1 P C1R A3,A3 p * P ANS A3,FLASH STOP SOME OTHER FLASHING P XIF P* P* COMMON ON/OFF PATH: P* 0 PSOPONOFF LD A1,SPDLCI GET
0x479074…479208 Dummy {f00=0x015f, f01=0x018e, f02=»**************************** P* * $ P* S.O.P. INTERRUPT HANDLER * H P* * l P**************************** P* P* @ P* THE INTERRUPT HANDLER WILL TAKE CARE OF ALL INTERRUPTS.
0x479208…47939c Dummy {f00=0x015f, f01=0x0190, f02=» & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF 2 P* > P IFT CPU852=0 H " P MSR 8,A15 SAVE A1-A8 ON STACK ^ P XIF P* $ P ST P,INTSAV SAVE LAST INTERRUPT P INR A1,0,SOPDA GET SWITCH P SRN A1,A2 CALC INDEX P IFT C
0x47939c…479530 Dummy {f00=0x015f, f01=0x0190, f02=»0 " P LDKL A6,DWSI02 ANY REQUEST ON P LD A4,DWTST,A6 STATUS WORD 0 P RF(N) IHSOP2 NO T $ P LD A8,DWTECB,A6 GET ECB-ADDRESS l P ST A2,ECBCW,A8 STORE INDEX ( P CM ECBEL,A8 RESET EFFECTIVE LENGTH P LDK A1,0 P CF A15,TENDIO END
0x479530…4796c4 Dummy {f00=0x015f, f01=0x018e, f02=»D A8,DWTECB,A6 GET ECB-ADDRESS P & & PIHSOP3 ST A2,ECBCW,A8 STORE INDEX . P X , PENDIO CM ECBEL,A8 RESET EFFECTIVE LENGTH ` P LDK A1,0 P CF A15,TENDIO END I/O P $ PEXIT ABL TDISP GO TO DISPATCHER P EJECT P* * P
0x4796c4…479858 Dummy {f00=0x015f, f01=0x0190, f02=» * P* * * P************************************* 2 P* ` P* j : P* THIS ROUTINE IS A SUBROUTINE TO THE POWER FAILURE t 8 P* RECOVERY ROUTINE (PFAR). IT'S ENTRY POINT SHOULD @ P* BE PRESENT IN THE POWE
0x479858…4799ec Dummy {f00=0x015f, f01=0x0190, f02=»AVED IN DWTCHP r P* P* PSOPR EQU * ENTRY POINT * P IFT CPU852=1 J & P CF A15,SAVE8 SAVE A1-A8 ON STACK ` P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK P XIF P* " P CIO A1,1,SOPDA ACTIVA
0x4799ec…479b80 Dummy {f00=0x015f, f01=0x018e, f02=»DIT=0 " P LDKL A2,-2 POWER UP INDICATOR P XIF 4 P IFT CREDIT=1 @ P LDK A2,0 V P XIF h P t P IFF SOPX=0 | " P LDKL A6,DWSI02 ANY REQUEST ON $ P LD A4,DWTST,A6 GET STATUS WORD P RF(NN) SOPR1 YES P STR A2,A6 IND P
0x479b80…479d14 (5, 278) Dummy {f00=0x0160, f01=0x0190, f02=» | P STR A2,A6 IND POWER UP P ( PSOPR2 RB IHSOP1 0 P EJECT H P* V P* D W S I 0 1 : INPUT DWT ` P* PDWSI01 EQU * , P DATA 0 CHANNEL PARAMETER: POWER UP IND , P DATA /8000 /8000 MEANS DEVICE IS READY P DATA
0x479d14…479ea8 Dummy {f00=0x0160, f01=0x0190, f02=»G=1 & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECI MMU ECB ADDRESS 6 PDEVECI EQU * Z P DATA 0,0,0,0,0,0 n P XIF P* P* D W S O 0 1 : OUTPUT DWT P* P* PDWSO01 EQU * " P DATA /0040 CHANNEL PARAMETER
0x479ea8…47a03c Dummy {f00=0x0160, f01=0x0190, f02=»S BLOCK r P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR , P DATA 0 TERMINAL QUEUE T IFT MMUPAG=1 r & " DATA 0 SAVE AREA USER ECB ADDRESS P DATA DEVECO MMU ECB ADDRESS XIF P DATA 0 TIMER POINTER . PFLASH DA
0x47a03c…47a1d0 Dummy {f00=0x0160, f01=0x018e, f02=» P* ! * P* D W S I 0 2 : EXTENDED INPUT DWT ! P* ! @ P ! J PDWSI02 EQU * ! R P IFF SOPX=0 ! f P DATA 0 ! z P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 !
0x47a1d0…47a364 Dummy {f00=0x0160, f01=0x4036, f02=» ! P* " P* " P* " P END " &@ " 2T ! P* ! @ P ! J PDWSI02 EQU * ! R P IFF SOPX=0 ! f P DATA 0 ! z P DATA /8000 ! P DATA 0 ECB ADDRESS ! P DATA 0 ORDER ! P DATA SOPADI ! P DATA 0,0,0 ! IFT MMUPAG=1 !
0x47a364…47a4f8 Dummy {f00=0x0160, 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
0x47a4f8…47a68c Dummy {f00=0x0160, f01=0x0190, f02=» P* P* P DATA DVBLEN BUFFER LENGTH P DATA 2 DEVICE INDEX : PDYAD EQU * ADDRESS BLOCK V P DATA ACDY ACTIVATION DRIVER v $ P DATA ABDY ABORT ROUTINE ADDRESS P DATA IHDY INTERRUPT HANDLER P DATA RCDY RECOVERY ROUTINE .
0x47a68c…47a820 Dummy {f00=0x0160, 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*
0x47a820…47a9b4 (5, 279) Opaque[0x194]
0x47a9b4…47ab48 # DirEnt {nam=»DRDU01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2b88, f03=0x0000}
0x47a9b4…47ab48 IdxSect {
0x47a9b4…47ab48 f00 = 0x015c // 0x47a9b4 @0x0
0x47a9b4…47ab48 f01 = 0x0026 // 0x47a9b6 @0x2
0x47a9b4…47ab48 gno = [ // 0x47a9b8 @0x4
0x47a9b4…47ab48 [0x00]: C0x015c.0x1.0
0x47a9b4…47ab48 [0x01]: C0x015c.0x2.0
0x47a9b4…47ab48 [0x02]: C0x015c.0x3.0
0x47a9b4…47ab48 [0x03]: C0x015d.0x0.0
0x47a9b4…47ab48 [0x04]: C0x015d.0x1.0
0x47a9b4…47ab48 [0x05]: C0x015d.0x2.0
0x47a9b4…47ab48 [0x06]: C0x015d.0x3.0
0x47a9b4…47ab48 [0x07]: C0x015e.0x0.0
0x47a9b4…47ab48 [0x08]: C0x015e.0x1.0
0x47a9b4…47ab48 [0x09]: C0x015e.0x2.0
0x47a9b4…47ab48 [0x0a]: C0x015e.0x3.0
0x47a9b4…47ab48 [0x0b]: C0x016d.0x3.0
0x47a9b4…47ab48 [0x0c]: C0x016e.0x1.0
0x47a9b4…47ab48 [0x0d]: C0x016e.0x2.0
0x47a9b4…47ab48 [0x0e]: C0x016e.0x3.0
0x47a9b4…47ab48 [0x0f]: C0x016f.0x0.0
0x47a9b4…47ab48 [0x10]: C0x016f.0x1.0
0x47a9b4…47ab48 [0x11]: C0x016f.0x2.0
0x47a9b4…47ab48 [0x12]: C0x016f.0x3.0
0x47a9b4…47ab48 ]
0x47a9b4…47ab48 }
0x47ab48…47acdc Dummy {f00=0x015c, f01=0x0190, f02=» 2 P IDENT DRDU01 REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DRDU01 = DRIVER FOR ONE/TWO DISC UNITS P* 0 P
0x47acdc…47ae70 Dummy {f00=0x015c, f01=0x0190, f02=»**************** n P* P* " 0 P* THIS DISC DRIVER HANDLES UP TO TWO DISC , 4 P* DRIVES X1215,X1216 CONNECTED TO CPU VIA IOP ` P* ON MULTIPLEX CHANNEL P* P* * P* THE FOLLOWING ORDERS ARE TREATED : P* P*
0x47ae70…47b004 Dummy {f00=0x015c, f01=0x0190, f02=»L WRITE ~ P* /1F FORMAT VOLUME P* 0 P EJECT DRDU01 DRDU01 : P* Z P* d P*********** n P* ENTRIES * P*********** P* P* $ P ENTRY DUADR ACTIVATION ADDRESS P ENTRY DUON RECOVERY ROUTINE 2
0x47b004…47b198 Dummy {f00=0x015c, f01=0x0190, f02=»DLER DISC UNIT NO. 2 v . P ENTRY DWDU01 DWT ADDRESS DISC UNIT NO. 1 P EJECT DRDU01 N P* f P* p P************* z P* EXTERNALS * P************* P* P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO END I/O
0x47b198…47b32c Dummy {f00=0x015c, f01=0x0190, f02=» DWT SET NVL p 6 P EXTRN VOLNAM VOLUME NAME FROM DWT TO USER BUFFER , P EXTRN VOLCLR CLEAR VOLUME NAMES IN DWT N . P EXTRN INXDWT DOUBLED INDEX + DWT ADDRESS ~ P EXTRN DISIOE REQUEST ERROR & P EXTRN INIFLG INITIALIZATION FLAG * P EXTRN PFP
0x47b32c…47b4c0 Dummy {f00=0x015c, f01=0x0190, f02=»RN DWTST STATUS EXTRN DWTECB ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER : EXTRN DWTA2 SAVE AREA A2 b EXTRN DWTA4 SAVE AREA A4 EXTRN DWTA5 SAVE AREA A5 & ! EXTRN DWTSB1 STACK BASE 1 IN DWT & ! EXTRN DWTSB2 STACK BA
0x47b4c0…47b654 (5, 280) Dummy {f00=0x015c, f01=0x0190, f02=»CATORS l P EXTRN DWTVOL VOLUME NAMES P EXTRN DWTTAB TTAB ADDRESS 0 $ P EXTRN ECBBA ECB BUFFER ADDRESS R & P EXTRN ECBRL ECB REQUESTED LENGTH z & P EXTRN ECBEL ECB EFFECTIVE LENGTH P EXTRN ECBRC ECB RETURN CODE ( P EXTRN ECBCW1 ECB 1:ST
0x47b654…47b7e8 Dummy {f00=0x015c, f01=0x018e, f02=» v P* * P* CONDITIONAL ASSEMBLY * * P* * L P************************** n P* P* 6 P* READ AFTER WRITE MAY BE EXCLUDED FOR ORDER /15 P* BY SETTING X:A = 0 P* PX:
0x47b7e8…47b97c Dummy {f00=0x015c, f01=0x0190, f02=» PX:B EQU 1 PNUNITS EQU 2 P* * P* 4 . P* A PROGRAM VERSION USING TOSS MMU PAGING > * P* IS OBTAINED BY SETTING MMUPAG EQU 1. p P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION .
0x47b97c…47bb10 Dummy {f00=0x015c, f01=0x018e, f02=»A PROGRAM VERSION USING THE INSTRUCTION SET OF 2 P* CPU 857 IS OBTAINED BY SETTING CPU857 EQU 1 6 P* l PX:E EQU 0 v PCPU857 EQU 00 P* P* P* PROGRAM VERSION FOR FORMAT , P* A2 IS OBTAINED BY SETTING VERSA2 EQU 1 , P*
0x47bb10…47bca4 Dummy {f00=0x015c, f01=0x0190, f02=» P* P EJECT DRDU01 DRDU01 P* 2 P* < P************* F P* CONSTANTS * P************* r P* P* 0 PDAF1 EQU /28 DEVICE ADDRESS FIXED DISC NO. 1 4 PDAC1 EQU /08 DEVICE ADDRESS CARTRIDGE DISC NO. 1 0 P
0x47bca4…47be38 Dummy {f00=0x015c, f01=0x0190, f02=»RESS t & PCUADR EQU /08 CONTROL UNIT ADDRESS P* 6 : PMAXSEC EQU 6528 MAX NO OF SECTORS ON UNPACKED PTS 6875 @ , PSECLEN EQU 256 SECTOR LENGTH, CHARACTERS ~ * PPHSECL EQU 384 PHYSICAL SECTOR LENGTH PQRETRY EQU 4 NO OF RETRIES PTIME EQU 1
0x47be38…47bfcc Dummy {f00=0x015c, f01=0x0190, f02=»NO MMU BUFFER ~ " P DATA DEVIND DISC DEVICE INDEX & PDUADR DATA DUAD ACTIVATION ADDRESS < " P DATA 0 ABORT ROUTINE ADDRESS f P* P IFT VERSA3=1 PBUFFER RES 193 P XIF P* P IFT VERSA3=0 PBUFFER RES 25 P*
0x47bfcc…47c160 Dummy {f00=0x015c, f01=0x0190, f02=» P* * P* ACTIVATION * P* * 8 P***************** R P* l P* v PDUAD EQU * " P CM DWTRTY,A6 RETRY INDICATOR 0 P CM DWTFBU,A6 RESET DRIVER BUFFER INDICATOR P LDK A1,0 P LC A1,DWT
0x47c160…47c2f4 (5, 281) Dummy {f00=0x015c, f01=0x0190, f02=»UERR FAULT IN INDEX P* PDUA:00 EQU * & P* : P LDK A5,DWTSB3 D P ADR A5,A6 LOAD STACK BASE Z P IFT MMUPAG=1 | ( P MLR 2,A8 GET 18 BIT BUFFER ADDRESS P SLC A1,4 MOST SIGN. BITS P ANK A1,3 P SRL A2,1 WORD ADDDRES
0x47c2f4…47c488 Dummy {f00=0x015c, f01=0x0190, f02=»EX AND ORDER P ADK A7,0 SET CR ( P RF(NZ) DUA:05 NOT TEST STATUS ORDER , P* X P EJECT DRDU01 b P* x P* P********************* P* * P* TEST STATUS * P* * P****
0x47c488…47c61c Dummy {f00=0x015c, f01=0x0190, f02=»SECOND UNIT l P LDK A2,1 * P ST A2,DWTSAV,A6 INDICATE TEST STATUS & " P CF A5,VO:NAM READ VOLUME NAME T P ADK A1,0 z P RF(NZ) TESEND NOT OPERABLE , P LD A2,DWTORD,A6 RESTORE INDEX AND ORDER P ST A2,DWTOR,A6 P LD A8,DWTECB,A6
0x47c61c…47c7b0 Dummy {f00=0x015c, f01=0x0190, f02=»DKL A2,-1 . P ST A2,DWTSAV,A6 INDICATE TEST STATUS DONE P ABL END:IO PERFORM ENDIO D P* f P EJECT DRDU01 p P* , P*************************************** , P* * , P* NEW VOLUME LOADED
0x47c7b0…47c944 Dummy {f00=0x015c, f01=0x018e, f02=»************************* P* " . P* INPUT: A1=NVL RETURN CODE FROM NVLCHK , P* A7=ORDER CODE ^ P* ~ P* PDUA:05 EQU * ( P ADK A1,0 CHECK IF NEW VOLUME LOADED " P ABL(NZ) END:IO PERFORM TENDIO P SUK A7,1
0x47c944…47cad8 Dummy {f00=0x015c, f01=0x018e, f02=» r P SUK A7,4 P RF(Z) DUA:10 PHYSICAL WRITE P SUK A7,10 > P RF(Z) FORMAT FORMAT VOLUME P P* t " PDUERR ABL DISIOE REQUEST ERROR ~ P* ( PINCLEN EQU * REQUESTED LENGTH ERROR P LDKL A1,/8008 P ABL END:20 P EJE
0x47cad8…47cc6c Dummy {f00=0x015c, f01=0x0190, f02=» r P* * P************************** * P* L P* V PFORMAT EQU * ` 0 P LDK A7,204 NUMBER OF CYLINDERS ON PTS 6875 t " P LD A1,ECBCW1,A8 GET DISC TYPE P IFT VERSA2+VERSA3=2 P ECR A2,A1 P XIF P
0x47cc6c…47ce00 Dummy {f00=0x015c, f01=0x018e, f02=» LDKL A3,BUFFER " P LDKL A1,/C001 WRITE ONE WORD P ANK A2,3 > P SUK A2,3 P P RF(NZ) FORM05 A1 OR A2 b " P LDKL A1,/C0C1 WRITE 386 BYTES P ADKL A3,PHSECL PFORM05 EQU * " P ST A1,DWTFBU,A6 SAVE 1ST WER P XIF P*
0x47ce00…47cf94 (5, 282) Dummy {f00=0x015d, f01=0x0190, f02=» . P LDKL A3,BUFFER+PHSECL POSITION FOR CYL ID P XIF : P* F $ P STR A3,A6 DRIVER BUFFER POINTER P P IFT NUNITS=2 x P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER ZERO P XIF P IFT NUNITS=1 P CM DWTCYL,A6 CYLINDER ZERO
0x47cf94…47d128 Dummy {f00=0x015d, f01=0x0190, f02=» NUNITS=2 P CF A5,INXUNI GET UNIT INDEX P XIF 6 P CF A5,SEEK SEEK CYLINDER B P SLL A1,5 STATUS d P RF(NN) FORM40 SEEK ERROR | P IFT NUNITS=2 P CF A5,INXUNI P LD A1,DWTCYL,A2 P XIF P IFT NUNITS=1 P LD
0x47d128…47d2bc Dummy {f00=0x015d, f01=0x0190, f02=»EVEN CYLINDERS r ( P* WRITE SECTOR 8 ON ODD CYLINDERS P ORK A3,1 ORDER CODE: WRITE B P* f P IFT VERSA2+VERSA3=2 p P LD A1,DWTFBU,A6 GET 1ST WER P XIF P* P IFT VERSA2=1 P IFT VERSA3=0 P LDKL A1,/C002 P
0x47d2bc…47d450 Dummy {f00=0x015d, f01=0x0190, f02=»DKL A2,BUFFER P CF A5,CIO:50 CIO:50 SECTOR P ANK A1,/1F : P RF(NZ) FORM40 WRITE ERROR N P IFT NUNITS=2 p P CF A5,INXUNI P IM DWTCYL,A2 P XIF P IFT NUNITS=1 P IM DWTCYL,A6 P XIF ( P SUK A7,1 DECREMEN
0x47d450…47d5e4 Dummy {f00=0x015d, f01=0x0190, f02=»WT l PFORM40 EQU * P CF A5,SEEKZ SEEK CYLINDER 0 P SLL A1,6 B P RF(N) FORM50 SEEK ERROR T P SUK A4,1 RETRY COUNTER t P RB(NZ) FORM30 RETRY PFORM50 EQU * $ P LDK A1,2 SEEK ERROR RETURN CODE P ABL END:IO PERFORM END IO
0x47d5e4…47d778 Dummy {f00=0x015d, f01=0x0190, f02=» * | 6 P* CHECK IF ALLOWED SECTOR LENGTH, BUFFER SIZE * & 6 P* AND SECTOR NUMBER * ` 6 P* SAVE BUFFER ADDRESS AND SET SECTOR COUNTER * 6 P* *
0x47d778…47d90c Dummy {f00=0x015d, f01=0x0190, f02=» DWTUBU=USER BUFFER POINTER P* , P* 6 PDUA:10 EQU * @ $ P LD A3,ECBRL,A8 REQUESTED LENGTH T P RB(Z) INCLEN | 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS & P ANK A3,/FF SET CONDITION REGISTER 4 P RB(NZ) INCLEN NOT
0x47d90c…47daa0 Dummy {f00=0x015d, f01=0x0190, f02=» l P CW A3,DWTSMX,A2 * P RB(NL) DUERR INCORRECT SECTOR NUMBER P ADR A3,A7 N P CW A3,DWTSMX,A2 ` ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW x P* P IFT MMUPAG=0 P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER P
0x47daa0…47dc34 (5, 283) Dummy {f00=0x015d, f01=0x0190, f02=» " P* * " P* DISC VERSION SEPARATION * * " P* * P " P***************************** v P* P* P LD A2,DWTFOR,A2 P SUK A2,2 P RF(Z) RW:800 VERSION A2 P XIF P*
0x47dc34…47ddc8 Dummy {f00=0x015d, f01=0x0190, f02=» * ~ * P* * * P* GET PHYSICAL SECTOR NUMBER BY * J * P* DIVIDE BY 3 * x * P* * * P************************************* P*
0x47ddc8…47df5c Dummy {f00=0x015d, f01=0x0190, f02=»EMAINER=LOGICAL SECTOR POSITION 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ( P XIF ^ P* j P IFT VERSA3=1 t P IFT CPU852=1 P LD A1,ECBCW2,A8 P LDR A3,A1 SECTOR NUMBER P LDK A2,0 PDVK:00 EQU * P ADR A2,A3
0x47df5c…47e0f0 Dummy {f00=0x015d, f01=0x0190, f02=»A2 REST AFTER LOOP P SUK A2,1 ! PDVK:10 EQU * ! , P ADK A2,1 ! @ P SUK A1,3 DIVIDE BY 3 ! R P RB(NN) DVK:10 ! p P ADK A1,3 REST ! , P* A1=REMAINER=LOGICAL SECTOR POSITION ! 2 P* A2=QUOTIENT=PHYSICAL SECTOR NUMBER ON DISC ! P* !
0x47e0f0…47e284 Dummy {f00=0x015d, f01=0x0190, f02=» * ! * P* SAVE PHYSICAL SECTOR NUMBER * " $ * P* AND SECTOR POSITION * " R * P* BRANCH ACCORDING TO SECTOR * " * P* POSITION * " * P* * " *
0x47e284…47e418 Dummy {f00=0x015d, f01=0x0190, f02=»UMBER / 3 " r P* # P* # P ADR A2,A2 # & * P STR A2,A6 SAVE PHYSICAL SECTOR NUMBER # 8 P SUK A1,1 # f P IFT RAW=1 # x * P ST A1,DWTSEP,A6 SAVE SECTOR POSITION # 2 P ST A2,DWTSEI,A6 SAVE 1ST PHYS. SECTOR NUMBER # P XIF # P* # P IFT
0x47e418…47e5ac Dummy {f00=0x015d, f01=0x0190, f02=» , XXXX, # * $ EJECT DRDU01 $ * $ 6 * P************************************* $ @ * P* * $ n * P* READ/WRITE FROM SECTOR IN * $ * P* POSITION , , xxxx, * $ * P*
0x47e5ac…47e740 Dummy {f00=0x015d, f01=0x0190, f02=»AW=1 $ , P IM DWTSEI,A6 SAVE FOR READ AFTER WRITE % P XIF % < P* % H P IFT VERSA3=1 % R P CF A5,IOROUT % h P DATA /0084 % ~ P SUK A7,1 % P RF RW:300 % P* % P EJECT DRDU01 % P* % * P************************************* %
0x47e740…47e8d4 (5, 284) Dummy {f00=0x015d, f01=0x0190, f02=» % j * P* * & * P************************************* & 6 P* & d P* & n PRW:200 EQU * & x P CF A5,IOROUT & P DATA /0048 & P SUK A7,2 NUMBER OF SECTORS & P RF(N) RW:230 1 SECTOR IN IO & $ P RF(NZ) RW
0x47e8d4…47ea68 Dummy {f00=0x015d, f01=0x0190, f02=»XX,XX , & ~ P CF A5,IOROUT ' P DATA /0040 ' ( P RF RW:600 ' < PRW:260 EQU * , XX,XXXXXX, ' N P CF A5,IOROUT ' r P DATA /80C0 ' P* ' P EJECT DRDU01 ' P* ' ( P************************************ ' ( P*
0x47ea68…47ebfc Dummy {f00=0x015d, f01=0x0190, f02=» * ' v ( P************************************ ( P* ( > P* ( H PRW:300 EQU * ( R P SUK A7,3 SECTOR COUNTER ( f 0 P RF(NG) RW:500 LESS THAN FOUR SECTORS IN IO ( P CF A5,IOROUT ( P DATA /80C0 ( P CF A5,IOROUT ( P DATA /80C0 (
0x47ebfc…47ed90 Dummy {f00=0x015d, f01=0x018e, f02=» * ( v ( P* READ/WRITE ON THE LAST SECTORS * ) ( P* IN IO * ) > ( P* * ) j ( P************************************ ) P* ) P* ) PRW:500 EQU * ) P RF(Z) RW:580 3 SECTORS )
0x47ed90…47ef24 Dummy {f00=0x015d, f01=0x0190, f02=» ) P DATA /0080 * P RF RW:600 * PRW:560 EQU * ,XXXXXX,XX , * . P CF A5,IOROUT * R P DATA /80C0 * h P CF A5,IOROUT * | P DATA /0040 * P RF RW:600 * PRW:580 EQU * ,XXXXXX,XXXXXX, * P CF A5,IOROUT * P DATA /80C0 * P C
0x47ef24…47f0b8 Dummy {f00=0x015d, f01=0x0190, f02=» P************************ + P* * + $ P* READ AFTER WRITE * + D P* * + d P************************ + P* + 0 P* DWTSEI=1:ST PHYSICAL SECTOR NUMBER IN IO + 8 P* 1ST POS IN DWT=LAST PHYSICAL SECTO
0x47f0b8…47f24c Dummy {f00=0x015d, f01=0x0190, f02=» RF(NZ) RW:700 NOT PHYSICAL WRITE + P LDKL A2,-/100 , * , P LD A1,DWTSEP,A6 GET 1ST SECTOR POSITION , @ P RF(Z) RW:645 , XX, , p P RF(P) RW:640 , XXXX, , P ADK A2,/80 , PRW:640 EQU * , P ADK A2,/80 , PRW:645 EQU * , , P ST A2,ECBEL
0x47f24c…47f3e0 Dummy {f00=0x015d, f01=0x0190, f02=»UMBER OF PHYSICAL SECTORS , P STR A1,A6 - " P* - 4 P EJECT DRDU01 - > P* - T P* - ^ PRW:650 EQU * - h P CF A5,IOROUT - | P DATA /40C0 - P IMR A6 NEXT PHYSICAL SECTOR - P LDKL A1,PHSECL - " P ADS A1,ECBEL,A8 UPDATE ECBEL - P
0x47f3e0…47f574 (5, 285) Dummy {f00=0x015d, f01=0x0190, f02=»FT VERSA3=1 - PRW:700 EQU * . P LDK A1,0 RETURN CODE . ( P ABL END:20 ENDIO . F P* . ` P XIF . j P* . v P EJECT DRDU01 . P* . P IFT VERSA2=1 . P* . P* . & P********************************* . & P*
0x47f574…47f708 Dummy {f00=0x015d, f01=0x0190, f02=»*** . r P* / P* / PRW:800 EQU * / P CF A5,DIV31 / 4 P IFT RAW=1 / H @ P ST A7,DWTSEI,A6 SAVE NUMBER OF SECTORS FOR READ AFTER WRITE / Z P XIF / P* / P IFT VERSA2=1 / PRW:850 EQU * / P CF A5,IOROUT / " P DATA /A080 INDICATE
0x47f708…47f89c Dummy {f00=0x015d, f01=0x018e, f02=»S IN IO / v P* 0 P EJECT DRDU01 0 P* 0 0 P* 0 : P IFT RAW=1 0 D P LD A7,DWTOR,A6 GET ORDER 0 V P ANK A7,/FF 0 x P SUK A7,/15 0 P* 0 P IFT VERSA3=1 0 & P RB(NZ) RW:700 NOT PHYSICAL WRITE 0 P XIF 0 P* 0 P IFT VER
0x47f89c…47fa30 Dummy {f00=0x015d, f01=0x018e, f02=» . P CM ECBEL,A8 PREPARE FOR READ AFTER WRITE 1 P LD A7,DWTSEI,A6 1 6 P CF A5,DIV31 1 N P* 1 b P EJECT DRDU01 1 l P* 1 P* 1 PRW:900 EQU * 1 P CF A5,IOROUT 1 P DATA /E080 READ AFTER WRITE 1 P SUK A7,1 1 P RB(NZ) RW:900 1
0x47fa30…47fbc4 Dummy {f00=0x015d, f01=0x0190, f02=» PRW:905 EQU * 2 P LDK A1,0 RESET RETURN CODE 2 P ABL END:20 2 < P XIF 2 P P* 2 P EJECT DRDU01 2 f P* 2 | 4 P*********************************************** 2 4 P* * 2 4 P* IOROUT PERFORM
0x47fbc4…47fd58 Dummy {f00=0x015d, f01=0x0190, f02=» * 2 f 4 P*********************************************** 3 P* 3 F & P* INPUT : ONE DATA WORD AFTER CF 3 P * P* BIT 0 :INDICATES DIRECT IO 3 z 0 P* BIT 1 :INDICATES READ AFTER WRITE 3 * P* BIT 2 :INDICATES FORMAT A2 3 *
0x47fd58…47feec Dummy {f00=0x015d, f01=0x018e, f02=»L BE CHECKED BY A READ 3 n @ P* DWTBSE CONTAINS THE PRESENT SECTOR IN THE DRIVER BUFFER 4 & P* DWTRTY INDICATES RETRIES DONE 4 b H P* DWTSWD SAVED WORD FROM USER BUFFER WHEN IO NOT VIA DRIVER BUFFER 4 P* 4 PIOROUT EQU * 4 * P LDR* A3,A6 GET PH
0x47feec…480080 Dummy {f00=0x015d, f01=0x0190, f02=» P SLL A4,2 5 P RF(NN) SEE:05 FORMAT A3 5 P ADK A3,0 5 6 P XIF 5 H P* 5 T P EJECT DRDU01 5 ^ P* 5 t P* 5 ~ P IFT VERSA2=1 5 " P RF(NZ) SEE:05 NOT CYLINDER 0 5 P CF A5,SEEKZ 5 P SLL A1,6 5 P RF(N) SEE:20 ERROR 5 P I
0x480080…480214 (5, 286) Dummy {f00=0x015e, f01=0x0190, f02=»UNITS=1 5 P CM DWTCYL,A6 6 P RF VA2BR 6 & P XIF 6 8 P* 6 D P EJECT DRDU01 6 N P* 6 d P* 6 n PSEE:05 EQU * 6 x P IFT NUNITS=2 6 P CF A5,INXUNI 6 * P CW A3,DWTCYL,A2 COMPARE WITH PRESENT 6 P XIF 6 P IFT NUNITS=1 6 P
0x480214…4803a8 Dummy {f00=0x015e, f01=0x0190, f02=»FT VERSA2=0 6 P IFT VERSA3=1 7 " P RF(E) SEE:90 HEAD IN POSITION 7 * P XIF 7 P P* 7 P IFT VERSA2+VERSA3=2 7 f $ P RF(NE) SEE:07 NOT SAME CYLINDER 7 P ADK A4,0 7 P RF(N) VA2BR FORMAT A2 7 P RF SEE:90 7 P* 7 P EJECT DRDU01 7
0x4803a8…48053c Dummy {f00=0x015e, f01=0x0190, f02=» 7 P* 8 P IFT NUNITS=2 8 " P ST A3,DWTCYL,A2 NEW CYLINDER 8 ( P XIF 8 N $ P LDK A4,QRETRY NUMBER OF RETRIES 8 Z PSEE:10 EQU * 8 P IFT NUNITS=2 8 $ P CF A5,INXUNI DOUBLED UNIT INDEX 8 P XIF 8 P CF A5,SEEK 8 P SLC A1,5 RETURN COD
0x48053c…4806d0 Dummy {f00=0x015e, f01=0x0190, f02=» P SLC A1,6 RETURN CODE 9 P RF(N) SEE:20 ERROR 9 " P IM DWTRTY,A6 INDICATE RETRY 9 > P SUK A4,1 RETRY COUNTER 9 b P RB(NZ) SEE:10 TRY AGAIN 9 PSEE:20 EQU * 9 P LDKL A3,/FFFF 9 P IFT NUNITS=2 9 P CF A5,INXUNI 9 * P ST A3,DWTCYL,A2
0x4806d0…480864 Dummy {f00=0x015e, f01=0x018e, f02=»TURN CODE 9 P RF SEE:35 END IO : P* : , P EJECT DRDU01 : 6 P* : L P* : V PSEE:30 EQU * : ` P IFT NUNITS=2 : t P CF A5,INXUNI : P XIF : P IFT VERSA2+VERSA3=2 : P LD* A1,4,A5 GET DATA WORD : P SLL A1,2 : P RF(NN) SEE:
0x480864…4809f8 Dummy {f00=0x015e, f01=0x0190, f02=» P LDK A3,0 ; P CF A5,SKEW ; P LDKL A1,/8002 READ 2 WORDS ; * * P LDKL A2,BUFFER READ TO DRIVER BUFFER ; N P CF A5,CIO:50 ; | P ANK A1,/1F ERROR CHECK ; P RF(NZ) SEE:32 ; P LD A3,BUFFER GET CYL ID ; P IFT NUNITS=2 ; P CF A5,INX
0x4809f8…480b8c Dummy {f00=0x015e, f01=0x0190, f02=»CK IF SAME CYLINDER ; | P XIF < P IFT VERSA2=1 < ( " P RB(NE) SEE:15 NOT SAME CYL ID < > PVA2BR EQU * < d P ABL VA2:00 < x P XIF < P* < P IFT VERSA3=1 < P EJECT DRDU01 < P* < P* < P* FORMAT A3 < P* < PSEE:31
0x480b8c…480d20 Dummy {f00=0x015e, f01=0x0190, f02=» P XIF = P* = P IFT VERSA3=1 = P SLL A3,5 GET SECTOR NUMBER = 0 $ P ST A3,DWTBSE,A6 SAVE FOR BSELOD = T P LDK A3,0 = | . P CF A5,SKEW TO READ SECTOR 0 OR 8 ON DISC = 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER = P CF A5,READ = 2 P
0x480d20…480eb4 (5, 287) Dummy {f00=0x015e, f01=0x0190, f02=» XIF = P* > PSEE:32 EQU * > P IM DWTRTY,A6 INDICATE RETRY > * P SUK A4,1 RETRY COUNTER > N P RB(NZ) SEE:15 RETRY > n PSEE:35 EQU * > P ABL END:10 > P* > P IFT VERSA3=1 > P* > P EJECT DRDU01 > P* > P* > PSE
0x480eb4…481048 Dummy {f00=0x015e, f01=0x0190, f02=» P IFT NUNITS=1 ? ( P LD A3,DWTCYL,A6 GET CYLINDER NUMBER ? P XIF ? F P IFT VERSA3=1 ? R , P CW A3,BUFFER+PHSECL COMPARE WITH CYL ID ? h P RB(NE) SEE:15 RETRY ? P* ? P EJECT DRDU01 ? P* ? P************************* ? P*
0x481048…4811dc Dummy {f00=0x015e, f01=0x0190, f02=»***************** ? P* @ PSEE:90 EQU * @ $ P LD A4,DWTOR,A6 GET ORDER @ 8 P ANK A4,4 @ Z P RF(Z) READ00 READ ORDER @ l P LD* A2,4,A5 @ 0 P RF(N) WRIT20 WRITE DIRECT FROM USER BUFFER @ P SLL A2,1 @ P IFT RAW=1 @ " P RF(N) READWR RE
0x4811dc…481370 Dummy {f00=0x015e, f01=0x0190, f02=» IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER @ $ P CF A5,REA:00 READ BEFORE WRITE A 4 P* A P EJECT DRDU01 A f P* A | P* A PWRIT10 EQU * A P LD* A2,4,A5 GET DATA WORD A P LDR A4,A2 A , P ANK A4,/C0 GET NUMBER OF WORDS TO MOVE A P
0x481370…481504 Dummy {f00=0x015e, f01=0x0190, f02=» NUNITS=2 A P CF A5,INXUNI B ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER B ( P XIF B T P IFT VERSA3=1 B ` P IFT NUNITS=1 B v ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER B P XIF B P IFT VERSA3=1 B . P ST A2,BUFFER+PHSECL PUT IN DRIVER BUFFER B
0x481504…481698 Dummy {f00=0x015e, f01=0x0190, f02=»JECT DRDU01 B P* C P* C PWRIT20 EQU * C ( P IFT MMUPAG=0 C < * P LDKL A2,PHSECL PHYSICAL SECTOR LENGTH C R 0 P ADS A2,DWTUBU,A6 UPDATE USER BUFFER POINTER C . P LD* A4,DWTUBU,A6 GET WORD IN USER BUFFER C P ST A4,DWTSWD,A6 SAVE WORD C & P
0x481698…48182c Dummy {f00=0x015e, f01=0x0190, f02=»2,DWTUBU,A6 PUT IN USER BUFFER C P XIF D & P IFT VERSA3=1 D 2 P IFT MMUPAG=0 D H P IFT NUNITS=1 D ^ P LD A2,DWTCYL,A6 D t ( P ST* A2,DWTUBU,A6 PUT IN USER BUFFER D P XIF D P* D P IFT VERSA3=1 D P IFT MMUPAG=1 D P IFT NUNITS=2
0x48182c…4819c0 Dummy {f00=0x015e, f01=0x0190, f02=»UNITS=1 D ( P LD A4,DWTCYL,A6 GET CYLINDER NUMBER E P XIF E < P IFT VERSA3=1 E H P IFT MMUPAG=1 E ^ 0 P ML 2,DWTBA1,A6 GET PHYSICAL BUFFER ADDRESS E t P RF(Z) WRIT30 SYSTEM AREA E ( P TS -30,A15 SAVE REGISTERS ON STACK E ( P TL DWTPAG,A6 LOAD
0x4819c0…481b54 (5, 288) Dummy {f00=0x015e, f01=0x0190, f02=» PUT CYL ID IN POSITION E P TL -30,A15 GET REGISTERS F P RF WRIT40 F B PWRIT30 EQU * F T P SLL A2,1 BYTE ADDRESS F h * P LD A3,PHSECL,A2 GET WORD TO BE SAVED F ( P ST A4,PHSECL,A2 CYL ID IN POSITION F PWRIT40 EQU * F P ST A3,DWTSWD,A6 SAV
0x481b54…481ce8 Dummy {f00=0x015e, f01=0x0190, f02=»ER BUFFER F l 0 P CF A5,WRI:00 WRITE SECTOR FROM USER BUFFER G . P CF A5,REWORD RESTORE WORD TO USER BUFFER G F P RF SEE:95 G x P* G P EJECT DRDU01 G P* G P* G P IFT RAW=1 G PREADWR EQU * G " P CF A5,REA:10 READ AFTER WRITE G
0x481ce8…481e7c Dummy {f00=0x015e, f01=0x0190, f02=»CT READ G ~ 0 P IM DWTFBU,A6 INDICATE READ TO DRIVER BUFFER H ( P CF A5,REA:00 READ TO DRIVER BUFFER H D P LD* A1,4,A5 GET DATA WORD H p P SLL A1,1 H P LDR A4,A1 H 2 P ANKL A4,/180 GET NUMBER OF BYTES TO BE MOVED H P ANK A1,/18 GET POSITION H
0x481e7c…482010 Dummy {f00=0x015e, f01=0x0190, f02=»DWTUBU,A6 UPDATE USER BUFFER POINTER H P XIF I , P* I 8 P IFT VERSA3=1 I B . P CM DWTFBU,A6 INDICATE READ TO USER BUFFER I X & P CF A5,REA:00 READ TO USER BUFFER I PSEE:95 EQU * I * P IMR A6 UPDATE PHYSICAL SECTOR POINTER I P XIF I P* I
0x482010…4821a4 Dummy {f00=0x015e, f01=0x018e, f02=» I " P ADS A2,ECBEL,A8 UPDATE ECBEL J P* J . P IFT MMUPAG=1 J 8 P LDK A1,0 J N P SRL A2,1 WORD MODE J ` 0 P DA DWTBA1,A6 UPDATE PHYSICAL BUFFER ADDRESS J | & P CF A5,MMULOG GET LOGICAL ADDRESS J P XIF J P* J PSEE:97 EQU * J P LDK
0x4821a4…482338 Dummy {f00=0x015e, f01=0x0190, f02=» P* K $ P******************************** K $ P* * K 6 $ P* DISC FORMAT A2 * K ^ $ P* * K $ P******************************** K P* K P* K PVA2:00 EQU * K P LDK A4,QR
0x482338…4824cc Dummy {f00=0x015e, f01=0x0190, f02=»RLACE AND SKEW K ~ P* L P IFT MMUPAG=0 L P LDKL A1,/8080 1ST WER L 6 P IFT RAW=1 L T P LD* A2,4,A5 L f P SLL A2,1 L z ( P RF(NN) VA2:20 NOT READ AFTER WRITE L P LDKL A2,BUFFER L P RF VA2:35 L PVA2:20 EQU * L P XIF L P* L
0x4824cc…482660 Dummy {f00=0x015e, f01=0x0190, f02=»AW=1 L P IFT MMUPAG=1 M P LD* A2,4,A5 M " P SLL A2,1 M 6 ( P RF(NN) VA2:20 NOT READ AFTER WRITE M H P LDKL A1,/8080 M t P LDKL A2,BUFFER M P RF VA2:35 M PVA2:20 EQU * M P XIF M P* M P IFT VERSA2=1 M P LD A2,DWTOR,A6 GET
0x482660…4827f4 (5, 289) Dummy {f00=0x015e, f01=0x0190, f02=»FT VERSA2=1 M P IFT MMUPAG=1 N " P LDKL A1,/080C 1ST WER SHIFTED N * P XIF N P P* N P IFT VERSA2=1 N f " P ADK A3,1 ORDER CODE FOR WRITE N | P* N P EJECT DRDU01 N P* N P* N PVA2:30 EQU * N P* N P IFT MMUPAG=0 N
0x4827f4…482988 Dummy {f00=0x015e, f01=0x0190, f02=» " P SRC A1,4 1ST WER IN POSITION O " P SLL A2,1 2ND WER IN POSITION O * P XIF O P P* O P IFT VERSA2=1 O f PVA2:35 EQU * O | P CF A5,CIO:50 O P ANK A1,/1F O P RF(Z) VA2:40 IO ERROR O P IM DWTRTY,A6 O P SUK A4,1 O P RB(NZ)
0x482988…482b1c Dummy {f00=0x015e, f01=0x018e, f02=»ICAL SECTOR NUMBER O | P ADK A3,1 NEXT SECTOR P P LDR A2,A3 P 8 P CWK A2,31 P J " P RF(NE) VA2:50 NOT CYLINDER 0 P & P ADK A3,2 CYLINDER 0 TO CYLINDER 1 P PVA2:50 EQU * P P ANK A2,/1F P P RF(NZ) VA2:60 SAME CYLINDER P P ADK A3,1 NEW CY
0x482b1c…482cb0 Dummy {f00=0x015e, f01=0x0190, f02=» EJECT DRDU01 Q * Q P**************************** Q $ P* * Q H P* SUBROUTINES FOR WRITE * Q l P* FROM USER BUFFER: * Q P* FROM DRIVER : * Q P* * Q P************
0x482cb0…482e44 Dummy {f00=0x015e, f01=0x0190, f02=»UNI Q P XIF R P IFT VERSA3=1 R * P CF A5,INLACE INTERLACE SECTOR NUMBER R . CF A5,WRITE CIO R ANK A1,/1F RETURN CODE ? R t P CF A5,BSELOD R P RF(Z) WRI:80 NO RETURN CODE R P IM DWTRTY,A6 INDICATE RETRY R & ! SUK A4,1 DECREMENT
0x482e44…482fd8 Dummy {f00=0x015e, f01=0x018e, f02=»BL END:10 ERROR END IO R P* S P IFT VERSA3=1 S ( P* S > PWRI:80 EQU * S H P RTN A5 S * S l P EJECT DRDU01 S v P* S & P********************************* S & P* * S & P* SUBROUTINES FOR READ TO
0x482fd8…48316c Dummy {f00=0x015e, f01=0x018e, f02=» & P********************************* T P* T . PREA:00 EQU * T 8 P LD A3,DWTOR,A6 GET INDEX T L P ANKL A3,/300 T n P SLL A3,6 IN POSITION T " P ORR* A3,A6 ADD SECTOR NUMBER T $ P CW A3,DWTBSE,A6 ALLREADY READ ? T P RF(E) REA:85 T PRE
0x48316c…483300 Dummy {f00=0x015e, f01=0x018e, f02=» * P CF A5,INLACE INTERLACE SECTOR NUMBER U P CF A5,READ READ SECTOR U 2 P ANK A1,/F U R 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR U d P RF(Z) REA:30 NO RETURN CODE U PREA:25 EQU * U P IM DWTRTY,A6 INDICATE RETRY U & P SUK A4,1 DECREMENT
0x483300…483494 (5, 290) Dummy {f00=0x016d, f01=0x0190, f02=» U P LD A2,DWTFBU,A6 V ( P RF(NZ) REA:40 READ TO DRIVER BUFFER V P IFT MMUPAG=0 V L 6 P LD* A3,DWTUBU,A6 GET CYLINDER ID FROM USER BUFFER V b P RF REA:50 V P XIF V P* V P IFT VERSA3=1 V P IFT MMUPAG=1 V ( P ML 2,DWTBA1,A6 GET PHYS
0x483494…483628 Dummy {f00=0x016d, f01=0x0190, f02=»A6 GET LOGICAL BUFFER POINTER V P EL A3,PHSECL,A3 GET CYL ID W & P TL -30,A15 RESET REGISTERS W J P RF REA:50 W n PREA:35 EQU * W " P SLL A2,1 ADDRESS TO BYTE MODE W P LD A3,PHSECL,A2 GET CYL ID W P RF REA:50 W P XIF W P* W P I
0x483628…4837bc Dummy {f00=0x016d, f01=0x0190, f02=» W P CW A3,DWTCYL,A2 X P XIF X P IFT VERSA3=1 X , P IFT NUNITS=1 X B P CW A3,DWTCYL,A6 X X P XIF X p P IFT VERSA3=1 X | $ P RF(E) REA:90 RIGHT CYLINDER ID X P LDK A1,2 SEEK ERROR X P* X P EJECT DRDU01 X P* X P* X
0x4837bc…483950 Dummy {f00=0x016d, f01=0x0190, f02=»VED X t P IFT MMUPAG=0 Y P NGR A2,A4 Y " @ P ADS A2,DWTUBU,A6 RESET USER BUFFER POINTER FOR DIRECT MOVE Y 4 P XIF Y x P IFT VERSA3=1 Y & P CF A5,MOVRED MOVE TO USER BUFFER Y PREA:90 EQU * Y P RTN A5 Y P* Y EJECT DRDU01 Y
0x483950…483ae4 Dummy {f00=0x016d, f01=0x0190, f02=»NG WORDS * Y x & P* USER BUFFER TO DRIVER BUFFER: Z * P* MOVWRI * Z @ * P* DRIVER BUFFER TO USER BUFFER * Z n * P* MOVRED * Z * P* * Z * P****************
0x483ae4…483c78 Dummy {f00=0x016d, f01=0x0190, f02=» * A3 USED [ P* [ PMOVRED EQU * [ $ P ADKL A1,BUFFER [ 8 P IFT MMUPAG+CPU857=0 [ P 2 P LD A2,DWTUBU,A6 PRESENT POINT IN USER BUFFER [ l P XIF [ P* [ P IFT VERSA3=1 [ P IFT CPU852+MMUPAG=0 [ P IFT CPU857=1 [ , P LD A2,D
0x483c78…483e0c Dummy {f00=0x016d, f01=0x0190, f02=»ERSA3=1 [ P IFT CPU852=0 P IFT MMUPAG=1 & 0 P LD A2,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS < P SLL A2,1 BYTE MODE p P TS -30,A15 SAVE REGISTERS P TL DWTPAG,A6 ( P LD A2,DWTUBU,A6 GET LOGICAL ADDRESS P MVSU A4 P XIF
0x483e0c…483fa0 Dummy {f00=0x016d, f01=0x0190, f02=»UFFER DRIVER BUFFER POINTER P IFT MMUPAG+CPU857=0 ] $ 2 P LD A1,DWTUBU,A6 PRESENT POINT IN USER BUFFER ] @ P XIF ] v P* ] P IFT VERSA3=1 ] P IFT CPU852+MMUPAG=0 ] P IFT CPU857=1 ] , P LD A1,DWTUBU,A6 GET USER BUFFER POINTER ] 0 P ADS
0x483fa0…484134 (5, 291) Dummy {f00=0x016e, f01=0x0190, f02=»MUPAG=1 ] 0 P LD A1,DWTBA2,A6 GET PHYSICAL BUFFER ADDRESS ^ P SLL A1,1 BYTE MODE ^ D P TS -30,A15 SAVE REGISTERS ^ ` P TL DWTPAG,A6 ^ ( P LD A1,DWTUBU,A6 GET LOGICAL ADDRESS ^ P MVUS A4 ^ P XIF ^ P* ^ P IFT VERSA3=1 ^ MOV:00 E
0x484134…4842c8 Dummy {f00=0x016e, f01=0x0190, f02=» IFT MMUPAG=1 ^ P TL -30,A15 RESET REGISTERS _ P XIF _ : P* _ F P IFT VERSA3=1 _ P P IFT MMUPAG+CPU857=0 _ f P IFT CPU852=1 _ P* _ P EJECT DRDU01 _ P* _ P* _ PMOV:10 EQU * _ LDR* A3,A1 _ STR A3,A2 _ A
0x4842c8…48445c Dummy {f00=0x016e, f01=0x0190, f02=» P IFT MMUPAG+CPU857=0 ` ( P MSR 12,A15 SAVE REGISTERS ON STACK ` P LDR A11,A4 NUMBER OF BYTES ` L P LDR A10,A2 OUTPUT ADDRESS ` p P LDR A9,A1 INPUT ADDRESS ` $ P LDKL A12,16 BYTES IN EACH LOOP ` PMOV:15 EQU * ` P MLR 8,A9 ` P MSR 8,A
0x48445c…4845f0 Dummy {f00=0x016e, f01=0x0190, f02=» P XIF a P* a P IFT VERSA3=1 a RTN A5 a 0 * a @ P XIF a J P* a V P IFT VERSA2=1 a ` P EJECT DRDU01 a v P* a P* a P*************************** a P* * a P* DIV31 * a
0x4845f0…484784 Dummy {f00=0x016e, f01=0x018e, f02=» OUTPUT: 1ST DWT = PHYSICAL SECTOR NUMBER a P* b 2 PDIV31 EQU * b < P* b P P IFT CPU852=1 b Z . P LD A1,ECBCW2,A8 GET LOGICAL SECTOR NUMBER b p P LDR A3,A1 b P LDK A2,0 b PDIV:20 EQU * b P ADR A2,A3 I0:=I0+I1 b P SRL A3,5 I1:=I1/3
0x484784…484918 Dummy {f00=0x016e, f01=0x0190, f02=» P ADK A3,31 c P RF(P) DIV:30 c P ADK A2,1 NEXT CYLINDER c , PDIV:30 EQU * c L P ADK A2,0 c ` P RF(Z) DIV:50 CYLINDER 0 c r P ADR A1,A2 c P ADK A1,1 c P* c P EJECT DRDU01 c P* c P* c PDIV:50 EQU * c 0 P STR A1,A6
0x484918…484aac Dummy {f00=0x016e, f01=0x0190, f02=»D A2,ECBCW2,A8 GET SECTOR NUMBER c & P STR A2,A6 PHYSICAL SECTOR NUMBER d ( P LDK A1,0 d R P DVK 31 d d P ADK A2,0 d t P RF(Z) DIV:10 CYLINDER 0 d P ADK A2,1 d PDIV:10 EQU * d & P ADRS A2,A6 PHYSICAL SECTOR NUMBER d P RTN A5 d P X
0x484aac…484c40 Dummy {f00=0x016e, f01=0x018e, f02=»* SUBROUTINES FOR * d & P* INTERLACING AND/OR * e * & P* SKEWING * e T & P* * e ~ & P********************************* e P* e B P* OUTPUT : A3 CONTAINING INTERLACED AND SKE
0x484c40…484dd4 (5, 292) Dummy {f00=0x016e, f01=0x018e, f02=» $ P ADR A3,A1 INTERLACING FACTOR 3 f PSKEW EQU * f , P IFT NUNITS=2 f > ( P LD A2,DWTCYL,A2 GET CYLINDER NUMBER f T P XIF f P IFT NUNITS=1 f ( P LD A2,DWTCYL,A6 GET CYLINDER NUMBER f P XIF f P ANK A2,1 f P RF(Z) INLAC5 EVEN CYLINDER
0x484dd4…484f68 Dummy {f00=0x016e, f01=0x0190, f02=» f P IFT NUNITS=2 g P EJECT DRDU01 g P* g 4 P* g > P********** g H P* INXUNI * g Z P********** g l P* g ~ 4 P* OUTPUT A2=DOUBLED UNIT INDEX + DWT ADDRESS g P* g PINXUNI EQU * g P LC A2,DWTOR,A6 g P ANK A2,2 g P
0x484f68…4850fc Dummy {f00=0x016e, f01=0x0190, f02=»************************** g . P* * h " . P* MMULOG : GET LOGICAL ADDRESS AND * h T . P* PAGE * h . P* * h . P******************************
0x4850fc…485290 Dummy {f00=0x016e, f01=0x018e, f02=» POSITION h P ST A1,DWTPAG,A6 PAGE i P ADKL A1,/400 NEXT PAGE i 0 ( P ST A1,DWTPAG+2,A6 PSEUDO MMU TABLE i P P SRL A2,3 i | $ P ST A2,DWTUBU,A6 LOGICAL ADDRESS i P RTN A5 i P* i P XIF i P* i P EJECT DRDU01 i P* i P
0x485290…485424 Dummy {f00=0x016e, f01=0x0190, f02=» i $ P******************************* j P* j 0 * P* INPUT A1=RETURN CODE (AFTER READ) j : . P* OUTPUT DWTBSE=DRIVER BUFFER INDICATOR j h P* j PBSELOD EQU * j & P LDR* A3,A6 GET READ SECTOR NUMBER j " PBSEL00 EQU * FROM SEEK VERIFY j P
0x485424…4855b8 Dummy {f00=0x016e, f01=0x0190, f02=»D ERROR j ~ P LD A2,DWTOR,A6 GET INDEX k P ANKL A2,/300 k 2 P SLL A2,6 k H P ORR A2,A3 k Z PBSEL40 EQU * k l 4 P ST A2,DWTBSE,A6 UPDATE DRIVER BUFFER INDICATOR k PBSEL50 EQU * k P RTN A5 k P* k P EJECT DRDU01 k P* k P*
0x4855b8…48574c Dummy {f00=0x016e, f01=0x0190, f02=» * k p , P* IF NECESSARY * l , P* * l @ , P*************************************** l p P* l * P* INPUT: DWTFSW=SAVED WORD INDICATOR l P* DWTSWD=SAVED WORD l , P* D
0x48574c…4858e0 Dummy {f00=0x016e, f01=0x0190, f02=»SWD,A6 l P IFT MMUPAG=1 m & P ML 2,DWTBA1,A6 GET BUFFER ADDRESS m $ P RF(Z) REWO20 SYSTEM AREA m N P TS -30,A15 SAVE REGISTERS m p $ P TL DWTPAG,A6 SET MMU REGISTERS m 0 P LD A2,DWTUBU,A6 GET LOGICAL BUFFER ADDRESS m ( P ES A3,PHSECL,A2 RESTORE S
0x4858e0…485a74 (5, 293) Dummy {f00=0x016e, f01=0x0190, f02=» RESTORE WORD m P XIF n P* n " P IFT VERSA3=1 n , P IFT MMUPAG=0 n B ( P ST* A3,DWTUBU,A6 RESTORE SAVED WORD n X P XIF n P* n P IFT VERSA3=1 n ( P CM DWTFSW,A6 INDICATE NO SAVED WORD n PREWO50 EQU * n P RTN A5 n P* n
0x485a74…485c08 Dummy {f00=0x016e, f01=0x018e, f02=»EEK CYLINDER * n P* * o P******************* o 4 P* o P P* o Z PSEEK EQU * o d P IFT NUNITS=2 o v $ P LD A3,DWTCYL,A2 CYLINDER NUMBER o P XIF o P IFT NUNITS=1 o P LD A3,DWTCYL,A6 o P XIF o P SLL A3,3 o
0x485c08…485d9c Dummy {f00=0x016e, f01=0x0190, f02=» P* p P EJECT DRDU01 p P* p $ P* p . & P********************************** p 8 & P* * p b & P* CIO: READ AND WRITE * p & P* * p & P********************************** p
0x485d9c…485f30 Dummy {f00=0x016e, f01=0x0190, f02=» LDKL A1,/80C1 1ST WER p P RF CIO:20 q PWRITE EQU * q 0 P LDKL A1,/C0C1 1ST WER q D P ADK A3,1 ORDER CODE q b PCIO:20 EQU * q ~ P LD A2,DWTFBU,A6 q , P RF(NZ) CIO:30 IO FROM/TO DRIVER BUFFER q ( P LD A2,DWTUBU,A6 USER BUFFER POINTER q P S
0x485f30…4860c4 Dummy {f00=0x016e, f01=0x0190, f02=»SA3=1 q P IFT MMUPAG=1 r PREAD EQU * r $ " P LDKL A1,/0C18 1ST WER SHIFTED r 6 P RF CIO:20 r PWRITE EQU * r n " P LDKL A1,/0C1C 1ST WER SHIFTED r P ADK A3,1 ORDER CODE r PCIO:20 EQU * r P LD A2,DWTFBU,A6 r , P RF(NZ) CIO:30 IO FROM/T
0x4860c4…486258 Dummy {f00=0x016e, f01=0x0190, f02=» r * P LDKL A2,BUFFER DRIVER BUFFER ADDRESS s PCIO:40 EQU * s 6 " P SRC A1,4 1ST WER IN POSITION s J P XIF s p P* s | PCIO:50 EQU * s P WER A1,WER1 s P WER A2,WER1+1 s P* s P EJECT DRDU01 DRDU01 s P* s P* s PCIO EQ
0x486258…4863ec Dummy {f00=0x016e, f01=0x0190, f02=» DWT ADDRESS s v $ P EX DWTCIO,A4 EXECUTE CIO-START t & P ABL(3) END:30 CU ADDRESS UNKNOWN t < PCIOAB EQU * t f " P ST A5,DWTA5,A6 A5 t z ( P ST A7,DWTA2,A6 SAVE SECTOR COUNTER t P* t & PT:DISP ABL TDISP GO TO DISPATCHER t P* t
0x4863ec…486580 Dummy {f00=0x016e, f01=0x0190, f02=» t z P* * u P********************** u & P* u D P* u N PDUON EQU * u X P* u j P IFT CPU852=1 u t & P CF A15,SAVE8 SAVE A1-A8 ON STACK u P XIF u P* u P IFT CPU852=0 u " P MSR 8,A15 SAVE A1-A8 ON STACK u P X
0x486580…486714 (5, 294) Dummy {f00=0x016f, f01=0x0190, f02=»TSAV,A6 INDICATE RECOVERY u & P LD A1,INIFLG INITIALIZATION FLAG v " P RF(NZ) DUON05 NOT POWER UP v L P* v p P EJECT DRDU01 v z P* v P* v P CM DWTOR,A6 1ST UNIT v " P CF A5,SEEKZ TEST IF OPERABLE v P ANK A1,1 v P RF(NZ) DUON26
0x486714…4868a8 Dummy {f00=0x016f, f01=0x018e, f02=»F(NZ) DUON26 NOT OPERABLE v P XIF w " P* w . P EJECT DRDU01 w 8 P* w P P* w Z PDUON05 EQU * w d P CM DWTOR,A6 w x " P CF A5,VO:NAM READ VOLUME NAME w P ANK A1,1 w P RF(Z) DUON07 NO ERROR w $ P CM DWTOR,A6 PREPARE FOR VOLCLR w
0x4868a8…486a3c Dummy {f00=0x016f, f01=0x018e, f02=» w ~ P CF A5,VO:NAM x P ANK A1,1 x P RF(Z) DUON08 NO ERROR x 0 P LDK A1,2 OTHER DISC UNIT x N P SC A1,DWTOR,A6 x p P LDK A1,12 x P CF A15,VOLCLR x PDUON08 EQU * x P XIF x , P IM DWTST,A6 INDICATE VOLUME NAMES READ x P LDKL A1
0x486a3c…486bd0 Dummy {f00=0x016f, f01=0x0190, f02=» x n P RF(Z) END:IO NO REQUEST ON? y P* y , $ PDUON10 LD A7,DWTORD,A6 GET ORDER y 6 , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER y ^ P ANK A7,/3F y P* y P IFT VERSA3=1 y , P CF A5,REWORD RESTORE WORD IF NECESSARY y P XIF y P* y ( P
0x486bd0…486d64 Dummy {f00=0x016f, f01=0x0190, f02=»ERRUPT y P* z PDUREDY LD A1,TIMER z " P RF(Z) DUON50 NO TIMER ACTIVE z 2 P* z X P IFT NUNITS=1 z b P CM* TIMER KILL TIMER z x P RF DUON40 z P XIF z P* z P IFT NUNITS=2 z P RB T:DISP TIMER ACTIVE z P XIF z P* z
0x486d64…486ef8 Dummy {f00=0x016f, f01=0x0190, f02=» DUON30 NO TIMER ACTIVE z P LDKL A1,-TIME { P STR A1,A3 RESTART TIMER { 6 P RB T:DISP { V P* { h P* { r $ PDUON30 CF A15,SETIMP START TIMER { | , P DATA DUON40,TIME TIME OUT ADDRESS, TIME { P RB T:DISP { P* { P* TIME OUT { P* {
0x486ef8…48708c Dummy {f00=0x016f, f01=0x0190, f02=»ERY { t " P LDK A5,DWTSB3 GET STACK BASE | P ADR A5,A6 | 2 P RB DUON05 | D P* | V P EJECT DRDU01 DRDU01 | ` P* | P* | P*********************** | P* * | P* INTERRUPT HANDLER * | P*
0x48708c…487220 Dummy {f00=0x016f, f01=0x0190, f02=»AVE LAST INTERRUPT | P* } P IFT CPU852=1 } $ & P CF A15,SAVE8 SAVE A1-A8 ON STACK } : P XIF } d P* } p P IFT CPU852=0 } z " P MSR 8,A15 SAVE A1-A8 ON STACK } P XIF } P* } $ P LDKL A6,DWDU01 DISC UNIT NO. 1 } P* } P EJECT D
0x487220…4873b4 (5, 295) Dummy {f00=0x016f, f01=0x0190, f02=» RB(N) DUREDY READY INTERRUPT } P SRL A1,1 ~ & P LDR A2,A1 ~ 8 P ANKL A2,/200 SEEK ERROR ~ J P RF(Z) IHDU30 ~ j & P ANKL A1,/440F MOVE SEEK ERROR BIT ~ P ORK A1,/02 ~ PIHDU30 EQU * ~ P LD A8,DWTECB,A6 ECB ADDRESS ~ P LD A2,DWTSAV,A6 ~
0x4873b4…487548 Dummy {f00=0x016f, f01=0x0190, f02=» RELOAD REGISTERS A5 ~ ~ ( P LD A4,DWTA4,A6 A4 & P LD A7,DWTA2,A6 GET SECTOR COUNTER H P RTN A5 r P* P EJECT DRDU01 DRDU01 P* P* P******************* P* * P* PERFORM ENDIO
0x487548…4876dc Dummy {f00=0x016f, f01=0x0190, f02=»1 NOT OPERABLE * P ST A1,DWTST,A6 INDICATE RECOVERY DONE P RF END:IO D PEND:10 EQU * V P* j P IFT RAW=1 t . P LD* A7,DWTSB3-2,A6 GET 1ST RETURN ADDRESS P SLL A7,1 " P RF(N) END:20 READ AFTER WRITE P LD A7,DWTORD,A6 P
0x4876dc…487870 Dummy {f00=0x016f, f01=0x018e, f02=»IF P* PEND:20 EQU * P LDKL A2,/FF00 ( P ANS A2,ECBEL,A8 > ( P LD A2,DWTRTY,A6 GET RETRY INDICATOR V " P RF(Z) END:IO NO RETRIES DONE * P ORKL A1,/100 SET BIT 7 IN RETURN CODE P EJECT DRDU01 P* P* PEND:IO E
0x487870…487a04 Dummy {f00=0x016f, f01=0x018e, f02=» PVO:NAM EQU * P CF A5,SEEKZ SEEK SECTOR 0 P ANK A1,1 < 6 P RF(NZ) VO:NA8 SEEK-,THROUGHPUT ERROR,NOT OPERABLE N P CMR A6 SECTOR 0 P IFT NUNITS=2 P CF A5,INXUNI P CM DWTCYL,A2 CYLINDER 0 P XIF P IFT NUNITS=1
0x487a04…487b98 Dummy {f00=0x016f, f01=0x0190, f02=» j P CF A5,READ P ANK A1,3 0 P CF A5,BSELOD UPDATE DRIVER BUFFER INDICATOR . P XIF b P* n P IFT VERSA3=0 x $ P LDKL A1,/8019 READ SECTOR ZERO $ P LDKL A2,BUFFER TO DRIVER BUFFER P CF A5,CIO:50 P ANK A1,3 ERROR ?
0x487b98…487d2c Dummy {f00=0x016f, f01=0x0190, f02=»D A1,DWTSAV,A6 P RF(Z) VO:NA6 ( P LDKL A3,/80F0 INDICATE TEST STATUS , PVO:NA6 EQU * X 2 P CF A15,VOLGET VOLUMR NAME TO DWT INDICATE NVL l P EJECT DRDU01 P* P* PDUNA40 EQU * P LDK A1,1 6 P LDK A7,1 TO INDICAT
0x487d2c…487ec0 Dummy {f00=0x016f, f01=0x018e, f02=»A2,BUFFER+40 CHECK IF RELEASE 10 OR GREATER P CWK A2,/2031 4 $ P RF(NE) DUNA70 REL LESS THAN 10 J : P LD A2,BUFFER+48 GET FORMAT AND DEVICE TYPE PARAMETER r 4 PTRANPA EQU * LABEL FOR TRANSFER PARAMETER ORDER * P CF A15,INXDWT GET INDEXED DWT A
0x487ec0…488054 (5, 296) Dummy {f00=0x016f, f01=0x0190, f02=» ( P LDKL A1,6324 SECTORS ON VERSION A2 P SUK A3,2 FORMAT ? 0 P RF(Z) DUNA60 VERSION A2 J P RF(N) DUNA50 VERSION A1 j P ADK A1,204 VERSION A3 PDUNA50 EQU * P ADKL A1,9588-6324 PDUNA60 EQU * P SUK A2,1 P RF(Z) DUNA7
0x488054…4881e8 Dummy {f00=0x016f, f01=0x0190, f02=» A1,0 RESET RETURN CODE FOR TRANSFER PARAM. * P ADK A7,0 CHECK IF TRANSFER PARAMETER 4 P RB(Z) END:20 b P* x P EJECT DRDU01 P* P* * P LD A4,DWTA4,A6 RESTORE RETRY COUNTER P LC A1,DWTOR,A6 P ADK A1,1 P SC
0x4881e8…48837c Dummy {f00=0x016f, f01=0x0190, f02=» * P RTN A5 P* P* TIMER POINTER $ P* > PTIMER DATA 0 TIMER POINTER H P* j P EJECT DRDU01 DRDU01 t P* P* * P************************************* * P* * * P*
0x48837c…488510 Dummy {f00=0x016f, f01=0x018e, f02=» P* PDWDU01 EQU * " P DATA 0 PHYSICAL SECTOR NUMBER & P DATA /8000 DWT STATUS L P DATA 0 ECB ADDRESS j P DATA 0 ORDER " P DATA DUADR ACTIVATION ADDRESS P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P D
0x488510…4886a4 Dummy {f00=0x016f, f01=0x0190, f02=» XIF P* PDWTFSW EQU *-DWDU01 P DATA 0 6 ( P DATA 0,0,0 SAVE AREA FOR REGISTERS F PDWTBSE EQU *-DWDU01 r P DATA 0 , PDWTUBU EQU *-DWDU01 USER BUFFER POINTER P DATA 0 PDWTSWD EQU *-DWDU01 P DATA 0
0x4886a4…488838 Dummy {f00=0x016f, f01=0x018e, f02=» 4 P DATA /8000 NEW VOLUME LOADED INDICATOR CARTR. 1 P DATA /C000 FIXED < 0 P DATA /8000 NEW VOLUME LOADED IND. CARTR. 2 V 2 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST FIXED 6 P DATA /FFFF,/FFFF,/FFFF VOLUME NAME 1ST CARTRIDGE P* P IFT
0x488838…4889cc Dummy {f00=0x016f, f01=0x0190, f02=» P* P EJECT DRDU01 P* ( P* 2 PDWTSAV EQU *-DWDU01 < P DATA -1 X 8 PDWTFBU EQU *-DWDU01 FLAG INDICATING IO TO DRIVER BUF h P DATA 0 " PDWTCIO EQU *-DWDU01 CIO-START P CIO A3,1,DAF1 P CIO A3,1,DAC1 P*
0x4889cc…488b60 Dummy {f00=0x016f, f01=0x0190, f02=»CYLINDER NUMBER P* P IFT NUNITS=2 " P DATA /FFFF 2ND UNIT 8 P XIF T P* ` PDWTSMX EQU *-DWDU01 j & P DATA 1 MAX SECTORS ON FIXED DISC $ P DATA 1 MAX SECTORS ON CARTRIDGE P* P IFT NUNITS=2 P DATA 1 2ND UNIT
0x488b60…488cf4 (5, 297) Dummy {f00=0x016f, f01=0x0190, f02=»T CARTRIDGE ~ P* P IFT NUNITS=2 P DATA 0 4 P DATA 0 D P XIF T P* ` P DATA 0,0 STACK j P DATA 0,0 STACK P DATA 0,0 PDWTSB3 EQU *-DWDU01-2 P* P IFT RAW=1 PDWTSEP EQU *-DWDU01 P DATA
0x488cf4…488e88 Dummy {f00=0x016f, f01=0x40e0, f02=»0 ~ PDWTBA1 EQU *-DWDU01 P DATA 0 & PDWTBA2 EQU *-DWDU01 6 P DATA 0 R PDWTPAG EQU *-DWDU01 MMU PAGE b P DATA 0 P DATA 0 P XIF P* P* P* P END @ PDWTSEP EQU *-DWDU01 P DATA
0x488e88…48901c Dummy {f00=0x016f, f01=0x2008, f02=» -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 . @
0x48901c…4891b0 Dummy {f00=0x016f, f01=0x0190, f02=» WITH 8 REGISTERS ON A15 STACK. v > P* THE DISPATCHER CHECKS IF THERE IS A TASK IN DISPATCHER ( < P* QUEUE WITH HIGHER PRIORITY THAN INTERRUPTED PROGRAM. j : P* - IF SO, THE RUNNING TASK IS QUEUED AND THE HIGHER $ P* PRIORITY TASK IS STARTED.
0x4891b0…489344 Dummy {f00=0x016f, f01=0x0190, f02=» 6 P* ENTRY 'DISIOE' SETS BIT 0 IN A1 BEFORE DISEND. P* B 8 P* ENTRY 'MEXIT' EXITS A MONITOR TASK BEFORE TDISP. L P* H P* ENTRY 'QMEXIT' CALLS QTJOB BEFORE EXIT IS MADE ON MONITOR TASK. P* 0 P* ENTRY 'TEXIT' EXITS A TASK B
0x489344…4894d8 Dummy {f00=0x016f, f01=0x0190, f02=» A TASK BEFORE TDISP. t P* D P* ENTRY 'RETUR8' LOADS 8 REGISTERS FROM A15 STACK AND RETURNS. ( P* p P EJECT TDISP z P* P* P*********** P* ENTRIES * P*********** P* P* " P ENTRY TDISP DISPATC
0x4894d8…48966c Dummy {f00=0x016f, f01=0x018e, f02=»E TASK AND EXIT MONITOR TASK ~ , P ENTRY ACTDIS ACTIVATE TASK AND DISPATCH $ " P ENTRY DISIOE I/O ERROR ENTRY T & P ENTRY DISEND END I/O AND DISPATCH z 6 P ENTRY DISQUE POINTER TO FIRST TASK IN DISP. QUEUE , P ENTRY PRUN TTAB ADDRESS OF RUNNING TASK
0x48966c…489800 Dummy {f00=0x016f, f01=0x0190, f02=» P************* P* P* ( P EXTRN ACTOT ACTIVATE TASK 2 P EXTRN TTB:SA SAVE AREA T P EXTRN TTB:ST STATUS t & P EXTRN TTB:PW PROGRAM STATUS WORD P EXTRN TTB:MT MMUTAB & P EXTRN TTB:CB CURRENT SEGMENT BASE ( P EXTRN T
0x489800…489994 (5, 298) Opaque[0x194]
0x489994…489b28 # DirEnt {nam=»DRLP01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c08, f03=0x0000}
0x489994…489b28 IdxSect {
0x489994…489b28 f00 = 0x0160 // 0x489994 @0x0
0x489994…489b28 f01 = 0x0008 // 0x489996 @0x2
0x489994…489b28 gno = [ // 0x489998 @0x4
0x489994…489b28 [0x00]: C0x0160.0x1.0
0x489994…489b28 [0x01]: C0x0160.0x2.0
0x489994…489b28 [0x02]: C0x0160.0x3.0
0x489994…489b28 [0x03]: C0x0161.0x0.0
0x489994…489b28 ]
0x489994…489b28 }
0x489b28…489cbc Dummy {f00=0x0160, f01=0x0190, f02=» 2 P IDENT DRLP01 REL 10.0 80-03-14 870105041000 P : P* B P* L > P********************************************************** V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* DRLP01 = DRIVER LINE PRINTER P* P*
0x489cbc…489e50 Dummy {f00=0x0160, f01=0x0190, f02=» THIS DRIVER HANDLES ONE LINE PRINTER PTS 6881 CONNECTED < P* TO CPU VIA CHLP ON MULTIPLEX CHANNEL OR PROGRAMMED B P* CHANNEL P* P EJECT DRLP01 P* P* P************************ P* ENTRIES *
0x489e50…489fe4 Dummy {f00=0x0160, f01=0x0190, f02=»HLP INTERRUPT HANDLER P ENTRY LPON RECOVERY ROUTINE & P ENTRY DWLP01 DWT FOR LINE PRINTER B P l P t P | P* P* , P**************************************** , P* EXTERNAL TOSS MODULE ENTRIES * , P****************
0x489fe4…48a178 Dummy {f00=0x0160, f01=0x0190, f02=»GS ON STACK z P EXTRN DISIOE REQUEST ERROR EXTRN DWTST STATUS 8 EXTRN DWTBC BYTE COUNTER T EXTRN DWTECB ECB ADDRESS v $ EXTRN DWTOR DWT INDEX AND ORDER P EXTRN DWTA3 SAVE AREA A3 EXTRN DWTA4 SAVE AREA A4 EXT
0x48a178…48a30c Dummy {f00=0x0160, f01=0x0190, f02=»POST PROCESSING FLAG ~ P EJECT DRLP01 P* 4 P* > " P***************************** H " P* CONSTANTS * n " P***************************** P* P* PDWALP EQU /0F & PMUXLP EQU DWALP+DWALP MUX ADDRESS
0x48a30c…48a4a0 Dummy {f00=0x0160, f01=0x0190, f02=»SEMBLY P* . P***************************************** P* J 2 P* PROGRAMMED CHANNEL MAY BE USED INSTEAD OF T , P* MULTIPLEX CHANNEL BY SETTING X:A=1 P* PX:A EQU 0 PCHAN EQU 0 P* . P* A PROGRAM VERSION US
0x48a4a0…48a634 (5, 299) Dummy {f00=0x0160, f01=0x0190, f02=»VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. . P* ` PCPU852 EQU 1 j P* ~ P* MMU BUFFER SIZE P* PX:B EQU 67 PDVBLEN EQU 000 P* P* MMU DEVICE INDEX P* PX:
0x48a634…48a7c8 Dummy {f00=0x0160, f01=0x0190, f02=»***** ~ P* ORDERS * P*********************** . P* N P* ORDER /00: TEST STATUS. X 8 P* A TST INSTRUCTION IS EXECUTED TO SEE | 0 P* IF LINE PRINTER IS OPERABLE. P* P* ORDER /05: BA
0x48a7c8…48a95c Dummy {f00=0x0160, f01=0x0190, f02=»UT ANY CHECK. b P* $ P* ORDER /06: STANDARD WRITE. @ P* FIRST WORD IN ECB BUFFER CONTAINS A CONTROL H P* CHARACTER. < P* /2B: PRINT LINE WITHOUT ADVANCING PAPER : P* /30: ADVAN
0x48a95c…48aaf0 Dummy {f00=0x0160, f01=0x018e, f02=»ES A LINE FEED BEFORE l P* PRINTING. P* @ P* J > P* CHARACTERS IN BUFFER SHOULD BE WITHIN THE T > P* INTERVAL /20-/5F. NO CHECK IS CARRIED OUT B P* BY DRIVER. AT THE END OF ECB BU
0x48aaf0…48ac84 Dummy {f00=0x0160, f01=0x0190, f02=» P EJECT DRLP01 P* P* & ( P************************************ 0 ( P* NORMAL REGISTER USAGE * ( P************************************ P* P* P* A1 = RETURN CODE P* A2 = WORK REGISTER P*
0x48ac84…48ae18 Dummy {f00=0x0160, f01=0x018e, f02=» P* A8 = ECB ADDRESS P* & P* 0 $ P******************************** : $ P* TABLES * b $ P******************************** P* P* * P DATA DVBLEN+DVBLEN MMU BUFFER LENGTH P DATA DEVIND DEVICE
0x48ae18…48afac Dummy {f00=0x0160, f01=0x018e, f02=» P* P* A C T I V A T I O N P* . P* 8 PACLP EQU * B P LDK A1,/0D CARRIAGE RETURN T P LDR A7,A7 ORDER 0 ? x P RF(NE) ACLP05 NO P LDKL A4,DWTBC BYTE COUNTER P ADR A4,A6 ADD DWT ADDRESS $ P SCR A1,A4 STORE CAR
0x48afac…48b140 Dummy {f00=0x0160, f01=0x0190, f02=» P SUK A7,5 ORDER 5 ? P RF(E) ACLP30 P SUK A7,1 ORDER 6 ? 6 P RF(E) ACLP10 R P* h PACERR ABL DISIOE r P* P EJECT DRLP01 P* P* PACLP10 EQU * P CWK A2,2 REQ. LENGTH < 2 ? P RF(NL) ACLP12 N
0x48b140…48b2d4 (5, 300) Dummy {f00=0x0160, f01=0x0190, f02=» A3,A2 ADDED WITH REQ. LENGTH $ P SCR A1,A3 STORE PRINT CHARACTER & P ADK A2,1 N P LCR A3,A4 ` P ECR A3,A3 r & P LC A3,1,A4 GET CONTROL CHARACTER P ST A3,CONCHA P ANK A3,/FF $ P SUK A3,/2B SUPER POSITIONING ? P RF(NE)
0x48b2d4…48b468 Dummy {f00=0x0160, f01=0x0190, f02=»DK A1,/0A LINE FEED * P SC A1,1,A4 SECOND CHARACTER IN BUFFER P SUK A3,5 TWO LINE FEEDS ? J P RF(E) ACLP20 YES l P LDK A1,/0C TOP OF FORM P SUK A3,1 WANTED ? P RF(E) ACLP20 YES P LDK A1,/0D CARRIAGE RETURN P* P
0x48b468…48b5fc Dummy {f00=0x0160, f01=0x0190, f02=» P SUK A7,6 ORDER 6 ? P RF(NE) ENDIO P LDR A2,A2 6 P RF(NN) ACLP35 H 4 P IM 6,A8 ADD FOR EXTRA CHAR. AT BUFFER END (/0D) ^ P* PACLP35 EQU * P LD A4,2,A8 BUFFER ADDRESS P LDKL A3,0 PCONCHA EQU *-2 2 P SC A3,1,A
0x48b5fc…48b790 Dummy {f00=0x0160, f01=0x0190, f02=»REQUEST x PEXIT ABL TDISP P* & P EJECT DRLP01 0 P* H P* R P* CIOSTA " P* SUBROUTINE TO SEND BUFFER p P* P* PCIOSTA EQU * P ST A5,DWTA5,A6 SAVE A5 P IFT CHAN=0 6 P ORKL A2,/4000 INDICAT
0x48b790…48b924 Dummy {f00=0x0160, f01=0x0190, f02=»EGISTER l 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER P XIF F P* R P IFT CHAN=1 ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS p P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P* P LD A1,PFPOST
0x48b924…48bab8 Dummy {f00=0x0160, f01=0x0190, f02=»* P EJECT DRLP01 P* " P* , P* RECOVERY ROUTINE 6 P* T P* ^ PLPON EQU * h P IFT CPU852=1 z & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK
0x48bab8…48bc4c Dummy {f00=0x0160, f01=0x018e, f02=»T LP FREE P RF IHLP30 P* $ P EJECT DRLP01 . P* F P* P P* I N T E R R U P T Z P* x P* PIHLP EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8
0x48bc4c…48bde0 Dummy {f00=0x0160, f01=0x0190, f02=» P IFT CHAN=1 P STR A1,A15 P STR A2,A15 0 P LDKL A2,DWLP01 DWT-ADDRESS D 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER h P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDK
0x48bde0…48bf74 (5, 301) Dummy {f00=0x0161, f01=0x0190, f02=»BYTE x P CIO A2,0,DWALP CIO HALT PIHLP10 EQU * , P LDR* A2,A15 @ P LDR* A1,A15 T P RTN A15 h P* x P* P* PIHLP20 STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15 P STR A7,A15 P STR A8,
0x48bf74…48c108 Dummy {f00=0x0161, f01=0x0190, f02=»A7,DWTOR,A6 ORDER P ANK A7,/FF P LD A8,DWTECB,A6 ECB ADDRESS . P* R P IFT CHAN=0 4 P RER A3,MUXLP GET NUMBER OF NOT TRANSFERED CHAR. p P ANKL A3,/FFF 8 P LD A2,4,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS P SUR A2,A3
0x48c108…48c29c Dummy {f00=0x0161, f01=0x0190, f02=» A7,6 ORDER 6? P RF(NE) IHLP35 P ADK A2,1 YES , PIHLP35 EQU * B 8 P SU A2,2,A8 CALCULATE NUMB. OF TRANSFERED CHARACTERS V P XIF " P ST A2,6,A8 STORE EFF. LENGTH $ P LD A5,DWTA5,A6 GET STACK VALUE P RTN A5 P* P E
0x48c29c…48c430 Dummy {f00=0x0161, f01=0x018e, f02=» P DATA 0 CHANNEL PARAMETER P DATA /8000 STATUS * P DATA 0 ECB ADDRESS D P DATA 0 ORDER ` ( P DATA LPADR ADDRESS TO ADDRESS BLOCK v P DATA 0 TTAB ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR P DATA 0 TERMINAL QUEUE IFT
0x48c430…48c5c4 Dummy {f00=0x0161, f01=0x4130, f02=» t P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 ( P DATA 0 SAVE AREA FOR A5 H P RES 4 DWT STACK h P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0 P DATA LP:BUF P DATA 0,0,0,0 PLP:BUF RES DVBLEN+1
0x48c5c4…48c758 Dummy {f00=0x0161, f01=0x2008, f02=» P DATA 0 TTAB-ADDRESS $ P DATA 0 WAIT/ACTIVATE INDICATOR ( P DATA 0 TERMINAL QUEUE P P DATA 0 OUTPUT QUEUE LINK n P DATA 0 SAVE AREA FOR A3 P DATA 0 SAVE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK P
0x48c758…48c8ec Dummy {f00=0x0161, f01=0x0190, f02=»* DWTUBU=USER BUFFER POINTER P* . P* 8 PDUA:10 EQU * B $ P LD A3,ECBRL,A8 REQUESTED LENGTH V P RB(Z) INCLEN ~ 6 P ECR A7,A3 DIVIDE BY 256 TO GET NUMBER OF SECTORS & P ANK A3,/FF SET CONDITION REGISTER 4 P RB(NZ) INCLEN N
0x48c8ec…48ca80 Dummy {f00=0x0161, f01=0x018e, f02=»ER n P CW A3,DWTSMX,A2 * P RB(NL) DUERR INCORRECT SECTOR NUMBER " P ADR A3,A7 P P CW A3,DWTSMX,A2 b ( P RB(G) INCLEN SECTOR NUMBER OVERFLOW z P* P IFT MMUPAG=0 P LD A1,ECBBA,A8 ( P ST A1,DWTUBU,A6 USER BUFFER POINTER
0x48ca80…48cc14 (5, 302) Opaque[0x194]
0x48cc14…48cda8 # DirEnt {nam=»DRFD01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2c28, f03=0x0000}
0x48cc14…48cda8 IdxSect {
0x48cc14…48cda8 f00 = 0x0161 // 0x48cc14 @0x0
0x48cc14…48cda8 f01 = 0x0022 // 0x48cc16 @0x2
0x48cc14…48cda8 gno = [ // 0x48cc18 @0x4
0x48cc14…48cda8 [0x00]: C0x0161.0x1.0
0x48cc14…48cda8 [0x01]: C0x0161.0x3.0
0x48cc14…48cda8 [0x02]: C0x0162.0x0.0
0x48cc14…48cda8 [0x03]: C0x0162.0x1.0
0x48cc14…48cda8 [0x04]: C0x0162.0x2.0
0x48cc14…48cda8 [0x05]: C0x0162.0x3.0
0x48cc14…48cda8 [0x06]: C0x0163.0x0.0
0x48cc14…48cda8 [0x07]: C0x0163.0x1.0
0x48cc14…48cda8 [0x08]: C0x0163.0x2.0
0x48cc14…48cda8 [0x09]: C0x0163.0x3.0
0x48cc14…48cda8 [0x0a]: C0x0164.0x0.0
0x48cc14…48cda8 [0x0b]: C0x0164.0x1.0
0x48cc14…48cda8 [0x0c]: C0x0164.0x2.0
0x48cc14…48cda8 [0x0d]: C0x0164.0x3.0
0x48cc14…48cda8 [0x0e]: C0x0165.0x0.0
0x48cc14…48cda8 [0x0f]: C0x0165.0x1.0
0x48cc14…48cda8 [0x10]: C0x0165.0x2.0
0x48cc14…48cda8 ]
0x48cc14…48cda8 }
0x48cda8…48cf3c Dummy {f00=0x0161, f01=0x0190, f02=» 2 P IDENT DRFD01 REL 10.0 80-03-14 870105041000 P : P* B 2 P********************************************** L P* " P* PHILIPS TERMINAL SYSTEM PTS P* ( P* DRFD01 = DRIVER FOR FLEXIBLE DISK P* P* P* P*
0x48cf3c…48d0d0 Dummy {f00=0x0161, f01=0x0190, f02=»FOUR DAISY n . P* CHAINED FLEXIBLE DISK DRIVES PTS 6879, 0 P* CONNECTED TO CPU VIA CHANNEL UNIT CHFD ON D & P* MULTIPLEX OR PROGRAMMED CHANNEL x P* P* P EJECT DRFD01 P* P* ORDERS: P* P* /00 TEST STATUS
0x48d0d0…48d264 Dummy {f00=0x0161, f01=0x0190, f02=»* /06 SEQUENTIAL WRITE -IBM DISC ONLY- P* /11 PHYSICAL READ H P* /15 PHYSICAL WRITE f P* /21 OPEN P* /22 CLOSE P* /24 WRITE DELETED DATA P* /26 LOCK D P* /31 REWIND
0x48d264…48d3f8 Dummy {f00=0x0161, f01=0x0190, f02=» A5 STACK BASE P* A6 DWT-ADDRESS P* A7 ORDER 6 P* A8 ECB-ADDRESS L P EJECT DRFD01 h P* P*********** P* * P* ENTRIES * P* * P*********** P* $ P ENTRY FDADR AC
0x48d3f8…48d58c Dummy {f00=0x0161, f01=0x0190, f02=»CT DRFD01 P* P************* P* * 4 P* EXTERNALS * J P* * ` P************* v P* P EXTRN TDISP DISPATCHER P EXTRN TENDIO ENDIO P EXTRN DISIOE REQUEST ERROR * P EXTRN DISEND PERF
0x48d58c…48d720 Dummy {f00=0x0161, f01=0x018e, f02=»TO DWT AND SET NVL v . P EXTRN NVLCHK CHECK FOR NEW VOLUME LOADED EXTRN DWTST STATUS L EXTRN DWTECB ECB ADDRESS h " P EXTRN DWTUEC USER ECB ADDRESS $ EXTRN DWTOR DWT INDEX AND ORDER ( P EXTRN DWTORD ORDER/INDEX SAVE AREA P EXT
0x48d720…48d8b4 (5, 303) Dummy {f00=0x0161, f01=0x0190, f02=» ( P EXTRN SAVE8 SAVE A1-A8 ON A15 STACK P EXTRN SETIMP TIMER 0 & P EXTRN INTSAV INTERRUPT SAVE AREA L & P EXTRN PFPOST PWF POST PROC. FLAG v & P EXTRN TASCII EBCDIC TO ASCII TAB & P EXTRN TEBCDIC ASCII TO EBCDIC TAB 0 P EXTRN SPDLCI OPEN/C
0x48d8b4…48da48 Dummy {f00=0x0161, f01=0x0190, f02=»TIVE LENGTH z $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 < P EJECT DRFD01 d P* | P************************ P* * P* CONDITIONAL ASSEMBLY * P* * P**
0x48da48…48dbdc Dummy {f00=0x0161, f01=0x0190, f02=»X:A EQU 1 PCHAN EQU 1 P* $ 2 P* A PROGRAM VERSION INCLUDING TOSS DISC FORMAT . ( P* IS OBTAINED BY SETTING TOSS EQU 1. d P* PX:B EQU 0 PTOSS EQU 1 P* 2 P* A PROGRAM VERSION INCLUDING IBM DISC FORMAT ( P* IS OBTAI
0x48dbdc…48dd70 Dummy {f00=0x0161, f01=0x0190, f02=» * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 2 PMMUPAG EQU 0 < P* P P* Z 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION d . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT DRFD01
0x48dd70…48df04 Dummy {f00=0x0161, f01=0x0190, f02=»DED BY SETTING OPCLOS =1 h P* PX:D EQU 0 * POPCLOS EQU 1 < P* P P EJECT DRFD01 Z P* r P* | P* MMU BUFFER SIZE P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF P* P IFT MMUPAG=1
0x48df04…48e098 Dummy {f00=0x0161, f01=0x0190, f02=»ND EQU 10 P* P EJECT DRFD01 P* 4 P************* > P* * T P* CONSTANTS * j P* * P************* P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR EQU CUADR+CUADR MUX-ADDRESS (
0x48e098…48e22c Dummy {f00=0x0161, f01=0x0190, f02=»923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITION & & PEOE EQU 34 END OF EXTENT POSITION R $ PEOD EQU 74 END OF DATA POSITION | PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDERS P* $ PDIXTAB EQU *
0x48e22c…48e3c0 Dummy {f00=0x0161, f01=0x0190, f02=» * P* TABLES * P* * P********** 0 P* B P IFF CHAN+IBM=0 L ( P DATA DVBLEN+DVBLEN MMU BUFFER SIZE d P XIF P* P IFT CHAN=0 P IFT IBM=0 " P DATA 0 INDICATE NO MMU BUFFER P XIF P* P
0x48e3c0…48e554 (5, 304) Dummy {f00=0x0162, f01=0x0190, f02=»D01 P* P*************** P* * . P* TEST STATUS * F P* * ^ P*************** v P* PTESTST EQU * P IFF IBM+TOSS=0 P CF A15,NVLCHK " P STR A1,A6 SAVE NVL INDICATOR P XIF
0x48e554…48e6e8 Dummy {f00=0x0162, f01=0x0190, f02=»7FFF RESET REQUEST ERROR BIT P ANRS A2,A6 $ P* 8 P IFF TOSS+IBM=0 B " P CF A5,VO:NAM GET VOLUME NAME Z , P LD A1,DWTORD,A6 RESTORE INDEX AND ORDER P ST A1,DWTOR,A6 P CF A15,VOLNAM P ABL END:RC P XIF P* P
0x48e6e8…48e87c Dummy {f00=0x0162, f01=0x0190, f02=» P* ACTIVATION * P* * P************** 4 P* J PFDAD EQU * ACTIVATION ENTRY T P IFT MMUPAG=1 x P IFT CHAN=0 P CM BUFFLG,A6 P XIF P* $ P LD A2,DWTOR,A6 INDEX AND ORDER 0 P ST A2,DWTORD,A6 S
0x48e87c…48ea10 Dummy {f00=0x0162, f01=0x018e, f02=» P IFT OPCLOS=1 P* & P* CHECK IF OPEN OR CLOSE ORDER $ P* N P LDR A1,A7 ORDER X P SUK A1,/21 p P RF(Z) OPEN OPEN P SUK A1,1 " P RF(NZ) FD:ORD NOT CLOSE ORDER P* P EJECT P* P********* P
0x48ea10…48eba4 Dummy {f00=0x0162, f01=0x0190, f02=» 2 P* ZERO OF THE SOP LIGHTS EXTERNAL REGISTER P* : " P LDKL A1,/8000 MASK FOR BIT 0 D & P ORS A1,SPDLCI SET OPEN/CLOSE BIT j P RF OPEN10 P* P EJECT P* P******** P* * P* OPEN * P* * P
0x48eba4…48ed38 Dummy {f00=0x0162, f01=0x0190, f02=»* POPEN EQU * " P LDKL A1,/7FFF MASK FOR BIT 0 ( P ANS A1,SPDLCI CLEAR OPEN/CLOSE BIT B P* n POPEN10 EQU * x 0 P LD A1,SPDLCI SOP LIGHTS AND OPEN/CLOSE DATA " P OTR A1,0,SOPDA OPEN FD DRIVE P* * P* WAIT FOR DRIVE TO B
0x48ed38…48eecc Dummy {f00=0x0162, f01=0x0190, f02=»DWT-ADDR P CF A15,SETIMP WAIT . P DATA OPENRE,OPENTI START ADDR, WAIT TIME , P ABL TDISP EXIT ^ P* v POPENRE EQU * P LDR A6,A1 GET DWT-ADDR , P CM DWTTP2,A6 INDICATE NO TIMER RUNNING P LDK A1,0 RETURN CODE ( P RF DI
0x48eecc…48f060 Dummy {f00=0x0162, f01=0x018e, f02=»FD:ORD EQU * P LC A2,DIXTAB,A3 , P SC A2,DWTA3+1,A6 SAVE DRIVE INDEX MASK , P* P IFT IBM+TOSS=2 f P AN A2,DWTLAB,A6 ~ ( P SC A2,DWTFIB+1,A6 INDICATE TOSS/IBM P XIF P* P CF A5,SETCIO A3,A4 AFFECTED P* P E
0x48f060…48f1f4 (5, 305) Dummy {f00=0x0162, f01=0x0190, f02=» " P RF(N) INTEST READ/WRITE ORDER P SUK A3,18 * P ABL(NP) LOAD LOAD/UNLOAD < P XIF ^ P* j P IFT IBM=1 t P SUK A3,1 P RF(Z) INTEST BASIC READ P SUK A3,1 " P RF(Z) IBMCHK SEQUENTIAL READ P SUK A3,3 P RF(Z)
0x48f1f4…48f388 Dummy {f00=0x0162, f01=0x0190, f02=» n P SUK A3,11 P RF(Z) IBMCHK REWIND P SUK A3,7 6 P ABL(NP) LOAD LOAD/UNLOAD H P XIF j P* v PIBMCHK EQU * P IFT TOSS+IBM=2 P LD A4,DWTFIB,A6 & P ABL(NZ) IBMDSK IBM DISC HANDLING P XIF P* P IFT
0x48f388…48f51c Dummy {f00=0x0162, f01=0x0190, f02=»REQERR ABL DISIOE REQUEST ERROR P* ( 0 PINCLEN EQU * INCORRECT REQUESTED LENGTH EXIT 2 P LDKL A1,/8008 RETURN CODE f P* PDIS:EN EQU * . P ABL DISEND PERFORM TENDIO AND GO TO TDISP P* P EJECT DRFD01 P* P* INPU
0x48f51c…48f6b0 Dummy {f00=0x0162, f01=0x018e, f02=»1,0 $ P RB(NZ) DIS:EN NEW VOLUME LOADED P XIF 4 P* @ P LD A3,ECBRL,A8 J 2 P RB(Z) INCLEN INCORRECT INPUT PARAMETER ECBRL b ( P SRC A3,7 NUMBER OF PHYSICAL SECTORS 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL P CWK A3,/01FF
0x48f6b0…48f844 Dummy {f00=0x0162, f01=0x0190, f02=» P LD A4,DWTFIB,A6 P RF(NZ) INTES5 IBM-DISC P XIF < P* H P IFT TOSS=1 R P LDR A4,A3 f 6 P SRC A4,1 CHECK IF EVEN NUMBER OF PHYSICAL SECTORS x 2 P RB(N) INCLEN INCORRECT INPUT PARAMETER ECBRL 6 P SLL A2,1 TRANSFER TOSS-SEC. NO
0x48f844…48f9d8 Dummy {f00=0x0162, f01=0x018e, f02=»ECTOR NUMBER v P RB(N) REQERR REQUEST ERROR P SUKL A4,MAXSEC 8 P RB(NN) REQERR REQUEST ERROR P P ADR A4,A3 t " P RB(P) INCLEN INCORRECT LENGTH , P ST A3,DWTNOS,A6 SAVE NUMBER OF SECTORS 2 P ST A2,DWTCW2,A6 DWTCW2 CONTAINING PHYS SEC
0x48f9d8…48fb6c Dummy {f00=0x0162, f01=0x0190, f02=» P ANK A2,/30 4 P ST A2,DWT:BF,A6 SAVE BITS 0-1 IN 18-BIT ADDRESS P XIF T P* ` P EJECT DRFD01 j P* P* MULTIPLE SECTOR IO ENTRY P* PFD:000 EQU * P IFT MMUPAG=1 P IFT CHAN=0 P LD A2,DWT:BF,A6
0x48fb6c…48fd00 Dummy {f00=0x0162, f01=0x0190, f02=»05 FOUR PHYS. SEC. IO P* PFD:003 SUK A2,128 ( P SUK A4,1 B P ADK A3,1 T P RB(NZ) FD:003 f P* | PFD:005 EQU * . P ST A4,DWTSIO,A6 SECTORS IN ONE IO ON DISC ( P ST A2,DWTRL,A6 UPDATE DWTRL FOR BIO . P ST A3,DWTNOS,A6
0x48fd00…48fe94 (5, 306) Dummy {f00=0x0162, f01=0x0190, f02=»D A2,DWTBA,A6 BUFFER ADDRESS P LD A1,DWT:BF,A6 $ , P RF(NZ) FD:007 BUFFER NOT IN SYSTEM AREA < P LDR A3,A2 l P RF(NN) FD:009 ~ 6 P AD A3,DWTRL,A6 CHECK IF 64K LIMIT WILL BE PASSED P RF(N) FD:009 NO P* P EJECT DRFD01 P*
0x48fe94…490028 Dummy {f00=0x0162, f01=0x0190, f02=»,DWT:PA,A6 6 BIT PHYSICAL BUFFER ADDRESS ( P ADK A1,/4 CREATE ONE MORE MMU ENTRY 0 P SC A1,DWT:PA+2,A6 P ANKL A2,/FFF v P LDR A1,A2 ( P ORK A1,1 INDICATE ADDRESS NOT ZERO P* 8 PFD:009 ST A1,DWT:LA,A6 16 BIT LOGICAL BUFFER ADDRESS
0x490028…4901bc Dummy {f00=0x0162, f01=0x0190, f02=»Z) FD:060 BASIC READ P SUK A1,4 P RF(Z) FD:015 BASIC WRITE . P SUK A1,12 P P RF(Z) FD:060 PHYSICAL READ b P SUK A1,4 P RF(Z) FD:013 PHYSICAL WRITE * P SUK A1,15 CHECK IF WRITE DELETED DATA P* PRQ:ERR EQU * P
0x4901bc…490350 Dummy {f00=0x0162, f01=0x0190, f02=» & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! . P ADK A4,4 ! X " PFD:015 EQU * BASIC WRITE ORDER ! j P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P IFT TOSS+IB
0x490350…4904e4 Dummy {f00=0x0162, f01=0x018e, f02=»D A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ! ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " 6 P LDR A7,A3 REQUESTED LENGTH " b P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU " ( P T
0x4904e4…490678 Dummy {f00=0x0162, f01=0x018e, f02=» P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # " PFD:019 EQU * # V P XIF # j P* # v P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3 NO OF C
0x490678…49080c Dummy {f00=0x0162, f01=0x0190, f02=» " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ * P RF(Z) FD:020 $ X P LDK A3,/40 INDICATE ERROR $ n , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT DRF
0x49080c…4909a0 Dummy {f00=0x0162, f01=0x0190, f02=»******* $ P* % PFD:060 CF A5,BIO % P* % 2 P IFT MMUPAG=1 % < P IFT CHAN=0 % R P IFT TOSS+IBM=2 % f P LD A1,DWTFIB,A6 % ~ P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM
0x4909a0…490b34 (5, 307) Dummy {f00=0x0162, f01=0x0190, f02=»FFER IN SYSTEM AREA % & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA & F P XIF & z P* & P IFT MMUPAG=1 & P IFT IBM=1 & P IFT TOSS+CHAN=0 & & P LDKL A4,BUF DRIVER BUFFER ADDRESS & 0 P CM BUFFLG,A6
0x490b34…490cc8 Dummy {f00=0x0162, f01=0x0190, f02=»M=2 & P LD A1,DWTFIB,A6 ' P RF(Z) FD:090 NOT IBM ' $ P XIF ' B P* ' N P IFT IBM=1 ' X P IFT MMUPAG=0 ' j ( P LD A4,DWTBA,A6 ASCII OUTPUT ADDRESS ' P XIF ' P* ' P IFT IBM=1 ' P LD A7,DWTRL,A6 REQ. LEN ' P CF A5,ASCII ' P
0x490cc8…490e5c Dummy {f00=0x0162, f01=0x0190, f02=»S+IBM=2 ' P LD A1,DWTFIB,A6 ( P RF(Z) FD:100 TOSS DISC ( ( P XIF ( H P* ( T P IFT MMUPAG=1 ( ^ P IFF CHAN+IBM=0 ( t 4 P LD A2,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS ( ( P RF(Z) FD:100 BUFFER IN SYSTEM AREA ( $ P LD A7,DWTRL,A6 REQUESTE
0x490e5c…490ff0 Dummy {f00=0x0162, f01=0x0190, f02=»E ( n 2 P MVSU A7 MOVE BUFFER FROM SYSTEM TO USER AREA ) & P TL -30,A15 RESTORE MMU FROM STACK ) @ P XIF ) j PFD:100 EQU * ) v P ABL FDMSIO ) P* ) P EJECT DRFD01 ) P* ) P******** ) P* * ) P* LOAD * ) P* * )
0x490ff0…491184 Dummy {f00=0x0162, f01=0x0190, f02=»Z) LOAD00 LOAD ORDER ) P ADK A3,17 * $ P RB(NZ) RQ:ERR ERROR IF NOT LOCK * . P* * V PLOAD00 EQU * * ` P LDK A2,/14 LOCK * t P CF A5,FD:REA * P ANK A3,1 * & P RF(NZ) LOA:80 ENDIO NOT OPERABLE * P* * P IFT TOSS+IBM=2 * P LD A1,D
0x491184…491318 Dummy {f00=0x0162, f01=0x018e, f02=» * P RF(Z) LOA:65 LOCK ORDER + P CF A5,VO:NAM + ( " P CF A5,LD:RC CHECK RETURN CODE + > P EJECT DRFD01 + d P* + | P* READ DATA SET LABEL + P* + P LD A2,ECBCW2,A8 SECTOR NO + P SUK A2,7 + P RF(N) LOA:85 REQUEST ERROR + P S
0x491318…4914ac Dummy {f00=0x0162, f01=0x0190, f02=» P CF A5,FD:REA , P SLL A1,4 CHECK NO DATA BIT , P RF(NN) LOA:60 NOT NO DATA , > 0 P ORK A3,/10 INDICATE ILLEGAL DATA SET LABEL , ` PLOA:60 EQU * , P CF A5,LD:RC , P ENB , * P LD A3,ECBCW2,A8 DATA SET LABEL SECTOR , P LDK A1,DWTDSS ,
0x4914ac…491640 Dummy {f00=0x0162, f01=0x0190, f02=» $ P CF A5,STDWT STORE BOE NO IN DWT - P SUK A3,1 CRN - , P LDK A1,DWTCRN - B P CF A5,STDWT - X P ADK A4,EOE-BOE EOE ADDRESS - l P CF A5,LOGSEC - P LDK A1,DWTEOE - $ P CF A5,STDWT STORE EOE NO IN DWT - P ADK A4,EOD-EOE EOD ADDRESS - P
0x491640…4917d4 (5, 308) Dummy {f00=0x0163, f01=0x0190, f02=» EOD NO IN DWT - ~ P* . PLOA:65 EQU * . P LDKL A3,/400 . 4 , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE . J P* . z PLOA:70 EQU * . P XIF . P LD A2,DWTA3,A6 . " P ORS A2,DWTLC,A6 INDICATE LOCK . PLOA:80 EQU * . P ABL END:RC .
0x4917d4…491968 Dummy {f00=0x0163, f01=0x0190, f02=» . P* / P EJECT DRFD01 / P* / * P* / 4 P IFF TOSS+IBM=0 / > P* / V P* ERROR , UNLOCK / ` P* / z PLOA:90 EQU * / P LDR A5,A6 / P ADKL A5,DWTSB2 STACK BASE / P LDK A2,/C UNLOCK / P CF A5,FD:REA / P RB LOA:80 /
0x491968…491afc Dummy {f00=0x0163, f01=0x0190, f02=»A4,BUF DRIVER BUFFER ADDRESS / P RTN A5 0 $ P XIF 0 4 P* 0 @ P EJECT DRFD01 0 J P* 0 b P********** 0 l P* * 0 ~ P* UNLOAD * 0 P* * 0 P********** 0 P* 0 PUNLOAD EQU * 0 P IFT IBM=1 0 P* 0 P* DAT
0x491afc…491c90 Dummy {f00=0x0163, f01=0x018e, f02=»2,A8 STORE EOD-NO IN CONTROL WORD OF ECB 0 P* 1 0 , P* READ DATA SET LABEL TO DRIVER BUFFER 1 : P* 1 j P CF A5,DSLIO PREPARE FOR I/O 1 t & P CF A5,FD:REA READ DATA SET LABEL 1 $ P CF A5,UNL:RC RETURN CODE CHECK 1 P ENB 1 P* 1 < P* TRANS
0x491c90…491e24 Dummy {f00=0x0163, f01=0x0190, f02=» P* 2 P LDK A1,0 2 PUNL:10 SUK A7,26 2 P RF(N) UNL:20 2 8 P ADK A1,1 2 N P RB UNL:10 2 ` P* 2 r P EJECT DRFD01 2 | P* 2 P* 2 PUNL:20 ADK A7,27 2 P* 2 P* A1 = BINARY TRACK NO 2 * P* A7 = SECTOR NO WITHIN TRAC
0x491e24…491fb8 Dummy {f00=0x0163, f01=0x0190, f02=» A4,1 2 P SRL A3,8 LEFT BYTE 3 P SCR A3,A4 STORE IN BUFFER 3 * P LDR A7,A1 TRACK 3 L ( P CF A5,BINDEC DEC EBCDIC-CODED IN A3 3 d P SUK A4,3 3 P STR A3,A4 TRACK INTO BUF 3 F P INH INHIBIT INTERRUPTS INHIBIT 3
0x491fb8…49214c Dummy {f00=0x0163, f01=0x0190, f02=»WRITE WRITE DATA SET LEBEL 3 $ P CF A5,UNL:RC CHECK RETURN CODE 4 " P CF A5,DSOPCH 4 J P CMR A2 INDICATE NOT OPEN 4 ` P* 4 P EJECT DRFD01 4 P* 4 P* UNLOCK 4 P* 4 P XIF 4 PUNL:70 EQU * 4 P LDK A2,/C UNLOCK 4 P C
0x49214c…4922e0 Dummy {f00=0x0163, f01=0x0190, f02=»LOCK IN DWT 4 t P RB LOA:80 END:IO 5 P* 5 . P IFT IBM=1 5 8 P* 5 J P* UNLOAD RETURN CODE CHECK 5 T P* 5 x PUNL:RC EQU * 5 P ANKL A3,/207 5 P RF(Z) RTN:A5 NO RETURN CODE 5 P ANKL A3,/200 5 & P RF(Z) RTN:A5 NOT WRITE PROTECTED
0x4922e0…492474 (5, 309) Dummy {f00=0x0163, f01=0x0190, f02=»EMPORARY RETURN CODE 5 | PRTN:A5 EQU * 6 P RTN A5 6 0 P* 6 @ P EJECT DRFD01 6 J P* 6 b P* 6 l ( PIBMDSK EQU * IBM DISK HANDLING ENTRY 6 v P IFT IBM=1 6 . P CF A15,NVLCHK CHECK IF NEW VOLUME LOADED 6 P ADK A1,0 6 & P ABL(NZ) END:IO
0x492474…492608 Dummy {f00=0x0163, f01=0x0190, f02=»,DWTOR+1,A6 ORDER CODE 6 P SUK A1,49 7 P RF(Z) REWIND REWIND FILE 7 0 * P LD A3,ECBRL,A8 CHECK REQUESTED LENGTH 7 R P SUK A3,SECLEN 7 $ P ABL(NZ) INCLEN INCORRECT LENGTH 7 P ADK A1,43 7 $ P RF(Z) SQWRITE SEQUENTIAL WRITE 7 P ADK A1,4 7 0
0x492608…49279c Dummy {f00=0x0163, f01=0x0190, f02=»AL READ * 7 P******************* 8 P* 8 . . P ADK A2,DWTCRN-DWTEOD A2 = ADDRESS TO CRN 8 8 P LDR* A3,A2 CRN 8 j P ADK A3,1 CRN+1 8 ( P ST A3,ECBCW2,A8 STORE CRN+1 IN ECB 8 P CWK A3,MAXIBM 8 P RF(P) FD:DIS REQUEST ERROR 8 P CWR A3,
0x49279c…492930 Dummy {f00=0x0163, f01=0x0190, f02=» 8 b P* 9 P IFT MMUPAG=0 9 ( P LD A4,ECBBA,A8 USER BUFFER ADDRESS 9 ( P XIF 9 T P* 9 ` P IFT IBM=1 9 j P LDK A7,SECLEN 9 | $ P CF A5,ASCII TRANSFORM TO ASCII 9 P* 9 P EJECT DRFD01 9 P* 9 P* 9 P IFT MMUPAG=1 9 ( P T
0x492930…492ac4 Dummy {f00=0x0163, f01=0x0190, f02=»BUFFER ADDRESS 9 | & P LD A2,DWTUEC,A6 USER ECB ADDRESS : ( P EL A2,ECBBA,A2 USER BUFFER ADDRESS : @ P LDK A7,SECLEN LENGTH : l ( P MVSU A7 MOVE SECTOR TO USER BUFFER : , P TL -30,A15 RESTORE MMU TABLE FROM STACK : P XIF : P* : P IFT IBM=1 :
0x492ac4…492c58 Dummy {f00=0x0163, f01=0x0190, f02=»,/1000 RETURN CODE : P RF END:IO ; P* ; , P EJECT DRFD01 ; 6 P* ; N P******************* ; X P* SEQUENTIAL WRITE * ; t P******************* ; P* ; PSQWRIT EQU * ; P* ; P* CHECK IF END OF EXTENT ; P* ; P LDK A1,
0x492c58…492dec Dummy {f00=0x0163, f01=0x0190, f02=»DIS REQUEST ERROR ; P CWR* A7,A2 < P RF(G) ENDEOE END OF EXTENT < . P* < R P IFT MMUPAG=1 < ( P TS -30,A15 SAVE RUNNING TASK'S MMU < r " P LD A7,DWTTAB,A6 TTAB ADDRESS < P TL TTB:MT,A7 LOAD MMU TABLE < & P LD A1,DWTUEC,A6 USER ECB ADDRES
0x492dec…492f80 Dummy {f00=0x0163, f01=0x0190, f02=»OVE SECTOR TO DRIVER BUFFER < , P TL -30,A15 RESTORE MMU TABLE FROM STACK = $ P XIF = T P* = ` P IFT IBM=1 = j P LDK A4,5 BIO WRITE = | P CF A5,BIOSQ = P LDK A7,SECLEN = , P CF A5,EBCDIC TRANSFORM AND MOVE TO BUF = P* = P EJECT DRFD
0x492f80…493114 (5, 310) Dummy {f00=0x0163, f01=0x0190, f02=»S A1,A6 UPDATE TEMPORARY RETURN CODE = PSQW:05 EQU * > , P CF A5,DSOPCH > @ PSQW:10 EQU * > V 2 P ANKL A3,/207 WRITE PROTECTED OR NOT OPERABLE > j P RF(NZ) END:RC > * P IMR A2 EOD=EOD+1 OR CRN=CRN+1 IN DWT > P LDK A2,SECLEN > , P ST A2,ECBEL,A
0x493114…4932a8 Dummy {f00=0x0163, f01=0x0190, f02=»RFD01 > P* ? P********** ? P* REWIND * ? * P********** ? < P* ? N PREWIND EQU * ? X P LDR A3,A2 SAVE EOD ADDRESS ? l P LDK A1,DWTBOE ? P CF A5,DSPAD ? P LDR* A4,A2 BOE ? P STR A4,A3 EOD = BOE ? P LDK A1,DWTCRN ? P CF
0x4932a8…49343c Dummy {f00=0x0163, f01=0x018e, f02=» ? P EJECT DRFD01 @ P* @ P***************** @ * P* * @ D P* PERFORM ORDER * @ ^ P* * @ x P***************** @ P* @ P* @ P* INPUT: A2 BIO CONTENTS @ 0 P* A3 NO OF BYTES TO BE TRA
0x49343c…4935d0 Dummy {f00=0x0163, f01=0x0190, f02=» P XIF A P IFT CHAN=1 A " P LDK A1,0 INDICATOR WRITE MODE A $ P XIF A J P RF FD:800 A V P* A h PFD:REA EQU * A r P IFT CHAN=1 A P LDK A1,1 READ MODE A P XIF A P IFT CHAN=0 A P LDKL A1,/8000 WORDS READ A P XIF A PFD:8
0x4935d0…493764 Dummy {f00=0x0163, f01=0x0190, f02=»PAG=1 A 2 P LD A7,BUFFLG,A6 CHECK WHAT BUFFER TO READ TO B ( P RF(Z) FD:810 BUFFER IN SYSTEM AREA B D 0 P LD A7,DWT:BF,A6 BITS 0-1 IN 18-BIT ADDRESS B p P ECR A7,A7 B P ORR A1,A7 B PFD:810 EQU * B P XIF B P* B P IFT CHAN=0 B P O
0x493764…4938f8 Dummy {f00=0x0163, f01=0x0190, f02=»JECT DRFD01 B P* C . P* PUT BUFFER START AND END ADDRESS IN DWT C P* C R " P ST A1,DWTRW,A6 INDICATE MODE C P ST A4,DWTUB,A6 C P ADR A3,A4 C " P ST A3,DWTUBE,A6 END ADDRESS+2 C P XIF C & P ST A5,DWTA5,A6 SAVE STACK POINTER C P
0x4938f8…493a8c Dummy {f00=0x0163, f01=0x0190, f02=»R CIO START C ( P RF(3) END:30 DEVICE ADDRESS UNKNOWN D P RF T:DISP D @ P* D R P EJECT DRFD01 D P* D t * P************************************* D ~ P* D < P* FDMSIO - UPDATE PARAMETERS FOR MULTIPLE SECTOR IO * D * P*
0x493a8c…493c20 Dummy {f00=0x0163, f01=0x0190, f02=»ER D p P LDR* A1,A6 RETURN CODE E & P ANK A1,/7F GET ERROR RETURN CODE E * P RF(NZ) END:RC E T 0 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS DONE E j $ P ADS A2,DWTCW2,A6 UPDATE DWTCW2 E P LD A2,DWTRL,A6 E " P ADS A2,ECBEL,A8 UPDATE ECBEL E P LD
0x493c20…493db4 (5, 311) Dummy {f00=0x0163, f01=0x0190, f02=»PDATE BUFFER POINTER E P ST A2,DWTBA,A6 F & P RF(N) FDMSI1 NOT PASSED 64K LIMIT F 4 P ADK A4,0 F ^ ( P RF(NN) FDMSI1 NOT PASSED 64K LIMIT F p P LDK A2,/10 F & P ADS A2,DWT:BF,A6 UPDATE BITS 0-1 F PFDMSI1 EQU * F P XIF F P* F P IFT
0x493db4…493f48 Dummy {f00=0x0163, f01=0x0190, f02=» P EJECT DRFD01 G P* G P********** G & P* * G 8 P* END:IO * G J P* * G P********** G n P* G P IFT IBM=1 G $ PENDEOE EQU * END OF EXTENT EXIT G P LDKL A1,/2000 RETURN CODE G P RF END:IO G P XIF G P* G
0x493f48…4940dc Dummy {f00=0x0163, f01=0x0190, f02=»D:30 EQU * CU ADDRESS UNKNOWN G P LDK A1,1 NOT OPERABLE H & * P ST A1,DWTST,A6 INDICATE RECOVERY DONE H D P RB END:IO H r P EJECT DRFD01 H P* H P******************** H P* * H P* RECOVERY ROUTINE * H P*
0x4940dc…494270 Dummy {f00=0x0163, f01=0x0190, f02=»IF H P* I P IFT CPU852=0 I " P MSR 8,A15 SAVE A1-A8 ON STACK I * P XIF I P P* I P LDKL A6,DWFD01 DWT ADDRESS I f P CM DWTST,A6 I P IM DWTA2,A6 SET FDON FLAG I P* I P EJECT I P* I P* DELAY 2 SEC I P* I P LD A4
0x494270…494404 Dummy {f00=0x0163, f01=0x018e, f02=» LDK A4,DWTTP I P ADR A4,A6 J P LDR A1,A6 SAVE A6 J ( P CF A15,SETIMP J B P DATA FDON20,TIME J X P* J r PF:DISP EQU * J | P RB T:DISP J P* J P* TIME OUT ROUTINE J P* J PFDON20 LDR A6,A1 J P CM DWTTP,A6 J P LDKL A5,D
0x494404…494598 Dummy {f00=0x0163, f01=0x0190, f02=» P IFT CHAN=0 K $ P CM BUFFLG,A6 RESET BUFFER FLAG K P XIF K @ P* K L P IFF TOSS+IBM=0 K V 4 P IM DWTST2,A6 SET RECOVERY/READY INT. INDICATOR K n P LDK A3,3 4 VOLUMES K P* K P EJECT DRFD01 K P* K P* K P* READ VOLUME NAM
0x494598…49472c Dummy {f00=0x0163, f01=0x0190, f02=»,A6 SAVE IT K P CF A5,SETCIO L P LDK A2,/14 L * P CF A5,FD:REA LOCK L > P ANK A3,1 L X P RF(Z) FDON19 OPERABLE L j P LDK A1,6 NOT OPERABLE L $ P CF A15,VOLCLR CLEAR VOLUME NAME L & P RF FDON21 CONTINUE WITH NEXT DISC L P* L PFDON19
0x49472c…4948c0 Dummy {f00=0x0163, f01=0x0190, f02=» * L P LDK A2,/C M P CF A5,FD:REA UNLOCK M P LDK A3,0 M 8 , P LC A3,DWTOR,A6 GET INDEX FOR LAST VOL. M J P SUK A3,1 M z P RB(NN) FDONLD NEXT VOLUME M P CM DWTOR,A6 M ( P CM DWTST2,A6 INDICATE VOLUMES READ M , P IM DWTST,A6 INDICATE VOLU
0x4948c0…494a54 (5, 312) Dummy {f00=0x0164, f01=0x0190, f02=» ORDER IF RUNNING M l P* N " P LD A4,DWTTP2,A6 TIMER POINTER N $ P RF(Z) FDON09 NOT RUNNING N J P CMR A4 STOP TIMER N l $ P CM DWTTP2,A6 INDICATE NO TIMER N PFDON09 EQU * N P* N 6 P* OPEN FD TO MAKE FOLLOWING LOCK ORDER POSSIBLE N P*
0x494a54…494be8 Dummy {f00=0x0164, f01=0x018e, f02=» N p P ORS A2,DWTOCF,A6 SAVE O ( P XRRS A2,A4 SET STATUS WORD TO OPEN O & P LDR* A2,A4 O R & P OTR A2,0,SOPDA SET DRIVE TO OPEN O f P* O PFDON23 EQU * O P XIF O P* O P EJECT O P* O P* LOCK DOORS O P* O P LDK A2,1 O
0x494be8…494d7c Dummy {f00=0x0164, f01=0x0190, f02=» O z P* P P EJECT P P* P P* PUT DRIVE NO IN CIO INSTR P * P* P N P SRN A2,A3 DRIVE NO IN A3 P X * P CF A5,SETCIO PUT DRVE NO IN CIO-INSTR P z P LDK A2,/14 LOCK P P CF A5,FD:REA P P LD A2,DWTA3,A6 DRIVE IND. P P ANK A3,1 P
0x494d7c…494f10 Dummy {f00=0x0164, f01=0x018e, f02=»ON25 P P* Q P IFT OPCLOS=1 Q P* Q , D P* RESTORE OPEN/CLOSE STATUS TO SAME VALUE AS BEFORE POWER OFF Q 6 P* Q ~ $ P LD A2,DWTOCF,A6 OPEN/CLOSE FLAG Q " P ORS A2,SPDLCI TO STATUS WORD Q P CM DWTOCF,A6 CLEAR FLAG Q $ P LD A2,SPDLCI OPEN
0x494f10…4950a4 Dummy {f00=0x0164, f01=0x0190, f02=» Q P* R P CM DWTA2,A6 RESET FDON FLAG R PFDON60 EQU * R 6 P LD A8,DWTECB,A6 R J 0 P ABL(Z) END:IO NO REQUEST, RETURN VIA TENDIO R b P* R P* RETRY REQUEST R P* R P IM DWTRTY,A6 INDICATE RETRY R P LD A7,DWTORD,A6 R , P ST A7,DWT
0x4950a4…495238 Dummy {f00=0x0164, f01=0x0190, f02=»* R P EJECT DRFD01 S P* S " P******************** S , P* * S H P* READY INTERRUPT * S d P* * S P******************** S P* S PFDRE EQU * S P LD A2,DWTA2,A6 S * P RB(NZ) F:DISP POWER ON ROUT
0x495238…4953cc Dummy {f00=0x0164, f01=0x0190, f02=»* S P IFF TOSS+IBM=0 T P CM DWTST,A6 SET UNIT BUSY T " P RB FDONVL READ VOLUME NAMES T D P XIF T h P* T t P EJECT DRFD01 T ~ P* T P********************* T P* * T P* INTERRUPT HANDLER * T P*
0x4953cc…495560 Dummy {f00=0x0164, f01=0x0190, f02=» CF A15,SAVE8 SAVE REGISTERS ON STACK T P XIF U . P* U : P IFT CPU852=0 U D " P MSR 8,A15 SAVE A1-A8 ON STACK U Z P XIF U P* U P LDKL A6,DWFD01 DWT ADDRESS U P IFT CHAN=1 U P ENB U & P LD A1,DWTUB,A6 GET BUFFER POINTER U " P LD
0x495560…4956f4 (5, 313) Dummy {f00=0x0164, f01=0x0190, f02=»RRUPT U x P LD A3,PFPOST V , P RF(NZ) IHDISP POST PROCESSING FLAG SET V $ ( P LD A3,DWTRW,A6 READ/WRITE INDICATOR V T P RF(NZ) IH050 READ V P* V P EJECT DRFD01 V P* V P* V PIH010 EQU * V $ P LDR* A3,A1 ONE WORD FROM BUFFER V
0x4956f4…495888 Dummy {f00=0x0164, f01=0x018e, f02=» A2,0,CUADR CIO HALT V PIHDISP EQU * W P ABL TDISP GOTO DISPATCHER W 0 P* W R PIH050 EQU * W P INR A3,0,CUADR READ W p P RB(NA) IH005 W " P STR A3,A1 ONE WORD TO BUFFER W $ P ADK A1,2 UPDATE BUFFER POINTER W P SUK A2,2 W P RB(P)
0x495888…495a1c Dummy {f00=0x0164, f01=0x0190, f02=» P* X P EJECT DRFD01 X P* X & P* X 0 P IFT CHAN=0 X : P SST A3,CUADR STATUS X N P XIF X j P LD A8,DWTECB,A6 ECB ADDRESS X v " P LD A5,DWTA5,A6 STACK POINTER X P LDR A2,A3 STATUS X P SLL A2,1 X P RB(N) FDRE READY INTERRUPT
0x495a1c…495bb0 Dummy {f00=0x0164, f01=0x0190, f02=»LT, NOT OPERABLE X ~ P RF(Z) IH:10 RETURN CODE OK Y P ORK A3,4 Y < PIH:10 EQU * Y N P* Y b P EJECT DRFD01 Y l P* Y & P* TRANSFORM RETURN CODE, CU - ECB Y P* Y P ANKL A3,/FF37 Y P RF(Z) IH:80 Y P LDR A1,A3 Y " P ANKL A3,/
0x495bb0…495d44 Dummy {f00=0x0164, f01=0x0190, f02=»O Y x PIH:70 EQU * Z P LDR A4,A1 Z P ANKL A4,/0400 BIT 5 Z 0 P SLC A4,7 TO BIT 14 Z L P ORR A3,A4 Z h P* Z z P IFT TOSS+IBM=0 Z P LDR A4,A1 Z P ANKL A4,/2000 BIT 2 Z P SLL A4,1 TO BIT 1 Z P ORR A3,A4 Z P XIF Z P* Z
0x495d44…495ed8 Dummy {f00=0x0164, f01=0x018e, f02=» Z ~ P ORR A3,A1 [ , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE [ P ANKL A3,/F7FF [ J PIH:80 EQU * [ ` P LDR A1,A3 [ t P RTN A5 [ P* [ P EJECT DRFD01 [ P* [ 0 P******************************************* [ 0 P*
0x495ed8…49606c Dummy {f00=0x0164, f01=0x0190, f02=» 0 P******************************************* P* 8 P******* B P* * R P* BIO * b P* * r P******* P* P* INPUT: A8 ECB ADDRESS P* A4 ORDER P* > P* OUTPUT: A2 BITS 0-12 OF CONTRO
0x49606c…496200 Dummy {f00=0x0164, f01=0x0190, f02=»EQU * & P LD A1,DWTCW2,A6 GET SECTOR NUMBER ] ( P SLL A1,3 PUT IN RIGHT BIO POSITION ] 8 6 P LD A2,DWTSIO,A6 GET NUMBER OF SECTORS IN THIS IO ] d P SRC A2,2 ] P ORR A2,A1 COMPLETE BIO ] & P ADR A2,A4 COMPLETE BIO WITH ORDER ] " P LD A4,DWTBA,A
0x496200…496394 (5, 314) Dummy {f00=0x0164, f01=0x0190, f02=»************* ] P* * ^ P* BIOSQ * ^ 0 P* * ^ J P***************** ^ d P* ^ ~ P* INPUT: A8 ECB ADDRESS ^ P* A4 ORDER ^ P* ^ > P* OUTPUT: A2 BITS 0-12 OF CONTROL WORD USED BY CIO S
0x496394…496528 Dummy {f00=0x0164, f01=0x0190, f02=» IBM=1 ^ & P LD A2,ECBCW2,A8 GET SECTOR NUMBER _ ( P SLL A2,3 PUT IN RIGHT BIO POSITION _ 8 & P ADR A2,A4 COMPLETE BIO WITH ORDER _ d P* _ P IFT MMUPAG=0 _ & P LD A4,ECBBA,A8 GET BUFFER ADDRESS _ P XIF _ P* _ P IFT IBM=1 _ P IFT MMU
0x496528…4966bc Dummy {f00=0x0164, f01=0x0190, f02=» RTN A5 _ P XIF ` P* ` P EJECT DRFD01 ` & P* ` < P****************** ` F P* VO:NAM * ` ` P****************** ` z P* ` P* ` PVO:NAM EQU * ` P IFT TOSS+IBM=2 ` P LDK A3,36 LENGTH ` P XIF ` P* ` P IFT
0x4966bc…496850 Dummy {f00=0x0164, f01=0x0190, f02=»DKL A4,BUF READ TO BUFFER ` P CF A5,FD:REA a " P ANK A3,/17 FATAL ERROR a 8 P RF(NZ) VOL:40 a X P IFT IBM=1 a n P LD A2,BUF+32 a P CWK A2,'TO' a P RF(NE) VOL:10 IBM DISC a P LD A2,BUF+34 GET NEXT WORD a P CWK A2,'SS' a P RF(NZ
0x496850…4969e4 Dummy {f00=0x0164, f01=0x0190, f02=» DRFD01 a P* b P* b P IFT TOSS=1 b & P LDKL A2,BUF b : P IFT IBM=1 b N P RF VOL:20 b ` P XIF b r P* b ~ P IFT IBM=1 b PVOL:10 EQU * b P LDK A3,10 LENGTH b P LDK A2,/30 BIO b P LDKL A4,BUF READ TO BUFFER b P CF
0x4969e4…496b78 Dummy {f00=0x0164, f01=0x0190, f02=» , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE c P LDK A7,10 NO OF CHARACTERS c 4 2 P CF A5,ASCII TRANSFER IBM VOLUME NAME TO ASCII c X 0 P LDKL A2,BUF+4 START ADDRESS OF VOLUME NAME c P XIF c P* c P EJECT DRFD01 c P* c P* c PVOL:
0x496b78…496d0c Dummy {f00=0x0164, f01=0x0190, f02=»L A3,/8000 INDICATE NO NEW NVL SET c PVOL:30 EQU * d * . P CF A15,VOLGET VOLUME NAME TO DWT SET NVL d > P LD A8,DWTECB,A6 d p P LDK A3,0 d PVOL:40 EQU * d P RTN A5 d P XIF d P* d P IFT IBM=1 d P EJECT DRFD01 d P* d P
0x496d0c…496ea0 Dummy {f00=0x0164, f01=0x0190, f02=» ASCII CODE d . P* INPUT STRING ADDRESS IS BUF e & P* INPUT: A7 NO OF CHARACTERS e H P* A4 = BUFFER ADDRESS e r P* OUTPUT: A1 CHANGED e P* A4 = BUFFER ADDRESS e P* A7 CHANGED e P* e PASCI
0x496ea0…497034 (5, 315) Dummy {f00=0x0164, f01=0x0190, f02=» A4,A7 e PASC:10 EQU * f P SUK A4,1 f " P LCR A1,A4 EBCDIC CHARACTER f 4 P ANK A1,/FF f X ( P LC A1,TASCII,A1 TRANSFORM TO ASCII f l 0 P SCR A1,A4 PUT ASCII CHAR. IN OUTPUT BUFFER f P SUK A7,1 f P RB(P) ASC:10 f P RF EBC:90 f P*
0x497034…4971c8 Dummy {f00=0x0164, f01=0x0190, f02=»ES A STRING FROM ASCII TO f r P* EBCDIC CODE g " 8 P* OUTPUT STRING IS PUT IN DRIVER BUFFER g D P* g & P* INPUT: A7 NO OF CHARACTERS g P* A4 = BUFFER ADDRESS g P* g P* OUTPUT: A1 CHANGED g P*
0x4971c8…49735c Dummy {f00=0x0164, f01=0x018e, f02=»BUFFER ADDRESS g | P XIF h P* h " P IFT IBM=1 h , P ADR A4,A7 h > PEBC:10 EQU * h P P SUK A4,1 h d P LCR A1,A4 GET ASCII CHAR. h v P ANK A1,/FF h P LC A1,TEBCDIC,A1 h P SC A1,BUF-1,A7 h P SUK A7,1 h P RB(P) EBC:10 h & P L
0x49735c…4974f0 Dummy {f00=0x0164, f01=0x0190, f02=» h ~ P* i P********** i P* LOGSEC * i $ P********* i 6 P* i H @ P* FUNCTION: LOGSEC TRANSFORMS PHYSICAL SECTOR TO STANDARD i R , P* LOGICAL SECTOR (BINARY). i < P* FORMAT OF PHYS. SEC. TT0SS (EBCDIC CODE) i * P*
0x4974f0…497684 Dummy {f00=0x0164, f01=0x0190, f02=»SECTOR NO i x . P* A4 ADDRESS TO PHYS. SEC. + 4 j P* j D PLOGSEC EQU * j N P CF A5,DECBIN j b P LDR A3,A1 SAVE j x P ADK A4,2 j P* j P* MULTIPLY BY 26 j P* j P SLL A3,5 *32 j P LDR A2,A1 j P SLL A2,2 j
0x497684…497818 Dummy {f00=0x0164, f01=0x018e, f02=»CT DRFD01 j P* k P* CHECK SECTOR NO k P* k 8 P LDR A1,A3 k B P SUK A1,25 k T P RF(NP) LOG:10 k f P CWK A4,BUF+EOD+4 EOD k | P RF(E) LOG:02 YES! k P SUKL A1,1898 k P RF LOG:04 k P* k " P* CHECK EOD LESS/EQUAL 74001 k
0x497818…4979ac Dummy {f00=0x0164, f01=0x0190, f02=» P RTN A5 l P* l P* FATAL ERROR l P* l 4 ( PLOG:05 ADK A5,4 ADJUST STACK POINTER l > " PLOG:10 LDK A1,/10 RETURN CODE l j , P ORRS A1,A6 UPDATE TEMPORARY RETURN CODE l P INH INHIBIT INTERRUPTS l P ABL LOA:90 ERROR ROUTINE l P* l
0x4979ac…497b40 Dummy {f00=0x0164, f01=0x0190, f02=»O EBCDIC CODED DIGITS TO l n D P* BINARY. RANGE OF EBCDIC CODE /F0 - /F9 IS CHECKED m , P* INPUT: A4 ADDRESS TO FIRST DIGIT m h P* OUTPUT: A1 BINARY m P* WORKING REG: A2,A7 m P* m PDECBIN LDK A1,0 m P LDK A7,2 m
0x497b40…497cd4 (5, 316) Dummy {f00=0x0165, f01=0x0190, f02=» m x P ADK A2,9 n P SUK A7,1 n P RF(Z) DEC:30 n , & P ADK A4,1 ADDRESS TO SECOND DIGIT n B PDEC:20 SUK A2,1 n l P RB(N) DEC:10 NEXT DIGIT n P ADK A1,/A MULTIPLY BY 10 n P RB DEC:20 n PDEC:30 ADR A1,A2 n P RTN A5 n P XIF n
0x497cd4…497e68 Dummy {f00=0x0165, f01=0x018e, f02=»NO IN CIO INSTRUCTION n x P* o 8 P* INPUT: A3 DRIVE NO , (BITS 0-13 MUST BE ZEROES o ( P* o d P* OUTPUT: A3 CHANGED o n P* A4 CHANGED o P* o PSETCIO LDKL A4,/FFCF o P ANS A4,FD:CIO o P SLL A3,4 o P ORS A3,FD:CIO o
0x497e68…497ffc Dummy {f00=0x0165, f01=0x0190, f02=» P* p : P* FUNCTION: BINDEC TRANSFORMS A BINARY NUMBER TO TWO p 0 P* EBCDIC-CODED DIGITS (DECIMAL) p L P* p P* INPUT: A7 BINARY NUMBER p P* p . P* OUTPUT: A3 EBCDIC CODED DECIMAL DIGITS p P* A7 CHANGED p P
0x497ffc…498190 Dummy {f00=0x0165, f01=0x0190, f02=» P SLL A3,8 q * P ORR A3,A7 DECIMAL CONVERTED NO IN A3 q P ORKL A3,/F0F0 EBCDIC CODED q D P RTN A5 q h P* q x P EJECT DRFD01 q P********* q P* DSLIO * q P********* q P* q 4 P* FUNCTION: PREPARE FOR READING DATA SET LAB
0x498190…498324 Dummy {f00=0x0165, f01=0x0190, f02=» A3 128 q ( P* A4 DRIVER BUFFER ADDRESS r P* A6 DWT ADDRESS r > P* A1 IS CHANGED r ` P* r PDSLIO LDK A1,DWTDSS r P CF A5,DSPAD r P LDR* A2,A2 r P SLL A2,3 r P LDK A3,128 r P LDKL A4,BUF r
0x498324…4984b8 Dummy {f00=0x0165, f01=0x018e, f02=»N: GET EOD-NO AND EOD-NO ADDRESS IN DWT r P* s 0 P* INPUT: A6 DWT ADDRESS s : P* s P* OUTPUT: A2 EOD ADDRESS s f , P* A7 EOD-NO (0=NOT OPEN) s P* A1 CHANGED s PDSOPCH LDK A1,DWTEOD s P CF A5,DSPAD s P L
0x4984b8…49864c Dummy {f00=0x0165, f01=0x018e, f02=» P* t 2 P* FUNCTION: GET ABSOLUTE ADDRESS OF SPECIFIED t 6 P* TYPE OF DATA FOR CORRESPONDING DRIVE t D P* t ~ P* INPUT: A1 DWT OFFSET t P* A6 DWT ADDRESS t P* t " P* OUTPUT: A2 ADDRESS TO DATA t P* A
0x49864c…4987e0 Dummy {f00=0x0165, f01=0x0190, f02=» t P RTN A5 u P* u P EJECT DRFD01 u " P* u : P********* u D P* STDWT * u V P********* u h P* u z : P* FUNCTION: STORE INPUT WORD IN DWT-AREA DEPENDING OF u P* DRIVE NO u P* u ( P* INPUT: A1 OFFSET TO DWT
0x4987e0…498974 (5, 317) Dummy {f00=0x0165, f01=0x0190, f02=» u v 0 P* A2 ADDRESS TO WORD IN DWT AREA v P* A3 UNCHANGED v < P* A6 UNCHANGED v ^ P* v PSTDWT EQU * v P CF A5,DSPAD v P STR A3,A2 v P RTN A5 v P XIF v P* v P EJECT DRFD01 v P* v
0x498974…498b08 Dummy {f00=0x0165, f01=0x018e, f02=»OSS=1 v P IFT IBM=0 w " P DATA 0,0,0 VOLUME NAME BUFFER w P IFT MMUPAG+CHAN=2 w F P RES DVBLEN-3 MMU BUFFER w ` P XIF w P* w P IFT TOSS+IBM=0 w P IFT MMUPAG+CHAN=2 w P RES DVBLEN MMU BUFFER w P XIF w P* w P EJECT DRF
0x498b08…498c9c Dummy {f00=0x0165, f01=0x0190, f02=» w x P********************* x P* x & PDWFD01 EQU * x 0 ( PDWTRCW EQU *-DWFD01 TEMP RETURN CODE x D P DATA 0 x p P DATA /8000 DWT STATUS x P DATA 0 ECB ADDRESS x P DATA 0 ORDER x " P DATA FDADR ACTIVATION ADDRESS x P DATA 0 TTAB-ADDRE
0x498c9c…498e30 Dummy {f00=0x0165, f01=0x0190, f02=»CB ADDRESS x x DATA DEVECB MMU ECB ADDRESS y XIF y 6 P* y B PDWTA3 EQU *-DWFD01 y L P DATA 0 y f P DATA 0 SAVE AREA y v P DATA 0 y P DATA 0 y " P DATA 0,0,0,0 STACK (3 LEVELS) y P DATA 0 ORDER SAVE AREA y P* y P EJECT
0x498e30…498fc4 Dummy {f00=0x0165, f01=0x0190, f02=»A /8000 NVL INDICATOR 2 y P DATA /8000 NVL INDICATOR 3 z ( PDWTVO0 EQU *-DWFD01 VOLUME NAME NO 0 z D P DATA /FFFF,/FFFF,/FFFF z p ( PDWTVO1 EQU *-DWFD01 VOLUME NAME NO 1 z P DATA /FFFF,/FFFF,/FFFF z ( PDWTVO2 EQU *-DWFD01 VOLUME NAME NO 2 z P
0x498fc4…499158 Dummy {f00=0x0165, f01=0x0190, f02=»TUS WORD z t P DATA 0 { P XIF { PDWTA5 EQU *-DWFD01 { , P DATA 0 { F * PDWTRTY EQU *-DWFD01 RETRY REQUEST FLAG { V P DATA 0 { $ PDWTTP EQU *-DWFD01 TIMER POINTER { P DATA 0 { P* { P EJECT DRFD01 { P* { P* { P IFT I
0x499158…4992ec Dummy {f00=0x0165, f01=0x0190, f02=»R { j P DATA 0 | P* | P IFT OPCLOS=1 | $ . PDWTTP2 EQU *-DWFD01 TIMER POINTER FOR OPEN | : P DATA 0 | l 4 PDWTOCF EQU *-DWFD01 OPEN/CLOSE FLAG AT POWER ON | | P DATA 0 | P XIF | P* | P EJECT DRFD01 | P* | P* | P I
0x4992ec…499480 Dummy {f00=0x0165, f01=0x0190, f02=» P DATA 0 } , PDWTRW EQU *-DWFD01 READ/WRITE INDICATOR } P DATA 0 } D P XIF } T P* } ` P IFT IBM=1 } j , PDWTBOE EQU *-DWFD01 BEGINNING OF EXTENT } | P DATA 0,0,0,0 } $ PDWTEOD EQU *-DWFD01 END OF DATA } P DATA 0,0,0,0 } & PDWTEOE E
0x499480…499614 (5, 318) Dummy {f00=0x0165, f01=0x0190, f02=»-DWFD01 DATA SET LABEL SECTOR } P DATA 0,0,0,0 ~ & P XIF ~ < P* ~ H P EJECT DRFD01 ~ R P* ~ j P* ~ t & PDWTBA EQU *-DWFD01 BUFFER POINTER ~ ~ P DATA 0 ~ ( PDWTRL EQU *-DWFD01 LENGTH IN SUB IO ~ P DATA 0 ~ & PDWTCW2 EQU *-DWFD01
0x499614…4997a8 Dummy {f00=0x0165, f01=0x0190, f02=»CTORS IN SUB IO ~ p P DATA 0 P* ( P IFT IBM+TOSS=2 2 & PDWTFIB EQU *-DWFD01 IBM INDICATOR J P DATA 0 t P XIF P* P EJECT DRFD01 P* P* P IFT MMUPAG=1 PDWT:BF EQU *-DWFD01 $ P DATA 0 SAVE ARE
0x4997a8…49993c Dummy {f00=0x0165, f01=0x4132, f02=»0 6 BIT PHYSICAL BUFFER ADDRESS P DATA 0 SECOND MMU ENTRY ( P* H PDWT:LA EQU *-DWFD01 R * P DATA 0 16 BIT LOGICAL BUFFER ADDRESS n P XIF P* P IFT MMUPAG=1 PDEVECB EQU * P DATA 0,0,0,0,0,0,0 P XIF P*
0x49993c…499ad0 Dummy {f00=0x0165, f01=0x2008, f02=» END @
0x499ad0…499c64 Dummy {f00=0x0165, f01=0x0190, f02=»EGISTER l 2 P WER A4,MUXLP+1 SECOND WRITE EXTERNAL REGISTER P XIF F P* R P IFT CHAN=1 ( P ST A4,DWTA3,A6 SAVE BUFFER ADDRESS p P ADR A4,A2 . P ST A4,DWTA4,A6 SAVE BUFFER END ADDRESS+1 P XIF P* P LD A1,PFPOST
0x499c64…499df8 Dummy {f00=0x0165, f01=0x0190, f02=»* P EJECT DRLP01 P* " P* , P* RECOVERY ROUTINE 6 P* T P* ^ PLPON EQU * h P IFT CPU852=1 z & P CF A15,SAVE8 SAVE A1-A8 ON STACK P XIF P* P IFT CPU852=0 " P MSR 8,A15 SAVE A1-A8 ON STACK
0x499df8…499f8c Dummy {f00=0x0165, f01=0x018e, f02=»T LP FREE P RF IHLP30 P* $ P EJECT DRLP01 . P* F P* P P* I N T E R R U P T Z P* x P* PIHLP EQU * $ P ST P,INTSAV SAVE LAST INTERRUPT P IFT CHAN=0 P IFT CPU852=1 & P CF A15,SAVE8 SAVE A1-A8
0x499f8c…49a120 Dummy {f00=0x0165, f01=0x0190, f02=» P IFT CHAN=1 P STR A1,A15 P STR A2,A15 0 P LDKL A2,DWLP01 DWT-ADDRESS D 2 P LD A1,DWTA3,A2 POINTER AT NEXT BYTE IN BUFFER h P LCR A2,A1 NEXT BYTE " P OTR A2,0,DWALP WRITE ONE BYTE P RF(NA) IHLP20 NOT ACCEPTED P LDK
0x49a120…49a2b4 (5, 319) Opaque[0x194]
0x49a2b4…49a448 # DirEnt {nam=»EBCDIC«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2cd8, f03=0x0000}
0x49a2b4…49a448 IdxSect {
0x49a2b4…49a448 f00 = 0x0166 // 0x49a2b4 @0x0
0x49a2b4…49a448 f01 = 0x0004 // 0x49a2b6 @0x2
0x49a2b4…49a448 gno = [ // 0x49a2b8 @0x4
0x49a2b4…49a448 [0x00]: C0x0166.0x3.0
0x49a2b4…49a448 [0x01]: C0x0167.0x0.0
0x49a2b4…49a448 ]
0x49a2b4…49a448 }
0x49a448…49a5dc Dummy {f00=0x0166, f01=0x0190, f02=» 2 P IDENT EBCDIC REL 10.0 80-03-14 870105041000 P : P* B 4 P************************************************ L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* $ P* EBCDIC = EBCDIC/ASCII TABLE P* P* P* P*
0x49a5dc…49a770 Dummy {f00=0x0166, 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*
0x49a770…49a904 Dummy {f00=0x0166, 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,
0x49a904…49aa98 Dummy {f00=0x0166, 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
0x49aa98…49ac2c Dummy {f00=0x0166, 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
0x49ac2c…49adc0 Dummy {f00=0x0166, 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
0x49adc0…49af54 (5, 320) Dummy {f00=0x0167, 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
0x49af54…49b0e8 Dummy {f00=0x0167, 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,/0000 78-7F 4 P DAT
0x49b0e8…49b27c Dummy {f00=0x0167, f01=0x2008, f02=» NT EBCASC TESTVERSION 1 END (@ 4
0x49b27c…49b410 Dummy {f00=0x0167, f01=0x0190, f02=» P* ! & P LDK A4,1 WRITE DELETED DATA ORDER ! & PFD:013 EQU * PHYSICAL WRITE ORDER ! 8 P ADK A4,4 ! b " PFD:015 EQU * BASIC WRITE ORDER ! t P ADK A4,1 ! " P CF A5,BIO PREPARATION FOR CIO ! P* ! P IFT MMUPAG=1 ! P IFT CHAN=0 ! P I
0x49b410…49b5a4 Dummy {f00=0x0167, f01=0x0190, f02=» ! 4 P LD A1,DWT:LA,A6 GET FLAG/LOGICAL BUFFER ADDRESS " ( P RF(Z) FD:019 BUFFER IN SYSTEM AREA " @ P LDR A7,A3 REQUESTED LENGTH " l P LDR A8,A2 SAVE A2 " & P LDKL A4,BUF DRIVER BUFFER ADDRESS " P LDR A2,A4 " & P TS -30,A15 SAVE RUNNING TASK MMU
0x49b5a4…49b738 Dummy {f00=0x0167, f01=0x0190, f02=»TACK " r P LDR A2,A8 RESTORE A2 # 0 P CM BUFFLG,A6 INDICATE BUFFER IN SYSTEM AREA # * PFD:019 EQU * # ^ P XIF # r P* # ~ P IFT TOSS+IBM=2 # P LD A1,DWTFIB,A6 # P RF(Z) FD:018 NOT IBM # P XIF # P* # P IFT IBM=1 # , P LDR A7,A3
0x49b738…49b8cc Dummy {f00=0x0167, f01=0x0190, f02=»* # " P CF A5,FD:WRITE PERFORME WRITE $ * P ANKL A3,/200 CHECK IF WRITE PROTECTED $ 0 P RF(Z) FD:020 $ ^ P LDK A3,/40 INDICATE ERROR $ t , P ORRS A3,A6 UPDATE TEMPORARY RETURN CODE $ PFD:020 EQU * $ P RF FD:100 GOTO FDMSIO $ P* $ P EJECT
0x49b8cc…49ba60 Dummy {f00=0x0167, f01=0x0190, f02=»************* $ P* % PFD:060 CF A5,BIO % P* % 8 P IFT MMUPAG=1 % B P IFT CHAN=0 % X P IFT TOSS+IBM=2 % l P LD A1,DWTFIB,A6 % P RF(Z) FD:070 TOSS DISC % & P LDKL A4,BUF DRIVER BUFFER ADDRESS % 0 P CM BUFFLG,A6 INDICATE BUFFER IN S
0x49ba60…49bbf4 (5, 321) Opaque[0x194]
0x49bbf4…49bd88 # DirEnt {nam=»TIMER «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2600, f03=0x0000}
0x49bbf4…49bd88 IdxSect {
0x49bbf4…49bd88 f00 = 0x0130 // 0x49bbf4 @0x0
0x49bbf4…49bd88 f01 = 0x0006 // 0x49bbf6 @0x2
0x49bbf4…49bd88 gno = [ // 0x49bbf8 @0x4
0x49bbf4…49bd88 [0x00]: C0x0130.0x0.0
0x49bbf4…49bd88 [0x01]: C0x0130.0x1.0
0x49bbf4…49bd88 [0x02]: C0x0130.0x2.0
0x49bbf4…49bd88 ]
0x49bbf4…49bd88 }
0x49bd88…49bf1c Dummy {f00=0x0130, f01=0x0190, f02=» 0 P IDENT TIMER REL 10.0 80-03-14 870105041000 P 8 P* @ P* J 8 P*************************************************** T P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TIMER = TIMER FUNCTIONS P* P* P*
0x49bf1c…49c0b0 Dummy {f00=0x0130, f01=0x0190, f02=»AINS TIMER LKM PROCESSORS AND | " P* THE FOLLOWING SUBROUTINES: & P* L * P* -SETIME: SET BLOCK IN TIMER QUEUE V . P* -SETIMP: SETIME + STORE TIMER POINTER P* P* P EJECT TIMER P* P* P*********** P
0x49c0b0…49c244 Dummy {f00=0x0130, f01=0x0190, f02=» . P ENTRY SETIMP SETIME + STORE TIMER POINTER P EJECT TIMER 6 P* L P* V P*********** ` P* EXTRNALS * t P************ P* P* P EXTRN TDISP DISPATCHER . P EXTRN LKMQDI QUEUE TERMINAL AND DISPATCH $ P EXTRN
0x49c244…49c3d8 Dummy {f00=0x0130, f01=0x0190, f02=»DRESS v , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * P EXTRN SAVE8 SAVE 8 REGISTERS ON STACK > 8 P EXTRN TIMQUE POINTER TO FIRST BLOCK IN TIMER QUEUE l 0 P EXTRN IHRET8 RESTORE 8 REGISTERS FROM STACK P EJECT TIMER P* P* . P**
0x49c3d8…49c56c Dummy {f00=0x0130, f01=0x0190, f02=»*** j P* 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P P* PCPU852 EQU 1 P* P EJECT TIMER P* P* P* T I M E R P* ( P* THIS IS THE TIME
0x49c56c…49c700 Dummy {f00=0x0130, f01=0x018e, f02=»AM DELAY P* P* A4 = 0 P* A5 = TTAB ADDRESS , P* A8 = DELAY J P* ` P* j P* 2. TIMING AND ACTIVATION t P* P* A1 = PARAMETER 8 P* A4 = DISPATCH ADDRESS OF PROGRAM TO BE ACTIVATED , P* A5 = TTAB AD
0x49c700…49c894 (5, 322) Dummy {f00=0x0130, f01=0x0190, f02=» PTIMER EQU * P ADK A4,0 SET CR ( P RF(NZ) TIM010 TIMING AND ACTIVATION 4 P* ` P EJECT TIMER j P* P* PROGRAM DELAY P* P LDR A1,A5 SET PARAMETER P ST A8,PAR1+2 SET TIME P CF A15,SETIME PPAR1 D
0x49c894…49ca28 Dummy {f00=0x0130, f01=0x0190, f02=»10 EQU * $ P CF A15,FNDTID FIND TTAB ADDRESS P ADK A2,0 SET CR 8 " P ABL(Z) LKMRQE TTAB NOT FOUND P ( P LDR A3,A2 IN BLOCK: A3=TTAB ADDRESS v , P LDR A2,A4 A2=DISPATCH ADDRESS ( P CF A15,GETBLK A1=PARAMETER . P LDR A1,A4
0x49ca28…49cbbc Dummy {f00=0x0130, f01=0x0190, f02=»QU * P ABL LKMQDI P* P EJECT TIMER * P* @ P* J P* RETURN AFTER TIME OUT T P* v P* 1.PROGRAM DELAY P* PDELAY EQU * P LDR A5,A1 SET TTAB ADDRESS * P RB QUEDIS QUEUE TASK FOR DISPATCHING
0x49cbbc…49cd50 Dummy {f00=0x0130, f01=0x0190, f02=»ET IT FREE | P LDR A5,A3 SET TTAB ADDRESS * P ABL ACTDIS ACTIVATE TASK AND DISPATCH 6 P* d P EJECT TIMER n P* P* " P* S E T I M E , S E T I M P P* . P* SUBROUTINE TO SET BLOCK IN TIMER QUEUE , P* AND IF SET
0x49cd50…49cee4 Dummy {f00=0x0130, f01=0x0190, f02=»POINTER ADDRESS v , P* P1 = DISPATCH ADDRESS AFTER TIME OUT P* P2 = DELAY H P* ^ : P* P1 AND P2 ARE STORED AFTER THE SUBROUTINE REQUEST. h P* P* EXIT PARAMETER:- P* P* A4 = ADDRESS TO TIMER P* P*
0x49cee4…49d078 Dummy {f00=0x0130, f01=0x0190, f02=» XIF P* P IFT CPU852=0 P INH , " P MSR 8,A15 SAVE A1-A8 ON STACK 8 P XIF ^ P* j P EJECT TIMER t P* P* * P LDR A6,A4 SAVE TIMER POINTER ADDRESS P LDR A3,A4 . P LD A5,20,A15 LOAD FIRST PARAMETER ADDRESS
0x49d078…49d20c Dummy {f00=0x0130, f01=0x0190, f02=» PROGRAM COUNTER | $ P CF A15,GETBLK GET A FREE BLOCK P LDR A2,A4 @ P C1R A1,A8 R " P CF A15,GETBLK GET TIMER BLOCK d P LD A1,TIMQUE " P STR A1,A4 SET BLOCK IN QUEUE P ST A4,TIMQUE P ADK A4,4 0 P ST A4,10,A15 SET TIMER AD
0x49d20c…49d3a0 Dummy {f00=0x0130, f01=0x412e, f02=»CT TIMER P* P* PSETEND EQU * & P IFT CPU852=1 : ( P ABL IHRET8 RESTORE A1-A8 AND RETURN P P XIF | P* P IFT CPU852=0 * P MLR 8,A15 RESTORE A1-A8 FROM STACK... P RTN A15 ...AND RETURN P XIF P*
0x49d3a0…49d534 (5, 323) Dummy {f00=0x0130, 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
0x49d534…49d6c8 Dummy {f00=0x0130, f01=0x0190, f02=» F P* ! -RELOCATE ALL W.B.-ADDRESSES IN DDIV-PROTOTYPE. ! F P* ! -REMOVE NOT USED ENTRIES IN T:ATAB ! N F P* ! -RELOCATE ADDRESSES IN U:BTAB ! F P* ! -MOVE SYSLDA (NOT PART 1
0x49d6c8…49d85c Dummy {f00=0x0130, f01=0x0190, f02=» PART 2.A ! v F P* !-----------------------------------------------------! 0 P EJECT z P P ***************** P ***************** P ** ** P ** CONSTANTS ** P **
0x49d85c…49d9f0 Dummy {f00=0x0130, f01=0x0190, f02=»** PT:ATAB EQU 0 PU:BTAB EQU 2 PP:BAS EQU 6 SEGMENT BASE 2 . PT:AID EQU 32 ADDRESS TO 'TABLE OF T:A TID' R ( PS:BTAB EQU 40 DISP TO S:BTAB ADDRESS , PI:RSTE EQU 42 INTERPRETER RESTART ENTRY P P P********** P* U:BT
0x49d9f0…49db84 Dummy {f00=0x0130, f01=0x0190, f02=»TOTYPE NAME 8 PUPNUMB EQU 7 SAVE AREA NUMBER OF COPIES (SHADOW-TBL) P* P . PUR:REC EQU 6 RECORD LENGTH IN REAL U:BTAB Z * PURADDR EQU 2 ADDRESS TO FIRST REAL UWB PURNUMB EQU 4 NUMBER OF UWB'S PURLENG EQU 6 LENGTH OF UWB P EJECT
0x49db84…49dd18 Dummy {f00=0x0130, f01=0x0190, f02=»***************** P P* TASK DEFINITION BLOCK: & PTDBBT EQU 0 1A BLOCK TYPE F ( PTDBNT EQU TDBBT+1 2N NUMBER OF TASKS h , PTDBID EQU TDBNT+2 6A TASK ID START VALUE , PTDBMC EQU TDBID+6 6A MATCHING TASK CLASS $ PTDBTL EQU TDBMC+6 6A
0x49dd18…49deac Dummy {f00=0x0130, f01=0x0190, f02=»C EQU 7 TERMINAL DEVICE CLASS PTLC EQU 6 LINE CONNECTION & ( PTDBREC EQU TDC+TLC TDB-RECORD LENGTH H P* t * PSDC EQU 7 SPECIAL DEVICE CLASS-RECORD ~ P* P* COMMON DEVICE DEF. BLOCK: PCDBBT EQU 0 1A BLOCK TYPE 6 PCDBNC EQU CD
0x49deac…49e040 Dummy {f00=0x0130, f01=0x0190, f02=». BLOCK v PUDBBT EQU 0 1A BLOCK TYPE , PUDBNU EQU UDBBT+1 3A NUMBER OF UWB TYPES 2 P* b ( PUDBFST EQU UDBNU+3 FIRST UDB-RECORD l PNAMUWB EQU 3 NAME OF UWB " PNUMUBL EQU 3 NUMBER OF BLOCKS . PUDBREC EQU NAMUWB+NUMUBL UDB RECORD-LENGTH
0x49e040…49e1d4 (5, 324) Opaque[0x194]
0x49e1d4…49e368 # DirEnt {nam=»TABORT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2590, f03=0x0000}
0x49e1d4…49e368 IdxSect {
0x49e1d4…49e368 f00 = 0x012c // 0x49e1d4 @0x0
0x49e1d4…49e368 f01 = 0x0004 // 0x49e1d6 @0x2
0x49e1d4…49e368 gno = [ // 0x49e1d8 @0x4
0x49e1d4…49e368 [0x00]: C0x012c.0x2.0
0x49e1d4…49e368 [0x01]: C0x012c.0x3.0
0x49e1d4…49e368 ]
0x49e1d4…49e368 }
0x49e368…49e4fc Dummy {f00=0x012c, f01=0x0190, f02=» 2 P IDENT TABORT REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* " P* TABORT = ABORT I/O REQUEST P* P* P*
0x49e4fc…49e690 Dummy {f00=0x012c, f01=0x0190, f02=»AINS THE | ( P* ABORT I/O REQUEST LKM PROCESSOR. P* < P* F P EJECT TABORT P P* h P* r P*********** | P* ENTRIES * P*********** P* P* P ENTRY TABORT P EJECT TABORT P* P*
0x49e690…49e824 Dummy {f00=0x012c, f01=0x0190, f02=» DWTST DWT STATUS & P EXTRN DWTADR DRIVER ADDRESS BLOCK & P EXTRN DWTTAB TTAB ADDRESS IN DWT D 0 P EXTRN DWTWAT WAIT ACTIVATE INDICATOR IN DWT n " P EXTRN DWTECH ECHO DEVICE DWT ( P EXTRN ABTADR ABORT ROUTINE ADDRESS P EXTRN TENDIO END I/
0x49e824…49e9b8 Dummy {f00=0x012c, f01=0x0190, f02=» TABORT P* P* . P***************************************** & P* X P* CONDITIONAL ASSEMBLY b P* . P***************************************** P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY
0x49e9b8…49eb4c Dummy {f00=0x012c, f01=0x0190, f02=»BORT * P********** P* P* * 4 P* THIS IS THE ABORT I/O REQUEST LKM PROCESSOR. 4 P* l * P* IT IS ENTERED FROM THE LKM HANDLER v & P* WITH THE FOLLOWING PARAMETERS: P* P* A5 = TTAB ADDRESS P* A8 = ECB ADDRE
0x49eb4c…49ece0 Dummy {f00=0x012c, f01=0x0190, f02=»AT MADE THE I/O REQUEST. THUS I/O WITH WAIT CAN P* NOT BE ABORTED. 8 P* T P* ^ PTABORT EQU * h P IFT MMUPAG=0 | & P LDR* A3,A8 GET FIRST WORD OF ECB P XIF P* P IFT MMUPAG=1 $ P ELR A3,A8 GET FIRST WORD OF ECB
0x49ece0…49ee74 (5, 325) Dummy {f00=0x012c, f01=0x0190, f02=» P RF(Z) TABOER DWT UNKNOWN P* & P EJECT TABORT 0 P* H P* R P CW A5,DWTTAB,A6 P RF(NE) TABOER ILLEGAL TASK t P LD A7,DWTST,A6 " P RF(N) TABOER DEVICE NOT BUSY P SLC A7,2 $ P RF(NN) TABO20 NOT ECHO REQUEST
0x49ee74…49f008 Dummy {f00=0x012c, f01=0x018e, f02=»RESS BLOCK f 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TABO10 NO SPECIAL ABORT ROUTINE N & P CFR A15,A2 PERFORM ABORT ROUTINE | P* PTABO10 EQU * $ P CF A15,TENDIO ABORT ECHO DEVICE P LDR A6,A8 RESTORE DWT
0x49f008…49f19c Dummy {f00=0x012c, f01=0x018e, f02=» : P CF A15,FREBLK I/O AND ACTIVATE. FREE DISPATCHER BLOCK " P CM DWTWAT,A6 INDICATE NO WAIT B P* h PTABO30 EQU * r 8 P LD A2,DWTADR,A6 GET ADDRESS TO DRIVER ADDRESS BLOCK 8 P LD A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x49f19c…49f330 Dummy {f00=0x012c, f01=0x40c4, f02=» t P CF A15,TENDIO ABORT 0 P ABL LKMQDI QUEUE TASK AND GO TO DISPATCHER $ P* X 0 PTABOER ABL LKMRQE GO AND INDICATE LKM ERROR b P* P* P* P END @ D A2,ABTADR,A2 GET ABORT ROUTINE ADDRESS (IF ANY) * P RF(Z) TAB
0x49f330…49f4c4 Dummy {f00=0x012c, f01=0x2008, f02=»
0x49f4c4…49f658 Dummy {f00=0x012c, f01=0x0190, f02=» v P* PSYSBAS EQU * PSAVCON DATA BUFLEN & 2 PMXBUF DATA 0 DISC/FLEXIBLE DISC BUFFER ADDRESS @ PSAVMEM DATA 0 SAVE AREA v & PCYLNBR DATA /FFFF CYLINDER NUMBER ( PSECNBR DATA 0 PHYSICAL SECTOR NUMBER " PDEVTAB DATA /1909,/1101,/082
0x49f658…49f7ec Dummy {f00=0x012c, f01=0x0190, f02=»***** T F P* CALL-FORMAT, PERFORMS: CFR A14,A13 * F P* DATA [REL-ADDRESS] * X F P* * F P****************************
0x49f7ec…49f980 Dummy {f00=0x012c, f01=0x0190, f02=»**************** P* CONDITIONAL ASSEMBLY * P************************** : 0 PCASS EQU 1 1-PROGRAM LOAD DEVICE = CASSETTE , PDISC EQU 1 1-PROGRAM LOAD DEVICE = DISC 8 PFLDISC EQU 1 1-PROGRAM LOAD DEVICE = =FLEXIBLE DISC 8 PMFDISC EQU 1
0x49f980…49fb14 (5, 326) Opaque[0x194]
0x49fb14…49fca8 # DirEnt {nam=»MONTIM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2640, f03=0x0000}
0x49fb14…49fca8 IdxSect {
0x49fb14…49fca8 f00 = 0x0132 // 0x49fb14 @0x0
0x49fb14…49fca8 f01 = 0x0006 // 0x49fb16 @0x2
0x49fb14…49fca8 gno = [ // 0x49fb18 @0x4
0x49fb14…49fca8 [0x00]: C0x0132.0x0.0
0x49fb14…49fca8 [0x01]: C0x0132.0x1.0
0x49fb14…49fca8 [0x02]: C0x0132.0x2.0
0x49fb14…49fca8 ]
0x49fb14…49fca8 }
0x49fca8…49fe3c Dummy {f00=0x0132, f01=0x0190, f02=» 2 P IDENT MONTIM REL 10.0 80-03-14 870105041000 P : P* B P* L < P******************************************************* V P* $ P* PHILIPS TERMINAL SYSTEM PTS P* * P* MONTIM = MONITOR CLOCK PROCESSORS P*
0x49fe3c…49ffd0 Dummy {f00=0x0132, f01=0x0190, f02=»* THIS MODULE CONTAINS TOSS MONITOR CLOCK PROCESSORS P* @ 0 P* -GETTIM GET TIME FROM MONITOR CLOCK J P* ~ . P* -SETTIM SET TIME IN MONITOR CLOCK P* P EJECT MONTIM P* P* P*********** P* EN
0x49ffd0…4a0164 Dummy {f00=0x0132, f01=0x0190, f02=»TOR CLOCK r P EJECT MONTIM P* * P* 4 P************* > P* EXTERNALS * T P************* j P* P* P EXTRN MONCLO MONITOR CLOCK * P EXTRN LKMQDI QUEUE TASK AND DISPATCH P EXTRN TTB:SA TTAB SAVE AREA
0x4a0164…4a02f8 Dummy {f00=0x0132, f01=0x0190, f02=»* . P***************************************** P* < . P* A PROGRAM VERSION USING TOSS MMU PAGING F * P* IS OBTAINED BY SETTING MMUPAG EQU 1. x P* PMMUPAG EQU 0 P* P EJECT MONTIM P* P* P* G E T T I
0x4a02f8…4a048c Dummy {f00=0x0132, f01=0x0190, f02=»ADDRESS TO THE USER TIMER CONTROL 2 P* BLOCK IN A8. MONITOR CLOCK IS COPIED INTO * P* TIMER CONTROL BLOCK. ` P* P* PGETTIM EQU * 6 P LDKL A7,MONCLO+6 ADDRESS TO MONITOR CLOCK SECOND P LDK A3,6 COUNTER P LDR* A6,A
0x4a048c…4a0620 Dummy {f00=0x0132, f01=0x0190, f02=» A7,2 P LDR* A6,A7 HOURS P ENB ( P* 4 * PGETT10 CF A15,BYTASC CONVERT TO ASCII > P IFT MMUPAG=0 l * P SC A6,1,A8 STORE RIGHTHAND CHARACTER P ECR A6,A6 ( P SCR A6,A8 STORE LEFTHAND CHARACTER P XIF P* P EJE
0x4a0620…4a07b4 (5, 327) Dummy {f00=0x0132, f01=0x0190, f02=» GETT15 TCB ADDRESS EVEN P LDR A1,A6 P EL A4,1,A8 2 P ANK A4,/FF F P SLL A1,8 Z P ORR A1,A4 l P ES A1,1,A8 ~ P ELR A4,A8 P SRL A6,8 P ANKL A4,/FF00 P ORR A6,A4 P* 6 PGETT15 ESR A6,A8 SET VALUE IN TI
0x4a07b4…4a0948 Dummy {f00=0x0132, f01=0x0190, f02=»ROM STACK r P RB GETT10 P* $ P EJECT MONTIM . P* F P* P PGETT20 SUK A7,2 Z . P LDR* A6,A7 GET ACCUMULATED 24 HOUR CARRY r 2 P ST A6,TTB:SA+14,A5 STORE IN TTAB SAVE AREA A7 P CMR A7 CLEAR MIDNIGTH CARRY P* P
0x4a0948…4a0adc Dummy {f00=0x0132, f01=0x0190, f02=»E LKM PROCESSOR. x P* 0 P* IT IS ENTERED FROM THE LKM HANDLER WITH " 0 P* ADDRESS TO THE USER TIMER CONTROL BLOCK V 0 P* IN A8. VALUE IN TIMER CONTROL BLOCK IS $ P* COPIED INTO MONITOR CLOCK. P* P* PSETTIM EQU *
0x4a0adc…4a0c70 Dummy {f00=0x0132, f01=0x0190, f02=» MMUPAG=0 & P LCR A6,A8 GET LEFTHAND CHARACTER P ECR A6,A6 < ( P LC A6,1,A8 GET RIGHTHAND CHARACTER N P XIF z P* P IFT MMUPAG=1 2 P ELR A6,A8 GET VALUE FROM TIMER CONTROL BLOCK . P LDR A4,A8 GET TIMER CONTROL BLOCK ADDRESS
0x4a0c70…4a0e04 Dummy {f00=0x0132, f01=0x018e, f02=»RL A4,8 P ORR A6,A4 P* " PSETT15 EQU * , P XIF @ P* L P EJECT MONTIM V P* n P* x $ P CF A15,ASCTBY CONVERT TO BINARY P SUK A3,2 END P RF(E) SETT20 P ADKL A8,2 0 P STR A6,A15 SAVE ON STACK (HOURS
0x4a0e04…4a0f98 Dummy {f00=0x0132, f01=0x0190, f02=» P LDR* A6,A15 ( P STR A6,A7 MINUTES TO MONITOR CLOCK P SUK A7,2 H P LDR* A6,A15 Z & P STR A6,A7 HOURS TO MONITOR CLOCK n P SUK A7,2 P CMR A7 RESET MIDNIGTH CARRY P RB TPDIS P* P EJECT MONTIM P*
0x4a0f98…4a112c Dummy {f00=0x0132, f01=0x0190, f02=»A6. x P* P* PBYTASC EQU * P LDK A4,0 4 P* F PBYTA10 SUK A6,/A P P RF(N) BYTA20 h P ADKL A4,/100 ~ P RB BYTA10 P* PBYTA20 ADK A6,/A P ADR A6,A4 P ORKL A6,/3030 P RTN A15 P*
0x4a112c…4a12c0 Dummy {f00=0x0132, f01=0x414a, f02=» l P* RESULT IN A6. P* , P* 6 PASCTBY EQU * @ P LDR A4,A6 T P ANK A6,/F f P SRL A4,8 x P ANK A4,/F P RF(E) ASCT20 P* PASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 P* PAS
0x4a12c0…4a1454 (5, 328) Dummy {f00=0x0132, f01=0x2008, f02=» ASCT10 ADK A6,/A P SUK A4,1 P RB(NE) ASCT10 2 PASCT20 RTN A15 H P END ^@ j P RTN A15 p P* P* 2 P* ASCTBY = SUBROUTINE TO CONVERT A6-CONTENT ( P* FROM ASCII TO BINARY. P* RESU
0x4a1454…4a15e8 Dummy {f00=0x0132, f01=0x0190, f02=»BER OF CHARACTERS GIVEN IN > r ( P* FIRST CHARACTER IN OUTPUT BUFFER ? " P* ? N P* ? X 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS ? b P ANK A4,/FF MASK ? , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER ? $ P LCR A2,A3 GET OUTPUT CHARACTER ?
0x4a15e8…4a177c Dummy {f00=0x0132, f01=0x406c, f02=» RTN A5 RETURN TO CALLER ? P* @ P* @ * P* @ 4 P* @ > P* @ H P* @ R P END @ @ @ h A4,A3 GET NUMBER OF OUTPUT CHARACTERS ? b P ANK A4,/FF MASK ? , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER ? $ P LCR A2,A3 GET OUTPUT CHARACTER ?
0x4a177c…4a1910 Dummy {f00=0x0132, f01=0x2008, f02=» A * 8 P* 8 P* 8 P* 8 & P* 8 0 P END 8 :@ 8 F 7 H 4 PBUFCHR LCR A4,A3 GET NUMBER OF OUTPUT CHARACTERS 7 R P ANK A4,/FF MASK 7 , PBUFC10 ADK A3,1 INCREMENT BUFFER POINTER 7 $ P LCR A2,A3 GET OUTPUT CHARACTER 7 P CF A5,OUTPUT
0x4a1910…4a1aa4 Dummy {f00=0x0132, f01=0x018e, f02=»T A2,DWTSAV,A6 INDICATE READY ! P RTN A5 " & P EJECT DRMD01 DRMD01 " 6 P* " V P********************** " ` P* * " ~ P* RECOVERY ROUTINE * " P* * " P********************** " P* " PMDON EQU
0x4a1aa4…4a1c38 Dummy {f00=0x0132, f01=0x0190, f02=» P LDKL A6,DWMD01 # $ P CM DWTST,A6 SET DISC UNIT BUSY # P LD A1,INIFLG POWER UP? # D P RF(NZ) MDON25 # d P* # z ( P LDKL A4,TIMER TIMER POINTER ADDRESS # P LDR* A3,A4 # " P RF(Z) MDON10 NO TIMER ACTIVE # P LDKL A1,-TIME # P STR A1,
0x4a1c38…4a1dcc Dummy {f00=0x0132, f01=0x0190, f02=» P RB T:DISP $ P* $ P* TIME OUT $ P* $ 4 PMDON20 LDKL A6,DWMD01 $ > P CM TIMER $ P* $ n P EJECT DRMD01 $ x P* $ P* $ PMDON25 EQU * $ P LDKL A5,DWTSB2 STACK BASE $ P ADR A5,A6 $ P LDK A1,0 UNIT 0 $ PMDON
0x4a1dcc…4a1f60 Dummy {f00=0x0132, f01=0x0190, f02=» P RB(NG) MDON30 % , P IM DWTST,A6 INDICATE VOLUME NAMES READ % $ P LD A8,DWTECB,A6 GET ECB ADDRESS % J P RB(Z) END:15 NOREQUEST ON % r P* % P LD A7,DWTORD,A6 GET ORDER % , P ST A7,DWTOR,A6 RESTORE INDEX AND ORDER % P ANK A7,/3F % P ABL
0x4a1f60…4a20f4 (5, 329) Opaque[0x194]
0x4a20f4…4a2288 # DirEnt {nam=»TOSSFM«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2660, f03=0x0000}
0x4a20f4…4a2288 IdxSect {
0x4a20f4…4a2288 f00 = 0x0133 // 0x4a20f4 @0x0
0x4a20f4…4a2288 f01 = 0x000a // 0x4a20f6 @0x2
0x4a20f4…4a2288 gno = [ // 0x4a20f8 @0x4
0x4a20f4…4a2288 [0x00]: C0x0133.0x0.0
0x4a20f4…4a2288 [0x01]: C0x0133.0x1.0
0x4a20f4…4a2288 [0x02]: C0x0133.0x2.0
0x4a20f4…4a2288 [0x03]: C0x0133.0x3.0
0x4a20f4…4a2288 [0x04]: C0x0134.0x0.0
0x4a20f4…4a2288 ]
0x4a20f4…4a2288 }
0x4a2288…4a241c Dummy {f00=0x0133, f01=0x0190, f02=» 2 P IDENT TOSSFM REL 10.0 80-03-14 870105041000 P : P* B P* L 6 P************************************************** V P* 6 P* PHILIPS TERMINAL SYSTEM PTS * P* 6 P* TOSSFM = TOSS FILE MANAGEMENT LKM PROC
0x4a241c…4a25b0 Dummy {f00=0x0133, f01=0x0190, f02=» TOSS FILE MANAGEMENT LKM PROCESSOR HANDLES 4 P* PREPARATIONS FOR DISC I/O, AND ACTIVATION OF 4 2 P* THE FILE MANAGEMENT TASK (FMTASK) FOR FILE l " P* ADMINISTRATION FUNCTIONS. P* P* P EJECT TOSSFM P* P* P
0x4a25b0…4a2744 Dummy {f00=0x0133, f01=0x018e, f02=» ENTRY FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P ENTRY FCHEC2 FCHECK 2ND ENTRY > P EJECT TOSSFM d P* | P* P************* P* EXTERNALS * P************* P* P* P EXTRN FMRDWR FM READ/WRITE .
0x4a2744…4a28d8 Dummy {f00=0x0133, f01=0x0190, f02=» " P EXTRN TIO:FM FM ENTRY IN TIO , P EXTRN ACTDIS ACTIVATE TASK AND DISPATCH * " P EXTRN FNDDWD FIND DWT ADDRESS Z 0 P EXTRN TIOERR ERROR: QUEUE TASK AND DISPATCH * P EXTRN SCTFWT FWT CHAIN START ADDRESS " P EXTRN SCTNOF NUMBER OF FILES ( P
0x4a28d8…4a2a6c Dummy {f00=0x0133, f01=0x0190, f02=»LOCK IN FWT n P EXTRN EWTEXL EXTENT LENGTH P EXTRN EWTEXB EXTENT BASE 8 " P EXTRN EWTVOL VOLUME FILE CODE Z & P EXTRN ECBRL ECB REQUESTED LENGTH $ P EXTRN ECBCW1 ECB CONTROL WORD 1 $ P EXTRN ECBCW2 ECB CONTROL WORD 2 P EXTRN DWTST D
0x4a2a6c…4a2c00 Dummy {f00=0x0133, f01=0x0190, f02=»L ASSEMBLY P* , P**************************************** P* L . P* A PROGRAM VERSION USING TOSS MMU PAGING V * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0 P* P* 6 P* A PROGRAM VERSION USING THE EX
0x4a2c00…4a2d94 (5, 330) Dummy {f00=0x0133, f01=0x0190, f02=»M VERSION SUPPORTING SPLIT EXTENT I/O * P* IS OBTAINED BY SETTING XTSPLI EQU 1. . P* PXTSPLI EQU 0 f P* z P EJECT TOSSFM P* P* P********** P* TOSSFM * P********** P* P* 8 P* THIS IS TH
0x4a2d94…4a2f28 Dummy {f00=0x0133, f01=0x0190, f02=» n P* P* A5 = TTAB ADDRESS P* A7 = ORDER CODE 0 P* A8 = ECB ADDRESS L P* h . P* WHEN FILE ADMINISTRATION IS REQUESTED, r ( P* TOSSFM WILL ACTIVATE THE FMTASK. P* . P* WHEN I/O FUNCTION IS REQUESTED, TOSSFM
0x4a2f28…4a30bc Dummy {f00=0x0133, f01=0x0190, f02=»JECT TOSSFM P* P* 4 PTOSSFM EQU * FILE MANAGEMENT LKM PROCESSOR ENTRY * P* b P* CHECK ORDER CODE l P* LDR A2,A7 ORDER CODE P ANK A2,/FF SKIP OPTION P XRK A2,/80 WAIT BIT SUK A2,/01 P RF(Z) FM:
0x4a30bc…4a3250 Dummy {f00=0x0133, f01=0x0190, f02=»E x SUK A2,/11-/05 P RF(Z) FM:030 PHYSICAL READ " SUK A2,/15-/11 F P RF(Z) FM:030 PHYSICAL WRITE ^ SUK A2,/21-/15 $ P RF(Z) FM:010 OPEN/CREATE/EXTEND SUK A2,/22-/21 4 P RF(NZ) FM:RQE REQUEST ERROR IF NOT CLOSE/DELE
0x4a3250…4a33e4 Dummy {f00=0x0133, f01=0x0190, f02=»ARAMETERS: h * " P* A1 = ORDER CODE AND OPTION * A2 = DISPATCH ADDRESS B * %* A3 = TTAB ADDRESS OF CALLING TASK d P* A4 = ECB ADDRESS * A5 = FMTASK TTAB ADDRESS * PFM:010 EQU * $ P LDR A1,A7 ORDER CODE AN
0x4a33e4…4a3578 Dummy {f00=0x0133, f01=0x0190, f02=»DR A4,A8 ECB ADDRESS ( # LDKL A5,TTABFM FMTASK TTAB ADDRESS , P ABL ACTDIS ACTIVATE FMTASK AND DISPATCH H * x EJECT TOSSFM * * ********** * FM I/O * ********** * $ * FILE MANAGEMENT I/O FUNC
0x4a3578…4a370c Dummy {f00=0x0133, f01=0x0190, f02=»DK A1,0 CHECK RETURN CODE P RF(Z) FM:050 OK " * : PFM:040 EQU * D P LDR A3,A1 RETURN CODE X . P ABL TIOERR ERROR: QUEUE TASK AND DISPATCH v * EJECT TOSSFM * " P* CHECK RELATIVE SECTOR NUMBER * PFM:0
0x4a370c…4a38a0 Dummy {f00=0x0133, f01=0x0190, f02=» MMUPAG=1 , ' EL A1,ECBCW1,A8 RELATIVE SECTOR NUMBER EL A2,ECBCW2,A8 B XIF Z * f P RF(NZ) FM:060 p ADK A1,0 , P RF(Z) FM:RQE RELATIVE SECTOR NUMBER = 0 * PFM:060 EQU * P ECR A6,A1 P ANK A6,/FF
0x4a38a0…4a3a34 (5, 331) Dummy {f00=0x0133, f01=0x0190, f02=»RE d P LDKL A14,/7FFF P* " P EJECT TOSSFM , P* D ( P* SEARCH THE FILE EXTENT THAT HOLDS N P* THE REQUESTED SECTORS z * PFM:070 EQU * * P LC A6,EWTEXL-1,A3 FILE EXTENT LENGTH P LD A7,EWTEXL,A3 " P CWR A1,A6
0x4a3a34…4a3bc8 Dummy {f00=0x0133, f01=0x0190, f02=»ENT FOUND ~ * PFM:080 EQU * P IFT CPU852=0 0 . P DSR A6 SUBTRACT LENGTH FROM SECTOR NUMBER F P XIF x P* P IFT CPU852=1 2 P SUR A1,A6 SUBTRACT LENGTH FROM SECTOR NUMBER P SUR A2,A7 P RF(NN) FM:090 NOT UNDERFLOW
0x4a3bc8…4a3d5c Dummy {f00=0x0133, f01=0x0190, f02=»DRESS TO 2ND EWT BLOCK . ) LDR* A3,A3 ADDRESS TO NEXT EWT STRUCTURE $ P RB(NZ) FM:070 CHECK NEXT EXTENT P * x 4 /FM:RQE EQU * FILE MANAGEMENT REQUEST ERROR EXIT P LDKL A1,/A000 REQUEST ERROR P RB FM:040 * EJECT TOSSF
0x4a3d5c…4a3ef0 Dummy {f00=0x0133, f01=0x0190, f02=» LC A10,EWTEXB-1,A4 FILE EXTENT BASE P LD A11,EWTEXB,A4 , * F IFT CPU852=0 P " P DAR A10 COMPUTE SECTOR NUMBER f XIF * IFT CPU852=1 & P ADR A1,A10 COMPUTE SECTOR NUMBER P ADR A2,A11 RF(O) FM:140 OVER
0x4a3ef0…4a4084 Dummy {f00=0x0133, f01=0x018e, f02=»ON t SUK A1,1 * EJECT TOSSFM & * > * H PFM:115 EQU * R " P LDR A12,A1 SAVE SECTOR NUMBER f P LDR A13,A2 P* IFT MMUPAG=0 . P LC A3,ECBRL,A8 REQUESTED LENGTH (SECTORS) XIF *
0x4a4084…4a4218 Dummy {f00=0x0133, f01=0x0190, f02=» . P ADR A2,A3 COMPUTE LAST REQUESTED SECTOR+1 RF(O) FM:150 OVERFLOW 6 * T PFM:120 EQU * ^ 0 P ADR A6,A10 COMPUTE LAST SECTOR+1 IN EXTENT r P ADR A7,A11 P RF(O) FM:160 OVERFLOW * PFM:125 EQU * P CWR A6,A1 0 P
0x4a4218…4a43ac Dummy {f00=0x0133, f01=0x0190, f02=» P CWR A7,A2 4 P RB(L) FM:RQE ALL SECTORS NOT WITHIN THIS EXTENT P XIF N P* Z P IFT XTSPLI=1 d 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT z P CWR A7,A2 4 P RF(L) FM:170 ALL SECTORS NOT WITHIN THIS EXTENT P XIF
0x4a43ac…4a4540 Dummy {f00=0x0133, f01=0x0190, f02=» = DISC INDEX (FROM FNDDWD) 0 P* A4 = 0 (INDICATES NOT I/O-AND-ACTIVATION) $ P* A5 = TTAB ADDRESS X * P* A6 = DISC DWT ADDRESS (FROM FNDDWD) t P* A7 = ORDER CODE P* A8 = ECB ADDRESS * PFM:130 EQU * $ P LC A2,EWTVOL,A4 FIL
0x4a4540…4a46d4 (5, 332) Dummy {f00=0x0133, f01=0x018e, f02=» CODE x P LD A1,DWTST,A6 DWT STATUS , P ABL(NN) QUEDEV DISC BUSY, QUEUE REQUEST 0 P* ` P IFT MMUPAG=0 j . P ST A12,ECBCW1,A8 SET SECTOR NUMBER IN ECB P ST A13,ECBCW2,A8 P XIF P* P IFT MMUPAG=1 . P ES A12,ECBCW1,A
0x4a46d4…4a4868 Dummy {f00=0x0133, f01=0x0190, f02=» EJECT TOSSFM * 6 2* OVERFLOW CORRECTIONS FOR DOUBLE WORD ARITHMETICS & * ` FM:140 EQU * j P IFT CPU852=1 ~ ADK A1,1 P ANR A2,A14 SKIP SIGN BIT P RB FM:110 P XIF * FM:150 EQU * ADK
0x4a4868…4a49fc Dummy {f00=0x0133, f01=0x0190, f02=»BIT z P RB FM:125 * EJECT TOSSFM ( P* @ 0 P* REQUESTED SECTORS CONTINUE IN NEXT EXTENT J P* ~ PFM:170 EQU * IFT XTSPLI=1 & P LDR A1,A4 EWT ADDRESS (2ND BLOCK) $ LDKL A2,FMRDWR DISPATCH ADDRESS ****
0x4a49fc…4a4b90 Dummy {f00=0x0133, f01=0x0190, f02=»** P* FCHECK * P* FCHEC2 * P********** . P* @ P* J 6 P* FCHECK/FCHEC2 CONVERTS THE FILE NUMBER TO FWT T . P* ADDRESS AND CHECKS ACCESS PARAMETERS. P* " P* INPUT: A5 = TTAB ADDRESS P* A7 = ORDER C
0x4a4b90…4a4d24 Dummy {f00=0x0133, f01=0x0190, f02=»* A2 IS DESTROYED P* " PFCHECK EQU * FCHECK MAIN ENTRY & P IFT MMUPAG=0 L P LDR* A2,A8 FILE NUMBER b P XIF P* P IFT MMUPAG=1 P ELR A2,A8 FILE NUMBER P XIF P* 4 PFCHEC2 EQU * FCHECK 2ND ENTRY (A2 = FI
0x4a4d24…4a4eb8 Dummy {f00=0x0133, f01=0x0190, f02=»UMBER TOO BIG | 0 P LDKL A3,SCTFWT ADDRESS TO FWT CHAIN POINTER P* J P EJECT TOSSFM T P* l P* v $ PFC:010 EQU * COMPUTE FWT ADDRESS P LDR* A3,A3 NEXT FWT ADDRESS P SUK A2,1 P RB(P) FC:010 P* P* CHECK AC
0x4a4eb8…4a504c Dummy {f00=0x0133, f01=0x0190, f02=»1 CHECK IF FWT USED " P RF(Z) FC:050 FILE NOT OPENED , P LD A2,FWTTAB,A3 TTAB ADDRESS (EA TASK) B ( P RF(Z) FC:020 OPENED NON-EXCLUSIVELY r & P CWR A2,A5 EA, CHECK IF THIS TASK . P RF(NE) FC:060 EXCLUSIVE FOR ANOTHER TASK P* PFC:0
0x4a504c…4a51e0 Dummy {f00=0x0133, f01=0x0190, f02=»CAL ORDERS | P ANK A7,/85 BASIC ORDER P* 2 , PFC:040 EQU * COMMON FCHECK RETURN LABEL < P RTN A15 l P* | P EJECT TOSSFM P* P* ERROR RETURNS P* $ PFC:050 EQU * REQUEST ERROR EXIT & P LDKL A1,/7FC0 RETURN
0x4a51e0…4a5374 (5, 333) Dummy {f00=0x0134, f01=0x4088, f02=»OLUME LOADED EXIT ~ " P ADK A1,/20 RETURN CODE = /20 P RB FC:040 RETURN @ P* Z * d * n END x@
0x4a5374…4a5508 Dummy {f00=0x0134, f01=0x2008, f02=» O t * * * & END 0@ <:127 : XIF L * X EJECT TOSSFM b * z * 8 3FM:170 EQU * MAKE ALL PARAMETERS READY FOR DISC I/O $ LC A2,EWTVOL,A3 FILE CODE DISC ( $ CF A15,FNDDW2 FIND DI
0x4a5508…4a569c Dummy {f00=0x0134, f01=0x0190, f02=» * l @ P* * @ P* REFERENCED IN: SYSLDA PART 2 B. * d @ P* * @ P* ENTRY: A5 - POINTER TO N
0x4a569c…4a5830 Dummy {f00=0x0134, f01=0x0190, f02=» * t @ P* EXIT: * ( @ P* * l @ P* WORK REGISTERS: A1,A3,A6,A8 * @ P*
0x4a5830…4a59c4 Dummy {f00=0x0134, f01=0x0190, f02=» * | @ P************************************************************ 0 PCHTAID EQU * t 2 P LDR A8,A7 GET NEXT FREE ENTRY IN REAL T:ATAB $ P LDR* A6,A5 GET NUMBER OF COPIES " PCHT:10 RF(Z) CHT:90 NO MOORE!
0x4a59c4…4a5b58 Dummy {f00=0x0134, f01=0x0190, f02=»TID,A1 GET TCL IN T:A . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB * P LD A4,TTBTID,A2 GET REAL TID IN TTAB P 6 P LD A3,TTB:SA+26,A2 GET CORRESPONDING T:A-ADDRESS ~ ( P ST A4,T:ATID,A3 REPLACE TCL IN T:A & P LDR A3,A8 GET REAL T:ATAB POINTER
0x4a5b58…4a5cec Dummy {f00=0x0134, f01=0x0190, f02=»MMUPAG=2 & P ELR A1,A8 GET POINTER TO REAL T:A $ P EL A1,T:ATID,A1 GET TCL IN T:A : . PCHT:20 CALL GETTTB GET CORRESPONDING TTAB b ( P LDR A3,A2 GET POINTER TO TTAB ENTRY 2 P ADKL A3,MMBEG START OF MM-TABLE FOR THIS TTAB P TLR A3 4 P L
0x4a5cec…4a5e80 Dummy {f00=0x0134, f01=0x0190, f02=» TCL IN T:A *79-04-11* x 0 P EL* A3,T:ATNW,A13 GET LENGTH OF REAL T:ATAB $ P NGR A3,A3 NEGATIVE DISPLACEMENT R . P ADR A3,A8 COMPUTE ENTRY IN AUX. TID TABLE z 8 P ESR A4,A3 SAVE TID FOR DEBUGGER PURPOSE *79-04-11* P XIF P IFT CREDIT=1 &
0x4a5e80…4a6014 (5, 334) Opaque[0x194]
0x4a6014…4a61a8 # DirEnt {nam=»TIODM «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x30c0, f03=0x0000}
0x4a6014…4a61a8 IdxSect {
0x4a6014…4a61a8 f00 = 0x0186 // 0x4a6014 @0x0
0x4a6014…4a61a8 f01 = 0x0010 // 0x4a6016 @0x2
0x4a6014…4a61a8 gno = [ // 0x4a6018 @0x4
0x4a6014…4a61a8 [0x00]: C0x0186.0x0.0
0x4a6014…4a61a8 [0x01]: C0x0186.0x1.0
0x4a6014…4a61a8 [0x02]: C0x0186.0x2.0
0x4a6014…4a61a8 [0x03]: C0x0186.0x3.0
0x4a6014…4a61a8 [0x04]: C0x0187.0x0.0
0x4a6014…4a61a8 [0x05]: C0x0187.0x1.0
0x4a6014…4a61a8 [0x06]: C0x0187.0x2.0
0x4a6014…4a61a8 [0x07]: C0x0187.0x3.0
0x4a6014…4a61a8 ]
0x4a6014…4a61a8 }
0x4a61a8…4a633c Dummy {f00=0x0186, f01=0x0190, f02=» 0 P IDENT TIODM REL 10.0 80-03-14 870105041000 P 8 P =1, COMMIT CHECK @ P 79-11-02 8 P**************************************************** p P* $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* TIODM = DATA MANAGEMENT ACT
0x4a633c…4a64d0 Dummy {f00=0x0186, f01=0x0190, f02=» P* B P* THIS MODULE IS ENTERED IN THE SAME WAY AS A DRIVER VIA TIO . P* AND THE DWTADR IN FDB FOR CURRENT FILE T P* H P* THE DM REQUEST IS PROCESSED HERE UP TO THE POINT WHERE A SECTOR $ P* FROM A DISC MUST BE ACCESSED P*
0x4a64d0…4a6664 Dummy {f00=0x0186, f01=0x0190, f02=» A7 = ORDER WORD WITH W BIT = 0 P* A8 = ECB ADDRESS ( P* L P* V P* ` 6 P* IN ALL DM MODULES FDB WILL BE THE SAME AS FWT j P* 4 P* THE FOLLOWING WORDS WILL BE SET IN THE FDB: & P* FDBSNR SECTOR NUMBER IN FILE
0x4a6664…4a67f8 Dummy {f00=0x0186, f01=0x018e, f02=»T BLOCK POINTER v P* P* " D P* IF AN ERROR CONDITION IS DETECTED THE ERROR RETURN WILL BE: , P* LDKL A1,/<RETURN CODE> t P* ABL DISEND P* P* P EJECT P* P************** P* ENTRIES *
0x4a67f8…4a698c Dummy {f00=0x0186, f01=0x0190, f02=» P ENTRY FDBRLE P ENTRY FDBBLF P ENTRY FDBTNR 4 P ENTRY FDBLRN J 4 P ENTRY FDBNIF,FDBEAL,FDBCRL,FDBKA,FDBMIA,FDBADF ` & P ENTRY FDBAI1,CRNTID,CRNCDF,CRNSTA P ENTRY FDBBLZ BLOCK SIZE P ENTRY FDBDMI DMTASK IDENT P E
0x4a698c…4a6b20 Dummy {f00=0x0186, f01=0x0190, f02=»HLT,FDBSTA,DWDM01 P ENTRY REQER2 2 P ENTRY RETRIE,EOMERR,NOKEY,NXTKYS,EOFRC,NODERR 0 , P ENTRY PROT,KEYERR,PROERR,REQERR,LGTERR f P ENTRY EOFERR,EDMERR P EJECT P EXTRN SCTTCT P EXTRN RELPRO P EXTRN TDISP P EXTRN H
0x4a6b20…4a6cb4 (5, 335) Dummy {f00=0x0186, f01=0x0190, f02=» ORDER v P EXTRN DWTOPT OPTION BYTE & P EXTRN DWTTAB DM TASK TTAB ADDRESS 0 P EXTRN TTB:ID TASK ID Z P EXTRN MOVZUS,MOVZSU x P EXTRN DMTASK P EXTRN CALSNO P EXTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL P EXTRN ECBEL
0x4a6cb4…4a6e48 Dummy {f00=0x0186, f01=0x0190, f02=»XTRN FWTEW1 P EXTRN FWTFNR FILE NR P EXTRN FNDFDB DMTASK ROUTINE 2 P EXTRN FPB:FR V P EXTRN TTB:SA,QTJOB l P EXTRN DMTBM P EXTRN DMTIDS P EXTRN DFTAB,FWTVOL ( P EXTRN CRNCIF INDEX CURRENCY OFFSET P EJECT P
0x4a6e48…4a6fdc Dummy {f00=0x0186, f01=0x0190, f02=»ION CONTAINING INDEXED REQUEST ORDERS IS OBTAINED P* BY SETTING INDXAC EQU 1 : * P* INDXAC EQU 0 OTHRERWISE ^ PX:A EQU 0 PINDXAC EQU 00000 P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTI
0x4a6fdc…4a7170 Dummy {f00=0x0186, f01=0x0190, f02=»00 OUTSIDE MEDIUM LIMITS & PPROT EQU /0040 THIS DATA PROTECTED & PNODERR EQU /8800 NO EXPECTED DATA J , PKEYERR EQU /8400 EXPECTED KEY NOT FOUND t 2 PPROERR EQU /0010 ROLLBACK FOR PROTECT REASONS * PREQERR EQU /8000 GENERAL REQUEST ERROR " P
0x4a7170…4a7304 Dummy {f00=0x0186, f01=0x018e, f02=» /9000 END OF FILE P* P* MESSAGES $ P* 8 " PRETRIE EQU /0100 DISC RETRIES B $ PNOKEY EQU /0400 NOT SEARCHED KEY h " PNXTKYS EQU /0200 NEXT KEY SAME PEOFRC EQU /1000 END OF FILE P* " PFCUSED EQU 7 INVALID FILE CODE
0x4a7304…4a7498 Dummy {f00=0x0186, f01=0x018e, f02=» P* P* & PTIODMF EQU * TIODM FUNCTION TABLE P DATA READ DIRECT RANDOM F P DATA READ SEQUENTIAL f P IFT INDXAC=1 P DATA READ INDEXED P DATA READ INDEXED NEXT P XIF P IFT INDXAC=0 P DATA TIOD19,TIOD1
0x4a7498…4a762c Dummy {f00=0x0186, f01=0x018e, f02=» t P XIF P IFT INDXAC=0 P DATA TIOD19 * P XIF > P DATA WRITE (RESERVED) J P DATA REWRIT REWRITE DIRECT h P IFT INDXAC=1 P DATA REWRIT REWRITE INDEXED P XIF P IFT INDXAC=0 P DATA TIOD19 P XIF P
0x4a762c…4a77c0 Dummy {f00=0x0186, f01=0x0190, f02=» P DATA TIOD19 P XIF PQSTA EQU *-TIODMF $ P DATA STARTO START DIRECT > P IFT INDXAC=1 ` P DATA STARTO START INDEXED v P XIF P IFT INDXAC=0 P DATA TIOD19 P XIF P* F P* FOLLOWING FILE ADMINISTRATION FU
0x4a77c0…4a7954 (5, 336) Dummy {f00=0x0186, f01=0x0190, f02=»IODMF P DATA OPEN PCLOSOF EQU *-TIODMF P DATA CLOSE < PRDSTOF EQU *-TIODMF P P DATA RDSTAT READ STATUS l PRDFPOF EQU *-TIODMF & P DATA RDFILP READ FILE PARAMETERS P EJECT P* PTIODMO EQU * DM ORDERS P
0x4a7954…4a7ae8 Dummy {f00=0x0186, f01=0x0190, f02=» ~ P DATA /0BFF START P DATA /2122 OPEN,CLOSE " 0 P DATA /0003 READ STATUS,READ FILE PARAMETERS @ P* t $ PNOOFOR EQU 18 NO OF ORDER CODES ~ P* P EJECT P* 0 PDWTDRD EQU 42 START OF NON-STANDARD DWT PART P* P I
0x4a7ae8…4a7c7c Dummy {f00=0x0186, f01=0x0190, f02=»EXTINGUISHED v P XIF P EJECT P* . P* FDB OFFSET DEFINITIONS 8 P* Z PFDBSTA EQU * d PDWDM01 EQU * x . P DATA 0,/8000,0,0,TIODM,0,0,0 DWT STANDARD P IFT MMUPAG=1 $ P DATA 0,FDBMMU SPECIAL DWT ITEMS P XIF P
0x4a7c7c…4a7e10 Dummy {f00=0x0186, f01=0x0190, f02=»TA FDBADF 4 P DATA 0,0,0,0,0,0,0 54,BYTE FDB AREA SYSTEM FDB P IFT MMUPAG=1 J PFDBMMU RES 7 MMU ECB AREA ` P XIF P EJECT PFDBECB EQU START+2 ECB START & PFDBSNR EQU START+16 SECTOR NUMBER . PFDBRRO EQU START+20 RELATIVE R
0x4a7e10…4a7fa4 Dummy {f00=0x0186, f01=0x018e, f02=»R CALLING TASK r * PFDBLRN EQU START+27 LAST RECORD NUMBER * PFDBNIF EQU START+26 NO OF INDEX FILES D $ PFDBEAL EQU START+30 EA LINK ROOT r & PFDBCRL EQU START+32 CRN LINK ROOT 0 PFDBKA EQU START+34 KEY ADDRESS IN DATA FILE 0 PFDBMIA EQU START
0x4a7fa4…4a8138 Dummy {f00=0x0186, f01=0x0190, f02=» ` 8 PFDBDBR EQU START+48 DELAY,BASIC AND REL BUFFER FLAGS * PFDBDMI EQU START+49 RELATIVE DMTASK ID D " PFDBMRO EQU START+50 MAX FDBRRO r , PFDBBLZ EQU START+52 NR OF SECT IN BLOCK , PFDBMEC EQU START+54 MMU ECB DISPLACEMENT P IFT MMUPAG=1
0x4a8138…4a82cc Dummy {f00=0x0186, f01=0x0190, f02=» INDEXED ACC p P XIF P* & P* CRN BUFFER OFFSET DEFINITIONS * P* T PCRNTID EQU 2 TASK ID ^ PCRNSTA EQU 3 CURRENT STATUS z " PCRNCDF EQU 4 CURRENT DATA FILE P EJECT ( P DATA 0 DATA MANAGEMENT DEVICE INDEX & PTIODM DATA
0x4a82cc…4a8460 Dummy {f00=0x0186, f01=0x0190, f02=»,A6 USE ECB AS STACK P ENB P* ( 6 P* GET CALLING TASK NUMBER AND STORE IT IN FDBTNR 2 P* l P LDK A2,0 v PTIOD05 LD A1,SCTTCT P ADR A1,A2 P LD A3,2,A1 P CW A3,DWTTAB,A6 P RF(E) TIOD10 THIS TASK P ADK A
0x4a8460…4a85f4 (5, 337) Dummy {f00=0x0186, f01=0x018e, f02=»T ORDER INDEX IN DWTOR RIGHT BYTE P* * P LD A7,DWTOR,A6 ORDER WORD 4 P LDR A5,A7 V & P ANKL A5,/C0C0 SOME BITS FORBIDDEN h P RF(NZ) TIOD19 ERR P LD A5,FDBBLZ,A6 =1 P ANK A5,/FF =1 $ P RF(NZ) TIOD19 COMMIT MISSING =1 & P
0x4a85f4…4a8788 Dummy {f00=0x0186, f01=0x0190, f02=» P RB(NN) TIOD15 >= 0 PTIOD19 EQU * $ P LDKL A1,REQERR 8 P ABL TIODMX ERR P PTIOD20 EQU * h P SLL A5,1 *2 | & P SC A5,DWTOR+1,A6 SAVE ORDER INDEX P CWK A6,FDBSTA " P RF(NE) TIOD25 NOT SYSTEM FWT P CWK A5,RDSTOF
0x4a8788…4a891c Dummy {f00=0x0186, f01=0x0190, f02=» P CF A14,CRNGET CURRENCY P LDK A3,0 NEW STATUS $ P LC A4,CRNSTA,A2 OLD STATUS @ P SC A3,CRNSTA,A2 d ( P ABI TIODMF,A5 BRANCH TO DM FUNCTION | P* " P* A1 = FDB ADDRESS DATA FILE $ P* A2 = CURRENCY BUFFER ADDRESS & P* A4 =
0x4a891c…4a8ab0 Dummy {f00=0x0186, f01=0x018e, f02=»A7 = USER ORDER WORD P* A8 = USER ECB ADDRESS P EJECT > PRDSTAT EQU * READ STATUS L P SC A4,CRNSTA,A2 STATUS CHAR l P ANK A4,/FF " P ST A4,ECBCW,A8 RETURN STATUS P CM ECBCW+2,A8 P LDK A1,0 RET CODE OK P ABL TIODM
0x4a8ab0…4a8c44 Dummy {f00=0x0186, f01=0x018e, f02=» P LDKL A3,/700 P TM A3,A7 ( P RB(NZ) TIOD19 NOT OPTION SEQUENTIAL , P SRL A7,10 INDEX * 2 X P ABL(Z) SEQREA SEQ READ t & P ABL IXRDNX INDEXED SEQ READ NEXT PREADDI EQU * DIRECT READ P SRL A7,10 INDEX * 2 & P ABL(Z) RANREA
0x4a8c44…4a8dd8 Dummy {f00=0x0186, f01=0x0190, f02=» PIXINS EQU * P RB TIOD19 P XIF . P EJECT : PWRITE EQU * WRITE ORDERS H P LC A3,FDBDBR,A6 h P ANK A3,/3 SHARABILITY & P RB(Z) TIOD19 ONLY INPUT ACCEPTED P LDKL A4,/100 " P LC A3,FDBNIF,A6 NR OF INDEXES P ANK
0x4a8dd8…4a8f6c Dummy {f00=0x0186, f01=0x0190, f02=»NTIAL WRITE | P RB TIOD19 ERR PWRITE2 EQU * INDEXED * P TM A4,A7 F " P ABL(NZ) IXINS INDEXED INSERT X P RB TIOD19 NOT ALLOWED ~ P EJECT PREWRIT EQU * REWRITE ORDERS P* PDELETE EQU * DELETE ORDERS P* P LC
0x4a8f6c…4a9100 Dummy {f00=0x0186, f01=0x0190, f02=»F P RF(Z) REW010 NO INDEX P LDK A3,2 ( P ADS A3,DWTOR,A6 ORDER INDEX : PREW010 EQU * ^ P LDKL A4,/400 r P TM A4,A7 P RF(NZ) REW020 CURRENT P SRL A7,8 P SUK A7,1 P RB(NZ) TIOD19 ERROR P ABL TIODMB DIRE
0x4a9100…4a9294 (5, 338) Dummy {f00=0x0187, f01=0x0190, f02=» ID FOR DATA FILE) p P ABL TIODMA P IFT INDXAC=1 . P EJECT D PSTAIND EQU * START INDEXED R P SRL A7,10 INDEX * 2 t P LD A9,ECBRL,A8 KEY LENGTH P LDK A1,2 P RF STA090 P EJECT $ PIXRARE EQU * INDEXED RANDOM READ
0x4a9294…4a9428 Dummy {f00=0x0187, f01=0x0190, f02=» P LDR A2,A7 P ANKL A2,/FFF9 1-4 INDEXES P RB(NZ) TIOD19 ERROR < P ADR A7,A6 BASE IN DATA FDB X $ P LD A2,FDBAI1,A7 INDEX FDB ADDR | P ABL(Z) TIOD19 ERR P LDR A7,A2 P* P* COPY DWT ITEMS P* P LD A1,DWT
0x4a9428…4a95bc Dummy {f00=0x0187, f01=0x018e, f02=»A1,FDBRLE,A2 P SUK A1,6 KEY LENGTH PIXR050 EQU * 0 P CM FDBKEY,A2 D P ADK A2,2 Z P SUK A1,2 l P RB(P) IXR050 MORE TO CLEAR ~ P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR
0x4a95bc…4a9750 Dummy {f00=0x0187, f01=0x0190, f02=» d P* ! P LD A2,FDBRLE,A7 ! P SUK A2,6 MAX KEY LGTH ! * P CWR A2,A9 ! H P RF(NG) IXR070 ! Z " P LDR A2,A9 TAKE SMALLEST LGTH ! r PIXR070 EQU * ! P LDR A9,A2 SAVE ! P IFT MMUPAG=0 ! P CF A14,DMTBM FETCH KEY ! P XIF ! P I
0x4a9750…4a98e4 Dummy {f00=0x0187, f01=0x0190, f02=» ! P IFT INDXAC=1 " P* " 0 P* INCREASE KEY IF 'START GREATER ' IS REQ " ( P* " P CWK A5,QSTA " f P RF(NE) STA020 NOT START " z P LC A2,DWTOPT,A7 " P ANK A2,/7 OPTION " P SUK A2,1 " P RF(NZ) STA020 NOT GREATER " P LDR A2,
0x4a98e4…4a9a78 Dummy {f00=0x0187, f01=0x0190, f02=»E " x P LCR A1,A3 # P ADK A1,1 NEXT HIGHER KEY # P SCR A1,A3 # > P ANK A1,/FF OVERFLOW ? # P P RF(NZ) STA020 NO # n P CWR A2,A3 # P RB(NE) STA010 MORE BYTES # PSTA020 EQU * # P* # P* SWITCH TO INDEX FDB # P* # P LDR
0x4a9a78…4a9c0c Dummy {f00=0x0187, f01=0x0190, f02=» # t P LDKL A1,EDMERR $ P LDK A4,FCUSED FC USED $ P SC A4,CRNSTA,A2 STATUSA $ > P ABL TIODMX $ ^ POPE050 EQU * $ r P LDK A1,LGTERR $ P LDKL A4,FPB:FR+8 MIN LGTH $ P CW A4,ECBRL,A8 REQ $ P ABL(G) TIODMX ERR $ PTIORRO EQU * $ P
0x4a9c0c…4a9da0 Dummy {f00=0x0187, f01=0x0190, f02=»ERS $ r P LD A3,CRNCDF+2,A2 % $ P LD A2,CRNCDF,A2 CURRENT RECORD % & P ST A2,ECBCW,A8 % N P ST A3,ECBCW+2,A8 % f P RB TIORRO % P EJECT % PCLOSE EQU * CLOSE FILE % P* % ( P* CONNECT FILE CODE TO SYSTEM FWT % P* % $ P LD A1,DWT
0x4a9da0…4a9f34 (5, 339) Dummy {f00=0x0187, f01=0x0190, f02=»EARCH % $ P LDKL A2,FDBSTA SYSTEM FWT ADDR & P ST A2,2,A4 FC ENTRY & 6 P LDK A2,0 & R P LC A2,FDBLRN,A6 & d & P LD A3,FDBLRN+1,A6 LAST RECORD NR & | P RF(NZ) CLO100 & P LDR A2,A2 & P RF(NZ) CLO100 & P LDK A3,1 LRN & PCLO100 EQU * &
0x4a9f34…4aa0c8 Dummy {f00=0x0187, f01=0x0190, f02=»,CRNCDF+2,A2 CURR LOG REC NO & . P LD A2,CRNCDF,A2 NO FILE ID FOR DATA FILE ' $ P ADK A3,1 CRN+1 ' V P RF(O) SEQR10 OVERFLOW ' n P RF SEQR20 ' PSEQR10 EQU * ' " P ANKL A3,/7FFF REMOVE OVERFLOW ' P ADK A2,1 ADD CARRY ' PSEQR20 EQU * ' P
0x4aa0c8…4aa25c Dummy {f00=0x0187, f01=0x018e, f02=»CW,A8 REC NR ' P LD A3,ECBCW+2,A8 ( PRAN050 EQU * ( . $ P LDK A1,LGTERR INCORRECT LENGTH ( B P LD A4,ECBRL,A8 ( j , P ABL(NP) TIODME ERROR RETURN IF RL <= 0 ( P RF TIODMA ( P EJECT ( P IFT INDXAC=1 ( PIXINS EQU * INDEXED INSRERT (
0x4aa25c…4aa3f0 Dummy {f00=0x0187, f01=0x0190, f02=» P LDK A5,8 ) PIXINS3 EQU * ) P LDR A2,A6 FDB DATA ) * P ADR A2,A5 ) F P LD A3,FDBADF,A2 FDB INDEX ) X P RF(Z) IXINS4 NO INDEX ) z P LD A1,FDBKA,A3 KEY ADDR ) & P AD A1,ECBBA,A8 ADD USER BUF ADDR ) " P LDK A2,FDBKEY KEY AREA DISPL ) P
0x4aa3f0…4aa584 Dummy {f00=0x0187, f01=0x0190, f02=» EQU * ) P SUK A5,2 * P RB(NZ) IXINS3 MORE INDEXS * P XIF * B P* * N $ PSEQWRITE EQU * SEQUENTIAL WRITE * X P* * P LDK A2,2 * P ADS A2,DWTOR,A6 ORDER INDEX * P LC A2,FDBLRN,A6 * P LD A3,FDBLRN+1,A6 LRN * P IFT INDXAC=1 *
0x4aa584…4aa718 Dummy {f00=0x0187, f01=0x0190, f02=»6 * P ADS A1,DWTOR,A6 ORDER INDEX + P SUK A7,2 + . P LDR A2,A7 + @ P ANKL A2,/FFF9 1-4 INDEXES + R P ABL(NZ) TIOD19 ERR + t P LD A2,DWTOR,A6 + ( P LD A3,DWTECB,A6 ITEMS TO INDEX FDB + P* + P* SWITCH FDB + P* + P ADR A7,A6
0x4aa718…4aa8ac Dummy {f00=0x0187, f01=0x0190, f02=»MS FROM DATA FILE + | P* , P* GET CRN , $ P* , 8 P LDK A2,0 , B P LDK A3,0 , T P* , f P* CHECK THAT FILE ID IS OK , p P* , P LC A7,FWTFNR,A6 FILE NR , P CC A7,CRNCIF,A4 , . P RF(NE) IXR020 OTHER INDEX FILE IS CURRENT , P
0x4aa8ac…4aaa40 Dummy {f00=0x0187, f01=0x018e, f02=»XR030 OVERFLOW , P RF IXR040 - , PIXR030 ANKL A3,/7FFF REMOVE OVERFLOW BIT - ( P ADK A2,1 ADK CARRY - X PIXR040 EQU * - t * P RF TIODMA DO NOT CHECK EOF CONDITION - P EJECT - PSTARTO EQU * START ORDER - P IFT INDXAC=1 - P LDR A4,A7 -
0x4aaa40…4aabd4 (5, 340) Dummy {f00=0x0187, f01=0x0190, f02=» P ECR A4,A7 . P ANK A4,/7 OPTION . P SUK A4,1 . 0 P RF(NZ) TIODMA NOT GREATER . B P RB IXR020 GET NEXT REC NR . d P EJECT . P* . P************************* . P* DMTASK ACTIVATION * . P************************* . P* .
0x4aabd4…4aad68 Dummy {f00=0x0187, f01=0x0190, f02=» LD A3,ECBCW+2,A8 . PTIODMC EQU * / P* / . P* NO EA FOR OTHER TASK / 8 P* / X P LD A1,FDBADF,A6 FDB ADDR / b P CF A14,EATEST / P LDR A4,A4 RTN INF / P RF(N) TIODPE EA OTHER TASK / PTIODMD EQU * / P LDR A1,A2 / P LDR A2,A3
0x4aad68…4aaefc Dummy {f00=0x0187, f01=0x0190, f02=» P* 0 . P* ACTIVATE DMTASK WITH FDB ADDRESS IN A1 0 P* 0 @ PTIOD68 EQU * 0 J P* 0 ^ P* PREPARE DM INTERFACE 0 h P* 0 P LDKL A8,'#D' 0 P INH 0 P LDK A7,0 0 P LD A1,DWTOR,A6 ORDER 0 P ANK A1,/FF 0 P SUK A1,OPENOF 0
0x4aaefc…4ab090 Dummy {f00=0x0187, f01=0x0190, f02=» P LDR A5,A2 1 P RF(Z) TASHLT 1 P LD A1,TTB:SA,A2 1 , P RF(Z) TIOD70 NOT ACTIVE 1 D P LDK A7,0 1 d P EJECT 1 v P* 1 P* GET SECONDARY DMTASK 1 P* 1 & P LC A1,FWTVOL,A6 VOLUME FILE CODE 1 PTIOD69 EQU * 1 P CC A1,DFTAB,A7 1
0x4ab090…4ab224 Dummy {f00=0x0187, f01=0x018e, f02=»ASK REL ID 1 r PTIOD72 EQU * 2 P ADR A7,A8 TASK ID 2 & P CF A15,FNDTID A2:=TTAB ADDR 2 @ P LDR A5,A2 2 d P RF(NZ) TIOD70 2 v ( PTASHLT EQU * ABNORMAL SYSTEM ERRORS 2 P LDK A1,/11 DM ERR 2 P CF A15,HALT 2 * PTIOD70 LDKL A2,DMTASK DISPATCH ADD
0x4ab224…4ab3b8 Dummy {f00=0x0187, f01=0x0190, f02=» P EJECT 3 P* 3 P************** 3 P* TIODME * 3 2 P************** 3 H P* 3 ^ J P* TIODM ERROR CALL TENDIO WITH RETURN CODE IN A1 AND GOTO DISPATCHER 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x4ab3b8…4ab54c Dummy {f00=0x0187, f01=0x40ae, f02=»DDR 3 p PTIODMX EQU * 4 P* A1 = ERROR CODE 4 P* A6 = FDB ADDRESS 4 < P INH 4 X , P ABL DISEND CALL TENDIO GOTO DISPATCHER 4 d P* 4 P END 4 @ 4 3 h P* 3 " PTIODPE EQU * PROTECT ERR EXIT 3 P SUR A9,A9 3 " P LC A9,FDBTNR,A6
0x4ab54c…4ab6e0 Dummy {f00=0x0187, f01=0x2008, f02=» 5
0x4ab6e0…4ab874 (5, 341) Dummy {f00=0x0187, f01=0x018e, f02=»,DWTRTY,A6 RESET RETRY COUNTER PMIP050 EQU * & P LDK A4,2 BUFFER POINTER : $ P CM DWTACK,A6 RESET ACK COUNTER Z $ P CM DWTBCC,A6 RESET BCC COUNTER P CF A5,READP READ TCA $ P RF(NZ) MIP110 SST OR PAR ERROR P XRS A2,DWTBCC,A6
0x4ab874…4aba08 Dummy {f00=0x0187, f01=0x0190, f02=» P RF(N) MIP130 SST P RF(NZ) MIP110 PARITY ERROR P CWK A2,SYN B P RB(E) MIP100 SKIP SYN V $ P XRS A2,DWTBCC,A6 CALCULATE BCC t P CWK A2,ETB P RF(E) MIP210 ETB RECEIVED P CWK A2,ETX P ABL(E) MIP220 ETX RECEIVED
0x4aba08…4abb9c Dummy {f00=0x0187, f01=0x0190, f02=»00 P CF A5,READ P RF(N) MIP130 P XRS A2,DWTBCC,A6 4 P CWK A2,ETX N P RF(E) MIP220 b . PMIP110 EQU * PARITY ERROR, BUFFER OVERFLOW x 4 P CF A5,READP WAIT FOR END OF TRANSMISSION BLOCK " P RF(N) MIP130 STATUS INTERRUPT P
0x4abb9c…4abd30 Dummy {f00=0x0187, f01=0x0190, f02=»F A5,READ READ BCC PMIP130 EQU * & P LDK A3,0 INDICATE BLOCK RECOVERY . PMIP135 EQU * X P CF A5,HALTIN l P IM DWTRTY,A6 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW P CF A5,WRNAK SEND NAK P LDKL A2,RETRAN 0 P ORS A2,ECBRC,
0x4abd30…4abec4 Dummy {f00=0x0187, f01=0x0190, f02=» CWK A2,ENQ P RB(E) MIP135 PMIP145 EQU * * P CWK A2,EOT > P ABL(E) POL240 EOT RECEIVED R P LDR A2,A2 v P RF(N) MIP155 TIME OUT PMIP150 EQU * P CF A5,READP 0 P RB(NN) MIP150 WAIT FOR END OF TRANSMISSION P LDKL
0x4abec4…4ac058 Dummy {f00=0x0187, f01=0x0190, f02=»,A6 ( P RF(NL) MIP200 RETRY LIMIT OVERFLOW P CF A5,WRENQ SEND ENQ 8 P RB MIP140 V PMIP160 EQU * h P LDR A3,A3 | & P RB(NZ) MIP105 RECEIVE NEXT BLOCK P SUKL A4,MAXTBL P RB(N) MIP050 1:ST BLOCK P SUK A4,1 P RB(E)
0x4ac058…4ac1ec Dummy {f00=0x0187, f01=0x0190, f02=»1 PMIP170 EQU * P ADKL A4,MAXTBL P SUK A1,1 6 P RB(P) MIP170 H P CM DWTBCC,A6 ^ P RB MIP100 t PMIP200 EQU * P CF A5,WREOT SEND EOT P CM ECBRC,A8 P CW A4,ECBRL,A8 " P RF(G) MIP260 BUFFER OVERFLOW
0x4ac1ec…4ac380 Dummy {f00=0x0187, f01=0x0190, f02=»WTBCC,A6 P RB(NE) MIP130 BCC ERROR P CM DWTBCC,A6 0 P CF A5,HALTIN HALT INPUT F P CF A5,WRACK SEND ACK 0/1 f P LDKL A1,RTYLIM ( P ST A1,DWTRTY,A6 RESET RETRY COUNTER PMIP215 EQU * P CF A5,REDLTS P CWK A2,STX
0x4ac380…4ac514 (5, 342) Opaque[0x194]
0x4ac514…4ac6a8 # DirEnt {nam=»DMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2e68, f03=0x0000}
0x4ac514…4ac6a8 IdxSect {
0x4ac514…4ac6a8 f00 = 0x0173 // 0x4ac514 @0x0
0x4ac514…4ac6a8 f01 = 0x0018 // 0x4ac516 @0x2
0x4ac514…4ac6a8 gno = [ // 0x4ac518 @0x4
0x4ac514…4ac6a8 [0x00]: C0x0173.0x1.0
0x4ac514…4ac6a8 [0x01]: C0x0173.0x2.0
0x4ac514…4ac6a8 [0x02]: C0x0173.0x3.0
0x4ac514…4ac6a8 [0x03]: C0x0174.0x0.0
0x4ac514…4ac6a8 [0x04]: C0x017b.0x3.0
0x4ac514…4ac6a8 [0x05]: C0x017c.0x0.0
0x4ac514…4ac6a8 [0x06]: C0x017c.0x1.0
0x4ac514…4ac6a8 [0x07]: C0x017c.0x2.0
0x4ac514…4ac6a8 [0x08]: C0x017c.0x3.0
0x4ac514…4ac6a8 [0x09]: C0x0185.0x1.0
0x4ac514…4ac6a8 [0x0a]: C0x0188.0x0.0
0x4ac514…4ac6a8 [0x0b]: C0x0188.0x1.0
0x4ac514…4ac6a8 ]
0x4ac514…4ac6a8 }
0x4ac6a8…4ac83c Dummy {f00=0x0173, f01=0x0190, f02=» 2 P IDENT DMTASK REL 10.0 80-05-28 870105041000 P : P =4 , PR 6249 B P 80-03-14 Z P =3 ,DUPL KEY ONLY SEQ n P 79-11-28 P =2 , START NOT USED OK P 79-11-22 " P =1 , INDEXED START NOT LESS P 79-11-0
0x4ac83c…4ac9d0 Dummy {f00=0x0173, f01=0x0190, f02=»TASK = HANDLES DATAMANAGEMENT DISC I/O P* . P* 8 P* B P* L P* V 8 P**************************************************** ` P* , P* THIS MODULE IS ACTIVATED FROM TIODM. P* P* INPUT PARAMETERS: P* A1 = F
0x4ac9d0…4acb64 Dummy {f00=0x0173, f01=0x018e, f02=»DB (FDBDMI, , -SNR). d : P* ALL BUFFERS ARE CHECKED TO FIND OUT IF THIS BLOCK F P* IS ALREADY PRESENT IN A BUFFER. IF SO THE BUFFER STATUS IS SET Z D P* TO USED AND ACTIONS ACCORDING TO THE ORDER ARE TAKEN. IF NOT 8 P* THE BLOCK MUST FIRST BE
0x4acb64…4accf8 Dummy {f00=0x0173, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x4accf8…4ace8c Dummy {f00=0x0173, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x4ace8c…4ad020 Dummy {f00=0x0173, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x4ad020…4ad1b4 (5, 343) Dummy {f00=0x0173, f01=0x0190, f02=»O P EXTRN DSUMOD . P EXTRN EATEST,EASETB,CRNGET,EARELB,GTBKBU P EXTRN FNDKEY R P EXTRN CRNCIF,CRNCDF,CRNQUE h P EXTRN MXIND P EXTRN FDBKA,FDBNIF,RDNXTR 6 P EXTRN FDBKEY SAVE AREA FOR KEY IN INDEXED ACCESS P EXTRN GTLGR
0x4ad1b4…4ad348 Dummy {f00=0x0173, f01=0x018e, f02=»ONMMU , P EXTRN PRUN TTAB ADDRESS OF RUNNING TASK ( P EXTRN SCTPLD PROGRAM LOADING DEVICE > P EXTRN DMOPEN,DMCLOS,DMRFP j P EXTRN RELPRO & P EXTRN EOFRC,REQERR,NODERR,PROERR P EXTRN PROT,KEYERR,NXTKYS P EXTRN EOFERR P EXT
0x4ad348…4ad4dc Dummy {f00=0x0173, f01=0x018e, f02=» P* P* P************************ P* CONDITIONAL ASSEMBLY * 8 P************************ X P* x P* P* PX:B EQU 0 PX:C EQU 0 PX:E EQU 1 P* 6 P* INDEXED ACCEXSS FUNCTIONS CAN BE OMITTED WITH
0x4ad4dc…4ad670 Dummy {f00=0x0173, f01=0x0190, f02=» 6 PRECBFZ EQU 00004 INDEX RECORD BUFFER SIZE IN WORDS 0 PINSLAS EQU X:E INSERT SAME KEY LAST WHEN = 1 > P* r P* | P* . P* A PROGRAM VERSION USING TOSS MMU PAGING * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* PMMUPAG EQU 0
0x4ad670…4ad804 Dummy {f00=0x0173, f01=0x0190, f02=»* : P* THE FOLLOWING INTERNAL ORDER CODES IS THE RELATIVE & P* POSITION IN TIODM-TABLE TIODMF H P* r PORDERS EQU * | PQRR EQU *-ORDERS P DATA DMRDRE RANDOM READ PQSR EQU *-ORDERS P DATA DMSQRE SEQUENTIAL READ P IFT
0x4ad804…4ad998 Dummy {f00=0x0173, f01=0x018e, f02=» P XIF P IFT INDXAC=0 P DATA DMTERR,DMTERR & P XIF B PQRW EQU *-ORDERS N P DATA DMRDWR RANDOM WRITE f PQSW EQU *-ORDERS " P DATA DMSQWR SEQUENTIAL WRITE P IFT INDXAC=1 PQINS EQU *-ORDERS P DATA DMINS INDEXE
0x4ad998…4adb2c Dummy {f00=0x0173, f01=0x0190, f02=» P DATA DMREWR RANDOM REWRITE P IFT INDXAC=1 ( PQIRW EQU *-ORDERS > P DATA DMIRW INDEXED REWRITE X P XIF | P IFT INDXAC=0 P DATA DMTERR P XIF PQRD EQU *-ORDERS P DATA DMRDDE RANDOM DELETE P IFT INDXAC=1
0x4adb2c…4adcc0 Dummy {f00=0x0173, f01=0x0190, f02=»IR EQU *-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 : PQSTIND EQU *-ORDERS P P DATA DMSTIN START INDEXED l P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPC
0x4adcc0…4ade54 (5, 344) Dummy {f00=0x0173, f01=0x018e, f02=»EAD STATUS DONE IN TIODM PQRFP EQU *-ORDERS $ P DATA DMRFP READ FILE PARAMETERS : P EJECT b P************** p P* DMTASK * P************** P* PDMTASK EQU * P* P* SET UP A14 STACK P* P INH
0x4ade54…4adfe8 Dummy {f00=0x0173, f01=0x0190, f02=» " P* AND RFP,OPEN,STARTINDEXED P LD A4,FDBADF,A6 DATA FILE * * P CM FDBKA,A4 MARK 1ST PASS INDEXED DEL L PDMT020 EQU * z P* < P* LOOP ENTRY FOR INDEXED READ,INDEXED NEXT,INDEXED DEL P* START, AND SEQ READ P* P LD A7
0x4adfe8…4ae17c Dummy {f00=0x0173, f01=0x0190, f02=» r P* P LD A2,ECBCW,A9 P LD A3,ECBCW+2,A9 REC NR * P CC A2,FDBLRN,A1 J P RF(L) SQR430 NO EOF b P RF(G) SQR410 EOF ~ P CW A3,FDBLRN+1,A1 P RF(NG) SQR430 NO EOF PSQR410 EQU * P LDKL A1,EOFERR EOF P ABL DMT
0x4ae17c…4ae310 Dummy {f00=0x0173, f01=0x0190, f02=»ADDR | $ P CF A14,GTBKBU GET BLOCK BUFFER P LDR A2,A2 4 $ P RF(N) DMT030 NO DATA IN BUFFER F P EJECT n P* | " P* DELAYED BUFFER IS WRITTEN & P* IF IT IS NOT THE WANTED BLOCK P* P LC A7,BUFOR,A3 DELAY FLAG P ANK A
0x4ae310…4ae4a4 Dummy {f00=0x0173, f01=0x0190, f02=»A3 SECT NR P ST A7,ECBCW,A8 P LD A7,BUFSNR+2,A3 * P ST A7,ECBCW+2,A8 D P LDK A7,/95 WRITE WAIT ^ P LKM | P DATA 15 4 P CF A14,DMTIOT RET CODE CHECK AND RESET SECT NR P LDR A1,A1 P ABL(NZ) DMTERR ERR " P CF A14,DM
0x4ae4a4…4ae638 Dummy {f00=0x0173, f01=0x0190, f02=»CK INTO BUFFER P* P LDK A7,/91 PHYSICAL READ P LKM B P DATA 15 FM READ BLOCK N 4 P CF A14,DMTIOT CHECK RETURN CODES FROM DISC I/O l P LDR A1,A1 P ABL(NZ) DMTERR P LD A5,ECBBA,A8 P RF DMT090 . PDMT070 EQU * RIG
0x4ae638…4ae7cc Dummy {f00=0x0173, f01=0x0190, f02=»ER f P LDR A5,A3 & P ADKL A5,BUFSTA SKIP BUFFER HEADER * P ST A5,ECBBA,A8 PUT BUFFER ADDR IN ECB F PDMT090 EQU * t P LDR A1,A6 P LD A7,DWTOR,A6 P* A7 = INTERNAL ORDER CODE P ANK A7,/3F ( P ABI ORDERS,A7 DMTASK FUNCTION
0x4ae7cc…4ae960 Dummy {f00=0x0173, f01=0x0190, f02=» p " P* A7 = ORDER CODE ALL ORDERS P* (A8 = FDBECB ADDRESS ) . P* (A9 = USER ECB ADDRESS ) P P EJECT t PDMSQRE EQU * SEQUENTIAL READ P* PDMRDRE EQU * RANDOM READ P* PDMSTDI EQU * START DIRECT P* P*
0x4ae960…4aeaf4 (5, 345) Dummy {f00=0x0174, f01=0x0190, f02=»TE IN A1 | P RF(NE) DMT200 USED P CWK A7,QRR , P RF(E) DMT190 RANDOM READ @ P CWK A7,QSTDIR b P RF(NE) DMT250 NOT START x P LC A1,DWTOPT,A6 P ANK A1,7 OPTION P RF(NZ) DMT250 NOT EQUAL P RF DMT230 EQUAL =2 PDM
0x4aeaf4…4aec88 Dummy {f00=0x0174, f01=0x0190, f02=»230 START P LD A2,ECBRL,A9 REQ LGTH P CW A2,FDBRLE,A6 RECORD LGTH 2 P RF(NG) DMT220 V P LD A2,FDBRLE,A6 MAX LGTH l & PDMT220 ST A2,ECBEL,A9 SET EFF LGTH P* P* MOVE THE RECORD P* P CF A14,DMTREM P* 0 P
0x4aec88…4aee1c Dummy {f00=0x0174, f01=0x0190, f02=»DATA AT SEQ READ P* P* GET NEXT RECORD " P* > P LD A2,ECBCW+2,A9 REC NR H P ADK A2,1 h P RF(O) DMT260 OVERFLOW z P RF DMT270 PDMT260 ANKL A2,/7FFF P IM ECBCW,A9 CARRY PDMT270 ST A2,ECBCW+2,A9 PDMT280 E
0x4aee1c…4aefb0 Dummy {f00=0x0174, f01=0x0190, f02=» CF A14,EATEST P LDR A4,A4 P ABL(N) DMEAER PROTECT ERROR * P IFT INDXAC=1 N P LD A4,DWTOR,A6 ORDER d P ANK A4,/3F P CWK A4,QSTIND P ABL(E) DMT400 START INDEXED P XIF P LDR A1,A2 P LDR A2,A3 REC NR P
0x4aefb0…4af144 Dummy {f00=0x0174, f01=0x0190, f02=» P LDR A1,A6 FDB ADDRESS P LC A3,FDBDBR,A6 DELAY " P ANK A3,/10 @ P RF(NZ) DMT295 KEEP BUFFER T P LD A3,ECBBA,A8 v P SUKL A3,BUFSTA BUFFER ADDR P* P* RELEASE BLOCK BUFFER P* P CF A14,DMTRBU PDMT295 EQU *
0x4af144…4af2d8 Dummy {f00=0x0174, f01=0x018e, f02=»* PDMREWR EQU * RANDOM REWRITE P* . PDMRDDE EQU * RANDOM DELETE 8 P* Z PDMINS EQU * INDEXED INSERT d P* PDMDEL EQU * INDEXED DELETE P* PDMIRW EQU * INDEXED REWRITE P* P* TEST STATUS P LD A1
0x4af2d8…4af46c Dummy {f00=0x0174, f01=0x0190, f02=» ~ P LD A3,ECBCW+2,A9 LOG REC NR P LDK A4,0 , P CCR A4,A10 > P RF(E) DMS010 FREE R P IFT INDXAC=1 l P LDR A4,A7 P SUK A4,QINS P RF(E) DMS008 INDEXED INSERT P XIF P LDR A4,A7 P SUK A4,QRW P RF(E) DMS
0x4af46c…4af600 Dummy {f00=0x0174, f01=0x018e, f02=»ECTED ~ P RF DMERR PDMS010 EQU * P IFT INDXAC=1 4 P LDR A4,A7 J P SUK A4,QIRW " P RF(Z) DMERND INDEXED REWRITE p P LDR A4,A7 P SUK A4,QDEL P RF(Z) DMERND INDEXED DELETE P XIF P LDR A4,A7 P SUK A4,QR
0x4af600…4af794 (5, 346) Dummy {f00=0x017b, f01=0x018e, f02=» P CF A14,EATEST P LDR A4,A4 RTN CODE P RF(N) DMEAER EA OTHER TASK : PDMS100 EQU * ^ P LDK A3,0 STATUS FREE r P IFT INDXAC=1 P LDR A2,A7 P SUK A2,QIRW " P RF(E) CHK010 INDEXED REWRITE P LDR A2,A7 P SUK
0x4af794…4af928 Dummy {f00=0x017b, f01=0x0190, f02=» P SUK A2,QDEL P RF(E) CHK010 INDEXED DELETE P XIF @ P LDR A2,A7 L P SUK A2,QRD ^ P ABL(E) DMT350 RANDOM DELETE r P RF DMT310 P IFT INDXAC=1 P EJECT PCHK010 EQU * F P* INDEXED REWRITE,INDEXED INSERT AND I
0x4af928…4afabc Dummy {f00=0x017b, f01=0x0190, f02=»40 EQU * P SUK A5,2 $ P RF(N) CHK100 ALL INDEX CHECKED " P LDR A2,A1 FDB ADD J P ADR A2,A5 d ( P LD A6,FDBAI1,A2 FDB ADDR INDEX FILE v P RB(Z) CHK040 NO INDEX P LD A2,DWTOR,A1 P ANK A2,/3F ORDER INDEX P CWK A2,QINS
0x4afabc…4afc50 Dummy {f00=0x017b, f01=0x0190, f02=» A2,/4 * P RB(NZ) CHK040 NO CHECK ON DEL CURRENT ! PCHK050 EQU * ! < P* ! P P IFT MMUPAG=1 ! Z P LDR A7,A1 SAVE A1 ! p * P LD A1,FDBKA,A6 GET KEY START ADDRESS ! P AD A1,ECBBA,A9 ! 2 P LDKL A2,FDBKEY GET KEY SAVE AREA DISPLACEMENT ! P A
0x4afc50…4afde4 Dummy {f00=0x017b, f01=0x0190, f02=»TAB,A7 GET TTAB ADDRESS ! , P CF A14,MOV:US MOVE KEY TO FDB KEY AREA " P LDR A1,A7 RESTORE A1 " P P LDR A2,A13 RESTORE A2 " n * P LD A3,FDBKA,A6 GET KEY START ADDRESS " P XIF " P* " P IFT INDXAC=1 " P IFT MMUPAG=0 " " P LD A2,FDBKA
0x4afde4…4aff78 Dummy {f00=0x017b, f01=0x0190, f02=»RRO,A1 " P ADR A3,A11 KEY IN FILE # P LDK A7,0 # . " P LD A6,FDBRLE,A6 RECORD LENGTH # @ P SUK A6,6 KEY LENGTH # f P CF A14,CHKKEY COMPARE KEYS # P CWR A6,A7 # * P RB(E) CHK040 KEY UNCHANGED CHECK NEXT # P LDR A6,A1 FDB ADDR # P LDKL
0x4aff78…4b010c Dummy {f00=0x017b, f01=0x0190, f02=»R INDEX # P RF DMT310 $ P XIF $ " P EJECT $ . " PDMERND LDKL A1,NODERR NO DATA $ < P RF DMERR $ b * PDMEAER EQU * RELEASE EA FOR ALL FILES $ t P SUR A9,A9 $ " P LC A9,FDBTNR,A6 USER TASK ID $ " P CF A14,RELPRO RELEASE PROTECT $ P LDKL A1
0x4b010c…4b02a0 Dummy {f00=0x017b, f01=0x0190, f02=»NDXAC=1 $ P CWK A7,QDEL % P RF(NE) DMT313 NOT INDEX DEL % $ P* % H " P* MOVE KEYS TO FDB KEY AREAS % R P* % x P LDK A5,8 % PIXINS3 EQU * % P LDR A2,A6 FDB DATA % P ADR A2,A5 % P LD A3,FDBADF,A2 FDB INDEX % P RF(Z) IXINS4 NO
0x4b02a0…4b0434 (5, 347) Dummy {f00=0x017c, f01=0x018e, f02=»RLE,A3 REC LGTH % P SUK A2,6 KEY LGTH & P ADKL A3,FDBKEY TO ADDR & 2 " P CF A14,DMTBM KEY TO FDB AREA & R PIXINS4 EQU * & x P SUK A5,2 & P RB(NZ) IXINS3 MORE INDEXS & P ABL DMXDEL INDEXED DEL & PDMT313 EQU * & P XIF & " P LD A2,F
0x4b0434…4b05c8 Dummy {f00=0x017c, f01=0x0190, f02=» P* ' P IFT MMUPAG=0 ' P XRR A4,A1 ' $ P ANK A4,/01 ' 6 ( P RF(E) DMT320 BOTH ODD OR BOTH EVEN ' J & P CF A14,DMTBM ONE ODD AND ONE EVEN ' v P RF DMT340 ' P* ' PDMT320 LDR A4,A3 ' P ANK A4,/01 ' P RF(E) DMT330 BOTH EVEN ' P
0x4b05c8…4b075c Dummy {f00=0x017c, f01=0x0190, f02=»* ' P XIF ( P* ( P IFT MMUPAG=1 ( P LDR A3,A2 GET LENGTH ( 6 , P LDR A2,A4 GET RECEIVING BUFFER ADDRESS ( T & P LD A4,DWTTAB,A6 GET TTAB ADDRESS ( 8 P CF A14,MOV:US MOVE RECORD FROM USER TO SYSTEM AREA ( P XIF ( P EJECT ( P* (
0x4b075c…4b08f0 Dummy {f00=0x017c, f01=0x018e, f02=» ( P RF(N) DMT390 DELAY NO WRITE ) P LDK A7,/95 PHYSICAL WRITE ) , P* ) N P* WRITE BLOCK TO DISC ) X P* ) x ( P LDR A1,A6 FDB ADDRESS AS PARAMETER ) P LKM ) P DATA 15 FM WRITE ) " P CF A14,DMTIOT CHECK DISC I/O ) P LDR A1,A1 )
0x4b08f0…4b0a84 Dummy {f00=0x017c, f01=0x0190, f02=» PDMT400 EQU * * " P LDR A1,A6 FDB ADDR DATA FILE * & P CF A14,CRNGET GET CURRENCY BUFFER * > P LDR A10,A2 BUFFER ADDR * h P LD A2,ECBCW,A9 * P LD A3,ECBCW+2,A9 LOG REC NR * P LD A7,DWTOR,A1 * P ANK A7,/3F ORDER INDEX * P LDK A4,QRW
0x4b0a84…4b0c18 Dummy {f00=0x017c, f01=0x0190, f02=»4,QSW * P CWR A7,A4 + P RF(E) DMT460 SEQ WRITE + P IFT INDXAC=1 + @ P LDK A4,QIRW + V P CWR A7,A4 + j P RF(E) DMT420 IND REWR + | P LDK A4,QINS + P CWR A7,A4 + P RF(E) DMT460 INDEXED INSERT + P CWK A7,QSTIND + P RF(E) DMT40
0x4b0c18…4b0dac Dummy {f00=0x017c, f01=0x0190, f02=»A2 + P LDR A5,A3 , P SUK A5,1 , P RF(NN) DMT408 , . P ANKL A5,/7FFF , D P SUK A4,1 , Z PDMT408 EQU * , l " P ST A4,CRNCDF,A10 NEW CURRENCY , P ST A5,CRNCDF+2,A10 , P RF DMT420 , PDMT409 EQU * , P ST A2,CRNCDF,A10 , & P ST A3
0x4b0dac…4b0f40 Dummy {f00=0x017c, f01=0x0190, f02=» , P RF(Z) DMT470 NOT PROTECT - P* - * " P* CHECK IF EA IS SET ALREADY - 4 P* - Z P CF A14,EATEST CHECK EA - d P LDR A4,A4 - " P RF(NZ) DMT470 EA ALREADY SET - P* - P* SET EA - P* - P CF A14,EASETB - P RF DMT470 -
0x4b0f40…4b10d4 (5, 348) Dummy {f00=0x017c, f01=0x0190, f02=»70 EQU * - P IFT INDXAC=1 . P LDK A4,QINS . & P CWR A7,A4 . : " P ABL(E) DMINS2 INDEXED INSERT . L P XIF . r P EJECT . ~ " PDMTAEX LDK A1,0 CORRECT RETURN . P* . PDMTERR LC A3,FDBDBR,A6 . P ANK A3,/10 . P RF(NZ) DMTERX KEEP BUFFER
0x4b10d4…4b1268 Dummy {f00=0x017c, f01=0x0190, f02=» GET FDB DATA FILE . P INH / P* A1 = RET CODE / & P* A6 = DWT ADDR / @ P CF A15,TENDIO / Z P ENB / p P LKM / | P DATA 3 / P IFT INDXAC=1 / P EJECT / $ PDMIRR EQU * INDEXED RANDOM READ / P* / PDMSTIN EQU * START INDEXED
0x4b1268…4b13fc Dummy {f00=0x017c, f01=0x0190, f02=»FDBRLE,A1 REC LGTH INDEX / P SUKL A11,6 KEY LENGTH 0 P LDR A13,A1 0 > P ADKL A13,FDBECB ECB ADDR 0 R $ P CF A14,FNDKEY GET INDEX RECORD 0 t ( PDMR006 EQU * FROM INDEXED READ NEXT 0 P LD A9,DWTECB,A1 0 P LDR A6,A1 FDB ADR 0 P LDKL A8,FDBEC
0x4b13fc…4b1590 Dummy {f00=0x017c, f01=0x0190, f02=» 0 x P LC A4,DWTOPT,A6 1 P ANK A4,7 OPTION 1 P RF(Z) DMR007 EQUAL 1 8 " P ANKL A2,/FBFF IGNORE NOKEY =1 1 T PDMR007 EQU * 1 z P LDR A2,A2 RET CODE 1 $ P RF(NZ) DMI037 KEY NOT FOUND =4 1 $ P LD A2,FDBRRO,A1 RECORD ADDR =3 1 P ADKL A2,BUFST
0x4b1590…4b1724 Dummy {f00=0x017c, f01=0x0190, f02=» P* MOVE LOG REC NO TO ECB 2 P* 2 & P LDK A5,0 2 0 P LC A5,3,A2 2 B P ST A5,ECBCW,A9 2 V P LC A5,4,A2 2 n P ECR A5,A5 2 P LC A5,5,A2 2 P ST A5,ECBCW+2,A9 2 P* SET CRN 2 P* 2 $ P LD A11,FDBADF,A6 FDB DATA FILE 2 P
0x4b1724…4b18b8 Dummy {f00=0x017c, f01=0x0190, f02=»X FILE 2 x ( P CF A14,GTLGRN GET INDE X LOG REC NO 3 P LDK A5,QRR RANDOM READ 3 : P LD A7,DWTOR,A11 3 Z P ANK A7,/3F ORDER 3 r P SUK A7,QSTIND 3 P RF(NE) DMR025 INDEXED READ 3 P LDK A5,QSTIND START INDEXED 3 P SUK A3,1 3 P RF(NN) DMR0
0x4b18b8…4b1a4c Dummy {f00=0x017c, f01=0x0190, f02=»INDEX FILE 3 x P LD A2,ECBCW,A9 REC NR DATA 4 P ST A2,CRNCDF,A10 4 6 P LD A2,ECBCW+2,A9 4 P P ST A2,CRNCDF+2,A10 4 j P LC A2,FWTFNR,A6 FILE NR 4 P SC A2,CRNCIF,A10 4 P LDR A6,A11 FDB DATA 4 P SC A5,DWTOR+1,A6 NEW ORDER 4 P LDKL A2
0x4b1a4c…4b1be0 Dummy {f00=0x017c, f01=0x0190, f02=»******************************************* 4 " P LD A2,FDBRRO,A1 RECORD OFFSET 5 4 P LDR A3,A5 5 Z P SUKL A3,BUFSTA 5 l PDMI100 EQU * 5 P ADR A2,A3 BUFFADR 5 P ADKL A2,BUFSTA 5 ( P AD A2,FDBRLE,A1 ADDR OF STATUS CHAR 5 P LDK A5,/FF USED M
0x4b1be0…4b1d74 (5, 349) Dummy {f00=0x017c, f01=0x018e, f02=» P* CHECK IF END OF FILE 6 P* 6 $ P LDR A9,A3 SAVE 6 . P CF A14,GTLGRN GET REC NR 6 F P CC A2,FDBLRN,A1 6 h P RF(L) DMI106 NOT EOF 6 P RF(G) DMI105 EOF 6 P CW A3,FDBLRN+1,A1 6 P RF(L) DMI106 NOT EOF 6 PDMI105 LDR A3,A9 6 P
0x4b1d74…4b1f08 Dummy {f00=0x017c, f01=0x0190, f02=» 6 P* INDEX RECORD IS FOUND 7 P* 7 * P LD A9,DWTECB,A1 USER ECB 7 4 P* 7 V P* KEY RECORD FOUN 7 ` . P* CHECK IF NEXT RECORD HAS THE SAME KEY 7 | P* 7 " P LD A2,FDBRRO,A1 RECORD OFFSET 7 P ADKL A2,BUFSTA 7 P ADR A2,A3 REC ADD
0x4b1f08…4b209c Dummy {f00=0x017c, f01=0x0190, f02=») DMR020 NEXT KEY NOT SAME 7 P LDKL A5,NXTKYS BIT 6 8 " " P ORS A5,ECBRC,A9 NEXT KEY SAME 8 @ PDMR020 EQU * 8 f P LDK A2,0 MARK FOUND 8 z . P ABL DMR006 CONT AS FOR INDEXED RAND READ 8 * PDMI037 LDKL A1,KEYERR KEY NOT FOUND =4 8 P RF DMI035 =4 8
0x4b209c…4b2230 Dummy {f00=0x017c, f01=0x0190, f02=»QU * 8 P LDKL A1,NODERR NO IDENT 9 PDMI035 EQU * 9 , P LDR A3,A3 BUFFER ADDR 9 @ P ABL(Z) DMTERX NO BUFFER 9 ^ P ABL DMTERR ERROR AND BUFFER 9 ~ PDMI036 EQU * 9 P ANK A1,/27 9 " P RB(NZ) DMI035 BIT 10,13,14,15 9 " P LDKL A1,EOMERR GRAVE ER
0x4b2230…4b23c4 Dummy {f00=0x017c, f01=0x0190, f02=»******************************************* 9 P LC A3,FDBDBR,A6 : 4 P ANK A3,/10 : L P RF(NZ) DXI010 KEEP BUFFER : ` P LD A3,ECBBA,A8 : P SUKL A3,BUFSTA : " P CF A14,DMTRBU RELEASE BUFFER : PDXI010 EQU * : P LDK A5,10 LOOPER : PDX
0x4b23c4…4b2558 Dummy {f00=0x017c, f01=0x0190, f02=» A4,A6 FDB DATA : P ADR A4,A5 ; P LD A1,FDBADF,A4 FDB INDEX ; * P RB(Z) DXI020 NO INDEX ; L P LD A2,DWTOR,A6 ORDER ; j P ST A2,DWTOR,A1 ; " P LD A2,DWTECB,A6 USER ECB ADDR ; P ST A2,DWTECB,A1 ; P ST A5,FDBKA,A6 SAVE COUNTER ; P SUK A
0x4b2558…4b26ec Dummy {f00=0x017c, f01=0x0190, f02=» P* < PDMTAR5 EQU * < " P LD A6,FDBADF,A1 FDB DATA FILE < " * P LD A5,FDBKA,A6 GET COUNTER OF INDEXES < H P RB DXI020 TAKE NEXT INDEX < v PDXI100 EQU * INDEXES READY < P LDK A1,0 RET CODE < P SUK A7,QINS INDEXED INSERT < P ABL(E) DMTERX R
0x4b26ec…4b2880 Dummy {f00=0x017c, f01=0x0190, f02=» < P* GET KEY IN USER BUFFER = P* = * P LD A4,FDBADF,A1 DATA FDB = 4 P LD A4,DWTECB,A4 USER ECB = V P LD A8,ECBBA,A4 USER BUFFER = x P AD A8,FDBKA,A1 KEY ADDR = P RF INS010 = P XIF = P IFT INDXAC=1 = P* = $ PDMDELX EQU * D
0x4b2880…4b2a14 (5, 350) Dummy {f00=0x017c, f01=0x0190, f02=» EQU * = P LDR A12,A8 > $ P LD A11,FDBRLE,A1 RECORD LENGTH > " P SUKL A11,6 KEY LENGTH > J P LDR A13,A14 > h 0 P ADKL A13,2 ECB ADDR TO RECORD BUFFER AREASS > | $ P CF A14,FNDKEY GET INDEX RECORD > P LDR A6,A1 FDB ADDR > P LDR A1,A2 RET CODE
0x4b2a14…4b2ba8 Dummy {f00=0x017c, f01=0x0190, f02=»,DWTOR,A6 > P ANK A1,/3F ? P SUK A1,QDEL ? & & P ABL(E) DEL000 DELETE INDEX RECORD ? : P* ? d ( P* SET RC BIT 6 TO USER IF NEXT KEY ? n " P* IS SAME IN REQUESTED INDEX ? P* ? P LDR A2,A2 ? $ P RF(NZ) INS050 NEXT KEY NOT SAME ? " P LDK
0x4b2ba8…4b2d3c Dummy {f00=0x017c, f01=0x0190, f02=»* ? P LDR A1,A6 FDB @ P LD A2,FDBRRO,A1 REC OFFS @ P RF INS100 @ B PINS080 EQU * @ T P CF A14,RDNXTR GET NEXT REC @ h P RF INS100 OK @ P ABL DEL045 ERROR @ PINS100 EQU * @ P ADR A2,A3 @ P ADKL A2,BUFSTA @ P AD A2,FDBRLE,
0x4b2d3c…4b2ed0 Dummy {f00=0x017c, f01=0x0190, f02=»B INS080 GET FIRST RE C IN NXT SECT @ PINS150 EQU * A , P LC A5,-4,A2 DUPL KEY CHAR A @ P CWR A5,A11 KEY LENGTH A b $ P RB(E) INS080 NEXT SAME GET NEXT A P* A P* UPDATE LAST SAME RECORD A P* A P SC A11,-4,A2 NEXT SAME A P LD A7,F
0x4b2ed0…4b3064 Dummy {f00=0x017c, f01=0x0190, f02=»5 WRITE,WAIT A P LKM B P DATA 15 FM B P CF A14,DMTIOZ IO CHECK B 4 P LDR A1,A1 B T P ABL(NZ) DMTERR B f P* B ~ P* GET NEXT RECORD B P* B PINS160 EQU * B " P LDR A7,A5 NR OF SAME IN NEXT B P LDR A1,A6 FDB B P CF A14,RD
0x4b3064…4b31f8 Dummy {f00=0x017c, f01=0x0190, f02=»B,A6 USER ECB ADDR B P XIF C P IFT INDXAC=1 C & PINS050 EQU * C < P* C P ( P* CREATE AN INDE XRECORD IN AREA 1 C Z P* C P LDR A1,A12 FROM ADDR C P* C P LDR A3,A14 C P ADK A3,2 TO ADDR C P LDR A2,A11 KEY LENGTH C P CF
0x4b31f8…4b338c Dummy {f00=0x017c, f01=0x0190, f02=»A3 NR OF SAME CHAR C P ADK A3,1 D " P LDR A7,A3 ADDR OF LOG REC NR D , P LD A2,ECBCW,A5 D R * P LD A3,ECBCW+2,A5 REC NR DATA FILE REC D j P SCR A2,A7 D P ADK A7,2 D P SCR A3,A7 D P ECR A3,A3 D P SUK A7,1 D P SCR A3,A7 LOG REC NR
0x4b338c…4b3520 Dummy {f00=0x017c, f01=0x018e, f02=»DEX D t P* E , P* SAVE RECORD NR FOR FIRST MOVED INDEX E P* E F P ST A2,-28,A14 E P P ST A3,-26,A14 E f P EJECT E | P* E : P* BELOW IS A NEW INDEX RECORD INSERTED AND FOLLOWING E $ P* USED RECORDS ROLLED FORWARD E $ P* A6,A11,A13
0x4b3520…4b36b4 (5, 351) Dummy {f00=0x0185, f01=0x0190, f02=» P* A10 = AREA ADDR F " P* A11 = RECORD LENGTH INDEX F , P* A12 = AREA INDEX 0=BUFAR1,1=BUFAR2 F F $ P* A13 = BUFFER ADDRESS BLOCK F v P* F PINS190 EQU * F P LDKL A12,1 BUFADR2 F PINS200 EQU * F P LDK A1,0 F P LDR A12,A
0x4b36b4…4b3848 Dummy {f00=0x0185, f01=0x0190, f02=»1,2 F ( P ADR A10,A1 RECORD BUFFER AREA ADDR G P* G 8 P* SAVE LAST RECORD G B P* G ^ P LDR A1,A13 G h P ADKL A1,BUFSTA G | . P AD A1,FDBMRO,A6 ADDR OF LAST REC IN SECT G P LDR A2,A11 G P LDR A3,A10 G " P CF A14,DMTBM SAVE LAST RE
0x4b3848…4b39dc Dummy {f00=0x0185, f01=0x0190, f02=» A5,A1 G P LD A2,FDBMRO,A6 H P SU A2,FDBRRO,A6 NR OF CHAR H & P LDR A3,A1 H J P ADR A3,A11 TO ADDR H P CF A14,DMTBMR MOVE H x P* INSERT NEW RECORD H P* H P LDKL A1,RECBFZ BUFFER SIZE H P SLL A1,1 BYTE NO H P LDR A12,A12 H
0x4b39dc…4b3b70 Dummy {f00=0x0185, f01=0x018e, f02=» ADDR H P LDR A2,A11 NR OF CHAR I P LDR A3,A5 TO ADDR I , P CF A14,DMTBM MOVE I F P* WRITE BUFFER I ` P* I x P LDR A8,A14 USE STACK AS ECB I P SUKL A8,24 I " P LC A2,FWTFNR,A6 VOL DEV CODE I P ANK A2,/FF I P STR A2,A8 I P
0x4b3b70…4b3d04 Dummy {f00=0x0185, f01=0x0190, f02=» I | P ST A2,ECBRL,A8 J P LD A2,FDBSNR,A6 SECTOR NR J P ST A2,ECBCW,A8 SECTOR NR J B P LD A3,FDBSNR+2,A6 J d P ST A3,ECBCW+2,A8 SECT NR J ~ P LDK A7,/95 WRITE , WAIT J P LKM J P DATA 15 FM J P LDR A1,A6 FDB INDEX J P CF A14,DMTI
0x4b3d04…4b3e98 Dummy {f00=0x0185, f01=0x0190, f02=» P LDR A2,A10 RECORD AREA ADDR K P ADR A2,A11 REC LGTH K ( " P SUK A2,1 ADDR OF STATUS CHAR K D P LD A4,FDBMRO,A6 K j ( P ST A4,FDBRRO,A6 MAX OFFSET IN SECT K P CCR A1,A2 K P RF(Z) INS400 FREE RECORD K P* K P* GET NEXT BLOCK K P*
0x4b3e98…4b402c Dummy {f00=0x0185, f01=0x0190, f02=» K P RF DEL045 ERR L PINS260 EQU * L P LDR A13,A3 NEW BUFFER ADDR L 2 P LDR A12,A12 L V ( P RB(Z) INS190 SWITCH RECORD BUFFERS L j P SUR A12,A12 L P RB INS200 L P EJECT L PINS400 EQU * L P* L ( P* UPDATE LRN IF EOF IS ENCOUNT
0x4b402c…4b41c0 Dummy {f00=0x0185, f01=0x0190, f02=»410 EOF L P CW A3,FDBLRN+1,A1 M P RF(NG) INS430 NO EOF M * PINS410 EQU * M H " P SC A2,FDBLRN,A6 LLAST REC NR M P ST A3,FDBLRN+1,A6 M P LDKL A1,EOFRC END OF FILE M P ORS A1,ECBRC,A9 TO USER M P EJECT M PINS430 EQU * M P* M
0x4b41c0…4b4354 (5, 352) Dummy {f00=0x0188, f01=0x0190, f02=»REC NR MOVED M P LD A10,-28,A14 N & P LD A11,-26,A14 FIRST REC NR MOVED N , * P CF A14,CRNUPD ADD 1 TO RECORD NUMBERS N V PINS440 EQU * N P LDR A1,A5 FDB INDEX N P LDR A3,A13 BUFFER ADDR N P CF A14,DMTRBU REL BUFFER N * P ABL DMTAR5 ONE IN
0x4b4354…4b44e8 Dummy {f00=0x0188, f01=0x0190, f02=» PDEL010 EQU * O " P ABL(NZ) DMI036 KEY NOT FOUND O P* O > P* CHECK RECORD NR DATA REC O H P* O l PDEL020 EQU * O v P LD A1,FDBRRO,A6 O P ADR A1,A3 O P AD A1,FDBRLE,A6 O " P ADK A1,7 BUFSTA-3=ADDR REC NR O P LCR A2,A1 O P CC
0x4b44e8…4b467c Dummy {f00=0x0188, f01=0x0190, f02=»,ECBCW+2,A12 O P RF(E) DEL200 RECORD FOUND P PDEL030 EQU * P 6 P EJECT P J P* P X P* CHECK IF NEXT KEY SAME P b P* P P CC A11,-1,A1 KEY LENGTH P $ P RB(NE) DEL010 NEXT KEY NOT SAME P P LDR A1,A6 FDB INDEX P PDEL040 EQU * P ( P C
0x4b467c…4b4810 Dummy {f00=0x0188, f01=0x0190, f02=» * P P* Q P* CHECK IF RECORD IS USED Q P* Q 8 P LDR A13,A3 NEW BUFFER ADDR Q B P ADR A2,A3 Q f P ADKL A2,BUFSTA Q x $ P AD A2,FDBRLE,A1 ADDR OF STATUS Q P LDK A5,/FF Q P CCR A5,A2 Q P RB(E) DEL020 USED Q P LD A4,FDBMRO,A1
0x4b4810…4b49a4 Dummy {f00=0x0188, f01=0x018e, f02=»RC BIT 6 IF NEXT KEY SAME Q P* R " P LDK A7,0 R , P LC A7,-1,A1 NR OF SAME CHAR R > 2 P ST A7,16,A14 SAVE IN RECORD BUFFER AFTER ECB R b P CWR A11,A7 KEY LENGTH R $ P RF(NE) DEL220 NEXT KEY NOT SAME R P LDKL A4,NXTKYS R $ P ORS A4,ECBRC,A12
0x4b49a4…4b4b38 Dummy {f00=0x0188, f01=0x018e, f02=» R n P LDR A3,A13 S P ADKL A3,BUFSTA S P AD A3,FDBRRO,A6 TO ADDR S 4 P LDR A1,A3 S T P ADR A1,A11 FROM ADDR S f P LD A2,FDBMRO,A6 S P SU A2,FDBRRO,A6 NR OF CHAR S P CF A14,DMTBM MOVE S P* S P* SET LAST RECORD FREE S P* S
0x4b4b38…4b4ccc Dummy {f00=0x0188, f01=0x0190, f02=» S n P* T P LDR A1,A6 FDB ADDR T P CF A14,GTLGRN GET REC NR T . P LDR A10,A2 T P " P LDR A11,A3 FIRST REC NR MOVED T d P LD A12,FDBRRO,A6 OLD OFFSET T P LD A4,FDBMRO,A6 T P ST A4,FDBRRO,A6 MAX OFFSET T $ P CF A14,GTLGRN LAST REC NR MOV
0x4b4ccc…4b4e60 Dummy {f00=0x0188, f01=0x018e, f02=»N BUFFERS T x $ P LDKL A12,1 MARK BUFFER CHANGED U PDEL240 EQU * U : P LD A4,FDBRRO,A5 U N $ P RF(NZ) DEL290 NOT FIRST RECORD U f P LDR A1,A5 FDB U P CF A14,GTLGRN GET REC NR U P LDR A1,A2 U P LDR A2,A3 U P LDK A6,0 U P LDK A7,1 U
0x4b4e60…4b4ff4 (5, 353) Dummy {f00=0x0188, f01=0x0190, f02=» U r P LDR A5,A6 FDB ADDR V P LDR A1,A1 V $ P RF(NZ) DEL600 FILE START V 6 P LDR A8,A14 V X P ADKL A8,2 ECB ADDR V l P LDR A12,A12 V $ P RF(Z) DEL245 BUFFER NOT CHANGED V P* V P* WRITE SECTOR V P* V P LDK A7,/95 WRITE WAIT V
0x4b4ff4…4b5188 Dummy {f00=0x0188, f01=0x0190, f02=»UR A12,A12 BUFFER NOT CHANGED YET V PDEL245 EQU * W * P LDR A3,A13 W > " P CF A14,DMTRBU RELEASE BUFFER W R P* W x P* GET PREVIOUS SECTOR W P* W P LDR A1,A5 FDB ADDR W P LDK A3,0 W P CF A14,RDNXTR GET SECTOR W P RF DEL250 O
0x4b5188…4b531c Dummy {f00=0x0188, f01=0x018e, f02=»D A4,FDBMRO,A5 W P RF DEL300 X PDEL290 EQU * X ( P SU A4,FDBRLE,A5 X < P SUK A4,1 X T PDEL300 EQU * X f * P ST A4,FDBRRO,A5 PREVIOS RECORD OFFSET X z P ADKL A4,BUFSTA X P ADR A4,A13 RECORD ADDR X & P AD A4,FDBRLE,A5 STATUS CHAR ADDR X
0x4b531c…4b54b0 Dummy {f00=0x0188, f01=0x0190, f02=» X x P LD A1,FDBADF,A5 FDB DATA F Y " P CF A14,CRNGET GET CRN BUFFER Y , " P LC A1,FWTFNR,A5 INDEX FILE NR Y R $ P CC A1,CRNCIF,A2 LAST REF INDEX Y x P RF(NE) DEL350 NOT THIS IND Y P* Y P* UPDATE CURRENCY Y P* Y P LDR A8,A2 CRN ADDR
0x4b54b0…4b5644 Dummy {f00=0x0188, f01=0x0190, f02=» * Y . P LC A2,17,A14 NR OF SAME IN DELETED RECORD Z " P* WAS SAVED AT LABEL DEL200 Z < P CC A2,-4,A9 Z b P RF(NL) DEL600 Z v ( P SC A2,-4,A9 MAKE NR OF SAME SMALLER Z P RF DEL700 WRITE SECTOR Z PDEL600 EQU * Z P LDR A12,A12 Z $ P RF(Z) D
0x4b5644…4b57d8 Dummy {f00=0x0188, f01=0x40f0, f02=» Z | P LDK A7,/95 WRITE WAIT [ P LKM [ & P DATA 15 FM [ 2 P LDR A1,A5 FDB ADDR [ F P CF A14,DMTIOZ IO CHECK [ b P LDR A1,A1 [ P ABL(NZ) DMTERR [ PDEL900 EQU * [ P ABL INS440 [ P XIF [ P END [ @ [ A12,A12 Z $ P RF(Z) D
0x4b57d8…4b596c Dummy {f00=0x0188, 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* +
0x4b596c…4b5b00 Dummy {f00=0x0188, f01=0x0190, f02=»ETE WRITE REQUEST | P ABL BMM000 PMUT210 EQU * . P CWK A2,PAR:0 B P RB(E) MUT200 ACK 0 RECEIVED X P RB MUT180 | PMUT220 EQU * P CF A5,HALTIN P CWK A2,NAK P RF(NE) MUT230 $ PMUT225 EQU * NAK OR ENQ RECEIVED
0x4b5b00…4b5c94 (5, 354) Opaque[0x194]
0x4b5c94…4b5e28 # DirEnt {nam=»DMINIT«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f08, f03=0x0000}
0x4b5c94…4b5e28 IdxSect {
0x4b5c94…4b5e28 f00 = 0x0178 // 0x4b5c94 @0x0
0x4b5c94…4b5e28 f01 = 0x0002 // 0x4b5c96 @0x2
0x4b5c94…4b5e28 gno = [ // 0x4b5c98 @0x4
0x4b5c94…4b5e28 [0x00]: C0x0178.0x1.0
0x4b5c94…4b5e28 ]
0x4b5c94…4b5e28 }
0x4b5e28…4b5fbc Dummy {f00=0x0178, f01=0x0190, f02=» 2 P IDENT DMINIT REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 0 P* DMINIT = DATA MANAGEMENT INITIALIZATION P* P* P*
0x4b5fbc…4b6150 Dummy {f00=0x0178, f01=0x0190, f02=»FFER HEADER IN DM BUFFERS p P* " , P* DMINIT IS CALLED AS A PFINIT ROUTINE , P* " P* REGISTERS A1 - A6 ARE USED f P EJECT P* P ENTRY DMINIT P ENTRY DMI010 FROM DMBUF P* P EXTRN INIFLG P EXTRN DMI020
0x4b6150…4b62e4 Dummy {f00=0x0178, f01=0x406e, f02=» . P ABL(NZ) DMI020 FIRST ACTIVATION AFTER IPL PDMI010 EQU * : P RTN A15 N P END ^@ jSTERS A1 - A6 ARE USED f P EJECT P* P ENTRY DMINIT P ENTRY DMI010 FROM DMBUF P* P EXTRN INIFLG P EXTRN DMI020
0x4b62e4…4b6478 Dummy {f00=0x0178, 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
0x4b6478…4b660c Dummy {f00=0x0178, f01=0x0190, f02=»ACE PSTX EQU /82 START OF MESSAGE PETB EQU /97 END OF MESSAGE 0 PETX EQU /03 LAST DUMMY R . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE p * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE " PPOINT EQU /2E POINT CHARACTER 2 PEQU EQU 6 THRESHOL
0x4b660c…4b67a0 Dummy {f00=0x0178, f01=0x0190, f02=»****** P* RETURN CODES * P******************** * P* F " PCCERR EQU /4 CODE CHECK ERROR P ( POPERR EQU /1 NOT OPERABLE, POWER OFF v P* P EJECT P* P* . P***************************************** . P* CON
0x4b67a0…4b6934 (5, 355) Opaque[0x194]
0x4b6934…4b6ac8 # DirEnt {nam=»DMOPCL«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2eb0, f03=0x0000}
0x4b6934…4b6ac8 IdxSect {
0x4b6934…4b6ac8 f00 = 0x0175 // 0x4b6934 @0x0
0x4b6934…4b6ac8 f01 = 0x0014 // 0x4b6936 @0x2
0x4b6934…4b6ac8 gno = [ // 0x4b6938 @0x4
0x4b6934…4b6ac8 [0x00]: C0x0175.0x2.0
0x4b6934…4b6ac8 [0x01]: C0x0175.0x3.0
0x4b6934…4b6ac8 [0x02]: C0x0176.0x0.0
0x4b6934…4b6ac8 [0x03]: C0x0176.0x1.0
0x4b6934…4b6ac8 [0x04]: C0x0176.0x2.0
0x4b6934…4b6ac8 [0x05]: C0x0176.0x3.0
0x4b6934…4b6ac8 [0x06]: C0x0177.0x0.0
0x4b6934…4b6ac8 [0x07]: C0x0177.0x1.0
0x4b6934…4b6ac8 [0x08]: C0x0177.0x2.0
0x4b6934…4b6ac8 [0x09]: C0x0177.0x3.0
0x4b6934…4b6ac8 ]
0x4b6934…4b6ac8 }
0x4b6ac8…4b6c5c Dummy {f00=0x0175, f01=0x0190, f02=» 2 P IDENT DMOPCL REL 10.0 80-03-14 870105041000 P : P =3 ,RECORD LGTH 256 B P 79-11-28 ` P =2, COMMIT CHECK t P 79-11-22 P =1 ,CONCURRENT OPEN P 79-11-02 8 P**************************************************
0x4b6c5c…4b6df0 Dummy {f00=0x0175, f01=0x0190, f02=»IT IS ACTIVATED FROM DMTASK P* $ P* . P* 8 P* B P* L 8 P**************************************************** V P* P EJECT P* P*************** P* ENTRIES * P*************** P* P*
0x4b6df0…4b6f84 Dummy {f00=0x0175, f01=0x0190, f02=» ~ P* . P EXTRN CLRBUF,CRNCDF,CRNCIF,CRNGET,CRNQUE P EXTRN ECBRC D 4 P EXTRN FDBADF,FDBBLF,FDBCRL,FDBECB,FDBKA,FDBLRN X . P EXTRN FDBMEC,FDBMIA,FDBNIF,FDBRLE,FDBSTA P EXTRN FDBTNR P EXTRN FNDFDB,DMTWM P EXTRN FWTFNR,FWTPAR
0x4b6f84…4b7118 Dummy {f00=0x0175, f01=0x0190, f02=»FDBBLZ t P EXTRN ECBFC P EXTRN ECBBA " P EXTRN ECBEL 6 P EXTRN ECBRL J P EXTRN DWTECB ^ P EXTRN DWTOR t P EXTRN DWTTAB,DWTOPT,BLKMXL 4 P EXTRN FPB:RL,FPB:BF,FPB:FO,FPB:BO,FPB:FN,FPB:EL B P EXTRN FPB:V1,FPB:S1,FPB:V2,FPB:S2,F
0x4b7118…4b72ac Dummy {f00=0x0175, f01=0x0190, f02=» P EXTRN CRNSTA,DFTAB,DMTIDP P EXTRN MONMMU,DMTERX,QCL * P EXTRN DMTRBU,DMTBM J P EXTRN DMTIOT f P EXTRN EARELB | P EXTRN TASHLT P EXTRN FDBEAL P EXTRN RECBFZ,REQERR P EXTRN DMTBMR P EJECT DMTASK P
0x4b72ac…4b7440 Dummy {f00=0x0175, f01=0x018e, f02=»* IS OBTAINED BY SETTING MMUPAG EQU 1. P* . PMMUPAG EQU 0 8 P* L * V P* ` 6 P* A PROGRAM VERSION FOR INDEXED ACCESS HANDLING j * P* IS OBTAINED BY SETTING INDXAC = 1 PX:B EQU 0 PINDXAC EQU 00000 P* P*
0x4b7440…4b75d4 (5, 356) Dummy {f00=0x0175, f01=0x0190, f02=» n $ PFPB:NI EQU FPBSTA+68 NR OF INDEX $ PFPB:I1 EQU FPBSTA+70 INDEX ID 1 0 ( PFPB:K1 EQU FPBSTA+77 NR OF KEY ITEMS X $ PFPB:A1 EQU FPBSTA+78 KEY ADDR 1 & PFPB:L1 EQU FPBSTA+80 KEY LENGTH 1 PFPB:I2 EQU FPBSTA+82 PFPB:L4 EQU FPBSTA+116
0x4b75d4…4b7768 Dummy {f00=0x0175, f01=0x0190, f02=» 8 RESERVED FIELD LENGTH IN FILE PAR BLOCK P* 2 $ PNOCORE EQU 1 NO CORE ERROR CODE < P* d " PERPAR EQU 4 WRONG PAR ERR CODE n P* POFLW EQU 3 OVERFLOW ERR CODE P* " PERKEYL EQU 8 LONG KEY ERR CODE P EJECT P********
0x4b7768…4b78fc Dummy {f00=0x0175, f01=0x0190, f02=»ERS : ` ( P* OPEN,CLOSE,READ FILE PARAMETERS. P* : POPESPA DATA ' ' 2 SPACES D " POPEFN EQU * FILE NAME PREFIXES f P DATA ' ' P DATA 'I1M1' P DATA 'I2M2' P DATA 'I3M3' P DATA 'I4M4' POPEFNR EQU * OPENED FILE
0x4b78fc…4b7a90 Dummy {f00=0x0175, f01=0x0190, f02=»0,0 ( POPEMXI EQU * MASTER INDEX ADDRESSES P DATA 0,0,0,0,0 8 0 POPELRN DATA 0,0,0,0,0,0,0,0,0,0 LAST REC NRS P ( POPEKAD DATA 0,0,0,0,0 KEY ADDRESSES $ POPEKYL DATA 0,0,0,0,0 KEY LENGTH PDELAY DATA 0 $ PNROFIX DATA 0 NR OF INDEX FI
0x4b7a90…4b7c24 Dummy {f00=0x0175, f01=0x018e, f02=» p P EJECT $ PDMRFP EQU * READ FILE PARAMETERS P* > P* A1 = A6 H $ P* A6 = FDB ADDRESS ALL ORDERS " P* A7 = ORDER CODE ALL ORDERS P* P LDR A10,A6 FBD ADDR " P LC A6,FDBNIF,A10 NR OF INDEX P ANK A6,/FF
0x4b7c24…4b7db8 Dummy {f00=0x0175, f01=0x0190, f02=» P RF(N) OPE099 ALL FILES P LDR A4,A10 $ P ADR A4,A5 8 P LD A3,FDBADF,A4 FDB ADDR J P RF(Z) RFP130 NO FILE l P LC A6,FWTFNR,A3 FILE NR PRFP130 EQU * P LDR A4,A5 P SRL A4,1 " P SC A6,OPEFNR,A4 SAVE FILE NR P
0x4b7db8…4b7f4c Dummy {f00=0x0175, f01=0x0190, f02=» P* PDMOPEN EQU * OPEN P* ( P* A8 = ECB ADDR 2 P* A9 = FPB ADDR L P* A10= SYSTEM FWT ADDR f P* A11= CURRENT FWT ADDR & P* A12= LOOP COUNTER (FILE INDEX) P* P LDKL A9,OPEFPB AS ABOVE P* CHECK OP
0x4b7f4c…4b80e0 Dummy {f00=0x0175, f01=0x0190, f02=» A2,/FC P SUK A2,/8 P RF(NZ) OPE020 NOT INPUT " P ANK A3,/3 B P RF(NZ) OPEERR ONLY UNPROT T P RF OPE030 v POPE020 EQU * P SUK A2,/30 P RF(NZ) OPEERR NOT INP/OUTP P ANK A3,/3 $ P RF(Z) OPEERR UNPROT NOT ALLOWED
0x4b80e0…4b8274 (5, 357) Dummy {f00=0x0176, f01=0x0190, f02=» 1 = DATA FILE P* 2 = INDEX 1 P* 3 = MASTER INDEX 1 < P* 4 = INDEX 2 ` P* ETC ~ P* P* CLEAR WORK AREA P* & P LDK A2,OPEEND NR OF BYTE TO CLEAR POPE050 EQU * P SUK A
0x4b8274…4b8408 Dummy {f00=0x0176, f01=0x018e, f02=» IN PARAMETER BLOCK P* $ P LD A3,DWTECB,A10 USER ECB ADDR & " P LD A1,ECBBA,A3 FD ADDR USER N " P ADK A1,FPBRES RESERVED FIELDS t P LDR A2,A9 FPB ADDR $ P LDK A3,FPB:L4+1 MAX SIGN LENGTH P IFT MMUPAG=1 $ P LD A4,DWTTAB,A10 US
0x4b8408…4b859c Dummy {f00=0x0176, f01=0x0190, f02=» P XIF P IFT INDXAC=1 P* * $ P* SAVE VOLUME NAME INDEX FILES 4 P* P LDR A1,A9 FPB ADDR f P ADKL A1,FPB:IV FROM ADDR P LDKL A3,INDVOL TO ADDR P LDK A2,6 P CF A14,DMTBM P XIF " P LC A5,FPB:BO,A9
0x4b859c…4b8730 Dummy {f00=0x0176, f01=0x0190, f02=» P RF(Z) OPE099 STANDARD FILE $ P LD A5,DWTECB,A10 USER ECB ADDR , P LD A5,ECBRL,A5 REQ LGTH T P CWK A5,FPB:NI+FPBRES t P RF(NG) OPEERR NO INDEX " P LC A5,FPB:NI,A9 NR OF INDEXES P SC A5,NROFIX+1 P EJECT P* ( P
0x4b8730…4b88c4 Dummy {f00=0x0176, f01=0x0190, f02=» A3,2 OFFSET INDEX 1 POPE070 EQU * P SUK A5,1 0 P RF(N) OPE099 ALL INDEXES B P LDK A1,0 d P LC A1,-1,A2 NR OF KEY ITEMS v P SUK A1,1 P RF(NZ) OPEER4 ERR P LC A1,2,A2 KEY LENGTH P ST A1,OPEKYL,A3 P LDR* A1,A2
0x4b88c4…4b8a58 Dummy {f00=0x0176, f01=0x0190, f02=»E099 LDKL A12,1 DATA FILE INDEX POPE100 EQU * FILE LOOP ( P* F P* OPEN FM FILE P P* h P LDKL A9,OPEFPB FPB ADDR r P LDR A8,A10 P ADKL A8,FDBECB ECB ADDR P ST A9,ECBBA,A8 FPB ADDR P LC A5,FPB:BO,A9 P ANK A5,1
0x4b8a58…4b8bec Dummy {f00=0x0176, f01=0x0190, f02=»NE) OPE110 READ FILE PAR ORDER P LDK A7,/A1 OPEN & P LKM > P DATA 15 J P LDR A1,A10 MAIN FDB Z P CF A14,DMTIOT ERR CHECK v P LDR A1,A1 P RF(NZ) OPEER0 ERR P EJECT P* P* STORE FILE NR P* P LDR A1,A1
0x4b8bec…4b8d80 Dummy {f00=0x0176, f01=0x0190, f02=»FWT ADDR IN A11 P* P ANK A6,/FF " " P LDKL A11,FDBSTA SYST FDB ADDR 6 P LDR A3,A6 FILE NR POPE150 EQU * v P RF(Z) OPE190 END COUNT P LDR* A11,A11 NEXT FDB P ANKL A11,/FFFE USE BIT P SUK A3,1 P RB OPE150
0x4b8d80…4b8f14 (5, 358) Dummy {f00=0x0176, f01=0x0190, f02=»6,A5 P ANK A6,/F BIT 4-7 IN RC " P RF(Z) OPEERA NO SPECIAL CODE , & P ANK A6,/A GET BIT 4 AND 6 FROM RC R P ADK A6,1 B4=9,B5=1,B6=3 | POPEERS EQU * P LDR A1,A10 SYST FDB & P CF A14,CRNGET GET CURRENCY BUFFER P SC A6,CRNSTA,A2 S
0x4b8f14…4b90a8 Dummy {f00=0x0176, f01=0x0190, f02=» $ P LD A9,DWTECB,A10 USER ECB ADDR P ORS A1,ECBRC,A9 SEND CODE , P ABL OPEER1 N POPEER3 LDK A6,OFLW OVERFLOW b P RF OPEERQ ( POPEER4 LDK A6,ERPAR WRONG PARAMETER POPEERQ LDKL A5,REQERR BIT 0 P RB OPEERS " POPEER8 LDK A6,
0x4b90a8…4b923c Dummy {f00=0x0176, f01=0x0190, f02=» P STR A6,A8 FILE NR P LDK A7,/83 RFP " P LKM : P DATA 15 F P LDR A1,A10 MAIN FDB V P CF A14,DMTIOT ERR CHECK r P ORS A1,ECBRC,A9 RET CODE P LDKL A9,OPEFPB FPB ADDR P CWK A12,1 P RF(NE) OPE192 INDEX FILE P
0x4b923c…4b93d0 Dummy {f00=0x0176, f01=0x0190, f02=»,A7 NEW LOOPER , P SUR A13,A13 REL ADDR IN TABLES OF OPEN P RF OPE191 F POPE192 EQU * X P LDR A7,A12 l P ANK A7,/FE REL ADDR P LDR A13,A7 POPE191 EQU * P CWK A10,FDBSTA ( P ABL(NE) OPE300 READ FILE PAR ORDER P
0x4b93d0…4b9564 Dummy {f00=0x0176, f01=0x0190, f02=»PB:FO,A9 P RB(NE) OPEERR NOT STD FILE P LC A3,FPB:US,A9 NR OF USERS 4 P SUK A3,1 X P RF(Z) OPE195 FIRST OPEN j P LC A3,DWTOPT,A10 OPTION P LDR A2,A3 P ANK A3,/02 EXCL , P RB(NZ) OPEERR EXCLUSIVE WANTED IN VAIN P ANK
0x4b9564…4b96f8 Dummy {f00=0x0176, f01=0x0190, f02=» LC A3,FDBNIF,A11 NR OF INDEX BEFORE FOR THIS FILE P CW A3,NROFIX NR OF INDEXES : $ P RB(NE) OPEER4 ALW SAME INDEXES ^ P LD A2,DELAY * P RF(N) OPE193 2ND DELAY WANTED IN VAIN P LDKL A2,/7FFF P ANS A2,FDBDBR,A11 NO DELAY POPE193
0x4b96f8…4b988c Dummy {f00=0x0176, f01=0x018e, f02=»UKL A2,FDBECB LENGTH POPE196 EQU * P SUK A2,2 0 P RF(N) OPE200 OK B P LDR A7,A11 Z P ADR A7,A2 n P CM FDBECB,A7 P RB OPE196 POPE200 EQU * P LD A2,DELAY , P ST A2,FDBDBR,A11 SET DELAY FOR NEW FILE P EJECT
0x4b988c…4b9a20 Dummy {f00=0x0176, f01=0x0190, f02=» n P LC A3,FPB:BF,A9 " P SC A3,FDBBLF,A11 BLOCK FACTOR P LD A3,NROFIX NR OF INDEXES F ( P SC A3,FDBNIF,A11 NR OF INDEX FILES j P LC A3,FPB:FR+1,A9 P SC A3,FDBLRN,A11 P LD A3,FPB:FR+2,A9 $ P ST A3,FDBLRN+1,A11 LAST REC NR
0x4b9a20…4b9bb4 (5, 359) Dummy {f00=0x0176, f01=0x0190, f02=» CW A3,OPEKAD,A13 P RB(NE) OPEER4 WRONG KEY P ST A3,FDBKA,A11 KEY ADDR : POPE255 EQU * P LC A3,FPB:BO,A9 p * P SLL A3,6 TOSS OPTIONS DELAY AND BASIC P LC A4,DWTOPT,A10 P ANK A4,/3 OPTIONS P ORR A3,A4 P ANK A4,1 =
0x4b9bb4…4b9d48 Dummy {f00=0x0176, f01=0x0190, f02=»BDBR,A11 BASIC + OPTION P* CALCULATE DMTASK ID P* @ , P LC A3,FWTVOL,A11 FIRST EXTENT VOLUME FC J P LDK A6,0 z POPE260 CC A3,DFTAB,A6 P RF(E) OPE270 THIS DISC P ADK A6,1 $ P RB OPE260 SEARCH NEXT DISC CODE ( POPE2
0x4b9d48…4b9edc Dummy {f00=0x0176, f01=0x018e, f02=»A6,FDBRLE,A11 REC LENGTH P ADK A6,1 P LDK A7,0 2 P LC A7,FDBBLF,A11 BLOCK FACT D P SUK A7,1 h P CF A14,MPYMOD A1,A2=A6*A7 z P ST A2,FDBMRO,A11 MAX FDBRRO P* CALCULATE BLOCK SIZE P* P AD A2,FDBRLE,A11 BLOCK LGTH
0x4b9edc…4ba070 Dummy {f00=0x0176, f01=0x018e, f02=» P ADK A2,1 ! POPE290 EQU * ! P SC A2,FDBBLZ,A11 BLOCK SIZE ! * P SLL A2,7 WORDS ! N P CWK A2,BLKMXL ! f ( P ABL(G) OPEER4 TOO LARGE BLOCK SIZE ! | P ST A11,FDBADF,A11 ! POPE300 EQU * ! $ P ST A11,OPEFWT,A13 SAVE FWT ADDR ! P LDR A13
0x4ba070…4ba204 Dummy {f00=0x0176, f01=0x0190, f02=» P EJECT " $ POPE400 EQU * MASTER INDEX BRANCH " P CWK A10,FDBSTA " : ( P ABL(NE) OPE700 ORDER READ FILE PAR " R P LDR A8,A10 " ~ P ADKL A8,FDBECB ECB ADDR " P LD* A3,DWTECB,A10 FILE CODE " P ANK A3,/FF " * P ST A3,-36,A14 FC ENTRY IN TTA
0x4ba204…4ba398 Dummy {f00=0x0176, f01=0x0190, f02=»,FDBBLZ+1,A11 NO COMMIT CHECK =2 " P LDK A2,1 # ( 4 P SC A2,FDBDMI,A11 LET DMTASK 1 READ MASTER INDEX # : P* # r 0 P* CALC NO OF WORDS NEEDED IN MASTRE INDEX # | P* # P LD A6,FPB:RL,A9 REC LGTH # P LDR A1,A6 # P SUK A1,3 KEY LENGTH #
0x4ba398…4ba52c Dummy {f00=0x0176, f01=0x0190, f02=» NEEDED # p P SRC A1,1 $ P ORR A2,A1 GET MOST SIGN BIT $ " P ADK A2,5 $ F P SRL A2,1 NO OF WORDS NEEDED $ X P RF(Z) DMT570 WRONG SIZE $ | P LD A4,MXIND LENGTH MXIND $ P SUK A4,4 MAX A5 VALUE $ P LDKL A5,-2 OFFSET $ PDMT540 EQU * $
0x4ba52c…4ba6c0 Dummy {f00=0x0176, f01=0x0190, f02=» P LD A6,MXIND+2,A5 % P RB(N) DMT540 ENTRY USED % P SUR A6,A2 NO OF SPARE WORDS % > & P RB(N) DMT540 LARGER ENTRY NEEDED % b P* % P* SUFFICIENT SPACE FOUND % P* % P LDKL A1,/8000 USED BIT % & P ORS A1,MXIND+2,A5 MARK ENTRY USED %
0x4ba6c0…4ba854 (5, 360) Dummy {f00=0x0176, f01=0x018e, f02=» % x P LD A1,FPB:RL,A9 & P ST A1,2,A3 ENTRY LENGTH & P ADK A3,4 SKIP MX HEADRER & @ P ST A3,ECBBA,A8 BUFFER ADDR & b P ST A1,ECBRL,A8 REQ LGTH & . P LDR A1,A5 MXIND ENTRY PAR TO REACTIVATION & P CWR A1,A4 MXIND ENTRY & P RF(NL) DMT590 LAS
0x4ba854…4ba9e8 Dummy {f00=0x0176, f01=0x0190, f02=» & P LD A2,MXIND+2,A1 ' " P ANKL A2,/7FFF REMOVE USE BIT ' " P SUR A2,A6 ' H P ORKL A2,/8000 USE BIT ' Z P ST A2,MXIND+2,A1 ' x . P ADS A6,MXIND+6,A1 MAKE NEXT ENTRY LARGER ' $ P LD A7,MXIND,A1 PREVIOUS POINTER ' P SLL A2,1 NO OF BYTES '
0x4ba9e8…4bab7c Dummy {f00=0x0176, f01=0x0190, f02=» ' b P* ( P LDKL A7,/0082 SEQ READ ( P LKM ( 2 P DATA 1 ( > P LD A2,ECBRC,A8 ( N & P ANKL A2,/FEFF BIT 7 ONLY RETRIES ( f P RF(Z) DMT560 NO ERROR ( P* ( " P* REMOVE THE ONLY CRN BUFFER ( P* ( P LDR A4,A11 FDB ADDR ( P LD
0x4bab7c…4bad10 Dummy {f00=0x0176, f01=0x0190, f02=»T A5,CRNQUE ( P ENB ) PDMT553 EQU * ) P LDR A1,A2 ) 4 P ANKL A2,/1000 BIT 3 = EOF ) F 0 P RF(NZ) DMT595 READY ,WHOLIE MXINDEX IS READ ) h P ABL OPEER2 ERR ) PDMT560 EQU * ) P* ) P* RECORD READ,READ NEXRT ) P* ) P LD A2,ECB
0x4bad10…4baea4 Dummy {f00=0x0176, f01=0x0190, f02=» ) r P ABL OPEERQ * P* CLOSE MASTER INDEX FILE * P* * @ PDMT595 EQU * * J " P ST A10,-34,A14 CLOSE FC ENTRY * ^ P LDR A8,A10 FWT ADDR * P ADKL A8,FDBECB ECB ADDR * $ P CM FPB:FR+2,A9 DO NOT WRITE LRN * P LDR A7,A12 LOOP COUNT * P S
0x4baea4…4bb038 Dummy {f00=0x0176, f01=0x0190, f02=» CF A14,CLRBUF RELEASE ALL FREE BUFFERS * P LKM + 0 P DATA 15 + < P LDR A1,A10 MAIN FDB + L P CF A14,DMTIOT ERR CHECK + h P LDR A1,A1 + P ABL(NZ) OPEER2 + P LDKL A9,OPEFPB FPB ADDR + P RF OPE700 NEXT FILE + P EJECT + POPE600 EQU *
0x4bb038…4bb1cc Dummy {f00=0x0176, f01=0x0190, f02=»M FPB:NI,A9 FILLER + P SC A2,FPB:NI,A9 NR OF INDEX , P LDR A3,A12 , > P SRL A3,1 , R P LDR A2,A3 , d P LDR A4,A9 , v P LDKL A5,FPB:I2 , P SUKL A5,FPB:I1 OFFSET , P SUR A4,A5 , POPE630 EQU * , P ADR A4,A5 REL ADDR , P SUK A2,
0x4bb1cc…4bb360 Dummy {f00=0x0176, f01=0x0190, f02=»,A4 , P CM FPB:I1+4,A4 - P LDK A7,1 - $ " P ST A7,FPB:I1+6,A4 NR OF ITEMS - 6 P LD A7,FDBKA,A11 KEY OFFSET - P ST A7,FPB:A1,A4 KEY ADDR - P LD A7,FDBRLE,A11 REC LGTH - P SUK A7,6 - P CM FPB:L1,A4 FILLER - P SC A7,FPB:L1,A4 KEY L
0x4bb360…4bb4f4 (5, 361) Dummy {f00=0x0177, f01=0x018e, f02=»CALCULATE INDEX SIZE - P* . P LD A1,FPB:S1,A9 . & & P LD A2,FPB:S1+2,A9 SIZE IN SECTORS . > P LC A6,FDBBLZ,A11 BLOCK SIZE . h P ANK A6,/FF . P CF A14,DIVMOD . P ABL(O) OPEER3 LONG FILE . P CM FPB:IS,A9 . & P ST A2,FPB:IS+2,A9 SIZE IN B
0x4bb4f4…4bb688 Dummy {f00=0x0177, f01=0x0190, f02=» . z P ADR A3,A9 TO / P LDK A2,6 LGTH / P CF A14,DMTBM MOVE / 4 P XIF / N P EJECT / Z P* / h POPE700 EQU * NEXT FILE / r P IFF INDXAC=1 NO INDEX / P RF OPE900 NO INDEX / P XIF / P IFT INDXAC=1 INDEXES YES / P SUKL A12,1 FILE
0x4bb688…4bb81c Dummy {f00=0x0177, f01=0x0190, f02=» / n P* 0 , P* SKIP MASTER INDEX AT SECONDARY OPEN 0 P* 0 B P LD A1,OPEFWT DATA FILE 0 L P LC A1,FWTPAR,A1 0 l $ P ANK A1,/3E NR OF OPEN BEYOND 1 0 P RF(Z) OPE710 FIRST 0 P ANKL A12,/E NO MASTER INDEX 0 POPE710 EQU * 0 P* 0
0x4bb81c…4bb9b0 Dummy {f00=0x0177, f01=0x0190, f02=»:FN,A9 FILE NAME 0 P* 1 & P* FETCH VOLUME NAME FOR INDEXES 1 " P* 1 L P LDKL A1,INDVOL FROM ADDR 1 V P LDR A3,A9 1 x P ADKL A3,FPB:V1 TO ADDR 1 P LDK A2,6 1 " P CF A14,DMTWM MOVE VOLUME NAME 1 P* 1 * P* MOVE SPACES TO OTHER VOL
0x4bb9b0…4bbb44 Dummy {f00=0x0177, f01=0x0190, f02=»DKL A1,OPESPA FROM ADDR 1 P LDR A3,A9 2 P ADKL A3,FPB:V2 2 2 P ADR A3,A6 TO ADDR 2 J P LDK A2,6 NR OF CHAR 2 d P CF A14,DMTWM 2 P RB OPE750 2 . POPE740 EQU * GET FILE NR FOR READ FILE PAR 2 P LDR A7,A12 2 P SRL A7,1 2 P LC A6,O
0x4bbb44…4bbcd8 Dummy {f00=0x0177, f01=0x0190, f02=» XIF 2 P EJECT 3 POPE800 EQU * DATA FILE 3 P* 3 8 P* UPDATE USER PAR BLOCK 3 B P* 3 d P LC A2,FDBNIF,A11 3 n P ANK A2,/FF 3 P RF(Z) OPE830 NO INDEX 3 P LDK A2,1 3 POPE830 EQU * 3 P SC A2,FPB:FO,A9 FILE ORG 3 P LDK A
0x4bbcd8…4bbe6c Dummy {f00=0x0177, f01=0x0190, f02=»2,14 3 . P SC A2,FPB:BO,A9 DELAY BASIC TOSS OPTIONS 4 P* 4 > & P* CONVERT SIZE TO NR OF RECORDS 4 H P* 4 r P LDK A5,3 4 VOLUMES 4 | P LDR A13,A9 4 POPE850 EQU * 4 ( P LD A1,FPB:S1,A13 LENGTH IN SECTORS 4 P LD A2,FPB:S1+2,A13 4 * P
0x4bbe6c…4bc000 Dummy {f00=0x0177, f01=0x0190, f02=» BLOCKS 4 ( P LC A7,FDBBLF,A11 NR OF REC IN BLOCK 5 P ANK A7,/FF 5 < P CF A14,MPYMOD NR OF RECS 5 P P ST A1,FPB:S1,A13 5 r P ST A2,FPB:S1+2,A13 5 P ADKL A13,10 5 P SUK A5,1 5 P RB(NN) OPE850 MORE VOLUMES 5 P* 5 " P* MOVE PAR
0x4bc000…4bc194 (5, 362) Dummy {f00=0x0177, f01=0x0190, f02=»,ECBRL,A4 REQ LENGTH 5 P SUK A1,FPBRES RESERVED 6 P CWR A3,A1 6 < P RF(NG) OPE860 TAKE SHORTEST 6 N P LDR A3,A1 6 r POPE860 EQU * 6 P LDR A1,A3 6 P ADK A1,FPBRES 6 ( P ST A1,ECBEL,A4 SET EFFECTIVE LENGTH 6 P LDR A1,A9 FROM ADDR 6 P
0x4bc194…4bc328 Dummy {f00=0x0177, f01=0x0190, f02=»A14,MOV:SU 6 P XIF 7 P IFT MMUPAG=0 7 P LDR A2,A3 LENGTH 7 4 P LD A3,ECBBA,A4 TO ADDR 7 N P ADK A3,FPBRES RESERVED ITEM 7 n P CF A14,DMTBM MOVE 7 P XIF 7 P* 7 $ P* ADJUST FILE NAME FOR INDEXES 7 P* 7 P LDR A1,A9 7 P A
0x4bc328…4bc4bc Dummy {f00=0x0177, f01=0x0190, f02=»0 7 P EJECT 8 POPE900 EQU * FINISH 8 & P LD A11,OPEFWT FDB ADDR DATA FILE 8 4 P CWK A10,FDBSTA 8 ^ & P RF(NE) OPE990 READ FILE PAR ORDER 8 v P* 8 ( P* STORE FDB ADDRESSES IN ALL FDB'S 8 P* 8 P LDK A5,10 NR OF FILES * 2 8 PDMT625
0x4bc4bc…4bc650 Dummy {f00=0x0177, f01=0x018e, f02=»NDEX FILE 8 ~ P LDKL A1,OPEFWT FROM ADDR 9 P ADKL A3,FDBADF TO ADDR 9 4 P LDK A2,10 NO OF BYTES 9 T P CF A14,DMTWM MOVE 5 WORDS 9 r P RB DMT625 9 PDMT635 EQU * 9 P* 9 & P* CONNECT FILE CODE OF DATA FILE 9 P* 9 P LD* A2,DWTECB,A
0x4bc650…4bc7e4 Dummy {f00=0x0177, f01=0x0190, f02=» P CF A14,FNDFDB : P ST A11,2,A4 FWT ADDR : P* : 8 P* REMOVE CURRENCY BUFFER : B P* : d P LDR A1,A10 : n P CF A14,CRNGET ADDR IN A2 : P ADKL A1,FDBCRL ROOT : P INH : POPE940 EQU * : P LDR* A3,A1 NEXT BUFFER : P CWR A3,
0x4bc7e4…4bc978 Dummy {f00=0x0177, f01=0x018e, f02=»D A3,CRNQUE : P STR A3,A2 ; P ST A2,CRNQUE ; & P ENB =1 ; < POPE990 EQU * ; N P* ; b 2 P* CHECK USER SIZE AND UPDATE PARAMETER BLOCK ; l P* ; P LDK A1,FPB:IV ; " P LC A2,FDBNIF,A11 NR OF INDEX ; P ANK A2,/F ; P IFT INDXAC=1
0x4bc978…4bcb0c Dummy {f00=0x0177, f01=0x0190, f02=» " P SUR A2,A1 MAX NR OF REM CHAR < POPE994 EQU * < * P XIF < > P ADR A1,A9 FROM ADDR < J P LD A3,DWTECB,A10 USER ECB < f P LD A4,ECBRL,A3 TOT LGTH < P SUK A4,FPB:IV+FPBRES < P CWR A2,A4 REM LGTH < P RF(NG) OPE995 TAKE SHORTEST < P L
0x4bcb0c…4bcca0 Dummy {f00=0x0177, f01=0x0190, f02=» < P LD A3,ECBBA,A3 TO ADDR = P ADK A3,FPB:IV+FPBRES = ( P CF A14,DMTBM MOVE = F P XIF = ` P IFT MMUPAG=1 = l P LDR A4,A2 = P LD A2,ECBBA,A3 = " P ADK A2,FPB:IV+FPBRES TO ADDER = P LDR A3,A4 LENGTH = $ P LD A4,DWTTAB,A10 USER TTAB
0x4bcca0…4bce34 (5, 363) Dummy {f00=0x0177, f01=0x018e, f02=»MTASK = t P EJECT > PDMCLOS EQU * CLOSE > P* > 6 P* A1 = A6 > @ " P* (A3= BLOCK BUFFER ADDRESS ) > T P* (A5 = BLOCK ADDRESS ) > z $ P* A6 = FDB ADDRESS ALL ORDERS > " P* A7 = ORDER CODE ALL ORDERS > P* (A8 = FDBECB ADDRESS ) >
0x4bce34…4bcfc8 Dummy {f00=0x0177, f01=0x018e, f02=» > P DATA 15 FM IO ? P CF A14,DMTIOT ERR CHECK ? PCLO200 EQU * ? > " P CF A14,DMTRBU RELEASE BUFFER ? R P* ? x P* CLEAR CURRENCY ? P* ? P LDR A1,A6 FDB ADDR =1 ? * P CF A14,CRNGET GET CURRENCY BUFFER =1 ? P LDK A1,0 ? P SC
0x4bcfc8…4bd15c Dummy {f00=0x0177, f01=0x0190, f02=» ? ~ P XIF @ P* @ P* BUILD CLOSE TABLES @ P* @ < P LC A7,ECBFC,A9 FILE CODE @ F P LDK A5,10 2 * FILES @ h PCLO210 EQU * @ P SUK A5,2 @ P RF(N) CLO300 ALL FILES @ P LDR A4,A6 @ P ADR A4,A5 @ P LDK A1,0 @ P LDK A2,
0x4bd15c…4bd2f0 Dummy {f00=0x0177, f01=0x0190, f02=»,FDBMIA,A3 MASTER INDEX ADDR @ P LC A2,FWTFNR,A3 FILE NR A $ P LC A9,FDBLRN,A3 LAST REC NR A D P LD A10,FDBLRN+1,A3 A h PCLO230 EQU * A P ST A8,OPEMXI,A5 A P ST A3,OPEFWT,A5 A P LDR A4,A5 A P SRL A4,1 A P SC A2,OPEFNR,A4 FILE NR A
0x4bd2f0…4bd484 Dummy {f00=0x0177, f01=0x0190, f02=»FILE A PCLO300 EQU * B P SC A7,OPEFCD FILE CODE B P LDR A10,A6 MAIN FDB ADDR B @ P EJECT B b $ POPEER1 EQU * RECOVERY AT ERRORS B p P LDR A6,A10 MAIN FDB B P LD A2,DWTOR,A10 ORDER B P ANK A2,/FF B P CWK A2,QRFP READ FILE PAR B P
0x4bd484…4bd618 Dummy {f00=0x0177, f01=0x0190, f02=»A12,1 B P RF(NN) OPEE20 MORE FILES C P LDR A6,A10 MAIN FDB ADDR C 0 P LDK A1,0 RET CODE C R P ABL DMTERX C l POPEE20 EQU * C P* RESET FILE CODE* C P* C P LC A2,OPEFCD,A12 FILE CODE C P ANK A2,/FF C P RF(Z) OPEE25 NO CODE
0x4bd618…4bd7ac Dummy {f00=0x0177, f01=0x018e, f02=»PEE25 NO ENTRY C $ P LDKL A7,FDBSTA SYSTEM FDB ADDR D P ST A7,2,A4 SYSTEM FWT ADDR D > POPEE25 EQU * D b P EJECT D v P* D P* RELEASE EA+CRN BUFFERS D P* D P LDR A7,A12 D P SLL A7,1 WORDS D P LD A11,OPEFWT,A7 FDB ADDR D P
0x4bd7ac…4bd940 Dummy {f00=0x0177, f01=0x0190, f02=» D P LC A5,FWTPAR,A11 E P ANK A5,/3F NR OF USERS E " P SUK A5,1 E B & P RF(NZ) DMT894 MORE THAN ONE OPEN E T P LD A5,FDBEAL,A11 PRO LINK E ~ P ABL(NZ) TASHLT DM ERR E P EJECT E P* E P* RELEASE CURRENCY BUFFERS E P* E P LDK
0x4bd940…4bdad4 (5, 364) Dummy {f00=0x0177, f01=0x0190, f02=»DR A4,A5 BUFFER ADDRESS E PDMT830 EQU * F & P RF(Z) DMT840 ALL BUFFER S REMOVED F 4 $ P LDR* A5,A4 NEXT BUFFER ADDRESS F ^ P* F P* RETIURN BUFFER TO POOL F P* F P INH F P LD A3,CRNQUE F P STR A3,A4 F P ST A4,CRNQUE F P E
0x4bdad4…4bdc68 Dummy {f00=0x0177, f01=0x0190, f02=»PEMXI,A7 MASTER INDEX ADDR F P RF(Z) DMT894 NO MX G " P LD A5,MXIND LENTH G > P SUK A5,2 G X PDMT885 EQU * G j P SUK A5,4 G ~ P RF(Z) DMT890 FIRST INDEX G P RF(N) DMT894 NO MATER IX G P CW A1,MXIND+2,A5 G P RB(NE) DMT885 G P LD
0x4bdc68…4bddfc Dummy {f00=0x0177, f01=0x0190, f02=» ADS A4,MXIND,A5 NR OF WORDS G P EJECT H $ P* H 2 P* H < P* MOVE UP REST OF MXIND H F P* H h P LDKL A1,MXIND+6 H r P ADR A1,A5 FROM ADDR H P LDR A3,A1 H P SUK A3,4 TO ADDR H P LD A2,MXIND H P SUR A2,A5 H P SUK A2,2 NO OF
0x4bddfc…4bdf90 Dummy {f00=0x0177, f01=0x0190, f02=» H n P XIF I P EJECT I P* I " P* CLOSE FILE I , P* I B PDMT894 LDR A8,A10 I L P ADKL A8,FDBECB ECB ADDR I f P LDKL A9,OPEFPB FPB ADDR I P LDR A7,A12 I P SLL A7,2 2 WORD INDEX I P LD A1,OPELRN,A7 LAST REC NR I P ST A1,FPB:F
0x4bdf90…4be124 Dummy {f00=0x0177, f01=0x4152, f02=»ED I v P ST A7,ECBFC-1,A8 FILE NR J " P ST A9,ECBBA,A8 PAR BLOCK ADDR J , P LDK A7,/A2 CLOSE J R & P CF A14,CLRBUF CLEAR FREE BUFFERS J l P LKM J P DATA 15 J P LDR A1,A10 MAIN FDB J P CF A14,DMTIOT ERR CHECK J P ORS A1,ECBRC,A9 SEND CODE
0x4be124…4be2b8 Dummy {f00=0x0177, f01=0x2008, f02=» K 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
0x4be2b8…4be44c Dummy {f00=0x0177, 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* +
0x4be44c…4be5e0 Dummy {f00=0x0177, f01=0x0190, f02=»'TT' TASK DEFINITION BLOCK? l P RF(NE) BTT95 m $ P LDKL A2,BTT20 m : P SUKL A2,REL m P P ADR A2,A13 m d P ABR A2 m x PBTT95 EQU * m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m P =4 m
0x4be5e0…4be774 (5, 365) Opaque[0x194]
0x4be774…4be908 # DirEnt {nam=»DMBUF «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2558, f03=0x0000}
0x4be774…4be908 IdxSect {
0x4be774…4be908 f00 = 0x012a // 0x4be774 @0x0
0x4be774…4be908 f01 = 0x000a // 0x4be776 @0x2
0x4be774…4be908 gno = [ // 0x4be778 @0x4
0x4be774…4be908 [0x00]: C0x012a.0x3.0
0x4be774…4be908 [0x01]: C0x012b.0x0.0
0x4be774…4be908 [0x02]: C0x012b.0x1.0
0x4be774…4be908 [0x03]: C0x012b.0x2.0
0x4be774…4be908 [0x04]: C0x012b.0x3.0
0x4be774…4be908 ]
0x4be774…4be908 }
0x4be908…4bea9c Dummy {f00=0x012a, f01=0x0190, f02=» 0 P IDENT DMBUF REL 10.0 80-03-14 870105041000 P 8 8 P**************************************************** @ P* | $ P* PHILIPS TERMINAL SYSTEM PTS P* . P* DMBUF = DATA MANAGEMENT BUFFER AREAS P* P* P* P
0x4bea9c…4bec30 Dummy {f00=0x012a, f01=0x0190, f02=» l P* . P* A ROUTINE DMTGBU TO GET A DISC BUFFER P* D L P* BY MEANS OF CONDITIONAL ASSEMBLY QNBUF NUMBER OF BUFFERS WILL BE ALL N P* P* MAX VALUE OF QNBUF IS 16 P* P* P EJECT P* P***************
0x4bec30…4bedc4 Dummy {f00=0x012a, f01=0x0190, f02=» v P ENTRY BUFDMI DMTASK IDENT P ENTRY BUFSNR SECTOR NO * P ENTRY BUFOR ORDER J * P ENTRY BUFSTA DATA AREA START ADDRESS d P ENTRY DMTGBU GET A BUFFER " P ENTRY DMTRBU RELEASE A BUFFER $ P ENTRY BLKMXL MAXIMUM BLOCK SIZE * P ENTRY
0x4bedc4…4bef58 Dummy {f00=0x012a, f01=0x0190, f02=» EXTRN CRNQUE,CRNEND,CRBUFL P EXTRN FDBSTA $ P EXTRN SCTFWT : P EJECT P PX:B EQU 128 ^ $ PBLKMXL EQU 00896 MAX BLOCK SIZE r $ PX:A EQU 8 NUMBER OF DISC BUFFERS PQNBUF EQU 00003 P* P* PCURBUF DATA BUF1 PNE
0x4bef58…4bf0ec Dummy {f00=0x012a, f01=0x018e, f02=» z P DATA 0 PBUFSNR EQU *-BUF1 SECTOR NO P DATA 0 < P DATA 0 L PBUFOR EQU *-BUF1 LRU-WORD " P DATA 0 BUFFER STATUS,DM ORDER ~ ( PBUFSTA EQU *-BUF1 DATA BUFFER START PBUFAR EQU * P RES BLKMXL P* P*
0x4bf0ec…4bf280 Dummy {f00=0x012a, f01=0x0190, f02=» P RES BLKMXL P XIF P* ( P* 2 P IFT QNBUF=2 < PBUF3 EQU BUF1 P P XIF f P* r P* | P IFF QNBUF=1 P IFF QNBUF=2 PBUF3 DATA BUF4 P DATA 0,0,0,0 P RES BLKMXL P XIF P* P*
0x4bf280…4bf414 (5, 366) Dummy {f00=0x012b, f01=0x0190, f02=» PBUF4 DATA BUF5 P DATA 0,0,0,0 P RES BLKMXL 0 P XIF D P* P P* Z P IFT QNBUF=4 d PBUF5 EQU BUF1 x P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 PBUF5 DATA
0x4bf414…4bf5a8 Dummy {f00=0x012b, f01=0x0190, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 , P IFF QNBUF=3 @ P IFF QNBUF=4 T P IFF QNBUF=5 h PBUF6 DATA BUF7 | P DATA 0,0,0,0 P RES BLKMXL P XIF P* P* P IFT QNBUF=6 PBUF7 EQU BUF1 P X
0x4bf5a8…4bf73c Dummy {f00=0x012b, f01=0x0190, f02=»NBUF=6 PBUF7 DATA BUF8 P DATA 0,0,0,0 $ P RES BLKMXL : P XIF N P* Z P* d P IFT QNBUF=7 n PBUF8 EQU BUF1 P XIF P* P* P IFF QNBUF=1 P IFF QNBUF=2 P IFF QNBUF=3 P IFF QNBUF=4 P
0x4bf73c…4bf8d0 Dummy {f00=0x012b, f01=0x018e, f02=»* P* P IFT QNBUF=8 PBUF9 EQU BUF1 ( P XIF > P* J P* T P IFF QNBUF=1 ^ P IFF QNBUF=2 r P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 PBUF9 DATA
0x4bf8d0…4bfa64 Dummy {f00=0x012b, f01=0x018e, f02=» P* P* P IFF QNBUF=1 P IFF QNBUF=2 0 P IFF QNBUF=3 D P IFF QNBUF=4 X P IFF QNBUF=5 l P IFF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 P IFF QNBUF=9 PBUF10 DATA BUF11 P DATA 0,0,0,0 P RES BLKMX
0x4bfa64…4bfbf8 Dummy {f00=0x012b, f01=0x0190, f02=» P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 , P IFF QNBUF=6 @ P IFF QNBUF=7 T P IFF QNBUF=8 h P IFF QNBUF=9 | P IFF QNBUF=10 PBUF11 DATA BUF12 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=11
0x4bfbf8…4bfd8c Dummy {f00=0x012b, f01=0x0190, f02=» IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 ( P IFF QNBUF=8 < P IFF QNBUF=9 P P IFF QNBUF=10 d P IFF QNBUF=11 z PBUF12 DATA BUF13 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=12 PBUF13 EQU BUF1
0x4bfd8c…4bff20 Dummy {f00=0x012b, f01=0x0190, f02=»FF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 & P IFF QNBUF=9 : P IFF QNBUF=10 N P IFF QNBUF=11 d P IFF QNBUF=12 z PBUF13 DATA BUF14 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=13 PBUF14 EQU BUF1
0x4bff20…4c00b4 (5, 367) Dummy {f00=0x012b, f01=0x0190, f02=»FF QNBUF=6 P IFF QNBUF=7 P IFF QNBUF=8 & P IFF QNBUF=9 : P IFF QNBUF=10 N P IFF QNBUF=11 d P IFF QNBUF=12 z P IFF QNBUF=13 PBUF14 DATA BUF15 P DATA 0,0,0,0 P RES BLKMXL P XIF P IFT QNBUF=14
0x4c00b4…4c0248 Dummy {f00=0x012b, f01=0x0190, f02=» IFF QNBUF=5 P IFF QNBUF=6 P IFF QNBUF=7 ( P IFF QNBUF=8 < P IFF QNBUF=9 P P IFF QNBUF=10 d P IFF QNBUF=11 z P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 PBUF15 DATA BUF16 P DATA 0,0,0,0 P RES BLK
0x4c0248…4c03dc Dummy {f00=0x012b, f01=0x0190, f02=» P IFF QNBUF=3 P IFF QNBUF=4 P IFF QNBUF=5 , P IFF QNBUF=6 @ P IFF QNBUF=7 T P IFF QNBUF=8 h P IFF QNBUF=9 | P IFF QNBUF=10 P IFF QNBUF=11 P IFF QNBUF=12 P IFF QNBUF=13 P IFF QNBUF=14 P IFF QNBUF
0x4c03dc…4c0570 Dummy {f00=0x012b, f01=0x018e, f02=»* DMTGBU * P************** P* , * P* ENTRY DMTGBU GET A DISC BUFFER 6 P* d P* INPUT A1 = FILE NR n " P* A2 = SECTOR NUMBER $ P* A4 = SECT NR PART 2 P* $ P* OUTPUT A3 = BUFFER ADDRESS
0x4c0570…4c0704 Dummy {f00=0x012b, f01=0x0190, f02=» P* USED REGS A1-A5,A7 P* ( P* ALL BUFFERS ARE SEARCED. 2 6 P* ONE BUFFER IS SELECTED IN FOLLOWING PRIORITY : V P* , P* 1. USED BUFFER IN REQ FILE ( DELAY) P* 2. REQ FILE AND SECT NR P* 3. OLDEST UNUSED
0x4c0704…4c0898 Dummy {f00=0x012b, f01=0x0190, f02=» NR . P* BUFOR BIT 0-8= DELAY + SAME INDICATOR " P* BUFOR BIT 9-15= BUFFER AGE > P* BUFSTA= BLOCK AREA d P* P* P EJECT PDMTGBU EQU * P INH INH P LD A3,CURBUF P LDK A5,0 PDMT010 LDR* A3,A3
0x4c0898…4c0a2c Dummy {f00=0x012b, f01=0x0190, f02=»015 FREE P SLL A7,1 P SC A7,BUFOR,A3 MARK DELAY " PDMT015 EQU * D P CW A2,BUFSNR,A3 X P RF(NE) DMT020 p P CW A4,BUFSNR+2,A3 P RF(NE) DMT020 WRONG SECT NR P LDKL A7,/100 & P ORS A7,BUFOR,A3 MARK SAME SECT NR P RF
0x4c0a2c…4c0bc0 Dummy {f00=0x012b, f01=0x0190, f02=»IN BIT 15 x P RF(NZ) DMT030 USED P IM BUFOR,A3 MAKE OLDER . $ P SC A7,BUFOR,A3 CLEAR LEFT BYTE N PDMT030 EQU * v P CW A5,BUFOR,A3 P RF(G) DMT041 NOT OLDER P LD A5,BUFOR,A3 P ST A3,NEWBUF PDMT041 EQU * P CW
0x4c0bc0…4c0d54 (5, 368) Dummy {f00=0x012b, f01=0x0190, f02=»* $ P LD A3,NEWBUF CHOOSE THIS BUFFER P ECR A5,A5 2 P LDR A5,A5 D P RF(Z) DMT042 NO BUFFER V P ANK A5,/3 v P RF(Z) DMT043 NO DATA P ANK A5,/2 P RF(NZ) DMT051 DELAY P RF DMT050 FREE SECTOR FOUND PDMT042 EQU *
0x4c0d54…4c0ee8 Dummy {f00=0x012b, f01=0x018e, f02=»ORDS n P* P IM 4,A14 P IM 4,A14 SKIP RETURN ( P ST A1,BUFDMI,A3 DMIDENT, FC F " P ST A2,BUFSNR,A3 SECTOR NUMBER j P ST A4,BUFSNR+2,A3 PDMT050 EQU * " P CM BUFOR,A3 RESET OLD-COUNTER PDMT051 EQU * DELAY USE P ST A3
0x4c0ee8…4c107c Dummy {f00=0x012b, f01=0x0190, f02=» P************** P* DMTRBU * P************** 0 P* F . P* ENTRY DMTRBU RELEASE A DISC BUFFER P P* $ P* INPUT A3 = BUFFER ADDRESS P* A2 IS DESTROYED P* P* PDMTRBU EQU * P LDKL A2
0x4c107c…4c1210 Dummy {f00=0x012b, f01=0x0190, f02=»**************************************************** P INH < P LD A3,CURBUF H PDMT700 LDR* A3,A3 ^ P ANKL A3,/FFFE x P LDK A2,1 P AN A2,BUFLNK,A3 P RF(NZ) DMT750 USED P CM BUFDMI,A3 REMOVE PDMT750 CW A3,CURBUF
0x4c1210…4c13a4 Dummy {f00=0x012b, f01=0x018e, f02=»MINIT, BUT d . P* IS OVERLAYED ON THE FIRST BLOCK BUFFER P* D PDMIFIN EQU * N P RORG BUFAR b P* v PDMI020 EQU * P* P* INITIALIZE SYSTEM FWT P* P LD A3,SCTFWT ADDR FIRST FWT & P ST A3,FDBSTA QUEUE FIRST
0x4c13a4…4c1538 Dummy {f00=0x012b, f01=0x0190, f02=» P LDKL A6,CRNEND P CF A15,DMIN30 P* 2 < P* CLEAR USE BIT AND BUFFER HEADER WORDS IN DM BUFFERS < P* | P LDKL A2,/FFFE P LD A3,CURBUF PDMIN50 LDR* A3,A3 P ANRS A2,A3 CLEAR USE BIT P CM BUFDMI,A3 P CM
0x4c1538…4c16cc Dummy {f00=0x012b, f01=0x018e, f02=»CT P* P* P* IN; A2 = LENGTH P* A3= LINK ROOT 8 P* A6= AREA END ADDR V PDMIN30 LDR A4,A3 x P ADR A4,A2 P* P* DIV W. 2 FOR 16 K LIMIT P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6
0x4c16cc…4c1860 Dummy {f00=0x012b, f01=0x4098, f02=» PDMIN40 EQU * P SUR A3,A2 P CMR A3 END OF FDB CHAIN . P ADKL A15,4 N P ABR* A15 b P RORG DMIFIN t P END @ A2 P* P* DIV W. 2 FOR 16 K LIMIT P* P LDR A5,A4 P SRL A5,1 P LDR A1,A6
0x4c1860…4c19f4 (5, 369) Dummy {f00=0x012b, 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
0x4c19f4…4c1b88 Dummy {f00=0x012b, f01=0x0190, f02=» P LDR A2,A7 P ANKL A2,/FFF9 1-4 INDEXES P RB(NZ) TIOD19 ERROR 8 P ADR A7,A6 BASE IN DATA FDB T $ P LD A2,FDBAI1,A7 INDEX FDB ADDR x P ABL(Z) TIOD19 ERR P LDR A7,A2 P* P* COPY DWT ITEMS P* P LD A1,DWTECB,
0x4c1b88…4c1d1c Dummy {f00=0x012b, f01=0x018e, f02=»DBRLE,A2 P SUK A1,6 KEY LENGTH PIXR050 EQU * , P CM FDBKEY,A2 @ P ADK A2,2 V P SUK A1,2 h P RB(P) IXR050 MORE TO CLEAR z P EJECT P* P* FETCH KEY TO INDEX FDB P* P LD A1,ECBBA,A8 RECORD ADDR P A
0x4c1d1c…4c1eb0 Dummy {f00=0x012b, f01=0x0190, f02=» P* ! P LD A2,FDBRLE,A7 ! P SUK A2,6 MAX KEY LGTH ! & P CWR A2,A9 ! D P RF(NG) IXR070 ! V " P LDR A2,A9 TAKE SMALLEST LGTH ! n PIXR070 EQU * ! P LDR A9,A2 SAVE ! P IFT MMUPAG=0 ! P CF A14,DMTBM FETCH KEY ! P XIF ! P IFT M
0x4c1eb0…4c2044 Dummy {f00=0x012b, f01=0x018e, f02=» P IFT INDXAC=1 " P* " 0 P* INCREASE KEY IF 'START GREATER ' IS REQ " $ P* " X P CWK A5,QSTA " b P RF(NE) STA020 NOT START " v P LC A2,DWTOPT,A7 " P ANK A2,/7 OPTION " P SUK A2,1 " P RF(NZ) STA020 NOT GREATER " P LDR A2,A7 "
0x4c2044…4c21d8 Dummy {f00=0x012b, f01=0x018e, f02=» " t P LCR A1,A3 # P ADK A1,1 NEXT HIGHER KEY # P SCR A1,A3 # < P ANK A1,/FF OVERFLOW ? # N P RF(NZ) STA020 NO # l P CWR A2,A3 # P RB(NE) STA010 MORE BYTES # PSTA020 EQU * # P* # P* SWITCH TO INDEX FDB # P* # P LDR A
0x4c21d8…4c236c Dummy {f00=0x012b, f01=0x0190, f02=» # r P LDKL A1,EDMERR $ P LDK A4,FCUSED FC USED $ P SC A4,CRNSTA,A2 STATUSA $ > P ABL TIODMX $ ^ POPE050 EQU * $ r P LDK A1,LGTERR $ P LDKL A4,FPB:FR+8 MIN LGTH $ P CW A4,ECBRL,A8 REQ $ P ABL(G) TIODMX ERR $ PTIORRO EQU * $ P
0x4c236c…4c2500 Dummy {f00=0x012b, f01=0x0190, f02=»ERS $ r P LD A3,CRNCDF+2,A2 % $ P LD A2,CRNCDF,A2 CURRENT RECORD % & P ST A2,ECBCW,A8 % N P ST A3,ECBCW+2,A8 % f P RB TIORRO % P EJECT % PCLOSE EQU * CLOSE FILE % P* % ( P* CONNECT FILE CODE TO SYSTEM FWT % P* % $ P LD A1,DWT
0x4c2500…4c2694 (5, 370) Opaque[0x194]
0x4c2694…4c2828 # DirEnt {nam=»DMFDB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ea8, f03=0x0000}
0x4c2694…4c2828 IdxSect {
0x4c2694…4c2828 f00 = 0x0175 // 0x4c2694 @0x0
0x4c2694…4c2828 f01 = 0x0002 // 0x4c2696 @0x2
0x4c2694…4c2828 gno = [ // 0x4c2698 @0x4
0x4c2694…4c2828 [0x00]: C0x0175.0x1.0
0x4c2694…4c2828 ]
0x4c2694…4c2828 }
0x4c2828…4c29bc Dummy {f00=0x0175, f01=0x0190, f02=» 0 P IDENT DMFDB REL 10.0 80-03-14 870105041000 P 8 8 P**************************************************** @ P* | $ P* PHILIPS TERMINAL SYSTEM PTS P* ( P* THIS MODULE CONTAINS AREAS FOR : P* CURRENCY P* MASTER I
0x4c29bc…4c2b50 Dummy {f00=0x0175, f01=0x0190, f02=»RY CRNEND P ENTRY MXIND P EJECT & P* 4 6 P* MXSIZ IS THE SIZE OF THE MASTER INDEX AREA IN > P* WORDS x P* PX:C EQU 0 & PMXSIZ EQU 00000 MASTER INDEX AREA P IFF MXSIZ=0 INDEXES " PCRBUFL EQU 12 SIZE CRN BUFFE
0x4c2b50…4c2ce4 Dummy {f00=0x0175, f01=0x0190, f02=» ARERA IN WORDS h 4 P* WHERE CRBUFL BYTES ARE USED FOR EACH BUFFER P* P PX:B EQU 50 Z " PCRNBAR EQU 00012 CURRENCY AREA l P* P* PX:A EQU 250 P* P EJECT P* PCRNQUE DATA 0 CRN LINK ROOT P IFF CRN
0x4c2ce4…4c2e78 Dummy {f00=0x0175, f01=0x4174, f02=»NDE-* LENGTH INDEX INDEX P DATA MXAR MASTER INDEX ADDR " P DATA MXSIZ MASTER INDEX SIEZE D P IFF MXSIZ=0 j * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 ~ * P DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 P XIF PMXINDE EQU * END INDEX INDEX 2
0x4c2e78…4c300c Dummy {f00=0x0175, 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*
0x4c300c…4c31a0 Dummy {f00=0x0175, f01=0x0190, f02=»-ORDERS P DATA DMSTDI START DIRECT P IFT INDXAC=1 2 PQSTIND EQU *-ORDERS H P DATA DMSTIN START INDEXED d P XIF P IFT INDXAC=0 P DATA DMTERR P XIF P* 4 P* FOLLOWING LABELS ARE FOUND IN MODULE DMOPCL
0x4c31a0…4c3334 (5, 371) Opaque[0x194]
0x4c3334…4c34c8 # DirEnt {nam=»DFTAB «, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2ea0, f03=0x0000}
0x4c3334…4c34c8 IdxSect {
0x4c3334…4c34c8 f00 = 0x0175 // 0x4c3334 @0x0
0x4c3334…4c34c8 f01 = 0x0002 // 0x4c3336 @0x2
0x4c3334…4c34c8 gno = [ // 0x4c3338 @0x4
0x4c3334…4c34c8 [0x00]: C0x0175.0x0.0
0x4c3334…4c34c8 ]
0x4c3334…4c34c8 }
0x4c34c8…4c365c Dummy {f00=0x0175, f01=0x0190, f02=» 0 P IDENT DFTAB REL 10.0 80-03-14 870105041000 P 8 P* @ 8 P**************************************************** J P* $ P* PHILIPS TERMINAL SYSTEM PTS P* & P* DFTAB = DISC FILE CODE TABLE P* P* P* 8
0x4c365c…4c37f0 Dummy {f00=0x0175, f01=0x4142, f02=»NTRY DFTABE P ENTRY DMTIDP P ENTRY DMTIDS * P* @ P* J PDFTAB EQU * T P DATA /F0F1 h P DATA /F2F3 | P DATA /F8F9,/FAFB PDFTABE EQU * PDMTIDP EQU * " P DATA /0000,/0000,/0101,/0101 PDMTIDS EQU *
0x4c37f0…4c3984 Dummy {f00=0x0175, 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*
0x4c3984…4c3b18 Dummy {f00=0x0175, f01=0x0190, f02=» P* P* P ENTRY DMTASK P* . 4 P* FOLLOWING ENTRIES ARE USED BY MODULE DMOPCL 8 P ENTRY DMTERX,QOPEN,QRFP,QCL p P ENTRY RECBFZ P EJECT P* P***************** P* EXTERNALS * P*****************
0x4c3b18…4c3cac Dummy {f00=0x0175, f01=0x0190, f02=»TID P EXTRN TENDIO P EXTRN FDBECB " P EXTRN FDBSNR 8 P EXTRN FDBRRO N P EXTRN FDBRLE d P EXTRN FDBBLF z P EXTRN FDBTNR P EXTRN FDBLRN P EXTRN FDBMIA P EXTRN FDBEAL P EXTRN FDBADF P EXTRN FDB
0x4c3cac…4c3e40 Dummy {f00=0x0175, f01=0x0190, f02=»XTRN ECBFC P EXTRN ECBBA P EXTRN ECBRL & P EXTRN ECBEL : P EXTRN ECBRC N P EXTRN ECBCW b P EXTRN BUFLNK v P EXTRN BUFDMI P EXTRN BUFFC P EXTRN BUFSNR P EXTRN BUFOR P EXTRN BUFSTA P EXTRN DWTECB
0x4c3e40…4c3fd4 (5, 372) Opaque[0x194]
0x4c3fd4…4c4168 # DirEnt {nam=»DMSUBX«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2fc0, f03=0x0000}
0x4c3fd4…4c4168 IdxSect {
0x4c3fd4…4c4168 f00 = 0x017e // 0x4c3fd4 @0x0
0x4c3fd4…4c4168 f01 = 0x000c // 0x4c3fd6 @0x2
0x4c3fd4…4c4168 gno = [ // 0x4c3fd8 @0x4
0x4c3fd4…4c4168 [0x00]: C0x017e.0x0.0
0x4c3fd4…4c4168 [0x01]: C0x017e.0x1.0
0x4c3fd4…4c4168 [0x02]: C0x017e.0x2.0
0x4c3fd4…4c4168 [0x03]: C0x017e.0x3.0
0x4c3fd4…4c4168 [0x04]: C0x017f.0x0.0
0x4c3fd4…4c4168 [0x05]: C0x017f.0x1.0
0x4c3fd4…4c4168 ]
0x4c3fd4…4c4168 }
0x4c4168…4c42fc Dummy {f00=0x017e, f01=0x0190, f02=» 2 P IDENT DMSUBX REL 10.0 80-03-14 870105041000 P : 8 P**************************************************** B P* ~ $ P* PHILIPS TERMINAL SYSTEM PTS P* 2 P* DMSUBX = DM-ROUTINES FOR INDEXED REQUESTS P* 8 P**************
0x4c42fc…4c4490 Dummy {f00=0x017e, f01=0x0190, f02=» P*************** P* ENTRIES * P*************** 8 P* P P ENTRY FNDKMX,CHKKEY Z P ENTRY RDNXTR v P ENTRY FNDKEY P ENTRY CRNUPD P ENTRY GTLGRN P ENTRY CRNCIF P* P***************** P
0x4c4490…4c4624 Dummy {f00=0x017e, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR P EXTRN FDBRRO,FDBBLF,BUFSNR & P EXTRN FDBLRN,FDBMRO,FDBCRL,FDBADF D . P EXTRN DMTIOT,GTBKBU,ADDMOD,CALSNO,DMTRBU n P EXTRN DMTIOZ P EXTRN DIVMOD,DSUMOD P EXTRN EOFRC,NOKEY P EJECT 8 P****DESCRIPTIO
0x4c4624…4c47b8 Dummy {f00=0x017e, f01=0x0190, f02=»RCH IS USED. REF : KNUTH PAGE 411 ALG. U. 0 P* THE FIRST TWO WORDS IN MASTER INDEX IS : 2 P* - NO OF ENTRIES N f $ P* - NO OF CHARACTERS PER ENTRY P* 8 P****ENTRY PARAMETERS******************************** P* P* A5 = MAS
0x4c47b8…4c494c Dummy {f00=0x017e, f01=0x0190, f02=»* 8 P****EXIT PARAMETERS********************************* P* F 0 P* A1,A2 = LOGICAL RECORD NO IN INDEX FILE P P* A8,A11= UNCHANGED P* 8 P****USED REGISTERS********************************** P* P* A1 - A11 P*
0x4c494c…4c4ae0 Dummy {f00=0x017e, f01=0x0190, f02=»MX EQU * P LDR* A2,A5 NO OF ENTRIES N " P RF(NP) FND045 NO MASTER INDEX 4 P LDR A9,A2 Z P ANKL A9,/1 GET BIT 15 l P SRA A2,1 P LDR A10,A2 M=N/2 FLOOR P ADR A9,A2 I=N/2 CEILING P ADK A5,2 TABLE BASE - 2 PFND020 EQU *
0x4c4ae0…4c4c74 (5, 373) Dummy {f00=0x017e, f01=0x0190, f02=» CF A14,MPYMOD A1,A2=(I-1)*EL P SRC A1,1 & P ORR A2,A1 GET MOST SIGN BIT 8 PFND025 EQU * " P ADR A2,A5 ADD MI BASE ADR - 2 p 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 MA
0x4c4c74…4c4e08 Dummy {f00=0x017e, f01=0x0190, f02=» 15 P SRA A7,1 M/2 FLOOR P ADR A6,A7 M/2 CEILING ( P LDR A3,A3 CHKKEY RTN INF F . P RF(NG) FND040 SEARCHED KEY LESS OR EQUAL h P* P* SEARCHED KEY GREATER P* P LDR A10,A10 M P RF(Z) FND050 SEARCH READY P A
0x4c4e08…4c4f9c Dummy {f00=0x017e, f01=0x0190, f02=» P RF(Z) FND060 SEARCH READY P SUR A9,A6 I=I-(M/2 CEIL) * P RB FND030 L PFND045 EQU * NO MASTER INDEX ^ P LDK A1,0 P LDK A2,1 REC NR 1 P RF FND070 PFND050 EQU * P ADR* A1,A5 ARDR NEXT ENTRY PFND060 EQU *
0x4c4f9c…4c5130 Dummy {f00=0x017e, f01=0x0190, f02=» LDK A1,0 P LCR A1,A3 P ADK A3,1 $ P LCR A2,A3 6 P ADK A3,1 H P ECR A2,A2 Z P LCR A2,A3 l PFND070 EQU * ~ P RTN A14 P EJECT 8 P****DESCRIPTION************************************* P* . P* CHKKEY COMPARE
0x4c5130…4c52c4 Dummy {f00=0x017e, f01=0x0190, f02=»Y x P* A3 = ADR OF SEARCH KEY * P* A6 = MAX NO OF CAHARACTERS IN KEY , 2 P* A7 = REL NO OF FIRST CHAR TO CHECK IN KEY Z P* P* CF A14,CHKKEY P* 8 P****EXIT PARAMETERS********************************* P* : P*
0x4c52c4…4c5458 Dummy {f00=0x017e, f01=0x0190, f02=»IS LESS t N P* A7 = REL NO OF NEXT CHAR TO CHECK = NO OF SAME CHARACTERS IN WHOLE KEY " P* A6 = MAX NO OF CHAR IN KEY b P* 8 P****USED REGISTERS********************************** P* P* A2-A4,A6-A7 < P************************
0x4c5458…4c55ec Dummy {f00=0x017e, f01=0x0190, f02=»AR TO TEST z PCHK020 EQU * P LCR A4,A3 SEARCED KEY CHAR & P CCR A4,A2 SC=EC? J P RF(G) CHK100 SC GT TH EC d " P RF(L) CHK120 SC LESS THAN EC P ADK A7,1 NO OF SAME CHAR P CWR A7,A6 NO OF CHAR $ P RF(NL) CHK060 ALL CHAR CHEC
0x4c55ec…4c5780 Dummy {f00=0x017e, f01=0x0190, f02=» P RF CHK140 PCHK120 EQU * $ P LDKL A3,-1 SEARCHED KEY SMALLER * P RF CHK140 R PCHK100 EQU * d $ P LDK A3,1 SEARCHED KEY SGREATER x PCHK140 EQU * P RTN A14 P EJECT 8 P****DESCRIPTION*************************************
0x4c5780…4c5914 (5, 374) Dummy {f00=0x017e, f01=0x0190, f02=»AD BEFORE, THE FIRST RECORD IN SPECIFIED x & P* SECTOR WILL BE MADE AVAILABLE 0 P* Z 8 P****ENTRY PARAMETERS******************************** d P* : P* A1 = FDB ADDRESS FOR CURRENT RECORD (BEFORE NEXT) P* FDBCEX,FDBSNR B P*
0x4c5914…4c5aa8 Dummy {f00=0x017e, f01=0x0190, f02=» ADDRESS OF BLOCK BUFFER FROM PREVIOUS CALL IN > P* SAME DM-REQUEST. =0 WHEN NO BYUFFER IS ALLOCATED 6 P* A8 = ECB ADDRESS x P* 8 P****EXIT PARAMETERS********************************* P* 2 P* RETURN AT ADDR 0 WHEN OK AND A5
0x4c5aa8…4c5c3c Dummy {f00=0x017e, f01=0x0190, f02=»N NO BUFFER IS ALLOCATED ^ $ P* A2 = FDBRRO = RECORD OFFSET P* A3 = BUFFER ADDRESS H * P* = 0 WHEN NO BUFFER IS ALLOCATED h P* A8 = ECB ADDRESS P* 8 P****USED REGISTERS********************************** P* 2 P* A1
0x4c5c3c…4c5dd0 Dummy {f00=0x017e, f01=0x0190, f02=»********************************** | P EJECT * PRDNXTR EQU * 8 P LDR A10,A3 SAVE BUFFER ADDR L P RF(NZ) RDN200 BUFFER EXIST p P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P* P* GET A BUFFER P* PRDN040 EQU *
0x4c5dd0…4c5f64 Dummy {f00=0x017e, f01=0x018e, f02=»CK FROM DISC P* P LDR A10,A3 BUFFER ADDR $ P LDK A7,/91 PHYS READ WITH WAIT > P LKM f P DATA 15 FILE MANAGEMENT IO r & P CF A14,DMTIOZ CHECK RETURN CODES P LDR A1,A1 P RF(NZ) RDN900 ERROR P LDR A1,A6 FDB ADDR
0x4c5f64…4c60f8 Dummy {f00=0x017e, f01=0x0190, f02=» P* P* BUFFER WAS BEFORE P* , PRDN200 EQU * 6 $ P LD A2,FDBRRO,A1 REC ORD OFFSET J P RF(NN) RDN220 NOT FIRST REC r P STR A7,A14 P SUKL A14,4 P ST A6,2,A14 P RB RDN080 FIRST REC WANTED P* : P* CHEC
0x4c60f8…4c628c Dummy {f00=0x017e, f01=0x018e, f02=»HIS REC LAST IN BUFFER P* , P* GET NEXT REC IN CURRENT BLOCKBUFFER ( P* X $ P AD A2,FDBRLE,A1 RECOR D LENGTH b P ADK A2,1 STATUS CHAR P ST A2,FDBRRO,A1 NEW OFFSET P RF RDN950 RETURN P* PRDN300 EQU * P STR
0x4c628c…4c6420 Dummy {f00=0x017e, f01=0x0190, f02=» $ P LC A5,FDBBLZ,A1 SECT PER BLOCK P ADR A3,A5 NEXT SECT 0 P RF(O) RDN380 L P RF RDN390 b PRDN380 ANKL A3,/7FFF t P IM FDBSNR,A1 PRDN390 ST A3,FDBSNR+2,A1 P LDR A6,A1 FDB ADDR P RF RDN500 P* P* P
0x4c6420…4c65b4 (5, 375) Dummy {f00=0x017e, f01=0x0190, f02=» FDB ADDR P RB RDN040 NEXT SECTOR P* 0 P* EXIT : P* J PRDN900 EQU * T P LDR A5,A1 RET CODE h P LDR A1,A6 FDB ADDR P LDR A3,A10 BUFFER ADDR P RF(Z) RDN960 NO BUFFER " P CF A14,DMTRBU RELEASE BUFFER PRD
0x4c65b4…4c6748 Dummy {f00=0x017e, f01=0x0190, f02=» ADKL A14,4 P LDR* A7,A14 PRDN950 EQU * ( P RTN A14 < P EJECT L 8 P****DESCRIPTION************************************* Z P* > P* FNDKEY WILL READ THE FIRST USED INDEX RECORD WITH THE * P* SPECIFIED KEY OR NEXT HIGHER KEY
0x4c6748…4c68dc Dummy {f00=0x017e, f01=0x0190, f02=»* P* A1 = FDB ADDRESS P* A8 = SEARCH KEY ADDR & & P* A11 = NO OF CHARACTERS IN KEY F " P* A13= PHYSICAL ECB ADDRESS p P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = FDB ADDRESS 0 P*
0x4c68dc…4c6a70 Dummy {f00=0x017e, f01=0x0190, f02=»* = RETURN CODE WHEN KEY IS NOT FOUND 4 P* BIT 1 CAN NEVBER BE SET BY DISC DRIVER 2 P* A3 = BUFFER ADDRESS j & P* = 0 WHEN NO RECORD IS FOUND " P* A7 = NO OF SAME CHARACTERS " P* A8 = PHYSICAL ECB ADDRESS P* A11
0x4c6a70…4c6c04 Dummy {f00=0x017e, f01=0x0190, f02=»ACK l P* : P****************************************************** P EJECT T PFNDKEY EQU * b P* v & P* FIRST SEARCH THE NMASTER INDEX P* * P LD A5,FDBMIA,A1 ADDR OF MASTER INDEX $ P STR A1,A14 FDB ADDRESS IS SAVED
0x4c6c04…4c6d98 Dummy {f00=0x017e, f01=0x018e, f02=»R | P CF A14,CALSNO GET PHYS ADDR P LDR A1,A1 . P RF(NZ) FKY900 ERROR @ P LDR A1,A6 FDBADDR " P LDR A6,A11 NO OF CHAR IN KEY v $ P LDK A7,0 START CHAR KEY SEARCH & P SUR A9,A9 NO BUFFER TO START WITH P LDR A8,A13 ECB ADDR
0x4c6d98…4c6f2c Dummy {f00=0x017e, f01=0x0190, f02=» P RF FKY900 ERROR EXIT P* " " P* BUFFER AND ADATA IS FOUND , P* R PFKY150 EQU * P LDR A9,A3 BUFFER ADDR p P ADR A2,A3 BUFFER ADR P ADKL A2,BUFSTA P LDR A10,A2 SAVE REC ADDR * P AD A10,FDBRLE,A1 ADDR OF STATUS C
0x4c6f2c…4c70c0 Dummy {f00=0x017e, f01=0x018e, f02=»CORDS IN THIS SECTOR P* * P LD A13,FDBRRO,A1 SAVE CURRENT OFFSET & P LD A4,FDBMRO,A1 T & P ST A4,FDBRRO,A1 LAST REC IN SECT n P* P* *CHECK IF EOF P* P LDR A10,A7 CHAR ADDR " P CF A14,GTLGRN GET LOG REC NR
0x4c70c0…4c7254 (5, 376) Dummy {f00=0x017f, f01=0x0190, f02=» | P CW A3,FDBLRN+1,A1 P RB(L) FKY100 NOT EOF " PFKY180 EQU * @ P* T P* EOF IS IN THIS SECTOR ^ P* 2 P ST A13,FDBRRO,A1 OFFSET TO FIRST FREE RECORD P LDK A7,0 NR OF SAME CHAR P LDKL A2,EOFRC EOF P RF FKY950
0x4c7254…4c73e8 Dummy {f00=0x017f, f01=0x0190, f02=»OMPARE KEYS P LDR A3,A3 & P RF(P) FKY840 SEARCHED KEY GREATER & " P RF(N) FKY850 SEARCH KEY LESS P P RF FKY870 KEY FOUNFD v PFKY840 EQU * P CC A7,-4,A10 NEXT KEY FLAG 0 P RB(NG) FKY100 THE NEXT KEY IS IDENTICAL FOR B P*
0x4c73e8…4c757c Dummy {f00=0x017f, f01=0x0190, f02=»0 REDUCE NO OF SAME CHARACTERS P RB FKY100 NEXT KEY & PFKY850 EQU * B P LDKL A2,NOKEY KEY NOT FOUND V P RF FKY950 z PFKY870 EQU * P LDK A2,0 KEY FOUND P RF FKY950 PFKY900 EQU * P SUR A9,A9 NO BUFFERS P LDR A2,
0x4c757c…4c7710 Dummy {f00=0x017f, f01=0x0190, f02=» z P LDR A3,A9 BUFFER ADDR ! P RTN A14 ! & P EJECT ! 6 P* ! D J P* CRNUPD UPDATES CRN-BUFFERS SO THAT RECORD NUMBERS FOR MOVED INDEX ! N P* RECORDS ARE UPDATED ! P* ! P* IN: ! & P* A8,A9 = LAST RECORD NR MOVED ! & P* A10,
0x4c7710…4c78a4 Dummy {f00=0x017f, f01=0x018e, f02=»TERS: ! P* A1 -A12 " P* " " P* OUT: " , P* A5 = FDB ADDR INDEX " < P* A10,A11 = UNCHANGED " P* " | PCRNUPD EQU * " P STR A12,A14 " P SUKL A14,2 " $ P LD A12,FDBADF,A5 FDB DATA FILE " P INH " $ P LD A12,FDBCRL,A12
0x4c78a4…4c7a38 Dummy {f00=0x017f, f01=0x0190, f02=» " t P CC A7,CRNCIF,A12 # P RB(NE) CRU100 WRONG FC # " P CC A10,CRNCIF+1,A12 # B P RB(G) CRU100 # ^ P RF(L) CRU200 # t P CW A11,CRNCIF+2,A12 # P RB(G) CRU100 # PCRU200 EQU * # P CC A8,CRNCIF+1,A12 # P RF(G) CRU300 # P RB(L)
0x4c7a38…4c7bcc Dummy {f00=0x017f, f01=0x0190, f02=»,A14 ADD PARAM # P LDR A6,A7 $ P RF(N) CRU230 -1 $ ( P LDK A6,0 $ @ PCRU230 EQU * $ R P ANKL A7,/7FFF $ f P LDK A1,0 $ | P LC A1,CRNCIF+1,A12 $ P LD A2,CRNCIF+2,A12 $ P CF A14,ADDMOD $ P SC A1,CRNCIF+1,A12 $ P ST A2,CRNCIF+2,
0x4c7bcc…4c7d60 Dummy {f00=0x017f, f01=0x0190, f02=»N************************************* $ P* % . D P* GTLGRN WILL CONVERT FDBSNR AND FDBRRO TO A LOGICAL RECORD NO % 8 P* % 8 P****ENTRY PARAMETERS******************************** % P* % P* A1 = FDB ADDRESS % & P* FDBSNR,FDBRRO,F
0x4c7d60…4c7ef4 (5, 377) Dummy {f00=0x017f, f01=0x0190, f02=»3 = LOG RECORD NO % P* & 8 P****USED REGISTERS********************************** & $ P* & ` P* A1 - A7 & j P* & ~ : P****************************************************** & P EJECT DMSUBR & PGTLGRN EQU * & P LDK A6,0 & P LDR
0x4c7ef4…4c8088 Dummy {f00=0x017f, f01=0x0190, f02=» & P LC A6,FDBBLZ,A5 BLOCK SIZE ' P ST A8,-4,A14 ' , P CF A14,DIVMOD ' B P LD A8,-4,A14 ' X P LDR A6,A2 BLOCKS - 1 ' n P* ' ( P* CONVERT FDBRRO TO NO OF RECORDS ' P* ' P LDK A7,0 ' " P LC A7,FDBBLF,A5 BLOCK FACTOR ' P CF
0x4c8088…4c821c Dummy {f00=0x017f, f01=0x018e, f02=»FFSET IN SECTOR ' ~ P ADK A6,1 ( PGTL150 EQU * ( * P ADK A7,1 RECORD COUNTER ( > P SUR A6,A4 ( ^ * P RB(NN) GTL150 COUNT RECORDS IN SECTOR ( p P* ( , P* ADD SECT*BLOCFACT AND RECINCURRSECT ( P* ( P ADR A2,A7 ( P RF(O) GTL160 OVERFL
0x4c821c…4c83b0 Dummy {f00=0x017f, f01=0x4076, f02=» P LDR A3,A2 ) P LDR A2,A1 ) P LDR A1,A5 FDB ADDR ) ( P LDR A6,A5 ) D P RTN A14 ) V P END ) f@ ) r) GTL150 COUNT RECORDS IN SECTOR ( p P* ( , P* ADD SECT*BLOCFACT AND RECINCURRSECT ( P* ( P ADR A2,A7 ( P RF(O) GTL160 OVERFL
0x4c83b0…4c8544 Dummy {f00=0x017f, 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* +
0x4c8544…4c86d8 Dummy {f00=0x017f, f01=0x0190, f02=» * n @ ;* * " @ ;*********************************************************** f FRDSEC EQU * " LDR A1,A11 GET SECTOR NUMBER P SLL A1,4 P ORKL A1,/4000
0x4c86d8…4c886c Dummy {f00=0x017f, f01=0x0190, f02=»FDIOP+1 WRITE 2:ND MUX WORD $ P LDR A2,A3 BUFFER START ADDRESS $ $ P AD A2,SAVCON BUFFER END ADDRESS L $ FRD:10 CIO A1,1,FDCU START READ t & " RB(NA) FRD:10 LOOP UNTIL ACCEPTED 4 /FRD:20 INR A1,0,FDCU GET CHAR - MODIFIED IF MUX & " RF(NA) FR
0x4c886c…4c8a00 Dummy {f00=0x017f, f01=0x0190, f02=»D:20 P* " PFRD:25 CIO A1,0,FDCU STOP READ P RB FRD:20 < $ FRD:40 SST A1,FDCU SENSE STATUS N & " RB(NA) FRD:20 LOOP UNTIL ACCEPTED v P ANKL A1,/4E15 FATAL ERROR? RF(NZ) FRD:50 YES! ( P ADKL A11,1 INCREMENT SECTOR ADDRESS
0x4c8a00…4c8b94 (5, 378) Opaque[0x194]
0x4c8b94…4c8d28 # DirEnt {nam=»ADDMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3000, f03=0x0000}
0x4c8b94…4c8d28 IdxSect {
0x4c8b94…4c8d28 f00 = 0x0180 // 0x4c8b94 @0x0
0x4c8b94…4c8d28 f01 = 0x0004 // 0x4c8b96 @0x2
0x4c8b94…4c8d28 gno = [ // 0x4c8b98 @0x4
0x4c8b94…4c8d28 [0x00]: C0x0180.0x0.0
0x4c8b94…4c8d28 [0x01]: C0x0180.0x1.0
0x4c8b94…4c8d28 ]
0x4c8b94…4c8d28 }
0x4c8d28…4c8ebc Dummy {f00=0x0180, f01=0x0190, f02=» 2 P IDENT ADDMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x4c8ebc…4c9050 Dummy {f00=0x0180, f01=0x0190, f02=»UTER P*CALLING SEQUENCE: $ P* A1-A2 = ARG1 & $ P* AG-A7 = ARG2 N P* CF A14,ADDMOD v & P*RETURN : RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED. P ENT
0x4c9050…4c91e4 Dummy {f00=0x0180, f01=0x0190, f02=» . P***************************************** P* 6 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION @ . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. z P* PCPU852 EQU 1 P* P EJECT PADDMOD EQU * P LDK A3,0 P
0x4c91e4…4c9378 Dummy {f00=0x0180, f01=0x0190, f02=» P ADR A2,A7 P RF(3) OVER1 $ 0 PNOVER ADR A1,A6 * NO OVERFLOW D P RF(1) END1 x P RF(2) END2 P RF(3) END3 PNOVER1 ADK A2,0 P RF(0) END0
0x4c9378…4c950c Dummy {f00=0x0180, f01=0x0190, f02=» RB(7) NOVER POVER3 ADR A1,A6 P RF(2) END3 < P ADK A1,0 Z P RF(1) END1 x P RB(7) NOVER1 P XIF P IFF CPU852=1 P RF(0) END0 P RF(1) END1 P RF(2) E
0x4c950c…4c96a0 Dummy {f00=0x0180, f01=0x411e, f02=»LL A3,1 ********************************** 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 P
0x4c96a0…4c9834 (5, 379) Dummy {f00=0x0180, 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
0x4c9834…4c99c8 Dummy {f00=0x0180, f01=0x0002, f02=»
0x4c99c8…4c9b5c Dummy {f00=0x0180, f01=0x018e, f02=» P$REL PMES @P PLED @P,/S,/EE,## P##DL 0,1 6 0 P IDENT @P REL 10.0 80-03-14 870105041000 F P z P##EN PKPF /S PASM /S,NL PKPF /O PSCR /S PSCR /O PEND P$MOVDM PMOV @R,/S,SLASK
0x4c9b5c…4c9cf0 Dummy {f00=0x0180, f01=0x0190, f02=» PSCR /S PSCR /O PEND P$MOVOB , PMES @P : PINC @P,HELP H PKPF /O PSCR /S j PSCR /O x PEND P$MOVUF PMES @P PMOV @P,/A,HELP PKPF /A,@P PSCR /A PEND P$NC PMES @P
0x4c9cf0…4c9e84 Dummy {f00=0x0180, f01=0x0010, f02=» PEND PSCR /O PEND P$MOVOB , PMES @P : PINC @P,HELP H PKPF /O PSCR /S j PSCR /O x PEND P$MOVUF PMES @P PMOV @P,/A,HELP PKPF /A,@P PSCR /A PEND P$NC PMES @P
0x4c9e84…4ca018 Dummy {f00=0x0180, f01=0x2008, f02=» END PSCR /O PEND P$MOVOB , PMES @P : PINC @P,HELP H PKPF /O PSCR /S j PSCR /O x PEND P$MOVUF PMES @P PMOV @P,/A,HELP PKPF /A,@P PSCR /A PEND P$NC PMES @P
0x4ca018…4ca1ac Dummy {f00=0x0180, f01=0x0190, f02=»X EQU /03 LAST DUMMY . PRETURN EQU /12 RETURN TO ALPHANUMERIC MODE * PESCAPE EQU /11 ESCAPE TO GRAPHIC MODE N " PPOINT EQU /2E POINT CHARACTER | 2 PEQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT PSTILL EQU /18 CURSOR STEADY $ PCTYCOD EQU /
0x4ca1ac…4ca340 Dummy {f00=0x0180, f01=0x0190, f02=»R EQU /4 CODE CHECK ERROR ( POPERR EQU /1 NOT OPERABLE, POWER OFF " P* N P EJECT X P* f P* p . P***************************************** z . P* CONDITIONAL ASSEMBLY * . P*****************************************
0x4ca340…4ca4d4 (5, 380) Opaque[0x194]
0x4ca4d4…4ca668 # DirEnt {nam=»DSUMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3010, f03=0x0000}
0x4ca4d4…4ca668 IdxSect {
0x4ca4d4…4ca668 f00 = 0x0180 // 0x4ca4d4 @0x0
0x4ca4d4…4ca668 f01 = 0x0004 // 0x4ca4d6 @0x2
0x4ca4d4…4ca668 gno = [ // 0x4ca4d8 @0x4
0x4ca4d4…4ca668 [0x00]: C0x0180.0x2.0
0x4ca4d4…4ca668 [0x01]: C0x0180.0x3.0
0x4ca4d4…4ca668 ]
0x4ca4d4…4ca668 }
0x4ca668…4ca7fc Dummy {f00=0x0180, f01=0x0190, f02=» 2 P IDENT DSUMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x4ca7fc…4ca990 Dummy {f00=0x0180, f01=0x0190, f02=»OMPUTER P*CALLING SEQUENCE $ P* A1-A2 = ARG1 * $ P* A6-A7 = ARG2 R P* CF A14,DSUMOD z & P*RETURN: RESULT IN A1-A2 4 P* CAUTION REGISTERS A3,A4,A6,A7 ARE CRUSHED. P
0x4ca990…4cab24 Dummy {f00=0x0180, f01=0x0190, f02=» . P***************************************** P* : 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION D . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. ~ P* PCPU852 EQU 1 P* P EJECT PDSUMOD EQU * P LDK A3,0
0x4cab24…4cacb8 Dummy {f00=0x0180, f01=0x0190, f02=» P ANK.L A7,X'7FFF' P ANK.L A2,/7FFF ( P ADK A7,1 J P RF(1) NOVER1 h P ADK A6,1 P RF(3) OVER4 P RF(7) NOVER PNOVER1 ADR A2,A7 P
0x4cacb8…4cae4c Dummy {f00=0x0180, f01=0x0190, f02=» END3 P ADK A2,0 P RF(0) END0 . P RF(7) END1 L POVER1 ANK.L A2,X'7FFF' j P ADK A1,1 P RF(3) OVER4 P RB(7) NOVER POVER4 ADR A1,A6
0x4cae4c…4cafe0 Dummy {f00=0x0180, f01=0x0190, f02=» END0 P RF(1) END1 P RF(2) END2 " P XIF 6 PEND3 ADK A3,/80 B PEND2 ADK A3,/80 d PEND1 ADK A3,/80 F PEND0 SLL A3,1 ************************************* P ANK.L A3,/
0x4cafe0…4cb174 (5, 381) Dummy {f00=0x0180, f01=0x4044, f02=»ROGRAM X P RTN A14 P END ,@ @
0x4cb174…4cb308 Dummy {f00=0x0180, 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
0x4cb308…4cb49c Dummy {f00=0x0180, f01=0x0190, f02=»ATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR F ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR v P* P XIF P* P EJECT P* P* : P************************************
0x4cb49c…4cb630 Dummy {f00=0x0180, f01=0x018e, f02=»***** ` P* 4 P* CONTROL WORK TABLE FOR LOCAL CHANNEL NO. 3 P* P PCWTLT3 EQU * Z P* n P IFT LOCHAN=3 x P* P* P* PDWA3 EQU /23 DEVICE ADDRESS P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST O
0x4cb630…4cb7c4 Dummy {f00=0x0180, f01=0x0190, f02=» " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE * P DATA 0 SECOND QUEUE @ P* P IFT ACKMUL=1 f P* | P DATA 0 NAK-ACKUMULATOR $ P DATA 0 RETR. FAULT-ACKUMULATOR , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PR
0x4cb7c4…4cb958 Dummy {f00=0x0180, f01=0x0190, f02=»E ADDRESS ~ P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD < P DATA INTLT3 INTERRUPT TABLE P INR A2,0,DWA3 INR P OTR A2,0,DWA3 OTR P CIO A2,1,DWA3 CIO-START " P DATA 0 RETRANSMISSION COUNTER P DATA 0 QUEUE
0x4cb958…4cbaec Dummy {f00=0x0180, f01=0x0190, f02=»LATOR v , P DATA 0 UNDEFINED- INTERRUPT-ACKUMULATOR ( P DATA 0 PRINTER TIMEOUT ACKUMULATOR > P* j P XIF t P* P EJECT P* P* : P***************************************************** : P* C W T L T 4
0x4cbaec…4cbc80 Dummy {f00=0x0180, f01=0x0190, f02=»L CHANNEL NO. 4 p P* PCWTLT4 EQU * " P* 6 P IFT LOCHAN=4 @ P* V P* ` P* j PDWA4 EQU /33 t P* P DATA 0 LAST OUTPUT DWT P DATA 0 LAST OUTPUT WORD P DATA INTLT4 INTERRUPT TABLE P INR A2,0,DWA4 INR
0x4cbc80…4cbe14 (5, 382) Opaque[0x194]
0x4cbe14…4cbfa8 # DirEnt {nam=»MPYMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3028, f03=0x0000}
0x4cbe14…4cbfa8 IdxSect {
0x4cbe14…4cbfa8 f00 = 0x0181 // 0x4cbe14 @0x0
0x4cbe14…4cbfa8 f01 = 0x0004 // 0x4cbe16 @0x2
0x4cbe14…4cbfa8 gno = [ // 0x4cbe18 @0x4
0x4cbe14…4cbfa8 [0x00]: C0x0181.0x1.0
0x4cbe14…4cbfa8 [0x01]: C0x0181.0x2.0
0x4cbe14…4cbfa8 ]
0x4cbe14…4cbfa8 }
0x4cbfa8…4cc13c Dummy {f00=0x0181, f01=0x0190, f02=» 2 P IDENT MPYMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x4cc13c…4cc2d0 Dummy {f00=0x0181, f01=0x0190, f02=»LLING SEQUENCE: ( P* LD A6,ARG1 ( P* LD A7,ARG1 D P* CF A14,MPYMOD p ( P* RETURN : RESULT IN A1,A2 0 P* REGISTERS A3,A4,A6,A7, ARE CRUSHED P ENTRY MP
0x4cc2d0…4cc464 Dummy {f00=0x0181, f01=0x0190, f02=»************************************* P* . 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION 8 . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. r P* PCPU852 EQU 1 P* P EJECT PMPYMOD EQU * P IFF CPU852=1 P LDK
0x4cc464…4cc5f8 Dummy {f00=0x0181, f01=0x0190, f02=» ERROR EXIT Z P CWR A3,A6 P RF(4) SUITE 4 P CWR A3,A7 T P RF(0) END3 t < P LDR A6,A7 * A6= X'8000' A7# X'8000' 4 P LDR A7,A3 * EXCHANGE A6-A7 .
0x4cc5f8…4cc78c Dummy {f00=0x0181, f01=0x0190, f02=» x P ADK A6,0 P RF(0) END0 & P RF(6) ARG1PS D 0 P ADK A3,1 *ARG1 NEGATIVE d P C1R A6,A6 P ADK A6,1 PARG1PS ADK A7,0 P RF(0) EN
0x4cc78c…4cc920 Dummy {f00=0x0181, f01=0x0190, f02=»DK A7,1 P RF(3) CASSPE PARG2PS SRC A7,1 4 P RF(6) NOVER1 R P ADR A1,A6 r PNOVER1 SRA A2,1 P SRC A1,1 P RF(6) NOVER2 P ORK.L A2,/4000
0x4cc920…4ccab4 (5, 383) Dummy {f00=0x0181, f01=0x0190, f02=»ND* RESTORE SI=N p P RF(0) END1 P C1R A1,A1 6 P C1R A2,A2 V P ADK A2,1 v D P*CAUTION THE NEXT INSTRUCTION IS ABSOLUTELY NECESSARY TO SET CR < P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (
0x4ccab4…4ccc48 Dummy {f00=0x0181, f01=0x0190, f02=»FF x P RF(7) END2 P XIF ( P IFF CPU852=1 4 P RF(0) END0 J P RF(1) END1 ^ P RF(2) END2 r P XIF PEND3 ADK A3,/81 PEND2 ADK A3,/81 PEND1 ADK A3,/81 PEND0 SLL A3,1
0x4ccc48…4ccddc Dummy {f00=0x0181, f01=0x4114, f02=» UPDATE CR IN PSW CALLING PROGRAM v P RTN A14 , P IFT CPU852=1 J : PCASSPE LDR A1,A6 *A7=X'8000' THEN A4= 1 ` . P* *AND A1= A6 P RB(7) NOVER3 P XIF P END
0x4ccddc…4ccf70 Dummy {f00=0x0181, 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 @
0x4ccf70…4cd104 Dummy {f00=0x0181, f01=0x0190, f02=»ADDRESS AND GO TO y h < P* DEVICE WITH THE NEW STATUS. IF NO z > P* WAITING FOR STATUS, CONTROL IS GIVEN z Z ( P* TO DISPATCHER. z P* z P* z PCLT100 EQU * z P LDR A3,A2 z P SRL A
0x4cd104…4cd298 Dummy {f00=0x0181, f01=0x0190, f02=»PUT ? z ~ P RF(E) CLT150 YES { P LOOP SWITCH SET { ( 0 P LD* A8,CWTITA,A5 ADDRESS TO INTERRUPT TABLE { B P RB(Z) EXIT =7 { v P ADR A8,A3 { , P LDR* A8,A8 ADDRESS TO TERMINAL SECTION { P RB(Z) EXIT NOT DEFINED { P LDR* A6,A8 GET ID-WORD
0x4cd298…4cd42c Dummy {f00=0x0181, f01=0x0190, f02=» ADR A8,A4 ADDRESS TO DWT-ADDRESS { P LDR* A6,A8 GET DWT-ADDRESS | * P RB(E) EXIT | N P ANKL A6,/FFFE | b 2 P LCR A3,A6 GET FIRST BYTE IN CHANNEL PARAMETER | x P ANK A3,1 DATA INPUT ? | P RF(NE) CLT110 YES | & P LDR* A4,A6 GET CHANNEL PARAMETER
0x4cd42c…4cd5c0 Dummy {f00=0x0181, f01=0x018e, f02=» A3,DUMMSP | P RF(NE) CLT110 } & P LDR* A3,A6 CHANNEL PARAMETER =10 } ( 2 P RF(N) CLT110 DEVICE WITHOUT DATA REQUEST =10 } R P* } P************************* } P* } PCLT107 EQU * } P INH } & P LD A7,DWTTP,A6 GET TIMER POINTER } & P
0x4cd5c0…4cd754 (5, 384) Opaque[0x194]
0x4cd754…4cd8e8 # DirEnt {nam=»DIVMOD«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3040, f03=0x0000}
0x4cd754…4cd8e8 IdxSect {
0x4cd754…4cd8e8 f00 = 0x0182 // 0x4cd754 @0x0
0x4cd754…4cd8e8 f01 = 0x0004 // 0x4cd756 @0x2
0x4cd754…4cd8e8 gno = [ // 0x4cd758 @0x4
0x4cd754…4cd8e8 [0x00]: C0x0182.0x0.0
0x4cd754…4cd8e8 [0x01]: C0x0182.0x1.0
0x4cd754…4cd8e8 ]
0x4cd754…4cd8e8 }
0x4cd8e8…4cda7c Dummy {f00=0x0182, f01=0x0190, f02=» 2 P IDENT DIVMOD REL 10.0 80-03-14 870105041000 P : P* B 8 P**************************************************** L P* $ P* PHILIPS TERMINAL SYSTEM PTS P* P* TOSS DATA MANAGEMENT P* P* P* 8 P******
0x4cda7c…4cdc10 Dummy {f00=0x0182, f01=0x0190, f02=»ING SEQUENCE & P* A1-A2= DIVIDEND $ P* A6 = DIVISOR > P* CF A14,DIVMOD f B P*RETURN* RESUT IN A1-A2 ; A1= REMAINDER;A2= QUOTIENT 6 P* CAUTION : REGISTERS A3,A4,A6,A7,A8 ARE CRUSHED.
0x4cdc10…4cdda4 Dummy {f00=0x0182, f01=0x018e, f02=» z P* . P***************************************** P* D 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION N . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 P* P EJECT PDIVMOD EQU * P LDK
0x4cdda4…4cdf38 Dummy {f00=0x0182, f01=0x0190, f02=» ^ P ADK A6,0 @ P RF(0) END3 * IF DIVISOR IS NULL, OVREFLOW & P ADK A1,0 j P RF(4) SIGNE P ANK.L A2,/7FFF @ P RF(0) END0 * IF DIVIDEND IS NULL, CR = 0
0x4cdf38…4ce0cc Dummy {f00=0x0182, f01=0x0190, f02=» ADK A1,0 *SIGN OF DIVIDEND P RF(6) DIVENP 0 8 P ADK A3,1 * DIVIDEND IS NEGATIVE P P C1R A1,A1 P C1R A2,A2 P ANK.L A2,X'7FFF' P ADK A2,1
0x4ce0cc…4ce260 Dummy {f00=0x0182, f01=0x0190, f02=» DIVISOR j P RF(6) DIVORP 4 P SUK A3,1 *NEGATIVE DIVISOR 0 P C1R A6,A6 h P ADK A6,1 < P ADK A6,0 RESET IF OVERFLOW P RF(5) CASSPE PDI
0x4ce260…4ce3f4 (5, 385) Dummy {f00=0x0182, f01=0x0190, f02=»A6 d P RF(0) END P SLL A1,1 ( P SLL A7,1 F P SLL A2,1 d P RF(6) *+4 P ADK A1,1 P ADK A1,0 P RF(2) CASSP1 P CWR
0x4ce3f4…4ce588 Dummy {f00=0x0182, f01=0x0190, f02=»T z 4 P*THIS SEQUENCE RESTORES THE SIGN OF THE RESULTS PEND LDR A2,A7 B P ADK A3,0 b P RF(0) NOSIGN 8 P RF(2) AA DIVIDEND +. DIVISOR + , P C1R A1,A1 *REMAINDER
0x4ce588…4ce71c Dummy {f00=0x0182, f01=0x0190, f02=»CTION IS ABSOLUTELY NECESSARY TO SET CR x > P* WHEN THE ADK A2,1 SET AN OVERFLOW CR EX (QUOTIENT=8000) 0 P ADK A2,0 r P XIF P IFF CPU852=1 P RF(1) END1 P XIF P RF(2) END2 P RF(0) END0
0x4ce71c…4ce8b0 Dummy {f00=0x0182, f01=0x018e, f02=»**************************** n P ANK.L A3,/0300 $ P LDK.L A4,/FCFF F P AN.S A4,2,A14 h B P OR.S A3,2,A14 UPDATE CR IN PSW CALLING PROGRAM P RTN A14 P IFT CPU852=1 8 PNOSI
0x4ce8b0…4cea44 Dummy {f00=0x0182, f01=0x418e, f02=» . P ADK A1,1 REMAINDER - PBB ADK A2,0 : P RB(0) END0 X P RB(2) END2 v P RB(7) END1 PCASSPE LDR A7,A1 P LDR A1,A2 P CWK A1,/
0x4cea44…4cebd8 Dummy {f00=0x0182, 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
0x4cebd8…4ced6c Dummy {f00=0x0182, f01=0x0190, f02=»SEND 3 P SUK A3,1 LAST BACKSPACE ? 4 P RB(NE) ADY345 4 . 8 PADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER 4 D P XIF 4 & PADY380 LDK A3,2 START BUFFER INDEX 4 P ABL ACDY90 4 P IFT WHATDY=0 4 P* 4 & PADY400 LDK A2,/22 START CHARAC
0x4ced6c…4cef00 Dummy {f00=0x0182, f01=0x0190, f02=»ITION IN CONTROL 4 l 4 P* WORD, LOAD A1 WITH RETURN CODE AND END I/0. 5 P* 5 P PADY405 EQU * 5 Z & P LDR* A1,A6 GET CHANNEL PARAMETER 5 n P ANK A1,/30 6344 ? 5 P RF(NE) ADY407 NO 5 P LDR* A1,A6 5 P LDR A4,A1 5 P ANK A1,/40 UNDERLINE
0x4cef00…4cf094 (5, 386) Opaque[0x194]
0x4cf094…4cf228 # DirEnt {nam=»DMSUBR«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3058, f03=0x0000}
0x4cf094…4cf228 IdxSect {
0x4cf094…4cf228 f00 = 0x0182 // 0x4cf094 @0x0
0x4cf094…4cf228 f01 = 0x0014 // 0x4cf096 @0x2
0x4cf094…4cf228 gno = [ // 0x4cf098 @0x4
0x4cf094…4cf228 [0x00]: C0x0182.0x3.0
0x4cf094…4cf228 [0x01]: C0x0183.0x0.0
0x4cf094…4cf228 [0x02]: C0x0183.0x1.0
0x4cf094…4cf228 [0x03]: C0x0183.0x2.0
0x4cf094…4cf228 [0x04]: C0x0183.0x3.0
0x4cf094…4cf228 [0x05]: C0x0184.0x0.0
0x4cf094…4cf228 [0x06]: C0x0184.0x1.0
0x4cf094…4cf228 [0x07]: C0x0184.0x2.0
0x4cf094…4cf228 [0x08]: C0x0184.0x3.0
0x4cf094…4cf228 [0x09]: C0x0185.0x0.0
0x4cf094…4cf228 ]
0x4cf094…4cf228 }
0x4cf228…4cf3bc Dummy {f00=0x0182, f01=0x0190, f02=» 2 P IDENT DMSUBR REL 10.0 80-03-14 870105041000 P : P =2 , COMMIT CHECK B P 79-11-22 ^ P =1 , PARAM TEST COMMIT r P 79-11-05 8 P**************************************************** P* $ P* PHILIPS TERMINAL SYSTE
0x4cf3bc…4cf550 Dummy {f00=0x0182, f01=0x0190, f02=»**************************************** 8 P****THIS MODULE IS ACTIVATED FROM :***************** 0 P* l P* DMTASK,TIODM,DMTASS v P* P*************** P* ENTRIES * P*************** P* P* P ENTRY DMTEN
0x4cf550…4cf6e4 Dummy {f00=0x0182, f01=0x018e, f02=»SNO P ENTRY GTBKBU P ENTRY DMTIOT " P ENTRY DMTIOZ 8 0 P ENTRY MOV:US MOVE FROM USER TO SYSTEM AREA N 0 P ENTRY MOV:SU MOVE FROM SYSTEM TO USER AREA P ENTRY MOVZUS,MOVZSU P* P***************** P* EXTERNALS *
0x4cf6e4…4cf878 Dummy {f00=0x0182, f01=0x0190, f02=» P EXTRN FDBBLZ,FWTFNR & P EXTRN FDBSTA,SCTTCT,TTB:SA,ECBEL P EXTRN TTB:TD,SCTCDT,PRUN J 2 P EXTRN FDBECB,DWTECB,DWTOR,BUFSTA,BUFDMI,BUFOR l " P EXTRN ECBRC,ECBFC,ECBCW,ECBBA P EXTRN DIVMOD,MPYMOD P EXTRN CRNTID P EXTRN DMTGBU
0x4cf878…4cfa0c Dummy {f00=0x0182, f01=0x0190, f02=» HALT,DSUMOD,ECBRL P EXTRN EOMERR,RETRIE P EXTRN REQER2,QTJOB,TDISP 6 & P EXTRN DWTTAB,MONMMU,TTB:ID,TTB:MT X P EXTRN QCL P EJECT DMSUBR TOSSIO P* P* . P***************************************** P* P* CO
0x4cfa0c…4cfba0 Dummy {f00=0x0182, f01=0x018e, f02=»G h * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 8 PMMUPAG EQU 0 B P* V P EJECT ` P* n > P* THIS ROUTINE RELEASES PROTECTION AT END OF TRANSACTION x P* ( P* ENTRY : A9 = DM INTERNAL USER ID P* P* USED REGS
0x4cfba0…4cfd34 (5, 387) Dummy {f00=0x0183, f01=0x0190, f02=» P LDR* A2,A1 P ANK A2,/1 P RF(Z) REL053 NOT USED * 0 P LDKL A2,/C000 REMOVE BUFFERS FOR THIS TASK H P LDKL A5,/FF00 =2 | & P ANS A5,FDBBLZ,A1 COMMIT CHECK =2 P CF A14,EARELB P ENB PREL053 EQU * P LDR* A1,A1
0x4cfd34…4cfec8 Dummy {f00=0x0183, f01=0x0190, f02=» COMMIT l P* PDMTEND EQU * COMMIT P LDR A6,A5 TTAB USER 6 P ANK A7,/7F =1 R P RF(Z) DMTE10 OK ORDER j P LDKL A7,REQER2 REQUES ERR P RF DMTE40 ERR PDMTE10 EQU * P* P* DECIDE USER TASK ID P* P
0x4cfec8…4d005c Dummy {f00=0x0183, f01=0x0190, f02=» P RB DMTE20 TRY NEXT PDMTE30 LDR A9,A2 P LDKL A14,STACK STACK BASE 8 " P CF A14,RELPRO RELEASE PROTECT Z PDMTE40 EQU * P LDR A5,A6 TTAB USER & P ST A7,TTB:SA+14,A5 RET CODE IN A7 P INH P CF A15,QTJOB RESTART USER P
0x4d005c…4d01f0 Dummy {f00=0x0183, f01=0x0190, f02=»****** P* " P* ENTRY DMTWM WORD MOVE P* > " P* INPUT A1 = FROM ADDRESS H , P* A2 = NO OF BYTES TO BE MOVED n P* A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED P* P* P
0x4d01f0…4d0384 Dummy {f00=0x0183, f01=0x0190, f02=» A3,2 P RB DMTWM PDMTW10 ANK A2,/01 P RF(E) DMTW20 : P LCR A4,A1 MOVE LAST CHAR P P SCR A4,A3 r PDMTW20 RTN A14 P EJECT P* P************* P* DMTBM * P************* P* " P* ENTRY
0x4d0384…4d0518 Dummy {f00=0x0183, f01=0x0190, f02=»A3 = TO ADDRESS P* $ P* A4 WILL BE DESTROYED " P* J P* OUTPUT A3 = NEXT CHAR T P* v P* PDMTBM EQU * P SUK A2,1 " P RF(N) DMTB10 LAST BYTE MOVED P LCR A4,A1 P SCR A4,A3 P ADK A1,1
0x4d0518…4d06ac Dummy {f00=0x0183, f01=0x0190, f02=»FROM THE END P* PDMTBMR ADR A1,A2 P ADR A3,A2 6 PDMTB20 SUK A2,1 H P RB(N) DMTB10 ` P SUK A1,1 v P SUK A3,1 P LCR A4,A1 P SCR A4,A3 P RB DMTB20 P EJECT 8 P****DESCRIPTION***************************
0x4d06ac…4d0840 Dummy {f00=0x0183, f01=0x0190, f02=»**************** l P* P* A1 = TTAB ADDR " $ P* A2 = FILE CODE TO SEARCH FOR < 4 P* A5 NOT= 0 WHEN ONLY TTAB SHALL BE SEARCHED d P* 8 P****EXIT PARAMETERS********************************* P* P* A1 = UNCHANGED 2 P*
0x4d0840…4d09d4 (5, 388) Dummy {f00=0x0183, f01=0x0190, f02=»CTCDT = 1 WHEN TTAB v P* 8 P****USED REGISTERS********************************** & P* b P* A1-A5 l P* ~ : P****************************************************** P* " P* LOOK FOR FILE CODE IN TTAB P* PFNDFDB E
0x4d09d4…4d0b68 Dummy {f00=0x0183, f01=0x018e, f02=» LDR A4,A1 P ADKL A4,TTB:TD P ADR A4,A3 * P CWR* A2,A4 < P RB(NE) FND030 P P LDK A5,1 f " P RF FND080 CODE FOUND IN TTAB x P* " P* SEARCH FILE CODE IN SCTCDT P* PFND040 EQU * P LDR A5,A5 ( P RF(NZ) FN
0x4d0b68…4d0cfc Dummy {f00=0x0183, f01=0x018e, f02=» P LD A3,SCTCDT P ADR A3,A4 P CWR* A2,A3 , P RB(NE) FND050 @ P AD A4,SCTCDT V P RF FND080 CODE FOUND l PFND060 EQU * P LDK A2,0 NO CODE PFND080 EQU * P RTN A14 P EJECT P* P**************
0x4d0cfc…4d0e90 Dummy {f00=0x0183, f01=0x0190, f02=» 0 P* INPUT RELATIVE REC OFFSET IN FDBRRO,A6 $ P* BUFFER ADDRESS IN A5 8 * P* USER REC AREA IN ECBBA,A9 ` $ P* RECORD LENGTH IN A2 P* P* P* P* MOVE THE RECORD > P* IF (FROM) AND (TO) A
0x4d0e90…4d1024 Dummy {f00=0x0183, f01=0x0190, f02=»TIONS AND THE REST WITH WORD MOVE x : P* ELSE USE BYTE MOVE INSTRUCTIONS FOR THE WHOLE REC * P* h PDMTREM EQU * r P LD A1,FDBRRO,A6 P ADR A1,A5 FROM ADDRESS P* P IFT MMUPAG=0 P LDR A4,A1 P LD A3,ECBBA,A9 TO ADDRE
0x4d1024…4d11b8 Dummy {f00=0x0183, f01=0x0190, f02=»F DMT225 P* PDMT210 LDR A4,A1 P ANK A4,/01 2 P RF(E) DMT220 BOTH EVEN F P SUK A2,1 BOTH ODD f P LCR A4,A1 P SCR A4,A3 P ADK A1,1 P ADK A3,1 " PDMT220 CF A14,DMTWM WORD MOVE PDMT225 EQU * P XIF
0x4d11b8…4d134c Dummy {f00=0x0183, f01=0x0190, f02=»ING BUFFER ADDRESS v 8 P CF A14,MOV:SU MOVE RECORD FROM SYSTEM TO USER AREA P XIF V P* b P RTN A14 l P EJECT | P* P* SET UP A14 STACK P* PGETA14 EQU * $ P LD A14,PRUN GET DM TTAB ADDRESS * P AD A14,TTB:TD,A14
0x4d134c…4d14e0 Dummy {f00=0x0183, f01=0x0190, f02=»SCRIPTION************************************* P* 6 < P* EATEST WILL SEARCH THE EA-LINK FOR A LOG RECORD NO. @ P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB ADRESS P* A2,A3 = LOG RECORD NO
0x4d14e0…4d1674 (5, 389) Dummy {f00=0x0183, f01=0x0190, f02=»UNCHANGED P* A4 = 0 NO EA AT ALL * P* = +1 EA FOUND FOR ACTUAL TASK 4 * P* = -1 EA FOUND FO R OTHER TASK b P* 8 P****USED REGISTERS********************************** P* P* A1 - A4 P EJECT DMSUBR
0x4d1674…4d1808 Dummy {f00=0x0183, f01=0x0190, f02=»EAT030 EQU * $ P RF(Z) EAT100 EMPTY QUEUE,NO EA P* < P* SEARCH LOG REC NO F P* d P CC A2,3,A4 FIRST CHAR n P RB(NE) EAT020 P CW A3,4,A4 2 AND 3 CHAR P RB(NE) EAT020 P* P* RECORD NO FOUND P* P
0x4d1808…4d199c Dummy {f00=0x0183, f01=0x018e, f02=» * P LDK A4,1 EA SAME ATASK PEAT100 EQU * * P RTN A14 > P EJECT DMSUBR N 8 P****DESCRIPTION************************************* f P* B P* EASETB WILL UNCONDITIONALLY PUT A NEW EA BUFFER IN EA-LINK L P* IF NO BUFFERS ARE
0x4d199c…4d1b30 Dummy {f00=0x0183, f01=0x0190, f02=» P* A6 = FDB ADDR " P* A2,A3 = LOGICAL RECORD NO P* D P* CF A14,EASETB N P* j 8 P****EXIT PARAMETERS********************************* t P* P* A6 = FDB ADDR P* 8 P****USED REGISTERS************************
0x4d1b30…4d1cc4 Dummy {f00=0x0183, f01=0x0190, f02=»R PEASETB EQU * P ECR A2,A2 P LC A2,FDBTNR,A6 TASK ID 0 P ECR A2,A2 P P LDR A1,A3 LOG REC NO b P INH , P CF A15,GETBLK GET BUFF AND STORE A1,A2 P* P* LINK BUFFER TO FDB P* P LD A2,FDBEAL,A6 LINK ROOT
0x4d1cc4…4d1e58 Dummy {f00=0x0183, f01=0x0190, f02=»************************************ P* , 8 P* EARELB WILL RELEASE EA BUFFERS AND CONNRECT THEM 6 P* TIO THE FREE LINK. r P* 8 P****ENTRY PARAMETERS******************************** P* P* A1 = FDB-ADDRESS " P* A2,A3 =
0x4d1e58…4d1fec Dummy {f00=0x0183, f01=0x0190, f02=» ARE REMOVED. P* A2: BIT 0=1,BIT 1=1 4 P* AND A9 NOT EQ 0 ALL BUFFERS ON FDB WITH @ @ P* TASK ID AS SPEC IN A3 ARE RELEASED x < P* BIT 0=1,BIT 1=0 ALL BUFFERS ON FDB ARE REMOVED. J P* BIT
0x4d1fec…4d2180 Dummy {f00=0x0183, f01=0x0190, f02=» PARAMETERS********************************* P* 4 P* A1 = UNCHANGED > P* X 8 P****USED REGISTERS********************************** b P* P* A1 - A5,A9 P* 6 P************************************************* P*
0x4d2180…4d2314 (5, 390) Dummy {f00=0x0183, f01=0x018e, f02=»DR* A4,A5 EA ROOT P RF EAR030 PEAR020 EQU * , P LDR A5,A4 SAVE OLD ROOT @ P LDR* A4,A4 NEXT BUFFER ADR ` PEAR030 EQU * P RF(Z) EAR100 EA LINK END P LDR A2,A2 REC NO & P RF(N) EAR050 RELEASE MANY BUFFERS P* P
0x4d2314…4d24a8 Dummy {f00=0x0183, f01=0x0190, f02=» PEAR050 EQU * P CWK A2,/A000 CHECK BIT 1 0 P RF(L) EAR080 BIT 1 ZERO,ALL BUFFERS REMOVED > P LDR A3,A9 REQ TASK ID r P RF(NZ) EAR065 TASK ID IN A3 PEAR060 EQU * P* P* SEARCH TASK IDENT P* P LC A3,FDBTNR,
0x4d24a8…4d263c Dummy {f00=0x0183, f01=0x0190, f02=»QU * P LDR* A3,A4 NEXT BUFADR & P STR A3,A5 REMOVE BUFFER FROM LINK , P* V P* RETURN BUFFER TO POOL ` 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 P L
0x4d263c…4d27d0 Dummy {f00=0x0183, f01=0x0190, f02=»************************** v 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 ! t H P* ZEROES AND PUT ON THE CRN LINK. IF NO FREE BUFFERS ARE AVAILABLE ! 0 P
0x4d27d0…4d2964 Dummy {f00=0x0183, f01=0x018e, f02=»********************** ! r P* " " P* A1 = FDB ADDRESS DATA FILE " ( P* " N 8 P****EXIT PARAMETERS********************************* " X P* " P* A1 = UNCHANGED " ( P* A2 = ADDRESS OF FOUND CRN-BUFFER " P* " 8 P****USED REGISTERS********
0x4d2964…4d2af8 Dummy {f00=0x0183, f01=0x0190, f02=» " P EJECT DMSUBR # PCRNGET EQU * # P LD A2,FDBCRL,A1 CRN ROOT # 4 P RF CRN030 # V PCRN020 EQU * # h P LDR* A2,A2 NEXT BUFFER # | PCRN030 EQU * # P RF(Z) CRN100 LINK END # P* # P* CHECK ATASK IDENT # P* # P LC A3,F
0x4d2af8…4d2c8c Dummy {f00=0x0183, f01=0x0190, f02=»BUFFER # P* $ PCRN100 EQU * $ P INH $ , P LD A2,CRNQUE FREE LINK ROOT $ 8 P RF(NZ) CRN120 $ P LDK A1,3 LAMP 10 AND 11 $ r P CF A15,HALT NO MORE BUFFERS $ PCRN120 EQU * $ P LDR* A3,A2 NEXT FREE $ P ST A3,CRNQUE UPD ROOT $ P*
0x4d2c8c…4d2e20 Dummy {f00=0x0183, f01=0x0190, f02=»WORDS 2 - N $ P RF(NP) CRN160 BUFFER ZEROED % P LDR A4,A2 BUFFER ADR % 8 P ADR A4,A3 OFFSET IN BUFFER % V P CMR A4 % z P RB CRN140 MORE WORDS % P* % " P* CONNECT NEW BUFFER TO LINK % P* % PCRN160 EQU * % P LC A3,FDBTNR,A1 %
0x4d2e20…4d2fb4 (5, 391) Dummy {f00=0x0184, f01=0x0190, f02=»00 EQU * % P ENB & P RTN A14 & P EJECT DMSUBR & , 8 P****DESCRIPTION************************************* & D P* & 2 P* CALSNO WILL CONVERT A LOGICAL RECORD NO TO & P* RELATIVE & P* SECTOR AND OFFSET & P* & 8 P****ENTRY PA
0x4d2fb4…4d3148 Dummy {f00=0x0184, f01=0x0190, f02=»CF A14,CALSNO & P* ' 8 P****EXIT PARAMETERS********************************* ' " P* ' ^ P* A1 = 0 OK ' h , P* NE 0 , ERROR =/A000=END OF MEDIUM ' ~ P* A6 = UNCHANGED ' $ P* IN FDB : FDBSNR = SECTOR NR ' * P* FDBRRO = OF
0x4d3148…4d32dc Dummy {f00=0x0184, f01=0x0190, f02=»R ' PCALSNO EQU * ( P* ( " P* FIND BLOCK NO WITHIN FILE ( ( P* ( N P LDR A5,A6 SAVE FDB ADDR ( X P LDK A6,0 ( x $ P LC A6,FDBBLF,A5 BLOCKING FACTOR ( , P CF A14,DIVMOD A2=A1,A2//A6,A1=REMAINDER ( P RF(O) CALERR OVERFLOW ( P LDR A3,
0x4d32dc…4d3470 Dummy {f00=0x0184, f01=0x0190, f02=»OD30 LC A9,FDBBLF,A5 LAST REC IN BLOCK ( PTIOD40 EQU * ) . * P* FIND LOGICAL SECTOR NUMBER ON DISC ) B P* ) p P LDR A6,A3 BLOCK NR ) z P RF(NP) CALERR ) P SUK A6,1 ) P LDK A7,0 ) ( P LC A7,FDBBLZ,A5 NR OF SECT IN BLOCK ) P CF A14,MPYM
0x4d3470…4d3604 Dummy {f00=0x0184, f01=0x0190, f02=»L090 EQU * ) P ST A1,FDBSNR,A5 * P ST A2,FDBSNR+2,A5 SECT NR * * 0 P* FIND RELATIVE RECORD OFFSET WITHIN BLOCK * L P* * P LDK A3,0 * " P LDR A2,A9 REL REC NR IN BLOCK * PTIOD60 EQU * * P SUK A2,1 A2=REL REC NR * ( P RF(Z) TIOD65 REL
0x4d3604…4d3798 Dummy {f00=0x0184, f01=0x0190, f02=»A1,EOMERR OUT OF MEDIUM * P RF TIODMF + P* + 2 , P* STORE RELATIVE REC OFFSET IN FBDRRO + < P* + l PTIOD65 EQU * + v P LDK A1,0 OK + P ST A3,FDBRRO,A5 + PTIODMF EQU * + P LDR A6,A5 FDB ADDR + P RTN A14 + P EJECT DMSUBR +
0x4d3798…4d392c Dummy {f00=0x0184, f01=0x0190, f02=»S DISC I/O + ` P* , P* INPUT A1 = FDB ADDRESS , P* , @ P* OUTPUT A6 = FDB ADDRESS , J P* A1 = 0 WHEN OK , n $ P* = ERROR CODE ELSE , $ P* A9 = DM ECB ADDRESS , * P* A8 = PHYS I/O ECB ADDRESS ,
0x4d392c…4d3ac0 Dummy {f00=0x0184, f01=0x018e, f02=» P LDKL A8,FDBECB - P ADR A8,A1 - P* - . P P* DMTIOZ IS THE SAME AS DMTIOT WITH DIFFERENCE THAT ECB ADDR IS INPUT PAR - 8 P* - PDMTIOZ EQU * - P* - P* RESTORE SECTOR NUMBER - P* - P LD A6,FDBSNR,A1 - P ST A6,ECBCW,A8
0x4d3ac0…4d3c54 (5, 392) Dummy {f00=0x0184, f01=0x0190, f02=» - ~ P RF(Z) DMTIOX DISC I/O OK . P ANKL A1,/FEFF . * $ P RF(NZ) DMTIT1 NOT ONLY RETRIES . @ P LDKL A2,RETRIE . h PDMTIOC EQU * . P ORS A2,ECBRC,A9 USER RC . P RF DMTIOX . PDMTIT1 EQU * . P LD A2,ECBBA,A8 . P* GET BUFFE
0x4d3c54…4d3de8 Dummy {f00=0x0184, f01=0x0190, f02=» P SUKL A2,QCL / P RF(NZ) DMTIOX NOT CLOSE / P LDR A2,A1 / 8 P LDK A1,0 / J P RB DMTIOC / PDMTIOX RTN A14 / n P EJECT DMSUBR / 8 P****DESCRIPTION************************************* / P* / 8 P* GTBKBU WILL GET A BLOCK BUFFER FOR
0x4d3de8…4d3f7c Dummy {f00=0x0184, f01=0x018e, f02=»** / ^ P* 0 P* A1 = FDB ADDRESS 0 P* A8 = ECB ADDR 0 0 P* 0 J 8 P****EXIT PARAMETERS********************************* 0 T P* 0 P* A1 = A6 = FDB ADDR 0 0 P* A2 = FDBRRO WHEN SECTOR IS FOUND IN CORE 0 B P*
0x4d3f7c…4d4110 Dummy {f00=0x0184, f01=0x0190, f02=» P* A5 = ORDE R CODE 1 P* A8 = ECB ADDR 1 P* A9 = DM ECB ADDR 1 : P* 1 V 8 P****USED REGISTERS********************************** 1 ` P* 1 P* A1 - A9 1 P* 1 : P****************************************************** 1 PGTBKBU
0x4d4110…4d42a4 Dummy {f00=0x0184, f01=0x0190, f02=»A6 1 P LD A9,DWTECB,A6 DM ECB 2 P ANK A1,/FF 2 * P STR A1,A8 FILE NR 2 > P LC A5,FDBBLZ,A6 2 X " P SLL A5,8 BLOCK SIZE IN BYTYE 2 p P ST A5,ECBRL,A8 BLOCK LENGTH 2 ( P CF A14,DMTGBU A3 := BUFFER ADDRESS 2 0 P RF GTB100 RETURN IF SECTOR FOUND
0x4d42a4…4d4438 Dummy {f00=0x0184, f01=0x0190, f02=» EQU * 2 P ST A4,ECBCW+2,A8 SECT NR 3 P LDR A5,A3 3 0 2 P ADKL A5,BUFSTA A5 = DATA BUFFER START ADDRESS 3 B P ST A5,ECBBA,A8 3 x P LD A5,DWTOR,A6 3 P ANK A5,/3F 3 ( P LDR A1,A6 FDB ADDRESS AS PARAMETER 3 P RTN A14 3 PGTB100 EQU * 3
0x4d4438…4d45cc Dummy {f00=0x0184, f01=0x0190, f02=» P* 4 P* 4 P IFT MMUPAG=1 4 P* 4 . P* M O V : U S 4 8 P* 4 N D P* THIS ROUTINE MOVES DATA FROM THE USER AREA (SENDING BUFFER) TO 4 X L P* THE SYSTEM AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA 4 J P* ARE USED, DEPENDING ON
0x4d45cc…4d4760 Dummy {f00=0x0184, f01=0x0190, f02=» = ADDRESS OF RECEIVING BUFFER (SYSTEM AREA) 4 . P* A3 = NUMBER OF BYTES TO BE MOVED 5 4 $ P* A4 = USER TTAB ADDRESS 5 f P* 5 " P* OUTPUT: A1-A4 ARE DESTROYED 5 P* 5 PMOV:US EQU * 5 P INH 5 P TL TTB:MT,A4 SET USER MMU 5
0x4d4760…4d48f4 (5, 393) Dummy {f00=0x0184, f01=0x0190, f02=» 5 P TS TTB:MT,A4 6 P ENB 6 P RTN A14 6 * PMOVZUS EQU * 6 : & P LDR A3,A3 CHECK REQUESTED LENGTH 6 N 4 P RF(NP) MVUS35 NO MOVE IF REQUESTED LENGTH <= 0 6 x P STR A5,A14 SAVE A5 6 ( P LDR A4,A1 CHECK USER BUFFER ADDRESS 6 P ANK A4,1 6 .
0x4d48f4…4d4a88 Dummy {f00=0x0184, f01=0x0190, f02=»YSTEM BUFFER ADDRESS UNEVEN? 6 P* 7 $ , PMVUS10 LDR A4,A3 CHECK REQUESTED LENGTH 7 . P ANK A4,1 7 ^ , P RF(NZ) MVUS60 REQUESTED LENGTH UNEVEN? 7 p P* 7 PMVUS20 MVUS A3 7 P* 7 " PMVUS30 LDR* A5,A14 RESTORE A5 7 P* 7 PMVUS35 EQU * 7
0x4d4a88…4d4c1c Dummy {f00=0x0184, f01=0x018e, f02=»A2 CHECK SYSTEM BUFFER ADDRESS 7 P ANK A4,1 8 & 0 P RF(NZ) MVUS80 SYSTEM BUFFER ADDRESS UNEVEN? 8 8 4 P ELR A4,A1 NO, GET FIRST CHAR. FROM USER BUFFER 8 l P* 8 2 PMVUS50 SCR A4,A2 STORE CHAR. IN SYSTEM BUFFER 8 * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRE
0x4d4c1c…4d4db0 Dummy {f00=0x0184, f01=0x0190, f02=» 8 f P* 9 8 PMVUS55 ELR A4,A1 GET NEXT TWO CHAR. FROM USER BUFFER 9 P ECR A5,A4 9 N 0 P SCR A5,A2 STORE ONE CHAR. IN SYSTEM BUFFER 9 ` * P ADK A2,1 UPDATE SYSTEM BUFFER ADDRESS 9 ( P SUK A3,1 DECREMENT REQUESTED LENGTH 9 & P RB(P) MVUS50 MORE CHAR. T
0x4d4db0…4d4f44 Dummy {f00=0x0184, f01=0x0190, f02=»EVEN 9 l ( P SUK A3,1 MAKE REQUESTED LENGTH EVEN : * P RF(NP) MVUS70 ONLY ONE CHAR. TO MOVE? : 8 P LDR A4,A1 NO, SAVE A1 : f P LDR A5,A3 SAVE A3 : P MVUS A3 : * P ADR A4,A5 UPDATE USER BUFFER ADDRESS : . P ELR A5,A4 GET LAST CHAR. FROM USER BUFFER :
0x4d4f44…4d50d8 Dummy {f00=0x0184, f01=0x0190, f02=»LR A5,A1 GET LAST CHAR. FROM USER BUFFER : P RB MVUS65 ; 0 P* ; B 2 PMVUS80 EQU * BOTH BUFFER ADDRESSES WERE UNEVEN ; L 0 P ELR A4,A1 GET FIRST CHAR. FROM USER BUFFER ; 2 P SCR A4,A2 STORE FIRST CHAR. IN SYSTEM BUFFER ; & P ADK A1,1 UPDATE BUFFER ADDR
0x4d50d8…4d526c Dummy {f00=0x0184, f01=0x0190, f02=»URN ; ~ P* < P EJECT DMSUBR < P* < . P* M O V : S U < 8 P* < N F P* THIS ROUTINE MOVES DATA FROM THE SYSTEM AREA (SENDING BUFFER) TO < X J P* THE USER AREA (RECEIVING BUFFER). DIFFERENT WAYS OF MOVING THE DATA < J P* ARE USED, DEPENDING ON
0x4d526c…4d5400 Dummy {f00=0x0184, f01=0x0190, f02=»A2 = ADDRESS OF RECEIVING BUFFER (USER AREA) < . P* A3 = NUMBER OF BYTES TO BE MOVED = 4 $ P* A4 = USER TTAB ADDRESS = f P* = " P* OUTPUT: A1-A4 ARE DESTROYED = P* = PMOV:SU EQU * = P INH = P TL TTB:MT,A4 SET USER MMU =
0x4d5400…4d5594 (5, 394) Dummy {f00=0x0184, f01=0x0190, f02=» = P TS TTB:MT,A4 > P ENB > P RTN A14 > * PMOVZSU EQU * > : & P LDR A3,A3 CHECK REQUESTED LENGTH > N 4 P RF(NP) MVSU35 NO MOVE IF REQUESTED LENGTH <= 0 > x P STR A5,A14 SAVE A5 > ( P LDR A4,A2 CHECK USER BUFFER ADDRESS > P ANK A4,1 > .
0x4d5594…4d5728 Dummy {f00=0x0184, f01=0x0190, f02=»YSTEM BUFFER ADDRESS UNEVEN? > P* ? $ , PMVSU10 LDR A4,A3 CHECK REQUESTED LENGTH ? . P ANK A4,1 ? ^ , P RF(NZ) MVSU90 REQUESTED LENGTH UNEVEN? ? p P* ? PMVSU20 MVSU A3 ? P* ? " PMVSU30 LDR* A5,A14 RESTORE A5 ? P* ? PMVSU35 RTN A14
0x4d5728…4d58bc Dummy {f00=0x0184, f01=0x0190, f02=»M BUFFER ADDRESS ? z P ANK A4,1 @ 0 P RF(NZ) MVSU80 SYSTEM BUFFER ADDRESS UNEVEN? @ * 4 P ELR A4,A2 NO, GET FIRST CHAR. FROM USER BUFFER @ ^ P RF MVSU65 @ P* @ 2 PMVSU60 EQU * SYSTEM BUFFER ADDRESS WAS UNEVEN @ 0 P LCR A4,A1 GET ONE CHAR. FROM SY
0x4d58bc…4d5a50 Dummy {f00=0x0184, f01=0x018e, f02=»MVSU70 IS THIS LAST CHARACTER? @ P* A & : PMVSU65 LCR A4,A1 NO, GET NEXT CHAR. FROM SYSTEM BUFFER A 0 . P ESR A4,A2 STORE TWO CHAR. IN USER BUFFER A n & P ADK A1,1 UPDATE BUFFER ADDRESSES A P ADK A2,2 A ( P SUK A3,1 DECREMENT REQUESTED LENGTH A & P
0x4d5a50…4d5be4 Dummy {f00=0x0184, f01=0x0190, f02=» $ P ANK A3,/FF SKIP LEFT CHARACTER B ( P ANKL A4,/FF00 SKIP RIGHT CHARACTER B , P ORR A3,A4 B X . P ESR A3,A2 STORE LAST CHAR. IN USER BUFFER B j P RB MVSU30 RETURN B P* B P EJECT DMSUBR B P* B P* B 2 PMVSU80 EQU * BOTH BUFFER ADD
0x4d5be4…4d5d78 Dummy {f00=0x0184, f01=0x0190, f02=» A4,/FF SKIP LEFT CHARACTER B ( P ANKL A5,/FF00 SKIP RIGHT CHARACTER C $ P ORR A4,A5 C P 0 P ESR A4,A2 STORE FIRST CHAR. IN USER BUFFER C b & P ADK A1,1 UPDATE BUFFER ADDRESSES C P ADK A2,1 C ( P SUK A3,1 DECREMENT REQUESTED LENGTH C * P RB(P) MVS
0x4d5d78…4d5f0c Dummy {f00=0x0184, f01=0x0190, f02=»KE REQUESTED LENGTH EVEN C * P RF(NP) MVSU95 ONLY ONE CHAR. TO MOVE? D P LDR A4,A1 NO, SAVE A1 D N P LDR A5,A3 SAVE A3 D l P MVSU A3 D & P ADR A4,A5 UPDATE BUFFER ADDRESSES D P ADR A2,A5 D 2 P LDR* A4,A4 GET LAST CHAR. FROM SYSTEM BUFFER D P
0x4d5f0c…4d60a0 Dummy {f00=0x0184, f01=0x40e4, f02=»PAG=0 D 2 PMOV:US EQU * DUMMY LABELS FOR NON-MMU SYSTEMS E PMOV:SU EQU * E D PMOVZSU EQU * E X PMOVZUS EQU * E l 0 P ABL TASHLT HALT SYSTEM DUE TO SYSGEN ERROR E P XIF E P* E P* E P END E @ E ST CHAR. FROM SYSTEM BUFFER D P
0x4d60a0…4d6234 (5, 395) Dummy {f00=0x0185, f01=0x2008, f02=» F + 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* +
0x4d6234…4d63c8 Dummy {f00=0x0185, f01=0x0190, f02=»TION DATA n r P o P SUR A2,A3 TO-ADDRESS o P* o 8 $ P ANKL A2,/FFFE MAKE EVEN ADDRESS o B P CALL MOVE o j 6 P ST A2,SAVE01,A13 SAVE START OF CONFIGURATION DATA o | & P LDR A1,A9 GET START OF FREE AREA o P LDR A12,A2 END OF FREE AREA o $ P SUR
0x4d63c8…4d655c Dummy {f00=0x0185, f01=0x0190, f02=» < P* MOVE SYSLDA+SYSLDM+DWT-PROTOTYPES TO END OF FREE AREA p P* p D PMOPRO SUK A1,2 p N P SUK A2,2 p d P LDR* A4,A1 p v P STR A4,A2 p P CWR A1,A13 p P RB(NE) MOPRO p * P LDR A1,A2 SAVE NEW LOCATION OF SYSLDA p " P AD A2,LDALEN,A2 BYP
0x4d655c…4d66f0 Dummy {f00=0x0185, f01=0x0190, f02=»************************ p ` L P* SUBROUTINES USED IN THE APPLICATION AND CONFIGURATION LOADING PHASE O q L P************************************************************************ q p $ P******************************* q $ P* SOPIN - READ SOP SWITCHES *
0x4d66f0…4d6884 Dummy {f00=0x0185, f01=0x0190, f02=» * q $ P* EXIT: A1 - SOP INPUT * r $ P* BIT 6 - SWITCH 1 * r H $ P* BIT 15 - SWITCH 10 * r p $ P* * r $ P* WORK REGISTERS: A1 * r $ P* *
0x4d6884…4d6a18 Dummy {f00=0x0185, f01=0x0190, f02=»U * r P CIO A1,1,SOP s P INR A1,0,SOP s " P RB(NA) *-2 s 8 P RTN A14 s L P IFT CASS=1 s P EJECT s p < P******************************************************* s ~ < P* CASSIN - CASSETTE INITIATING ROUTINE * s < P* =
0x4d6a18…4d6bac Dummy {f00=0x0185, f01=0x0190, f02=» SYSLOD -LOADING PART- * s ~ < P* * t . < P* ENTRY: * t n < P* * t < P* EXIT:
0x4d6bac…4d6d40 Dummy {f00=0x0185, f01=0x0190, f02=» * t n < P* * u < P* SUBROUTINES: SOPIN,CHCRIO * u ^ < P* * u < P******************************************
0x4d6d40…4d6ed4 (5, 396) Opaque[0x194]
0x4d6ed4…4d7068 # DirEnt {nam=»FMTASK«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x3148, f03=0x0000}
0x4d6ed4…4d7068 IdxSect {
0x4d6ed4…4d7068 f00 = 0x018a // 0x4d6ed4 @0x0
0x4d6ed4…4d7068 f01 = 0x001e // 0x4d6ed6 @0x2
0x4d6ed4…4d7068 gno = [ // 0x4d6ed8 @0x4
0x4d6ed4…4d7068 [0x00]: C0x018a.0x1.0
0x4d6ed4…4d7068 [0x01]: C0x018a.0x2.0
0x4d6ed4…4d7068 [0x02]: C0x018a.0x3.0
0x4d6ed4…4d7068 [0x03]: C0x018b.0x0.0
0x4d6ed4…4d7068 [0x04]: C0x018b.0x1.0
0x4d6ed4…4d7068 [0x05]: C0x018b.0x2.0
0x4d6ed4…4d7068 [0x06]: C0x018b.0x3.0
0x4d6ed4…4d7068 [0x07]: C0x018c.0x0.0
0x4d6ed4…4d7068 [0x08]: C0x018c.0x1.0
0x4d6ed4…4d7068 [0x09]: C0x018c.0x2.0
0x4d6ed4…4d7068 [0x0a]: C0x018c.0x3.0
0x4d6ed4…4d7068 [0x0b]: C0x018d.0x0.0
0x4d6ed4…4d7068 [0x0c]: C0x018d.0x1.0
0x4d6ed4…4d7068 [0x0d]: C0x018d.0x2.0
0x4d6ed4…4d7068 [0x0e]: C0x018d.0x3.0
0x4d6ed4…4d7068 ]
0x4d6ed4…4d7068 }
0x4d7068…4d71fc Dummy {f00=0x018a, f01=0x0190, f02=» 2 P IDENT FMTASK REL 10.0 80-03-15 870105041000 P : * B * L 6 2************************************************** V * 6 2* PHILIPS TERMINAL SYSTEM PTS * * 6 2* FMTASK = TOSS FILE MANAGEMENT TASK
0x4d71fc…4d7390 Dummy {f00=0x018a, f01=0x0190, f02=» TOSS FILE MANAGEMENT TASK CONTAINS THE . ** FOLLOWING FILE ADMINISTRATION MODULES: 0 * b * &* - FMOPEN OPEN/CREATE/EXTEND FILE l $ * - FMCLOS CLOSE/DELETE FILE ( #* - FMRDFP READ FILE PARAMETERS * ( P* A SPECIAL EN
0x4d7390…4d7524 Dummy {f00=0x018a, f01=0x0190, f02=»* - FMRDWR READ/WRITE (SPLIT EXTENT I/O) * 4 0 P* FMTASK ALSO CONTAINS THE FILE MANAGEMENT > . P* SYSTEM INITIALIZATION ROUTINE, FMINIT. r P* * EJECT FMTASK * * *********** * ENTRIES *
0x4d7524…4d76b8 Dummy {f00=0x018a, f01=0x0190, f02=»S h 0 P ENTRY FMINIT FILE MANAGEMENT INITIALIZATION ENTRY TTABFM FMTASK TTAB > ( P ENTRY FWTPAR FILE ACCESS PARAMETERS ` P ENTRY FWTFNR FILE NUMBER 6 P ENTRY FWTTAB TTAB FOR TASK WITH EXCLUSIVE ACCESS 2 P ENTRY FWTEW1 POINTER TO 2ND EWT
0x4d76b8…4d784c Dummy {f00=0x018a, f01=0x0190, f02=»GTH x P ENTRY EWTEXB EXTENT BASE " P ENTRY EWTVOL VOLUME FILE CODE . P* T P EJECT FMTASK ^ P* v P* ENTRY FPB:RL RECORD LENGTH ENTRY FPB:BF BLOCK FACTOR $ ENTRY FPB:FO FILE ORGANIZATION ENTRY FPB:BO BA
0x4d784c…4d79e0 Dummy {f00=0x018a, f01=0x0190, f02=» | ENTRY FPB:V2 VOLUME NAME 2 ENTRY FPB:S2 SIZE 2 , ENTRY FPB:V3 VOLUME NAME 3 H ENTRY FPB:S3 SIZE 3 l ENTRY FPB:V4 VOLUME NAME 4 ENTRY FPB:S4 SIZE 4 $ ENTRY FPB:FR FILE RECORD NUMBER " ENTRY FPB:US NUMBER OF
0x4d79e0…4d7b74 (5, 397) Dummy {f00=0x018a, f01=0x0190, f02=»F NUMBER OF INDEX FILES ( # ENTRY FPB:KA KEY ADDRESS IN RECORD P ENTRY FPB:CD CREATION DATE L " P ENTRY FPB:RP RETENTION PERIOD p EJECT FMTASK * * ************* * EXTERNALS * ************* *
0x4d7b74…4d7d08 Dummy {f00=0x018a, f01=0x0190, f02=»BLK GET PARAMETERS FROM MONITOR BLOCK 0 P EXTRN FNDTID FIND TTAB ADDRESS FROM TASK ID . ( P EXTRN FNDDWD FIND DISC DWT ADDRESS b : 6 EXTRN FCHECK CHECK ACCESS PAR. AND RETURN FWT ADDRESS " P EXTRN FCHEC2 FCHECK 2ND ENTRY 4 0 EXTRN LKMERR HALT SYS
0x4d7d08…4d7e9c Dummy {f00=0x018a, f01=0x0190, f02=»FTAB z " P EXTRN SCTNOF NUMBER OF FILES * P EXTRN SCTFWT FWT CHAIN START ADDRESS 2 ( P EXTRN SCTFWL FILE WORK TABLE LENGTH ` $ P EXTRN SCTDMT DM TASKS IN SYSTEM P EXTRN NVLTAB NVL TABLE $ P EXTRN NVLDMT DM TASK NVL TABLE P EXTRN NVLEN
0x4d7e9c…4d8030 Dummy {f00=0x018a, f01=0x0190, f02=» EXTRN DWTMEC MMU ECB ADDRESS P EXTRN DWTVOL VOLUME NAME & P EXTRN DWTNVL NVL INDICATOR H 2 P EXTRN FDBMEC FDB MMU ECB DISPLACEMENT IN FWT l P* P EJECT FMTASK P* P* P EXTRN TTB:MT MMU TABLE P EXTRN TTB:SA SA
0x4d8030…4d81c4 Dummy {f00=0x018a, f01=0x0190, f02=»ETURN CODE ~ P EXTRN ECBCW1 CONTROL WORD 1 P EXTRN ECBCW2 CONTROL WORD 2 6 EJECT FMTASK Z * r * | , '*************************************** * * CONDITIONAL ASSEMBLY * , '********************************
0x4d81c4…4d8358 Dummy {f00=0x018a, f01=0x0190, f02=»AG EQU 0 * * 6 2* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION $ . ** SET IS OBTAINED BY SETTING CPU852 EQU 0. ^ * CPU852 EQU 1 * * 4 /* A PROGRAM VERSION SUPPORTING SPLIT EXTENT I/O * &* IS OBTAINED
0x4d8358…4d84ec Dummy {f00=0x018a, f01=0x0190, f02=» | P* VL DISPLACEMENTS * P******************** $ P* @ P* VOLUME LABEL DISPLACEMENTS J P* n PVOL:VN EQU 0 VOLUME NAME x $ PVOL:EL EQU 6 VTOC EXTENT LENGTH " PVOL:EB EQU 10 VTOC EXTENT BASE $ PVOL:RL EQU 12 VTOC RECORD LENGTH
0x4d84ec…4d8680 Dummy {f00=0x018a, f01=0x0190, f02=»* $ PVTOCRL EQU 42 VTOC RECORD LENGTH " PVTOCBF EQU 6 VTOC BLOCK FACTOR 2 P* X P EJECT FMTASK b P* z P* P********************** P* VTOC DISPLACEMENTS * P********************** P* , P* VOLUME TABLE OF CONT
0x4d8680…4d8814 (5, 398) Dummy {f00=0x018a, f01=0x0190, f02=»NUMBER (S-FILE) v " PVTC:SN EQU 9 SOP SWITCH NUMBER $ PVTC:EN EQU 10 FILE EXTENT NUMBER > $ PVTC:EL EQU 12 FILE EXTENT LENGTH f " PVTC:EB EQU 16 FILE EXTENT BASE $ PVTC:LR EQU 20 LAST RECORD NUMBER PVTC:RL EQU 24 RECORD LENGTH PVTC:BF E
0x4d8814…4d89a8 Dummy {f00=0x018a, f01=0x0190, f02=» ( PVTC:IF EQU 37 NUMBER OF INDEX FILES ( PVTC:KA EQU 38 KEY ADDRESS IN RECORD 0 PVTC:ST EQU 41 STATUS BYTE P* ~ P EJECT FMTASK P* P* P********************* P* FWT DISPLACEMENTS * P*********************
0x4d89a8…4d8b3c Dummy {f00=0x018a, f01=0x0190, f02=»TBAS EQU FWTLNK+/10 P XIF P* ( P IFT MMUPAG=1 2 PFWTBAS EQU FWTLNK+/14 H P XIF f P* r < PFWTVTC EQU FWTBAS+/00 VTOC SECTOR NUMBER (FIRST EXTENT) | 0 PFWTPAR EQU FWTBAS+/02 FILE ACCESS PARAMETERS & PFWTFNR EQU FWTBAS+/03 FI
0x4d8b3c…4d8cd0 Dummy {f00=0x018a, f01=0x0190, f02=»T 4 PFWTSEX EQU FWTBAS+/08 FILE SECTION/EXTENT NUMBER B PFWTEXL EQU FWTBAS+/0A EXTENT LENGTH IN SECTORS (FIRST EXTENT) B 8 PFWTEW2 EQU FWTBAS+/0C POINTER TO NEXT EWT STRUCTURE : PFWTVOL EQU FWTBAS+/0E VOLUME FILE CODE (FIRST EXTENT) 4 PFWTEXB
0x4d8cd0…4d8e64 Dummy {f00=0x018a, f01=0x0190, f02=» P********************* P* EWT DISPLACEMENTS * & P********************* D P* b & P* EXTENT WORK TABLE DISPLACEMENTS l P* $ PEWTLNK EQU 0 LINK NEXT EWT BLOCK P* P* BLOCK 1 P* , PEWTSEX EQU 2 FILE SECTION/
0x4d8e64…4d8ff8 Dummy {f00=0x018a, f01=0x0190, f02=» r PEWTEXB EQU 4 EXTENT BASE P* ( 0 PEWTLEN EQU 6 EXTENT WORK TABLE BLOCK LENGTH 2 P* f EJECT FMTASK p * * ********************* * FPB DISPLACEMENTS * ********************* * ( $* FILE P
0x4d8ff8…4d918c Dummy {f00=0x018a, f01=0x018e, f02=»NIZATION z FPB:BO EQU 5 BASIC ORDERS FPB:FN EQU 8 FILE NAME 2 FPB:EL EQU 17 ENLARGE P FPB:V1 EQU 18 VOLUME NAME 1 n FPB:S1 EQU 24 SIZE 1 FPB:V2 EQU 28 VOLUME NAME 2 FPB:S2 EQU 34 SIZE 2 FPB:V3 EQU 38 VOLUME NAME
0x4d918c…4d9320 Dummy {f00=0x018a, f01=0x0190, f02=» n " FPB:US EQU 62 NUMBER OF USERS FPB:SH EQU 64 SHAREABILITY . FPB:MN EQU 65 MONITOR NUMBER P $ FPB:SN EQU 66 SOP SWITCH NUMBER t ( #FPB:IF EQU 67 NUMBER OF INDEX FILES ( #FPB:KA EQU 68 KEY ADDRESS IN RECORD PFPB:CD EQU 70 CREATI
0x4d9320…4d94b4 (5, 399) Dummy {f00=0x018b, f01=0x0190, f02=»ASK * * TTABFM (FMTASK TTAB) * 4 IFT MMUPAG=1 > RES 16 FMTASK MMU TABLE T XIF t * ( P DATA 0 CURRENT SEGMENT BASE (DUMMY) 2 PVOLUME DATA 0 CURRENT VOLUME NAME DISPLACEMENT " DATA 0 SEGMENT BLOCK ADDRES
0x4d94b4…4d9648 Dummy {f00=0x018b, f01=0x0190, f02=»49 PRIORITY LEVEL DATA 0 PENDING POINTER * P DATA /C4C0 PSW (PROGRAM STATUS WORD) : DATA 0 DISPATCH ADDRESS h 2 . DATA 0,0,0,0,0,0,0 REGISTER SAVE AREA, A1-A14 $ P DATA FM:ECB A8 = FM:ECB ADDRESS P DATA 0,0,0,0,0,0 *
0x4d9648…4d97dc Dummy {f00=0x018b, f01=0x0190, f02=»0,0 * P RES 6 FMTASK STACK $ FM:STB EQU *-2 FMTASK STACK BASE 2 * Z P IFT MMUPAG=1 d , PFM:FPB RES 40 FILE PARAMETER BLOCK AREA z P XIF P* P EJECT FMTASK P* P* P********** P* FMINIT *
0x4d97dc…4d9970 Dummy {f00=0x018b, f01=0x0190, f02=»INIT AFTER IPL AND AT POWER ON. x > P* WHEN CALLED AT POWER ON, AN IMMEDIATE RETURN IS MADE. ( P* j < P* FMINIT WILL ZEROIZE THE FWT AREA, AND LINK THE FWT:S t < P* TOGETHER. THE POINTER FWTEW1 IS ALSO INITIALIZED, AS & P* WELL AS FWTFNR (
0x4d9970…4d9b04 Dummy {f00=0x018b, f01=0x0190, f02=»TASK. ^ P* PFMINIT EQU * FMINIT ENTRY * P LDKL A1,/F03E RTNA15 INSTRUCTION CODE : P ST A1,FMINIT CLOSE THE DOOR h P* P EJECT FMTASK P* P* 8 PFM:BUF EQU FMINIT+2 START OF FMTASK INTERNAL BUFFER P* P
0x4d9b04…4d9c98 Dummy {f00=0x018b, f01=0x0190, f02=» P LDKL A6,/8000 DWT BUSY BIT $ P LDKL A7,TIODM DM ADDRESS BLOCK , P* T PFMI:30 EQU * ^ P IFT MMUPAG=1 r 4 P LDKL A8,FDBMEC FDB MMU ECB DISPLACEMENT IN FWT P ADR A8,A1 MMU ECB ADDRESS P XIF P* " P LDR A2,A1 CURRE
0x4d9c98…4d9e2c Dummy {f00=0x018b, f01=0x0190, f02=» FMI:50 INITIALIZATION COMPLETED , P RF(Z) FMI:40 ONE FWT LEFT TO INITIALIZE ( 0 P STR A3,A1 LINK CURRENT FWT TO THE NEXT FWT X $ P ADK A1,2 INCREMENT FWT POINTER P* P EJECT FMTASK P* P* PFMI:40 EQU * P CMR A1
0x4d9e2c…4d9fc0 Dummy {f00=0x018b, f01=0x018e, f02=»A3,SCTFWL " P ADK A3,FWTEW2 FWTEW2 ADDRESS . P ST A3,FWTEW1,A2 INITIALIZE FWTEW1 POINTER 8 , P ST A5,FWTFNR,A2 SET FILE NUMBER IN FWT j * P ST A6,DWTST,A2 INDICATE FWT NOT BUSY : P ST A7,DWTADR,A2 DM ADDRESS BLOCK (ACTIVATION ADDRESS) P*
0x4d9fc0…4da154 (5, 400) Dummy {f00=0x018b, f01=0x0190, f02=» P* P EJECT FMTASK P* & 4 P* FILL IN NVLTAB WITH DM TTAB ADDRESSES (IF ANY) 0 P* h PFMI:50 EQU * r $ P LD A1,SCTDMT DM TASKS IN SYSTEM ( P RF(Z) FMI:75 NO DM TASKS IN SYSTEM P LDK A3,4 LOOP COUNTER & P LDKL A4,NVLDMT
0x4da154…4da2e8 Dummy {f00=0x018b, f01=0x0190, f02=»DM TASK NOT IN SYSTEM | , P CF A15,FNDTID FIND DM TASK TTAB ADDRESS P STR A2,A4 STORE IN NVLTAB N P* p PFMI:70 EQU * z & P ADK A4,2 INCREMENT NVLTAB POINTER P ADK A7,1 NEXT DM TASK ID $ P SUK A3,1 DECREMENT LOOP COUNTER P RB(P)
0x4da2e8…4da47c Dummy {f00=0x018b, f01=0x0190, f02=»LIZE BIT MASK P LDK A2,1 " P LDKL A3,NVLTAB NVLTAB ADDRESS ( P* N PFMI:80 EQU * X * P LDR* A4,A3 GET ONE ENTRY FROM NVLTAB l & P RF(Z) FMI:85 THIS ENTRY NOT USED $ P ORR A1,A2 INDICATE TTAB PRESENT P* PFMI:85 EQU *
0x4da47c…4da610 Dummy {f00=0x018b, f01=0x0190, f02=»LTAB t P* ! PFMI:90 EQU * ! * P ORR A1,A2 ADD ONE BIT FOR USER TASKS ! * " P ST A1,NVLBIT SET NVL BIT MASK ! X P RTN A15 ! ~ P* ! P IFT MMUPAG=0 ! P RES 57 ! P XIF ! P* ! P IFT MMUPAG=1 ! P RES 52 ! P XIF ! P*
0x4da610…4da7a4 Dummy {f00=0x018b, f01=0x0190, f02=»LE MANAGEMENT TASK PERFORMS ! * %* FILE ADMINISTRATION FUNCTIONS. IT " $ , '* IS ACTIVATED BY THE FILE MANAGEMENT " R & P* LKM PROCESSOR AT ENTRY FM:ADM. " . P* AFTER SOME HOUSEKEEPING THE FOLLOWING " 6 P* MODULES WILL PERFORM THE FILE ADMINIST
0x4da7a4…4da938 Dummy {f00=0x018b, f01=0x0190, f02=» ( " : 0, 2) " j > :* - FMRDFP READ FILE PARAMETERS ( " : 0) # * # b ( P* A SPECIAL ENTRY IS USED FOR I/O # l . P* FUNCTIONS WHERE REQUESTED SECTORS ARE # , P* SPLIT OVER TWO OR MORE FILE EXTENTS: # P* # > :*
0x4da938…4daacc Dummy {f00=0x018b, f01=0x018e, f02=» # P* FM:ADM * $ P********** $ P* $ , * $ 6 * ENTRY PARAMETERS: $ @ * $ ^ " P* A1 = ORDER CODE AND OPTION $ h * %* A3 = TTAB ADDRESS OF CALLING TASK $ P* A4 = USER ECB ADDRESS $ * $ 2 PFM:ADM EQU * FM ADMINISTRATION F
0x4daacc…4dac60 Dummy {f00=0x018b, f01=0x0190, f02=» $ r & P LDKL A14,FM:STB FMTASK STACK BASE % P* % 2 P IFT MMUPAG=0 % < P LD A10,ECBBA,A9 FPB ADDRESS % R P XIF % v P* % P IFT MMUPAG=1 % ( P LDKL A3,TTABFM FMTASK TTAB ADDRESS % P TL TTB:MT,A5 USER MMU TABLE % , P TS TTB:MT,A3 STORE IN
0x4dac60…4dadf4 (5, 401) Dummy {f00=0x018b, f01=0x018e, f02=»DKL A2,FM:FPB FM FPB ADDRESS % P LDR A10,A2 SAVE IT & $ P LDK A4,FPBLEN FPB LENGTH & @ $ P MVUS A4 MOVE USER FPB TO FM:FPB & b P XIF & P* & P EJECT FMTASK & P* & . P* CHECK WHAT FUNCTION THAT IS REQUESTED & 4 P* AND BRANCH TO AP
0x4dadf4…4daf88 Dummy {f00=0x018b, f01=0x0190, f02=» P* ' P* A1 = ORDER OPTION ' * P* A5 = TTAB ADDRESS OF CALLING TASK ' , P* A9 = USER ECB ADDRESS ' Z P* A10 = FPB ADDRESS ' | P* ' $ P ECR A1,A7 ORDER CODE AND OPTION ' P ANK A7,/7F ORDER CODE ' P SUK A7,/03 ' ( P ABL(Z) FMRD
0x4daf88…4db11c Dummy {f00=0x018b, f01=0x0190, f02=»* ' ********** ( * FMOPEN * ( ********** ( . * ( @ P* ( J 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: ( T P* OPEN/CREATE/EXTEND FILE ( P* ( P* ENTRY PARAMETERS: ( P* ( P* A1 = ORDER OPTION ( * P* A5 = T
0x4db11c…4db2b0 Dummy {f00=0x018b, f01=0x0190, f02=»END FILE ( t P ANK A1,/FF ORDER OPTION ) ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ) 0 P* ) P EJECT FMTASK ) f P* ) ~ P* ) P******** ) P* OPEN * ) P******** ) P* ) P* ) POPEN EQU * OPEN FILE ) 0 P LDK A7,FPB:V1 1ST VOL
0x4db2b0…4db444 Dummy {f00=0x018b, f01=0x0190, f02=»LUME NOT FOUND ) $ P CF A14,FNDFWT FIND FWT ADDRESS * P ADK A6,0 SET CR * > ( P RF(Z) OP:030 NO FREE FWT AVAILABLE * V " P LDR* A1,A6 FIRST WORD OF FWT * & P ANK A1,1 CHECK IF ALREADY OPENED * P RF(Z) OP:060 NOT OPENED * P* * P* FILE IS AL
0x4db444…4db5d8 Dummy {f00=0x018b, f01=0x018e, f02=»B ADDRESS FOR EA TASK * | " P RF(NZ) OP:040 FILE PROTECTED + & P LC A1,FWTPAR,A6 ACCESS PARAMETERS + D P LDR A2,A1 + n P ANK A1,/3F NUMBER OF USERS + P SUK A1,/3F + P ABL(NZ) OP:250 + P* + P EJECT FMTASK + P* + P* ERROR EXIT
0x4db5d8…4db76c Dummy {f00=0x018b, f01=0x018e, f02=» + l P LDKL A4,/8400 RETURN CODE , P RF OP:RTN , * P* , < POP:040 EQU * FILE PROTECTED , F P LDK A4,/40 RETURN CODE , j P RF OP:RTN , P* , & POP:050 EQU * VOLUME/FILE NOT FOUND , 0 P CF A14,RELBLK RELEASE EWT STRUCTURE BLOCKS , P* ,
0x4db76c…4db900 Dummy {f00=0x018b, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x4db900…4dba94 (5, 402) Dummy {f00=0x018b, f01=0x018e, f02=» LDR A2,A12 RESTORE FILE CODE - P RF OP:075 . & P* . 8 P* FIND ONE VOLUME . B P* . POP:070 EQU * . f 0 P ST A7,VOLUME SAVE VOLUME NAME DISPLACEMENT . z P CF A14,FNDVOL FIND VOLUME . P ADK A2,0 . " P RB(Z) OP:050 VOLUME NOT FOUND . P
0x4dba94…4dbc28 Dummy {f00=0x018b, f01=0x018e, f02=» . p 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER / & P RB(Z) OP:050 NO FILE EXTENT FOUND / < P* / f POP:080 EQU * / p P LDR A1,A6 SAVE FWT ADDRESS / P LDR* A2,A8 DISC FILE CODE / P INH / . P CF A15,FNDDWD DISC DWT ADDRESS AND INDEX / P
0x4dbc28…4dbdbc Dummy {f00=0x018b, f01=0x018e, f02=» " P LDR A6,A1 RESTORE FWT ADDRESS 0 ( P LD A3,VTC:EN,A13 FILE EXTENT NUMBER 0 * ( P LD A2,VTC:FO,A13 FILE ORGANIZATION 0 V P ANK A2,/FF 0 P SUK A2,'L' 0 P RF(Z) OP:085 L-FILE 0 * P LD A2,VTC:FS,A13 FILE SECTION NUMBER 0 P SRC A2,2 0 2 P E
0x4dbdbc…4dbf50 Dummy {f00=0x018b, f01=0x0190, f02=» 0 POP:085 EQU * 1 * P LC A2,VTC:EL+1,A13 FILE EXTENT LENGTH 1 P LD A1,VTC:EL+2,A13 1 J P ADK A3,0 SET CR 1 f $ P RF(Z) OP:090 FIRST FILE EXTENT 1 ~ P INH 1 P CF A15,GETBLK EWT BLOCK 1 1 P RF OP:100 1 P* 1 POP:090 EQU * 1 > P ST
0x4dbf50…4dc0e4 Dummy {f00=0x018b, f01=0x0190, f02=» POP:100 EQU * 2 P LDR* A2,A8 VOLUME FILE CODE 2 * P ECR A2,A2 FILE CODE NOW IN LEFT BYTE 2 < ( P LC A2,VTC:EB+1,A13 FILE EXTENT BASE 2 j P LD A1,VTC:EB+2,A13 2 P ADK A3,0 SET CR 2 ( P RF(NZ) OP:120 NOT FIRST FILE EXTENT 2 < P ST A2,FWTEXB-2,A6
0x4dc0e4…4dc278 Dummy {f00=0x018b, f01=0x0190, f02=» 2 * P* FIND REMAINING EXTENTS FOR THIS FILE 3 P* 3 6 POP:110 EQU * 3 @ ( P CF A14,FVTC30 FIND NEXT VTOC ENTRY 3 T 0 P LDR A11,A2 SAVE CURRENT VTOC SECTOR NUMBER 3 6 P RF(Z) OP:160 NO MORE FILE EXTENTS ON THIS VOLUME 3 P RB OP:080 3 P* 3
0x4dc278…4dc40c Dummy {f00=0x018b, f01=0x0190, f02=»CK 1 3 v P CF A15,GETBLK EWT BLOCK 2 4 P ENB 4 . P STR A4,A3 LINK EWT2 TO EWT1 4 : P LDR A1,A6 FWT ADDRESS 4 ^ P ADK A1,FWTEW2 4 | P* 4 POP:130 EQU * 4 * P LDR* A2,A1 ADDRESS NEXT EWT STRUCTURE 4 P RF(NZ) OP:150 4 P* 4 POP:140 EQU
0x4dc40c…4dc5a0 Dummy {f00=0x018b, f01=0x0190, f02=»TSEX,A2 FILE SECTION AND EXTENT NUMBER 4 P CC A11,EWTSEX,A3 5 . ( P RB(G) OP:140 INSERT NEW EWT BLOCKS 5 H ( P LDR* A1,A2 ADDRESS TO 2ND EWT BLOCK 5 t P RB OP:130 5 P* 5 P EJECT FMTASK 5 P* 5 P* 5 POP:160 EQU * 5 2 P LD A7,VOLUM
0x4dc5a0…4dc734 (5, 403) Dummy {f00=0x018c, f01=0x018e, f02=» LDR A1,A10 FPB ADDRESS 5 $ P ADR A1,A7 POINT TO VOLUME NAME 6 0 P LDR* A1,A1 CHECK IF MORE VOLUMES SPECIFIED 6 H " P RF(Z) OP:170 NO MORE VOLUMES 6 | , P SUKL A1,/2020 SPACES IF NO MORE VOLUMES 6 $ P RB(NZ) OP:070 FIND NEXT VOLUME 6 P* 6 POP:1
0x4dc734…4dc8c8 Dummy {f00=0x018c, f01=0x0190, f02=» 6 j P* 7 6 P LD A1,FWTVTC,A6 VTOC SECTOR NUMBER, FIRST EXTENT 7 , P RB(Z) OP:050 FIRST FILE EXTENT MISSING 7 L P LDR A1,A6 FWT ADDRESS 7 | P ADK A1,FWTEW1 7 , P LDK A4,0 FILE SECTION AND EXTENT NUMBER 7 P* 7 P EJECT FMTASK 7 P* 7
0x4dc8c8…4dca5c Dummy {f00=0x018c, f01=0x018e, f02=»P:230 END OF EWT CHAIN 7 4 P LC A13,EWTSEX,A1 FILE SECTION AND EXTENT NUMBER 8 P LDR A3,A13 8 V $ P ANK A3,/C0 FILE SECTION NUMBER 8 j P LDR A7,A4 8 $ P ANK A7,/C0 FILE SECTION NUMBER 8 , P SUR A7,A3 COMPARE FILE SECTION NUMBERS 8 , P RF(Z) OP:19
0x4dca5c…4dcbf0 Dummy {f00=0x018c, f01=0x0190, f02=» 8 , P ANK A3,/3F EXTENT NUMBER SHOULD BE ZERO 9 P RF OP:200 9 8 P* 9 J POP:190 EQU * 9 T P LDR A3,A13 9 h " P ANK A3,/3F FILE EXTENT NUMBER 9 | " P ANK A4,/3F FILE EXTENT NUMBER 9 * P SUR A4,A3 COMPARE FILE EXTENT NUMBER 9 & P ADK A4,1 DIFFEREN
0x4dcbf0…4dcd84 Dummy {f00=0x018c, f01=0x018e, f02=» EXTENT NUMBER 9 j P RB OP:180 : P* : ( P EJECT FMTASK : 2 P* : J P* : T POP:230 EQU * : ^ , P LC A2,FPB:SH,A10 SHAREABILITY PARAMETER : r P ANK A2,/FF : " P RF(Z) OP:240 NO EA REQUESTED : , P ST A5,FWTTAB,A6 SET TTAB ADDRESS IN FWT :
0x4dcd84…4dcf18 Dummy {f00=0x018c, f01=0x0190, f02=» : EJECT FMTASK ; P* ; , P* COMMON EXIT FOR ACCEPTED OPEN REQUESTS ; * P* ; Z POP:250 EQU * ; d . P LD A1,FPB:BO,A10 BASIC ORDERS PARAMETERS ; x P ANK A1,/FF ; 2 P RF(NZ) OP:260 BASIC ORDERS WANTED, NO ACTION ; * P ANK A2,/BF PHYSICAL
0x4dcf18…4dd0ac Dummy {f00=0x018c, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x4dd0ac…4dd240 Dummy {f00=0x018c, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x4dd240…4dd3d4 (5, 404) Dummy {f00=0x018c, f01=0x0190, f02=» = * FMCLOS * > ********** > * > , P* > 6 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: > @ P* CLOSE/DELETE FILE > v P* > P* ENTRY PARAMETERS: > P* > P* A1 = ORDER OPTION > * P* A5 = TTAB ADDRESS OF CALLING TAS
0x4dd3d4…4dd568 Dummy {f00=0x018c, f01=0x0190, f02=»R OPTION > ( P ABL(NZ) FM:RQE ILLEGAL ORDER OPTION ? P* ? < P EJECT FMTASK ? F P* ? ^ P* ? h P********* ? r P* CLOSE * ? P********* ? P* ? P* ? PCLOSE EQU * CLOSE FILE ? 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT)
0x4dd568…4dd6fc Dummy {f00=0x018c, f01=0x018e, f02=»CHECK IF NVL ? ( P RF(Z) CL:010 NVL, DON'T WRITE VTOC @ P ABL FM:RTC ERROR @ @ P* @ Z PCL:005 EQU * @ d ( P LD A1,FPB:FR,A10 FILE RECORD NUMBER @ x P LD A3,FPB:FR+2,A10 @ , P ST A1,VTC:LR,A13 SET LRN IN VTOC RECORD @ P ST A3,VTC:LR+2,A13 @
0x4dd6fc…4dd890 Dummy {f00=0x018c, f01=0x018e, f02=» P RF(NN) CL:007 NOT NVL A & P LDK A1,/20 SET NVL IN RETURN CODE A " P ST A1,ECBRC,A8 A L P RF CL:010 A d P* A v PCL:007 EQU * A , P CF A14,FM:PWR WRITE VTOC RECORD TO DISC A P* A P EJECT FMTASK A P* A P* A PCL:010 EQU * A
0x4dd890…4dda24 Dummy {f00=0x018c, f01=0x0190, f02=» A r * P SUK A2,1 DECREMENT NO OF USERS BY ONE B 2 P SC A2,FPB:US,A10 RETURN REMAINING NO OF USERS B 6 4 P RF(P) CL:020 DON'T RELEASE FWT IF ANY USER LEFT B l P* B P EJECT FMTASK B P* B P* RELEASE FWT AND EWT BLOCKS B P* B P LDK A2,1
0x4dda24…4ddbb8 Dummy {f00=0x018c, f01=0x0190, f02=» EQU * B . P ORR A1,A2 PUT TOGETHER ACCESS PARAMETERS C P SC A1,FWTPAR,A6 C @ P* C X PCL:030 EQU * C b P LD A4,ECBRC,A8 RETURN CODE C v P RF FMEXIT RETURN C * C & PCL:040 EQU * ENTRY USED BY FM:LKM C $ P ADKL A14,4 ADJUST STACK POINTER
0x4ddbb8…4ddd4c Dummy {f00=0x018c, f01=0x0190, f02=» C P* D PDELETE EQU * DELETE FILE D P* TO BE IMPLEMENTED D 2 EJECT FMTASK D P * D h * D r ********** D | * FMRDFP * D ********** D * D P* D 2 P* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: D P* READ FIL
0x4ddd4c…4ddee0 Dummy {f00=0x018c, f01=0x0190, f02=»K D l P* A9 = USER ECB ADDRESS E P* A10 = FPB ADDRESS E , * E H & !FMRDFP EQU * READ FILE PARAMETERS E R P ANK A1,/FF ORDER OPTION E | ( P RF(NZ) FM:RQE ILLEGAL ORDER OPTION E 2 P CF A14,RDVTOC READ VTOC RECORD (FIRST EXTENT) E P ADK A1,0
0x4ddee0…4de074 (5, 405) Dummy {f00=0x018c, f01=0x0190, f02=»2,FPBLEN FPB AREA LENGTH E P* F " PFMR:00 EQU * F , P CMR A1 F @ P ADK A1,2 F P P SUK A2,2 F b P RB(P) FMR:00 F t P* F P EJECT FMTASK F P* F P* F P LDR A1,A10 FPB ADDRESS F " P ADK A1,FPB:V2 2ND VOLUME NAME F & P L
0x4de074…4de208 Dummy {f00=0x018c, f01=0x018e, f02=»NTER, INNER LOOP F ~ P* G " PFMR:04 EQU * INNER LOOP ENTRY G " * P STR A4,A1 MOVE SPACES TO VOLUME NAME G H P ADK A1,2 G v P SUK A3,1 G P RB(P) FMR:04 G * P ADK A1,FPB:V2-FPB:S1 NEXT VOLUME NAME G P SUK A2,1 G P RB(P) FMR:02 G P*
0x4de208…4de39c Dummy {f00=0x018c, f01=0x0190, f02=» G n P STR A1,A10 H 8 P LD A1,VTC:BF,A13 BLOCK FACTOR AND FILE ORGANIZATION H P ST A1,FPB:BF,A10 H X ( P LD A1,VTC:LR,A13 LAST RECORD NUMBER H r P ST A1,FPB:FR,A10 H $ P LD A1,VTC:LR+2,A13 LRN, PART 2 H P ST A1,FPB:FR+2,A10 H 4 P LD A1,VTC:M
0x4de39c…4de530 Dummy {f00=0x018c, f01=0x0190, f02=»INDEX FILES H t P ST A1,FPB:IF,A10 I , P LD A1,VTC:KA,A13 KEY ADDRESS IN RECORD I . P ST A1,FPB:KA,A10 I ^ P LDK A2,1 I x , P LD A1,FWTTAB,A6 SHAREABILITY PARAMETER I P RF(Z) FMR:05 NO EA I 2 P SC A2,FPB:SH,A10 INDICATE OPENED EXCLUSIVELY I
0x4de530…4de6c4 Dummy {f00=0x018c, f01=0x0190, f02=»LE I f , P SC A2,FPB:BO,A10 INDICATE BASIC ORDERS J P* J : PFMR:10 EQU * J D P SLC A1,7 J X P ANK A1,/3F NUMBER OF USERS J j P SC A1,FPB:US,A10 J P* J P EJECT FMTASK J P* J . P* MOVE CREATION DATE AND RETENTION PERIOD J P*
0x4de6c4…4de858 Dummy {f00=0x018c, f01=0x0190, f02=»ACTERS TO MOVE J | 8 P CF A14,MOVE MOVE CREATION DATE AND RETENTION PERIOD K P* K R $ P* MOVE FILE NAME FROM FWT TO FPB K P* K P LDR A1,A6 FWT ADDRESS K P ADK A1,FWTNAM K . P SUK A3,FPBLEN-FPB:FN-1 POINT TO FILE NAME K & P LDK A2,8 NO OF CHAR
0x4de858…4de9ec Dummy {f00=0x018c, f01=0x0190, f02=» K b P LDR A11,A6 L * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK L P* L J P EJECT FMTASK L T P* L l 8 P* READ VOLUME NAME AND COMPUTE SIZE OF FILE SECTION L v P* L PFMR:20 EQU * L $ P LC A2,EWTVOL,A12 DISC FILE CODE L P LDR A13,A2 SAVE
0x4de9ec…4deb80 Dummy {f00=0x018c, f01=0x0190, f02=»A6 VOLUME NAME ADDRESS L " P CF A14,MOVE MOVE VOLUME NAME M * P LD A1,EWTEXL-2,A11 FILE EXTENT LENGTH M D P ANK A1,/FF M r P LD A2,EWTEXL,A11 M P* M P EJECT FMTASK M P* M " P* COMPUTE FILE SECTION SIZE(S) M P* M PFMR:35 EQU *
0x4deb80…4ded14 (5, 406) Dummy {f00=0x018c, f01=0x0190, f02=» M j P ANK A6,/FF N P LD A7,EWTEXL,A11 N * P LDR* A12,A11 ADDRESS TO 2ND EWT BLOCK N 6 & P CC A13,EWTVOL,A12 CHECK FILE CODE N d , P RF(NE) FMR:50 END OF THIS FILE SECTION N P* N P IFT CPU852=0 N * P DAR A6 ACKUMULATE FILE SECTION LENGTH N
0x4ded14…4deea8 Dummy {f00=0x018c, f01=0x0190, f02=»OW N | P RB FMR:35 O P* O PFMR:45 EQU * O & " P ADK A1,1 OVERFLOW CORRECTION O : P ANKL A2,/7FFF O ` P XIF O v P* O P RB FMR:35 O P* O PFMR:50 EQU * O . P STR A1,A3 STORE FILE SECTION SIZE IN FPB O P ST A2,2,A3 O 0 P ADK A
0x4deea8…4df03c Dummy {f00=0x018c, f01=0x0190, f02=» O EJECT FMTASK P * P P* P * P********** P 4 P* FMEXIT * P F P********** P X P* P j P* P t & P* COMMON EXIT FOR FILE MANAGEMENT P ~ P* ADMINISTRATION FUNCTIONS P P* P PFMEXIT EQU * P P IFT MMUPAG=1 P P* P 8 P
0x4df03c…4df1d0 Dummy {f00=0x018c, f01=0x0190, f02=»ADDRESS P x P* Q P LDR A1,A10 FM:FPB ADDRESS Q $ P EL A2,ECBBA,A9 USER FPB ADDRESS Q < P LDK A3,FPBLEN FPB LENGTH Q d $ P MVSU A3 MOVE FM:FPB TO USER FPB Q P XIF Q * Q P EJECT FMTASK Q P* Q P* Q P********** Q P* FM:R
0x4df1d0…4df364 Dummy {f00=0x018c, f01=0x0190, f02=»ETURN CODE Q ~ * P* A5 = TTAB ADDRESS OF CALLING TASK R P* A9 = USER ECB ADDRESS R @ P* R b * PFM:RTC EQU * GENERAL RETURN CODE EXIT R l P IFT MMUPAG=0 R * P ST A4,ECBRC,A9 SET RETURN CODE IN ECB R P XIF R P* R P IFT MMUPAG=1 R *
0x4df364…4df4f8 Dummy {f00=0x018c, f01=0x0190, f02=» * REQUEST ERROR EXIT R P LDKL A4,/8000 RETURN CODE S P RB FM:RTC S @ * S R P EJECT FMTASK S P* S t P* S ~ P********** S P* FM:PWR * S P* FMREAD * S P********** S P* S P* S * P* INPUT: A2 = SECTOR NUMBER, PART
0x4df4f8…4df68c Dummy {f00=0x018c, f01=0x0190, f02=»DRESS S t P* T P* OUTPUT: A4 = 0 T P* A7 IS DESTROYED T 2 P* T N & PFM:PWR EQU * PHYSICAL WRITE ENTRY T X P LDK A7,/95 PHYSICAL WRITE T P RF FM:LKM T P* T $ PFMREAD EQU * PHYSICAL READ ENTRY T P LDK A7,/91 PHYSICAL READ T
0x4df68c…4df820 Dummy {f00=0x018c, f01=0x0190, f02=» IN ECB T n P LKM U P DATA 1 U P LD A4,ECBRC,A8 RETURN CODE U , " P ANKL A4,/FEFF SKIP RETRY BIT U P P RF(Z) FM:RTN RETURN IF OK U v P* U : P* ERROR: CHECK WHY AND DECIDE IF REQUEST TO BE ABORTED U P* U P LDK A7,/A2 CLOSE ORDER U 4
0x4df820…4df9b4 (5, 407) Dummy {f00=0x018d, f01=0x0190, f02=» CW A7,TTB:SA+14,A5 CHECK IF OPEN ORDER RUNNING U $ P RB(NE) FM:RTC ABORT IF NOT OPEN V 8 & P LDK A7,/20 NEW VOLUME LOADED BIT V ` P TM A4,A7 CHECK RETURN CODE V P RB(Z) FM:RTC NOT NVL, ABORT V * P RB FMREAD NVL AT OPEN, REPEAT REQUEST V P* V
0x4df9b4…4dfb48 Dummy {f00=0x018d, f01=0x0190, f02=»** V P* W P* W . P* RELBLK WILL RELEASE THE MONITOR BLOCKS W , P* THAT ARE USED IN THE EWT STRUCTURE. W P P* W P* INPUT: A6 = FWT ADDRESS W P* W $ P* OUTPUT: A1-A4 ARE DESTROYED W P* W . PRELBLK EQU * RELEASE EWT STRUC
0x4dfb48…4dfcdc Dummy {f00=0x018d, f01=0x0190, f02=»L:10 EQU * W P INH X $ P CF A15,FREBLK RELEASE EWT BLOCK X P ENB X F P LDR A4,A3 EWT BLOCK ADDRESS X R P RB(NZ) REL:10 X v P* X PREL:20 EQU * X * P CM FWTVTC,A6 RESET VTOC SECTOR NUMBER X 4 P CM FWTTAB,A6 RESET TTAB ADDRESS (EA PARAMETER)
0x4dfcdc…4dfe70 Dummy {f00=0x018d, f01=0x0190, f02=»** X P* FNDNAM * Y P********** Y P* Y . 2 P* FNDNAM WILL CONVERT THE SUPPLIED FILE CODE Y 8 0 P* TO VOLUME NAME ADDRESS IN THE DISC DWT. Y n P* Y P* INPUT: A2 = FILE CODE Y P* Y P* OUTPUT: A2 = 6 Y ( P* A6 = VOLUM
0x4dfe70…4e0004 Dummy {f00=0x018d, f01=0x0190, f02=» Y ( P CF A15,FNDDWD FIND DISC DWT ADDRESS Z P ENB Z 4 P* Z @ PFNAM05 EQU * Z J P LD A4,DWTST,A6 Z ^ P ANK A4,1 Z v 4 P RF(NZ) FNAM10 POWER ON COMPLETED FOR THIS DISC Z P LKM Z P DATA 0 SWITCH TASKS Z P RB FNAM05 CHECK DISC AGAIN Z
0x4e0004…4e0198 Dummy {f00=0x018d, f01=0x0190, f02=» A2,6 Z P ADKL A6,DWTVOL-6 [ P RTN A14 [ ( P* [ 8 P EJECT FMTASK [ B P* [ Z P* [ d P********** [ n P* FNDVOL * [ P********** [ P* [ P* [ & P* FNDVOL SEARCHES THE REQUESTED [ $ P* VOLUME SPECIFIED IN THE FPB. [
0x4e0198…4e032c Dummy {f00=0x018d, f01=0x0190, f02=»FILE CODE IF FOUND, ELSE [ z * P* = 0 IF VOLUME NOT FOUND & P* A1, A3-A4, A12 ARE DESTROYED N P* x ( PFNDVOL EQU * FIND VOLUME (FILE CODE) 4 P LDKL A1,DFTAB-1 DISC FILE CODE TABLE ADDRESS-1 P LDR A12,A6 SAVE FWT ADDRESS
0x4e032c…4e04c0 Dummy {f00=0x018d, f01=0x018e, f02=»OF DFTAB ~ P LCR A2,A1 NEXT FILE CODE ] , P CF A14,FNDNAM FIND VOLUME NAME ADDRESS ] 2 * P LDR* A3,A6 FIRST WORD OF VOLUME NAME ] b P RB(Z) FVOL10 NO VOLUME ] P* ] P EJECT FMTASK ] P* ] P* ] P LDR A3,A10 FPB ADDRESS ] , P A
0x4e04c0…4e0654 (5, 408) Dummy {f00=0x018d, f01=0x0190, f02=» * P RB(NE) FVOL10 VOLUME NAMES NOT EQUAL ^ P ADK A3,2 INCREMENT POINTERS ^ 2 P ADK A6,2 ^ V P SUK A2,2 ^ h P RB(P) FVOL20 ^ z P LCR A2,A1 FILE CODE ^ P* ^ PFVOL25 EQU * ^ $ P LDR A6,A12 RESTORE FWT ADDRESS ^ P RTN A14 ^ P* ^
0x4e0654…4e07e8 Dummy {f00=0x018d, f01=0x0190, f02=» ^ P********** _ P* RDVTOC * _ P********** _ , P* _ > P* _ H 0 P* RDVTOC WILL CALL FCHEC2 FOR CHECK OF THE _ R 2 P* ACCESS PARAMETERS AND READ THE VTOC RECORD _ " P* OF THE FIRST FILE EXTENT. _ P* _ " P* INPUT: A5 = TTAB ADDRES
0x4e07e8…4e097c Dummy {f00=0x018d, f01=0x018e, f02=»N FM:BUF _ j , P* A1-A4, A7, A11 ARE DESTROYED ` P* ` @ 8 PRDVTOC EQU * CHECK ACCESS PAR. AND READ VTOC RECORD ` J P IFT MMUPAG=0 ` P LDR* A2,A9 FILE NUMBER ` P XIF ` P* ` P IFT MMUPAG=1 ` P ELR A2,A9 FILE NUMBER ` P X
0x4e097c…4e0b10 Dummy {f00=0x018d, f01=0x0190, f02=» P RF(NZ) RDVT20 ERROR, RETURN a P* a ( P EJECT FMTASK a 2 P* a J P* a T P LDR A6,A3 FWT ADDRESS a ^ 2 P LC A2,FWTVOL,A6 DISC FILE CODE (FIRST EXTENT) a | P SC A2,ECBFC,A8 a 6 P LD A2,FWTVTC,A6 VTOC SECTOR NUMBER (FIRST EXTENT) a 8 P CF
0x4e0b10…4e0ca4 Dummy {f00=0x018d, f01=0x0190, f02=» RDVT20 FIRST EXTENT FOUND a 6 P CF A14,FVTC30 READ NEXT VTOC RECORD FOR THIS FILE b " 0 P RB RDVT10 CHECK IF THIS IS THE FIRST EXTENT b P* b PRDVT20 EQU * b P RTN A14 b P* b P EJECT FMTASK b P* b P* b P********** b P*
0x4e0ca4…4e0e38 Dummy {f00=0x018d, f01=0x0190, f02=» RETURN IS MADE WHEN ONE EXTENT b P* HAS BEEN FOUND. c ( P* c D P* INPUT: A2 = FILE CODE c N " P* A5 = TTAB ADDRESS c p P* A6 = FWT ADDRESS c & P* A9 = USER ECB ADDRESS c P* c 6 P* OUTPUT: A2 = VTOC SECTOR NUM
0x4e0e38…4e0fcc Dummy {f00=0x018d, f01=0x018e, f02=» A1, A3-A4, A7, A11-A12 ARE DESTROYED c P* d 2 PFNDVTC EQU * FIND VTOC ENTRY d < ( P SC A2,ECBFC,A8 SET FILE CODE IN ECB d ` P LDK A2,0 SECTOR NUMBER d P CF A14,FMREAD READ SECTOR 0 d * P LD A2,FM:BUF+VOL:EB VTOC EXTENT BASE d P LDR A12,A
0x4e0fcc…4e1160 Dummy {f00=0x018d, f01=0x0190, f02=» P* e P* e & PFVTC10 EQU * ENTRY USED BY RDVTOC e ( P CF A14,FMREAD READ ONE VTOC SECTOR e B $ P LDKL A13,FM:BUF FM:BUF ADDRESS e n $ P LDK A7,VTOCBF VTOC BLOCK FACTOR e P* e PFVTC20 EQU * e & P LD A4,VTC:ST,A13 VTOC STATUS BYTE e P A
0x4e1160…4e12f4 (5, 409) Dummy {f00=0x018d, f01=0x0190, f02=» NUMBER e l & P ADKL A13,VTOCRL NEXT VTOC ADDRESS f P SUK A7,1 f : , P RB(P) FVTC20 MORE VTOC:S IN THIS SECTOR f L P ADK A2,1 NEXT VTOC SECTOR f | , P CWR A2,A12 CHECK IF END OF VTOC EXTENT f ( P RB(NE) FVTC10 NOT LAST VTOC SECTOR f P LDK A2,0 RETU
0x4e12f4…4e1488 Dummy {f00=0x018d, f01=0x0190, f02=» ADK A1,FWTNAM f P LDR A3,A13 VTOC ADDRESS g P LDK A4,4 LOOP COUNTER g 6 P* g T $ PFVTC60 EQU * COMPARE FILE NAMES g ^ P LDR* A11,A3 g P CWR* A11,A1 g ( P RB(NE) FVTC30 FILE NAMES NOT EQUAL g P ADK A1,2 INCREMENT POINTERS g P ADK A3,2
0x4e1488…4e161c Dummy {f00=0x018d, f01=0x0190, f02=» P********** h P* FNDFWT * h P********** h ( P* h : P* h D 4 P* FNDFWT IS USED TO FIND OUT IF THE SPECIFIED h N 0 P* FILE IS ALREADY OPENED, AND IF SO RETURN h & P* THE FWT ADDRESS FOR THE FILE. h 6 P* IF NOT OPENED, A FREE FWT ADDRES
0x4e161c…4e17b0 Dummy {f00=0x018d, f01=0x0190, f02=»A6 = FWT ADDRESS (=0 IF NO FREE FWT AVAILABLE) h & P* A1-A4, A7, A11 ARE DESTROYED i 6 P* i ` PFNDFWT EQU * i j P LDK A3,0 i ~ * P LD A7,SCTFWT FWT CHAIN START ADDRESS i P* i PFNDF10 EQU * i P LDK A2,1 i P* i PFNDF15 EQU * i
0x4e17b0…4e1944 Dummy {f00=0x018d, f01=0x0190, f02=»ECK IF USED i ( P RF(NZ) FNDF20 USED, CHECK FILE NAME j 6 P ADK A3,0 CHECK IF FREE FWT ADDRESS ALREADY SAVED j @ & P RB(NZ) FNDF15 YES, DON'T SAVE IT j z ( P LDR A3,A6 NO, SAVE THIS FWT ADDRESS j P RB FNDF15 CONTINUE SEARCH j P* j P EJECT FMT
0x4e1944…4e1ad8 Dummy {f00=0x018d, f01=0x0190, f02=» A2,FWTNAM j P LDR A4,A10 FPB ADDRESS k P ADK A4,FPB:FN k 2 P SUK A7,1 SKIP FWT USED BIT k H P* k l $ PFNDF30 EQU * COMPARE FILE NAMES k v P LDR* A11,A2 k P CWR* A11,A4 k ( P RB(NE) FNDF10 FILE NAMES NOT EQUAL k P ADK A2,2 INCREMENT PO
0x4e1ad8…4e1c6c Dummy {f00=0x018d, f01=0x0190, f02=») FNDF10 NOT THIS FILE k P RTN A14 FILE FOUND, RETURN l P* l B PFNDF40 EQU * FILE NOT FOUND l L P LDR A6,A3 FREE FWT ADDRESS l p P RTN A14 l P* l P EJECT FMTASK l P* l P* l P******** l P* MOVE * l P******** l
0x4e1c6c…4e1e00 Dummy {f00=0x018d, f01=0x0190, f02=» = OUTPUT BUFFER ADDRESS l P* m P* OUTPUT: A2 = 0 m * > P* A1, A3 = ADDRESSES OF LAST MOVED CHARACTERS+1 m D P* A4 IS DESTROYED m P* m PMOVE EQU * MOVE STRING m " P LCR A4,A1 MOVE ONE CHARACTER m P SCR A4,A3 m (
0x4e1e00…4e1f94 (5, 410) Dummy {f00=0x018d, f01=0x0190, f02=» P* n EJECT FMTASK n * n & * n 0 ********** n : * FMRDWR * n L ********** n ^ * n p P* n z $ * FILE MANAGEMENT I/O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x4e1f94…4e2128 Dummy {f00=0x018d, f01=0x4098, f02=»SION n l XIF o * o IFT XTSPLI=1 o " " ABL LKMERR TO BE IMPLEMENTED o 8 XIF o ^ * o j * o t * o ~ END o @ o O FUNCTIONS. n * &* FMRDWR IS ENTERED WHEN THE REQUESTED n & "* SECTORS ARE SPLIT OVER MORE THAN n * ON
0x4e2128…4e22bc Dummy {f00=0x018d, f01=0x2008, f02=» p FMTASK ~ * * " * , END 6@ B * H ********** R * FMRDFP * d ********** v * 0 +* FILE MANAGEMENT ADMINISTRATION FUNCTIONS: * READ FILE PARAMETERS * & !FMRDFP EQU * READ FILE PAR
0x4e22bc…4e2450 Dummy {f00=0x018d, f01=0x0190, f02=» ` | 2 P ST A8,DWTSAV+10,A7 LOAD A8,INTERRUPT REGISTER a P LD A1,DWTOR,A6 GET ORDER a > P ANK A1,/FF a ` P SUK A1,6 a t P ABL(Z) WRITE ORDER 06:WRITE a P SUK A1,/24-6 a & P ABL(Z) OUT400 ORDER 24:CLOSE LINE a P SUK A1,2 a ( P RF(Z) OUT20
0x4e2450…4e25e4 Dummy {f00=0x018d, f01=0x0190, f02=»:OPEN TC a z P EJECT b P* b P* ORDER 38:CLOSE TC b ( P* b D ( P LC A3,DWTOR,A6 GET INDEX IN POLLIST b N P ANK A3,/FF b z P ADR A3,A6 b P LDR* A2,A3 b , P LD A2,PLIST,A3 RELOAD P-LIST POINTER =1 b P CM PLIST,A3 b P LDR A1,A3 b
0x4e25e4…4e2778 Dummy {f00=0x018d, f01=0x018e, f02=»TE REQUEST b t P* c P LDR A1,A2 c P ANK A1,/7F c . P ECR A1,A1 c B P ORK A1,TDISC c T P CF A5,TRUF c j P CF A5,RDUSTI c ~ P CF A5,HALTIN c P ABL BMM10 c P EJECT c P* c P* ORDER 37:OPEN TC c P* c POUT100 EQU * c
0x4e2778…4e290c Dummy {f00=0x018d, f01=0x0190, f02=» POUT105 EQU * d P LDK A2,0 d & P CF A15,FINDTC SEARCH EMPTY PLACE d * P RF(Z) OUT110 d T $ P LDKL A1,LSTOVF POLLIST OVERFLOW d j P RF OUT310 COMPLETE REQUEST d POUT110 EQU * d * P SC A4,DWTOR,A6 SAVE INDEX IN POLLIST d P LD A1,ECBCW,A8
0x4e290c…4e2aa0 Dummy {f00=0x018d, f01=0x0190, f02=» SUK A2,2 d P CMR A2 e P LDKL A2,RTYLIM e " P ST A2,DWTRTY,A6 e : P* e R 4 P* SEND SNRM AND WAIT WITH TIME-OUT SUPERVISION e P* e PSSNRM EQU * e P LD A1,ECBCW,A8 e P ANK A1,/7F GET TC ADDRESS e P ECR A1,A1 e $ P ORK A1,TS
0x4e2aa0…4e2c34 (5, 411) Opaque[0x194]
0x4e2c34…4e2dc8 # DirEnt {nam=»DVKB00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2518, f03=0x0000}
0x4e2c34…4e2dc8 IdxSect {
0x4e2c34…4e2dc8 f00 = 0x0128 // 0x4e2c34 @0x0
0x4e2c34…4e2dc8 f01 = 0x0002 // 0x4e2c36 @0x2
0x4e2c34…4e2dc8 gno = [ // 0x4e2c38 @0x4
0x4e2c34…4e2dc8 [0x00]: C0x0128.0x3.0
0x4e2c34…4e2dc8 ]
0x4e2c34…4e2dc8 }
0x4e2dc8…4e2f5c Dummy {f00=0x0128, f01=0x0190, f02=» 2 P IDENT DVKB00 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB00 TABLE ENTRY r P EXTRN CTAB01 ( P EXTRN KBAD3 POINTER TO ADDRESSBLOCK P EXTRN DVDY00 PMMUPAG EQU 0 P*
0x4e2f5c…4e30f0 Dummy {f00=0x0128, f01=0x0190, f02=»ADDRESS P DATA DWTEND-DVKB00 ORDER ( P DATA KBAD3 POINTER TO ADDRESS BLOCK 2 P DATA 'KB' TTAB-ADDRESS ^ $ P DATA 0 WAIT/ACTIVATE INDICATOR ~ P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DAT
0x4e30f0…4e3284 Dummy {f00=0x0128, f01=0x0190, f02=»VE AREA FOR A4 P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK 6 P DATA 0 TIMER POINTER N P DATA DVDY00 DVDY00O DEVICE l $ P DATA /5F5E BACKSPACE AND CANCEL $ P DATA /FF0D EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x4e3284…4e3418 Dummy {f00=0x0128, f01=0x40a4, f02=»A 0,0,0,0,0,0,0 P IFT MMUPAG=1 PDEVECB EQU * . P DATA 0,0,0,0,0,0 B P DATA P XIF j PDWTEND EQU * v P* P END @ E AND CANCEL $ P DATA /FF0D EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB00 POINTER TO FIRST PLAC
0x4e3418…4e35ac Dummy {f00=0x0128, 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
0x4e35ac…4e3740 Dummy {f00=0x0128, f01=0x0190, f02=»,A13 P XRR A14,A14 P LD A1,SCTBUG P ABR(NZ) A1 6 P HLT J P* V P EJECT SYSTAB ` P* x P* PX:A EQU 0 MONITOR OPTION ( PX:B EQU 0 DATA MAN .TASKS IN SYSTEM * PX:C EQU 0 DM INDEX RECORD BUFFER SIZE $ PX:
0x4e3740…4e38d4 (5, 412) Opaque[0x194]
0x4e38d4…4e3a68 # DirEnt {nam=»DVDY00«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2520, f03=0x0000}
0x4e38d4…4e3a68 IdxSect {
0x4e38d4…4e3a68 f00 = 0x0129 // 0x4e38d4 @0x0
0x4e38d4…4e3a68 f01 = 0x0002 // 0x4e38d6 @0x2
0x4e38d4…4e3a68 gno = [ // 0x4e38d8 @0x4
0x4e38d4…4e3a68 [0x00]: C0x0129.0x0.0
0x4e38d4…4e3a68 ]
0x4e38d4…4e3a68 }
0x4e3a68…4e3bfc Dummy {f00=0x0129, f01=0x0190, f02=» 2 P IDENT DVDY00 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY00 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY00 EQU * T
0x4e3bfc…4e3d90 Dummy {f00=0x0129, f01=0x0190, f02=» DATA DWTEND-DVDY00 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x4e3d90…4e3f24 Dummy {f00=0x0129, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x4e3f24…4e40b8 Dummy {f00=0x0129, 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
0x4e40b8…4e424c Dummy {f00=0x0129, f01=0x400c, f02=» @ K O S D W H h H D ! [ . c g Q P P P R U P /P UR, WQ$ oQ $ H D ! . P R V V R ! % . - 1 5 v p H D !x` 9T = A z I z O v }T T V S PJ T@ T: Tr P H D
0x4e424c…4e43e0 Dummy {f00=0x0129, f01=0x2008, f02=»
0x4e43e0…4e4574 (5, 413) Opaque[0x194]
0x4e4574…4e4708 # DirEnt {nam=»DVKB01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f38, f03=0x0000}
0x4e4574…4e4708 IdxSect {
0x4e4574…4e4708 f00 = 0x0179 // 0x4e4574 @0x0
0x4e4574…4e4708 f01 = 0x0002 // 0x4e4576 @0x2
0x4e4574…4e4708 gno = [ // 0x4e4578 @0x4
0x4e4574…4e4708 [0x00]: C0x0179.0x3.0
0x4e4574…4e4708 ]
0x4e4574…4e4708 }
0x4e4708…4e489c Dummy {f00=0x0179, f01=0x018e, f02=» 2 P IDENT DVKB01 REL 10.0 80-03-14 870105041000 P : " P* KEYBOARD DEVICE WORK TABLE B P* h P ENTRY DVKB01 TABLE ENTRY r P*** ( P EXTRN KBAD POINTER TO ADDRESSBLOCK P EXTRN DVDY01 PMMUPAG EQU 0 P* PDVKB01 E
0x4e489c…4e4a30 Dummy {f00=0x0179, f01=0x0190, f02=» z P DATA DWTEND-DVKB01 ORDER ( P DATA KBAD POINTER TO ADDRESS BLOCK * P DATA 'KB' TTAB-ADDRESS V $ P DATA 0 WAIT/ACTIVATE INDICATOR v P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB
0x4e4a30…4e4bc4 Dummy {f00=0x0179, f01=0x0190, f02=»A4 z P DATA 0 SAVE AREA FOR A5 P RES 4 DWT-STACK * P DATA 0 TIMER POINTER B P DATA DVDY01 DVDY01O DEVICE ` $ P DATA /DFDE BACKSPACE AND CANCEL $ P DATA /AAAC EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE IN QUEUE
0x4e4bc4…4e4d58 Dummy {f00=0x0179, f01=0x4098, f02=»0,0 P IFT MMUPAG=1 PDEVECB EQU * " P DATA 0,0,0,0,0,0 6 P DATA P P XIF ^ PDWTEND EQU * j P* ~ P END @ E AND CANCEL $ P DATA /AAAC EOR AND DOUBLE ZERO 6 P DATA DWTSQ+DVKB01 POINTER TO FIRST PLACE IN QUEUE
0x4e4d58…4e4eec Dummy {f00=0x0179, 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
0x4e4eec…4e5080 Dummy {f00=0x0179, f01=0x0190, f02=» P EJECT FMTASK - P* - P* FILE IS NOT OPENED BEFORE: - & 0 P* FIND ALL FILE EXTENTS, BUILD FWT AND EWT:S - J P* - ~ POP:060 EQU * - P* - $ P* MOVE FILE NAME FROM FPB TO FWT - P* - P LDR A1,A10 FPB ADDRESS - P ADK A1,FPB:FN -
0x4e5080…4e5214 (5, 414) Opaque[0x194]
0x4e5214…4e53a8 # DirEnt {nam=»DVDY01«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f28, f03=0x0000}
0x4e5214…4e53a8 IdxSect {
0x4e5214…4e53a8 f00 = 0x0179 // 0x4e5214 @0x0
0x4e5214…4e53a8 f01 = 0x0002 // 0x4e5216 @0x2
0x4e5214…4e53a8 gno = [ // 0x4e5218 @0x4
0x4e5214…4e53a8 [0x00]: C0x0179.0x1.0
0x4e5214…4e53a8 ]
0x4e5214…4e53a8 }
0x4e53a8…4e553c Dummy {f00=0x0179, f01=0x0190, f02=» 2 P IDENT DVDY01 REL 10.0 80-03-14 870105041000 P : * P* DEVICE WORK TABLE FOR VIDEO DISPLAY B P* p P ENTRY DVDY01 TABLE ENTRY z P* P* ( P EXTRN DYAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVDY01 EQU * T
0x4e553c…4e56d0 Dummy {f00=0x0179, f01=0x0190, f02=» DATA DWTEND-DVDY01 ORDER ( P DATA DYAD POINTER TO ADDRESS-BLOCK " P DATA /C459 TTAB-ADDRESS N $ P DATA 0 WAIT/ACTIVATE INDICATOR n P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU ECB
0x4e56d0…4e5864 Dummy {f00=0x0179, f01=0x4158, f02=»VE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER . P DATA /101 CURSOR POINTER L * P DATA /1850 LEFT BYTE=NUMBER OF LINES n " P RIGHT BYTE=CHARACTERS/LINE P DATA 0 BUFFER INDEX P IFT MMUPAG=1 PDEVECB DATA 0,0,0,0,
0x4e5864…4e59f8 Dummy {f00=0x0179, 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
0x4e59f8…4e5b8c Dummy {f00=0x0179, 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
0x4e5b8c…4e5d20 Dummy {f00=0x0179, f01=0x409a, f02=» SCTBLK SCTDCT p 0 _ N d @ SCTNPE SCTSTB SCTOPT SCTBUG SCTDMT~ , (
0x4e5d20…4e5eb4 (5, 415) Opaque[0x194]
0x4e5eb4…4e6048 # DirEnt {nam=»DVGP02«, typ=»SC«, f00=0x0000, f01=0x0000, f02=0x2f48, f03=0x0000}
0x4e5eb4…4e6048 IdxSect {
0x4e5eb4…4e6048 f00 = 0x017a // 0x4e5eb4 @0x0
0x4e5eb4…4e6048 f01 = 0x0002 // 0x4e5eb6 @0x2
0x4e5eb4…4e6048 gno = [ // 0x4e5eb8 @0x4
0x4e5eb4…4e6048 [0x00]: C0x017a.0x1.0
0x4e5eb4…4e6048 ]
0x4e5eb4…4e6048 }
0x4e6048…4e61dc Dummy {f00=0x017a, f01=0x018e, f02=» 2 P IDENT DVGP02 REL 10.0 80-03-14 870105041000 P : , P* DEVICE WORK TABLE FOR GENERAL PRINTER B P* r P ENTRY DVGP02 TABLE ENTRY | P* P* ( P EXTRN GPAD POINTER TO ADDRESS BLOCK PMMUPAG EQU 0 P* PDVGP02 EQU *
0x4e61dc…4e6370 Dummy {f00=0x017a, f01=0x0190, f02=» P DATA DWTEND-DVGP02 ORDER ( P DATA GPAD POINTER TO ADDRESS-BLOCK & P DATA /C750 TTAB-ADDRESS R $ P DATA 0 WAIT/ACTIVATE INDICATOR r P DATA 0 TERMINAL QUEUE IFT MMUPAG=1 & " DATA 0 SAVE AREA USER ECB ADDRESS DATA DEVECB MMU
0x4e6370…4e6504 Dummy {f00=0x017a, f01=0x40f0, f02=»0 SAVE AREA FOR A5 P RES 4 DWT-STACK P DATA 0 TIMER POINTER 2 " P DATA 0 HEAD POSITIPN POINTER P P IFT MMUPAG=1 v PDEVECB DATA 0,0,0,0,0,0 P XIF PDWTEND EQU * P* P* P END @ DATA DEVECB MMU
0x4e6504…4e6698 Dummy {f00=0x017a, 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
0x4e6698…4e682c Dummy {f00=0x017a, f01=0x0190, f02=»METERS ; l P LD A4,FWTFNR,A6 FILE NUMBER < P* < 2 P IFT MMUPAG=0 < < * P SC A4,ECBFC,A9 SET FILE NUMBER IN ECB < R P XIF < P* < P IFT MMUPAG=1 < P ELR A2,A9 < P ANKL A2,/FF00 < P ANK A4,/FF FILE NUMBER < P ORR A2,A4 < & P E
0x4e682c…4e69c0 Dummy {f00=0x017a, f01=0x0190, f02=»K < P* = P* = P********** = P* CREATE * = 0 P********** = B P* = T P* = ^ PCREATE EQU * CREATE FILE = h P* TO BE IMPLEMENTED = P EJECT FMTASK = P* = P* = P********** = P* EXTEND * = P********** = P
0x4e69c0…4e6b54 (5, 416) Opaque[0x194]
0x4e6b54…4e6ce8 # DirEnt {nam=»M:TU10«, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3120, f03=0x0000}
0x4e6b54…4e6ce8 IdxSect {
0x4e6b54…4e6ce8 f00 = 0x0189 // 0x4e6b54 @0x0
0x4e6b54…4e6ce8 f01 = 0x0018 // 0x4e6b56 @0x2
0x4e6b54…4e6ce8 gno = [ // 0x4e6b58 @0x4
0x4e6b54…4e6ce8 [0x00]: C0x0189.0x0.0
0x4e6b54…4e6ce8 [0x01]: C0x0189.0x1.0
0x4e6b54…4e6ce8 [0x02]: C0x0189.0x2.0
0x4e6b54…4e6ce8 [0x03]: C0x018e.0x0.0
0x4e6b54…4e6ce8 [0x04]: C0x018e.0x1.0
0x4e6b54…4e6ce8 [0x05]: C0x018e.0x2.0
0x4e6b54…4e6ce8 [0x06]: C0x018e.0x3.0
0x4e6b54…4e6ce8 [0x07]: C0x018f.0x0.0
0x4e6b54…4e6ce8 [0x08]: C0x018f.0x1.0
0x4e6b54…4e6ce8 [0x09]: C0x018f.0x2.0
0x4e6b54…4e6ce8 [0x0a]: C0x018f.0x3.0
0x4e6b54…4e6ce8 [0x0b]: C0x0190.0x0.0
0x4e6b54…4e6ce8 ]
0x4e6b54…4e6ce8 }
0x4e6ce8…4e6e7c Dummy {f00=0x0189, f01=0x0190, f02=»c Z | | | | | | | | | | | | | | | | | | | | | | | | | v | | | | | . . | | | | | | | | | | | | | | | | | | | | | c @ p z ^ ^ j X H 2 Z i% z
0x4e6e7c…4e7010 Dummy {f00=0x0189, f01=0x0190, f02=» 4c & @ M , d K 2Z $"z y +K @. B y M ` Dk l Y> K C `~ [ r? d % L D$ "~ T &b Cn 1 d _ A x > F & ? ? ? ? ? ? ? @F > > U H ( ( P c P W. AF T V ( U P @
0x4e7010…4e71a4 Dummy {f00=0x0189, f01=0x0190, f02=»XV ) AF A _b A A < AF _t A x A Q > A l A jQ b_ A j < Q d P d Q d Z Y _ 8 G Q Z P 0 9 _ T _, _ P H H ? ? ? ? ? ^ A _ _ ^ ? ? ? F $P T I
0x4e71a4…4e7338 Dummy {f00=0x0189, f01=0x0190, f02=» U T P 0 U _n ? @F T 0 AF 1 Q Q >W 0 @F 1 AF P P Wp " ? * X R Y P _ ? @ 8 R Y P _ W6 8 X W. ? ` @ @ P $ H W W > > > > > > > > @ V ? > _ > ? _ > > ? ^ ! Y ^
0x4e7338…4e74cc Dummy {f00=0x0189, f01=0x0190, f02=»#BH G H&G.$ H@ % % & &~= F J B B A xJ ;h # <c$ " P PR 4 5 T P ? X U X H > PZ PF P P 0 X T Y Wn U 0 U T X^ T E G. Y Tx 8RtWP D 4 U P> $P4> R0> 8' T Y
0x4e74cc…4e7660 Dummy {f00=0x0189, f01=0x0190, f02=» (@ > $P$ D P P0 P P _ E W Q Y W 8 " E 4 % E Y $B @ P A H V P _ 1"78 &3$ Q P ^ G& A Z B X T " T A j 7T B # Y B A b P T YF ZJ X T X M A 4 b H `
0x4e7660…4e77f4 (5, 417) Dummy {f00=0x0189, f01=0x0190, f02=» T T * _<#/ X T Y P ) Y C C Y A P8 P )@:b P ) :a P :a P X '? R Q )@ b 8 $| 8 b G* A j X T v r " P: A X P W > Y @ T* v ] D W @ Z :C _L)
0x4e77f4…4e7988 Dummy {f00=0x0189, f01=0x0190, f02=»C P A _ A A A _0 _ _8 _< _@ _D _H A x ?M P: A PdQ* ? A @ Z T M -W ,E A A > > >M A _ A > ;I C X "A _@ A A A A G. 4# X& zT X T ~:EV W X T Y :DV X
0x4e7988…4e7b1c Dummy {f00=0x0189, f01=0x0190, f02=» X ' P Y _ Y " " P )@:b P ) :a P :a P X '? R Q )@ b 8 8 b A X T " P A X P W Y @ T ] D W @ Z :C _L)
0x4e7b1c…4e7cb0 Dummy {f00=0x0189, f01=0x0190, f02=»C P A _ A A A _0 _ _8 _< _@ _D _H A x ?M P A P Q ? Y Y D X Q^ l I T8 C Y Y B ! T X Y I~ Y B P P P P P G& B ! T " T Y D 9 ! I N !
0x4e7cb0…4e7e44 Dummy {f00=0x0189, f01=0x0190, f02=» RY B Y H Z P B ;b :b ^ 9 Y n Y pR4P 9 Y p ! W" ! H R T ! WJ ! @WB ! U ! ! _ P Q R" ! W ! ! @W ! ! X ' T: X nP Q C X p 8 9 ! @ 9 C B C ! Y p !
0x4e7e44…4e7fd8 Dummy {f00=0x0189, f01=0x0190, f02=» 9 R ! 9 R Y ! I N W` ! t 9BV( ! ! D! T6 @ ! H N P H N;E Y ! Y D ! $ X ! ! P Y z ! H N @ X $ Pt t R::ARd P Y D ! t $ <A" :E ! x ! H N A Y D ! Wh Y x Y Y ! H N y Y D !
0x4e7fd8…4e816c Dummy {f00=0x0189, f01=0x0190, f02=»W X " P X ! D! P Y <W: 8 T " T 9_l ! ! ! *! ! P Y ! z 4 X ;F 8 X P@ ! ! ! $! ! P Y X DT x W @ ! H NP _* X DT Y ! n 4 X W X Y $ ) Y 4 B ;e :e
0x4e816c…4e8300 Dummy {f00=0x0189, f01=0x0190, f02=» N;C+ W( W$ W X DT X W q r Y @ T Jb Q F r Y Y G. F l Y Y B @ T Y ! ! Tn Y ! ! T` Y ! ! P Y In Y ! ! P Y In Y Y B P X Y '? ! C @ DP$_ D 0P -_ %J _ F A D
0x4e8300…4e8494 (5, 418) Dummy {f00=0x0189, f01=0x0190, f02=» C X P $| G. ! ! T 9 ! I N Y D ! $! ! Tr X BP I @ , TOT2 @ 4 1T( @ < Jb # " Q Z P R P Q R X X X Y ! W 4 C C C C
0x4e8494…4e8628 Dummy {f00=0x0189, f01=0x0190, f02=» W Q P P 1 ! J T V C B Q 1 $| G. Y @ r t @ B X _" X Z.W A x I X ' { B C X 4 Y I 9 ! ! T 9 ! X Y I~ X Y 9 X !
0x4e8628…4e87bc Dummy {f00=0x0189, f01=0x0190, f02=» X G& G* I B X ; Z Y B X T < Z0:A Z: ^@ Y@ Y Y B Y V Y Y Y X !? P6 P P. P ! X P ! 4 ! P @ 9W ! ! ` X P X X ! P P R ! `# T X Pt X &Pf ! ! B
0x4e87bc…4e8950 Dummy {f00=0x0189, f01=0x0190, f02=» 9 ! `_ # 4 ! PR C ! ! ` ! (@ ! R _ ! ` 1 ;h 1 ! 1 ! * ! ! ! ) ! `# X Y L_ P P ! P @ 9 4 I ! P X 1P B +P: Tx ( C Qh V ! ! ` B ! p ! W8 W h !
0x4e8950…4e8ae4 Dummy {f00=0x0189, f01=0x0190, f02=» Y D @ T:B S:W4 Y 8! T$ X Y X C X U Y W 8 $| G. Y _ Y Y X HP y H_, H %J _< Y H Y B Y L Y ! ! `# P InW ! 9 ! ` X ^< Y Y B Y X NP 1 Y N F 0 Y P 1 0B. X L P Y
0x4e8ae4…4e8c78 Dummy {f00=0x0189, f01=0x0190, f02=» (@ X R X T K P0 @ T X VT $C Y B G.K & % Y B K X D :AZn X FP Y F ! P + 7P, $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C B 4 $ ! `# T` @ 2 TOT @ 4 SST X Y J W( 0 ! ` ! X
0x4e8c78…4e8e0c Dummy {f00=0x0189, f01=0x0190, f02=» 9A ! U `P jW kQ 4 9 0" Z Y P Z _ 4 A z;D A z 4 R _ ;H 4 x ! (:C 4 ` ! ( 4 X " 4 ! ) 4W ! 9 ! ` X ^< Y Y Y X P 1 Y 0 Y 1 0B. X P Y
0x4e8e0c…4e8fa0 Dummy {f00=0x0189, f01=0x0190, f02=» (@ X X K P @ T X T $C Y B K & % Y B K X :AZn X P Y ! P + 7P $ P + < $ <C ! 9 9 4 X 9C X : X X 4 B :C B 4 $ ! `# T @ TOT @ SST X Y W 0 ! ` ! X
0x4e8fa0…4e9134 (5, 419) Dummy {f00=0x018e, f01=0x0190, f02=» ABCDEFGHI[.<(+!&JKLMNOPQR]$*);^-/STUVWXYZ|,%_>? 123456789:#@'=" abcdefghi[.<(+!&jklmnopqr]$*);^-/stuvwxyz|,%_>?0123456789
0x4e9134…4e92c8 Dummy {f00=0x018e, f01=0x0190, f02=» Nk`Ka z^L~no| J Z_m j TOSS ( H "Z 0 ) $P $ ) U @ C W "n 0P P 4 T C T" V$ Y "Z Pp q 0 ) Wb X P^ "Z T& B RPP" A" @"n A"n %J""
0x4e92c8…4e945c Dummy {f00=0x018e, f01=0x0190, f02=»G. $ XR ! X ! X P X T _l Xf Y @ P. R T& X "P P H T _ X I Y # C C # P Y '? Y Y T # P W Y (@ 2 @ _ > (@ X L U0 L QL L # T R < 5 ^ R < 5
0x4e945c…4e95f0 Dummy {f00=0x018e, f01=0x0190, f02=» P> - M X P. P& # P 0P 1 _ W Y $ T % %H%8 G. %2 %H%< _ G ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4e95f0…4e9784 Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P* P P" P P P T` B @ G 'p P # B B T P2 & T, L L R Q U V , , " _L , SF V :a B # S6 S6 Q
0x4e9784…4e9918 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ ' >' . @ AW = A= = ( @' , - M M M M @' ' =a 9a Q - _ - > ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4e9918…4e9aac Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B # S S Q
0x4e9aac…4e9c40 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4e9c40…4e9dd4 (5, 420) Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B # S S Q
0x4e9dd4…4e9f68 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4e9f68…4ea0fc Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B # S S Q
0x4ea0fc…4ea290 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4ea290…4ea424 Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B # S S Q
0x4ea424…4ea5b8 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4ea5b8…4ea74c Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B' S Q
0x4ea74c…4ea8e0 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4ea8e0…4eaa74 (5, 421) Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B S Q
0x4eaa74…4eac08 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @ 1 A _ P 9 $ "RT PL X TF X R@? V X " X H P $| X P
0x4eac08…4ead9c Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = > = > = =_: R _ 00 > & <h$ P > " 2 P P P P P P T P # B B T P & T L L R Q U V , , " _L , S V :a B S Q
0x4ead9c…4eaf30 Dummy {f00=0x018e, f01=0x0190, f02=» > _ @ > 0P 1 _ W Y $ T % %H%8 %2 %H%< _ ^ 4 _ @' , L T" L P ?A M L T L T M W L T L T M M L Q L A' @'
0x4eaf30…4eb0c4 Dummy {f00=0x018e, f01=0x0190, f02=» &l P ?_ = = W $" P E ?*(@ $ : ' P W @ D P _ >2 = U G. R $ - _ " P $ - : R $ - _ : Z $ -_ D ( U ( 0 W T ` U @ , @ W : X < F $ P
0x4eb0c4…4eb258 Dummy {f00=0x018e, f01=0x0190, f02=» : F 4W 0P< R Q P W R T D A Q , 0 5 @F 1 AF ZB : D HW (P D A I W6 @= T ( A= U 1_ D A I D H ) E H(@ : T @ c SB P W @ U0 T b S W U 8 U : P T > _ W U < : * D
0x4eb258…4eb3ec Dummy {f00=0x018e, f01=0x0190, f02=» C C C X %? : C X <_" Y #A 1 @ A = U > AA @ @ W` @ R&P % % @ I I I I _4 @ P Jp #D9 V 1 Y Jn ,P :A Jx AJx >P
0x4eb3ec…4eb580 Dummy {f00=0x018e, f01=0x0190, f02=» A ' DB C ! EB A@ E P< F| P& 8! P6 K @P X T X !? ? C W W @W E| E: " F W A@ E X* F$ X2 " (@ I # V V " LP V : V V P W Y Y " V V T Y Y
0x4eb580…4eb714 (5, 422) Dummy {f00=0x018e, f01=0x0190, f02=»#?W #?$? B _2 J @" P Y 9 @ J ! T " Y X G E:! EB E P C P* E: J : J < W W P X V C W EH X ! "? K >Q 9 E|W Y B W _.! T E T P % Y % Y Y V + V K V K : V K < V
0x4eb714…4eb8a8 Dummy {f00=0x018e, f01=0x0190, f02=» P" N & N T S _ _& - M L G G _ W C ( B P U D< T 8 X>_. : X P (@ Y Y Y :" (@ X $ T ( _ ^ $ : b b P" $ E 8X 8 , Y $ : _ & 'r(@ T X C X
0x4eb8a8…4eba3c Dummy {f00=0x018e, f01=0x0190, f02=» P0 8 T _ " & Y 4 : : $ - Y : c S|J M Ob > > > > > > > > @F AF hW W $| ^ ! Z@ F (XH @F P T M ]X , ) AF Pj P Y U ( ) 5 & > > > > > > >
0x4eba3c…4ebbd0 Dummy {f00=0x018e, f01=0x0190, f02=» " $ & > P~ "R~ Y G. Pj T P` G <UR "R4 PB X R< X T6 X T0. T G Y6 G _` P ,P - _ 8! ^ W0" P T 8! P< P8 H Y Y Y Y G. X X Y X X X
0x4ebbd0…4ebd64 Dummy {f00=0x018e, f01=0x0190, f02=» I % Y Wz B Tr I C B $ ) Y WX X $ $ ^ WB X Y :g H " I "! P& X Jn JxP ,P 9A _ H "P I " 4 I P Y Jb X$; [(;! P "Z0?AZ4 @Jx Q " X " $XL ( I T E _ (X _ X $ _v@
0x4ebd64…4ebef8 Dummy {f00=0x018e, f01=0x0190, f02=»K B P T B % X * $ 4 T % W X (T !H W L Y * V L !I2 B _P B P $$ R % C L WV Y &X !LD 8$ P W 8$ P $ T W $ Y 'PH Y %P Y $P T L !I2 B Z W L W !LD* T !I2 C !I. G* 0 Z L !I2 B
0x4ebef8…4ec08c Dummy {f00=0x018e, f01=0x0190, f02=» 0 R Q > 4 >_ <k$ Y T #? 0R R * W ?W X P $ <c ,P $ , X R ;GV H X ( $4 P L X *T * W Y ( - G. B 1 " W JT , (@ >!"$&;<>@^_ M" N O N PB P8 G& B P B L # +P !H !H T !H Y " !H
0x4ec08c…4ec220 Dummy {f00=0x018e, f01=0x0190, f02=» C _P I I " $ P X " X ]r !H Y Y Y _ I " HM _ !H !H NJ $| G. X C _ X Y " Y > B B U$ $ ! T _ U D ! T _ C > X Z^<BR P f H X _x R0 V0 ! P* P P P" R ?Q !H Y
0x4ec220…4ec3b4 (5, 423) Dummy {f00=0x018f, f01=0x0190, f02=» X " N N@ OrSpQ Q R Qb !H P P Q& & Q G& B P B H " +P P. T Y # !H R| X $ Y "R Y " _ Y "_. B 1 R !H Q B B U4 $ ! T _ U D ! T _ $$ X" X& X* C I Q:
0x4ec3b4…4ec548 Dummy {f00=0x018f, f01=0x0190, f02=»] _ C _ I I " $ P X # X ] !H Q PL B !ST !S !H Qb B Y " !S*W PJ 8!0T 8 !@P !H $ P !H !H Q !H 1P X " C ,T Y " $| G. X Y " Y > X " X "" Y %Q Y > X Z2<BR > H Y
0x4ec548…4ec6dc Dummy {f00=0x018f, f01=0x0190, f02=»X !Rn_ X $ X X " !S* !S Y _8 X " X "" Y %U W !H !H !H Y 4 B O U )X R@ X X "" Y & X % V Y !S X $ X " !S* X & PJ O `R Y !H !H !H 4 !H V !H V
0x4ec6dc…4ec870 Dummy {f00=0x018f, f01=0x0190, f02=» U X ( ) Y * U X P Y P C WT X " PP:A: R Q W Y <D X ? ?: T p > V > Pb P C U B U T B % X * $ 4 T % Un X (T !H W V Y * V V !I2 B P X " _Z B P$ $$ R % C
0x4ec870…4eca04 Dummy {f00=0x018f, f01=0x0190, f02=» B Z Z& X * ,T J W X (P Y * 0 %_. % Y * W _p P V _ C !I. G*" V4 QXR X # PN X R(;GV$ H V P8 X R2;GV. X S X ( $4 P V X *T * W Y ( - G. ? X :a Z T T W P X :d Y > > |
0x4eca04…4ecb98 Dummy {f00=0x018f, f01=0x0190, f02=»_v B 1 > JT , _ W W W W X X W X X@W X@W Y0W XzX W X !" W` W Wb * (@ @ D X P _ Y A X T X % T UV P ^ Y
0x4ecb98…4ecd2c Dummy {f00=0x018f, f01=0x0190, f02=» X B# T YL Y _ X _ X X# X X B# P Y T ?h YL H H YB W P I Y B B Y Y < Yl H H C C _ X "" >n W Q X C X DT T W| Y H H S W W B B B Y W. Y X C X D S W
0x4ecd2c…4ecec0 Dummy {f00=0x018f, f01=0x0190, f02=» ]b P _ b T Z G. A = X N G*Z Z [h[h [h [h Z ] a8 ] > (@ X <R X N Q J D '? T" F F E CR Q D DU Y X * @z R8 L ' PN M ' T> L C L C ( @( = _z ( @(
0x4ecec0…4ed054 (5, 424) Dummy {f00=0x018f, f01=0x0190, f02=» F S W G G F F > [ ? X X# T B = Z < > F F +P P T @W4 P P > R [ W W A = X > X < F $ P >LW $ P $ - >4 + X XR ( @( TzW
0x4ed054…4ed1e8 Dummy {f00=0x018f, f01=0x0190, f02=» E D_ X X# T B = X N $|(@( I1M1I2M2I3M3I4M4 F F E CR Q D DU Y X * @z R L ' P M ' T L C L C ( @( = _z ( @(
0x4ed1e8…4ed37c Dummy {f00=0x018f, f01=0x0190, f02=» >L F % =N A] ] * F % G G @ W T ( @( T$ 9a " E & W PJ _ W & P & ?x I - G a W _* _ # ( @( G ] T @] Yf?A W ' W _ ^ S G F > P2 J # " N
0x4ed37c…4ed510 Dummy {f00=0x018f, f01=0x0190, f02=» LP F D V O J F ;F J $ $ P O ;H O X N Yb P _ Xb O Y N > N @ b O Z N > :h! P O :G ^ N ` W N B" P G G @ G N X:n G V V N & c ^ N @' b W W ^2 : J P U Q
0x4ed510…4ed6a4 Dummy {f00=0x018f, f01=0x0190, f02=» _ , % @= ) A= (@ : N B" J L B U B M L B >L D XV ( @( = ?x I I I F RD P NP L L C D U <a Q Q <B _H A J " " V R " P J >n P W Q ?A
0x4ed6a4…4ed838 Dummy {f00=0x018f, f01=0x0190, f02=» = ( @( G a T PT PJV P>V SH? V :!9 V @ P R W ;A [ [ : _4 Pj T Pf V Q UF V Ud Q4P P 9A?A:AV R
0x4ed838…4ed9cc Dummy {f00=0x018f, f01=0x0190, f02=» A A A A A. q UU @ @ ! P$>B @q Aq @q E D P _ $ % $P _ % A >f A A A @ " Q" c :d @ # U R>P0 P q l Ap l P2 l>_ * A n W * A n@W :a2 * A l p &
0x4ed9cc…4edb60 Dummy {f00=0x018f, f01=0x0190, f02=»=J : R F P W W @ $ P @ R| W W r*R" W W V V 8 !RRT W V X W W V V V PF A @ r*U U^ A Q r*VD Y2 W V @ " TJ W
0x4edb60…4edcf4 (5, 425) Dummy {f00=0x018f, f01=0x0190, f02=»W - q P _ T <B :L A W A A W q T F W V q = V W Y( P Z& = :L < P W <9B @ V W Q q W @q A pf @
0x4edcf4…4ede88 Dummy {f00=0x018f, f01=0x0190, f02=»q p V V PZ W @ @ ! T _ P :l 9b ) V _ @ V^ j j W Aj Aj W W l l PH l> j W> l T lz l W lz jL of W @c W k k
0x4ede88…4ee01c Dummy {f00=0x018f, f01=0x0190, f02=»_0 k0 j V 00P l k k k* j _ 0 !TTX W Ai !CCT CC Ak k _ 0 !;; l j _ S Ao Ao of @ R @ ! T Ao. AoB @c V V I q W V $ ) H V 0 !;;P P V PN _ P !;;T X$
0x4ee01c…4ee1b0 Dummy {f00=0x018f, f01=0x0190, f02=»99Q P !00R P 00W 11 Ak` P.=H_, !11R T$ 0 !LLP !RRP !AAP !SSP W W W 0 !;;T~ : 0 !00Rr !99U !AARf !ZZQ` 0 !;;TR : l : l : l" : l& : l, : l0 : 0 )T : !00T W : q TID=TCL=LEV=TDC=T0LC=0SDC=S0A I. :
0x4ee1b0…4ee344 Dummy {f00=0x018f, f01=0x0190, f02=»R P A _> q : @ " P P d m" AmX Am Am Am W m Ac Am Am Am An Ap Ak Aol Ao : 9e :e Q P 9e @c P Ac 9C) A I " @c ! P " :B Ac t q B J " n : 0 R _ <d?d A
0x4ee344…4ee4d8 Dummy {f00=0x018f, f01=0x0190, f02=» @c "| _@ _$ : An An An An nf Ap Ak Aol Ao : h:B* Ac @c P Ac B J 4R 4 :B 4 @c : V V 49B @c 4R @ t w A I ! j : o Ap Ak Aol Ao Ao.! T o@ o2 W Ao2 Ao. I ! : 9D @ @c r s @c A
0x4ee4d8…4ee66c Dummy {f00=0x018f, f01=0x0190, f02=» !CCTr : 1P P$_ P =H P r @ T X W n : YX d C !CCTx xB. l6 <X B.9 Hc Q n _ l _ !SSTF 0 Uc P A X X W W X X S W W W : V W V T W P p V T W
0x4ee66c…4ee800 Dummy {f00=0x018f, f01=0x0190, f02=» ( :W> 2 W 0 . " A A A A Ak 2 ; Z [ : : [ [ : s W Z A. c @ V W U q R
0x4ee800…4ee994 (5, 426) Dummy {f00=0x018f, f01=0x0190, f02=» A A. @ @ W A < : A A G. > ;h 0 :C # : .=H N r r: .=H N r r: N : d 8" R _ ZY QY : @ H W z W | CRP* z ? ? > v
0x4ee994…4eeb28 Dummy {f00=0x018f, f01=0x0190, f02=» , P@ , - 4 ] 4 r*Y 5 X * _6 : W @ ] @ P @ " P : V _ W W . !TTP q @ T q Y s !TTX" A 9 A : ` @ V :a @ r: @ A @ r:;a P$ W @ A @ T q
0x4eeb28…4eecbc Dummy {f00=0x018f, f01=0x0190, f02=»P S S _ : @ @ @ #D# P ; V u _ : @ " P @ P 3 _ @ " P V 3 S 1 S 9J S ( 3 ( 9B @ @ T q : W . !TTP q W t N =H N W l V CRT N =H N
0x4eecbc…4eee50 Dummy {f00=0x018f, f01=0x0190, f02=»U q _2 | P0 " U q _2 V tPx r*R q S ( V | S =J @ " S V l S W l V CRT V p S W p W W _z s !TTT vZ q :
0x4eee50…4eefe4 Dummy {f00=0x018f, f01=0x0190, f02=» 8 4 D P$ q @ # P H I K T + Y@ V p _f V t Y s !TTX @ @ T q : W % @ P _ R @ WT R @ 0 W ` W W& T q P _
0x4eefe4…4ef178 Dummy {f00=0x018f, f01=0x0190, f02=» < | V f P W f _B } V W V t Yv s !TTX @ @ T q : s !TTX !CCTr P, V r 4 U q $ $ _. | P, V 4 U q $ $ _. @ @ @ ! P V 8 8 8
0x4ef178…4ef30c Dummy {f00=0x018f, f01=0x0190, f02=» U^ V 8 8 8 4 D P$ q @ # P H I K T + Y@ _`R& @ @ @ % P V 4 4 4 _r @ @ T q : W V F !SST ~ WJ !AAT ~ W> } V V 0 V P _ W $ q > R
0x4ef30c…4ef4a0 Dummy {f00=0x018f, f01=0x0190, f02=» @ 1 Q a , I ( I * $# P8 V -W( } W" D V ` T @ 1 Q a : @ % PD H I H T P( H U V U W < + + P | V : ` P: @ @ @ D (P W H $ I " % E
0x4ef4a0…4ef634 (5, 427) Dummy {f00=0x0190, f01=0x0190, f02=» W W W R _ $ W : q Y Z F @F T AF V W Y0 Z6 F @F T AF V >A 8T 9 0 1 8 $; # V ;c F !AAP # $ < $ : W | v z *T P _ /
0x4ef634…4ef7c8 Dummy {f00=0x0190, f01=0x0190, f02=» _ V |P V v ]F W v P _ @F P V q AF (P ) @F @F P V q AF (P ) @F @ @ T q : N =H N r : N =H N r : &=H F r : F =H F r : F =H F r : P N =H N T s
0x4ef7c8…4ef95c Dummy {f00=0x0190, f01=0x0190, f02=» D L * A CRT M " L v W W W " F F F F 0 4 0 JS|KB : 4_^ (Ob Y
0x4ef95c…4efaf0 Dummy {f00=0x0190, f01=0x0190, f02=» |P V v P $M P V q (P ) @F @F P V q AF (P ) @F @ @ T q : N =H N r : N =H N r : &=H F r : F =H F r : F =H F r : P N =H N T s
0x4efaf0…4efc84 Dummy {f00=0x0190, f01=0x018e, f02=»QU * P STR A1,A15 P STR A2,A15 P STR A3,A15 4 P STR A4,A15 H P STR A5,A15 P STR A6,A15 p P STR A7,A15 P STR A8,A15 P* P LDKL A6,DW8216 P LD A3,DWTSAV,A6 P LD A4,DWTSAV+2,A6 P LD A5,D
0x4efc84…4efe18 Dummy {f00=0x0190, f01=0x0190, f02=» P OTR A2,0,DAMU08 P ABL IHUXX P IFF HILINO=8 . P EJECT D P* R P* CHLC TRANSMITTER 9 P* x PIH8218 EQU * P STR A1,A15 P STR A2,A15 P STR A3,A15 P STR A4,A15 P STR A5,A15 P STR A6,A15
0x4efe18…4effac Dummy {f00=0x0190, f01=0x0190, f02=»,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 . P* J P LCR A2,A3 T P SLL A2,8 f P LC A2,+1,A3 x P OTR A2,0,DAMU09 P ABL IHUXX P IFF HILINO=9 P EJECT P* P* CHLC TRANSMITTER 10 P*
0x4effac…4f0140 Dummy {f00=0x0190, f01=0x018e, f02=» P STR A7,A15 P STR A8,A15 P* 0 P LDKL A6,DW8220 : P LD A3,DWTSAV,A6 R P LD A4,DWTSAV+2,A6 j P LD A5,DWTSAV+4,A6 P LD A7,DWTSAV+8,A6 P LD A8,DWTSAV+10,A6 P* P LCR A2,A3 P SLL A2,8 P LC A2
0x4f0140…4f0de0 (6, 0) DirGranule ((6, 0)) {
0x4f0140…4f0de0 DirEnt {nam=»TEMP «, typ=» «, f00=0x0000, f01=0x0000, f02=0x2500, f03=0x0000}
0x4f0140…4f0de0 DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3110, f03=0x0000}
0x4f0140…4f0de0 DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3218, f03=0x0000}
0x4f0140…4f0de0 }
0x4f0de0…4f0f74 (6, 1) Opaque[0x194]
0x4f0f74…4f1108 # DirEnt {nam=»RUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3110, f03=0x0000}
0x4f0f74…4f1108 IdxSect {
0x4f0f74…4f1108 f00 = 0x0188 // 0x4f0f74 @0x0
0x4f0f74…4f1108 f01 = 0x0006 // 0x4f0f76 @0x2
0x4f0f74…4f1108 gno = [ // 0x4f0f78 @0x4
0x4f0f74…4f1108 [0x00]: C0x0188.0x2.0
0x4f0f74…4f1108 [0x01]: C0x0190.0x1.0
0x4f0f74…4f1108 [0x02]: C0x0190.0x2.0
0x4f0f74…4f1108 ]
0x4f0f74…4f1108 }
0x4f1108…4f129c Dummy {f00=0x0188, f01=0x0190, f02=» 4 X 5 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x4f129c…4f1430 Dummy {f00=0x0188, f01=0x0190, f02=» V b @ X D 4D;a<a * A A A R$S D L R( L A L 2 W v 0MT AT EOF! W H 2 A R Sr @ ^ _& @ V& 4 ** - &Z b N 0 8
0x4f1430…4f15c4 Dummy {f00=0x0188, f01=0x0190, f02=» (800314) *** RESTORED FILES WITH GRANULE ADDRESSES ************** DATE OF RUN: YYMMDD 0RUM REL 10.0 DATE 80. 03. 14 12NC=8701 356 41000 0RESTORE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x4f15c4…4f1758 Dummy {f00=0x0188, f01=0x0190, f02=» P zW D * A x @ Q @ lT T A W 0 0 A | A K @ 4 K K @ T W N 4 0 @ 0 @ | V @ V N H @ vT @
0x4f1758…4f18ec Dummy {f00=0x0188, f01=0x0190, f02=» OVFL W v 0CATALOG OVFL @ $ 4 v WHEN CREATING USER UUUUUUUU NEW USERID: N:O OF FILES RESTORED:, N:O OF GRANULES ALLOCATED: zE D I S C FROM MAGTAPE 0RESTORE U S E R FROM MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF RESTOR
0x4f18ec…4f1a80 Dummy {f00=0x0188, f01=0x0190, f02=» lT z T RW A | A A K V6 B @ K B @ 0 0 ~ J @ | 9! A t V P R P v 0DISC OVFL W X V8 | 9! W ! T V B T ~ | Z$ V AQ, @ @ ~
0x4f1a80…4f1c14 (6, 2) Dummy {f00=0x0190, f01=0x0190, f02=» 4 v* WHEN RESTORING FFFFFFTT OF USER UUUUUUUU V A v @ v d ~ J ]x _ W S v UNEXPECTED TAPE MARK A v v RESTORED FILE NO GOOD _ < $" = 8 A A ( : A A ( A A ! X !XX
0x4f1c14…4f1da8 Dummy {f00=0x0190, f01=0x0190, f02=» A W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R 8 P Z : Z : 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A j A :
0x4f1da8…4f1f3c Dummy {f00=0x0190, f01=0x0190, f02=» @ d #U. A b @ b A d f p @ 8 N A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H l - " H l - :0123456789ABCDEF A 9h R _@ - Y : @ ` nY : @ dU : @ ` A `R Z_
0x4f1f3c…4f20d0 Dummy {f00=0x0190, f01=0x0190, f02=» A W ! T _ !//T 1 0Z2 U ]@ YF< Y< ZT A R P Z : PAGE: 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A :
0x4f20d0…4f2264 Dummy {f00=0x0190, f01=0x0190, f02=» : : W _" ~ n J 4X X [ Z _ ~ n JTV 4P P _ WJ U 4 : R O T O O W O U W W x A P @ : _ _ _ 1^ _ 1Y
0x4f2264…4f23f8 Dummy {f00=0x0190, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P,QT @ P0WH @ @ P> A Q8 ( ( _6 ( @ P W W @
0x4f23f8…4f258c Dummy {f00=0x0190, f01=0x0190, f02=» v LENGTH ERROR _ ( : , %Q R Y W W Z ' [ : V T(= @ | M ~ A | _ @ | V I ~ _ U X W @ | R A | L ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x4f258c…4f2720 Dummy {f00=0x0190, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P Q @ P W @ @ P A Q ( ( _6 ( @ P W W @ ;
0x4f2720…4f28b4 (6, 3) Dummy {f00=0x0190, f01=0x0190, f02=» Z Z Z Z Z : :- 0123456789 d ' A A @ x 4 R" 4X @ x =C R 9 W - 9W: - 9W. ;c ` xQ( $ ,` A 5 <` @ x+ z @ x : W ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x4f28b4…4f2a48 Dummy {f00=0x0190, f01=0x0190, f02=» A W ! T _ !//T ( _ 0Z2 U ]@ YF< Y< ZT A R 8 P Z : Z : 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A j A :
0x4f2a48…4f2bdc Dummy {f00=0x0190, f01=0x0190, f02=» @ d #U. A b @ b A d f p @ 8 N A : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H l - " H l - :0123456789ABCDEF A 9h R _@ - Y : @ ` nY : @ dU : @ ` A `R Z_
0x4f2bdc…4f2d70 Dummy {f00=0x0190, f01=0x0190, f02=» A W ! T _ !//T 1 0Z2 U ]@ YF< Y< ZT A R P Z : PAGE: 0DISC?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A :
0x4f2d70…4f2f04 Dummy {f00=0x0190, f01=0x0190, f02=» : : W _" ~ n J 4X X [ Z _ ~ n JTV 4P P _ WJ U 4 : R O T O O W O U W W x A P @ : _ _ _ 1^ _ 1Y
0x4f2f04…4f3098 Dummy {f00=0x0190, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P,QT @ P0WH @ @ P> A Q8 ( ( _6 ( @ P W W @
0x4f3098…4f322c Dummy {f00=0x0190, f01=0x0190, f02=» v LENGTH ERROR _ ( : , %Q R Y W W Z ' [ : V T(= @ | M ~ A | _ @ | V I ~ _ U X W @ | R A | L ~ M ~9# Z : _ _ _ 1^ _ 1Y
0x4f322c…4f33c0 Dummy {f00=0x0190, f01=0x0190, f02=» : A ]B v 0TOO MANY I/O ERRORS ON DISC P 4 @ v* XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT A ( @ P P Q @ P W @ @ P A Q ( ( _6 ( @ P W W @ ;
0x4f33c0…4f3554 (6, 4) Opaque[0x194]
0x4f3554…4f36e8 # DirEnt {nam=»SUM «, typ=»LM«, f00=0x0000, f01=0x0000, f02=0x3218, f03=0x0000}
0x4f3554…4f36e8 IdxSect {
0x4f3554…4f36e8 f00 = 0x0190 // 0x4f3554 @0x0
0x4f3554…4f36e8 f01 = 0x0004 // 0x4f3556 @0x2
0x4f3554…4f36e8 gno = [ // 0x4f3558 @0x4
0x4f3554…4f36e8 [0x00]: C0x0190.0x3.0
0x4f3554…4f36e8 [0x01]: C0x0191.0x0.0
0x4f3554…4f36e8 ]
0x4f3554…4f36e8 }
0x4f36e8…4f387c Dummy {f00=0x0190, f01=0x0190, f02=» 5 8 fY%w x b # g $ ^ : 9 i $ 7 f w |4r tV u 3 qC 5 * zuqV $ ' > P ZD o c r P| sV i % 9Zj Q > - D $ 4` 1P -8 T r tB l`Tg t z ^ lFZF H 2 Z j z
0x4f387c…4f3a10 Dummy {f00=0x0190, f01=0x0190, f02=»R * Z ` D L R L A L W W ` * @ bV& L | ** - Z ` d h X 8 8 ( 8Y, W W : ( " f SUM 10.0 (800314) *** SAV
0x4f3a10…4f3ba4 Dummy {f00=0x0190, f01=0x0190, f02=»1 357 41000 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A X z USERID: @ bV
0x4f3ba4…4f3d38 Dummy {f00=0x0190, f01=0x0190, f02=» A v : A B @ bV T X 9! A | bV ( @ bV(W @ bV " T F Z2 @ bV @ V D F X _ A z :( " f SUM 10.0 (800314) *** SAV
0x4f3d38…4f3ecc Dummy {f00=0x0190, f01=0x0190, f02=»1 357 41000 0SAVE D I S C ONTO MAGTAPE 0SAVE U S E R ONTO MAGTAPE 0MEMORY OVERFLOW STATISTICS TOTAL NUMBER OF SAVED USERS: SAVED FILES: SAVED GRANULES: A USERID: @ bV T Z
0x4f3ecc…4f4060 Dummy {f00=0x0190, f01=0x0190, f02=» STATUS WORD: @ * P WRITE PROTECTED @ * P NOT OPERABLE @ * P END OF TAPE ( < $" = A A ( : A B A D @( L A B A D < ! X !XXT L( ( @ L! : h A B A D (
0x4f4060…4f41f4 (6, 5) Dummy {f00=0x0191, f01=0x0190, f02=»_ 0Z2 U ]@ YF< Y< ZT L A ` * R P b bZ : h bZ : F SA?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ 0 A 0 A 2 A 0 : A 2W @ n A 2 A R A U "
0x4f41f4…4f4388 Dummy {f00=0x0191, f01=0x0190, f02=» A 2 : ; [ [ [ Z Z Z : : < , = = $ - Y : - : " :d H - " H - :0123456789ABCDEF A 9h _@ - Y : @ nY : @ U " : @ A R _ : N A : J (
0x4f4388…4f451c Dummy {f00=0x0191, f01=0x0190, f02=» 1 0Z2 U ]@ YF< Y< ZT L A ` R P b bZ : hPAGE: J F SA?? DISC FILE CODE ? OK ? LISTING OF FILENAMES ETC.? < $" = @ A A A : A W @ Z V Z W Z R` P WX
0x4f451c…4f46b0 Dummy {f00=0x0191, f01=0x0190, f02=» 4X X [ Z _ TV 4P P _ lWJ U : l R O T O O W O U W W @ * @ A &P @ : _ _ _ 1^ _ 1Y P . 0^& Q *_8 W ?B?e + A "
0x4f46b0…4f4844 Dummy {f00=0x0191, f01=0x0190, f02=»C P @ * XXXXING SECTOR: XXXX, STATUS WORD: XXXX ( READWRIT , %Q R Y W W Z ' [ : ; [ [ [ [ [ R Q @ - WJ @ - A R( X R X _ Q @ X A T -
0x4f4844…4f49d8 Dummy {f00=0x0191, f01=0x0190, f02=» 8 P A_A ( A_1 ) { l A_A [ P [ T 4 A . @ 0 8A:a @ . 8A:a V [ T @ . Z [ 8 T Z & & T @ . Z 8 TB . F ' & F % G A_: = A_1
0x4f49d8…4f4b6c Dummy {f00=0x0191, f01=0x0190, f02=» [ U F A_;P [ _$ [ X Z @ . ! Z @ . H A_: , A_1X A_: _1 G^,U A_A @_1 . C ( A_1P A_A _ _ A l A A_A A_: = A
0x4f4b6c…4f4d00 Dummy {f00=0x0191, f01=0x0190, f02=»_2 _ G A_: , A_1X W A_: ( A_1 A_AT A_AW( A_A @_2 8A:a OQf @_2 . G A_: , A_1T0 : A_A @_2 8A:a PQ @_2 . G . F G U A_A A_: ) A_1P A_A